Soubor 347 není správný, pokud máte více než jednoho zákazníka nebo dodavatele, kteří mají stejné registrační číslo k dani z přidané hodnoty (DPH) ve španělské verzi Microsoft Dynamics NAV

Platí pro
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

Tento článek se týká produktu Microsoft Dynamics NAV pro národní prostředí španělštiny (es).

Příznaky

Předpokládejme, že máte více než jednoho zákazníka nebo dodavatele, kteří mají stejné registrační číslo pro daň z přidané hodnoty (DPH) ve španělské verzi Microsoft Dynamics NAV. Pokud první zákazník nebo dodavatel nemá žádné položky a druhý zákazník nebo dodavatel má položky, systém nebere v úvahu položky druhého zákazníka nebo dodavatele. Vytvořený soubor 347 je proto nesprávný. K tomuto problému dochází u následujících produktů:

  • Španělská verze Microsoft Dynamics NAV 2009 R2
  • Španělská verze aplikace Microsoft Dynamics NAV 2009 Service Pack 1
  • Španělská verze Microsoft Dynamics NAV 5.0 Service Pack 1

Řešení

Informace o opravě hotfix

Od Microsoftu je teď k dispozici podporovaná oprava hotfix. Účelem je však pouze vyřešení problému, který je popsán v tomto článku. Aplikujte ho jenom na systémy, ve kterých dochází k tomuto konkrétnímu problému. Tato oprava hotfix může projít dalším testováním. Pokud se vás tedy tento problém vážně netýká, doporučujeme počkat na další aktualizaci Service Pack pro produkt Microsoft Dynamics NAV 2009 nebo další verzi aplikace Microsoft Dynamics NAV, která tuto opravu hotfix obsahuje.

Poznámka: Ve zvláštních případech mohou být poplatky, které jsou obvykle účtovány za telefonická hovory podpory, zrušeny, pokud pracovník technické podpory pro řešení Microsoft Dynamics a související produkty zjistí, že konkrétní aktualizace vyřeší váš problém. Další dotazy a problémy týkající se podpory, které se netýkají této konkrétní opravy, podléhají běžným sazbám za podporu.

            
          

Informace o instalaci

Společnost Microsoft poskytuje příklady programování pouze pro ilustraci, bez záruky, ať už vyjádřené nebo předpokládané. To zahrnuje, ale není omezeno na, předpokládané záruky prodejnosti nebo vhodnosti pro konkrétní účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předváděn, a s nástroji, které se používají k vytváření a ladění procedur. Pracovníci technické podpory Microsoftu vám můžou pomoct vysvětlit funkčnost určitého postupu, ale nebudou tyto příklady upravovat za účelem poskytování dalších funkcí nebo konstrukce procedur, které by splňovaly vaše konkrétní požadavky.

Poznámka: Před instalací této opravy hotfix ověřte, zda jsou všichni uživatelé klienta Microsoft Navision odhlášeni ze systému. To zahrnuje i uživatele klienta Microsoft Navision Application Services (NAS). Měli byste být jediným klientským uživatelem, který je přihlášen při implementaci této opravy hotfix.

K implementaci této opravy hotfix musíte mít vývojářskou licenci.

Doporučujeme, aby uživatelské účtu v okně Windows Přihlášení nebo v okně Přihlášení k databázi bylo přiřazeno ID role "SUPER". Pokud nelze uživatelskému účtu přiřadit ID role "SUPER", je nutné ověřit, zda má uživatelský účet následující oprávnění:

  • Oprávnění k úpravám objektu, který budete měnit.
  • Oprávnění ke spuštění pro objekt s ID systémového objektu 5210 a pro objekt s ID systémového objektu 9015.

                
Poznámka: K úložištím dat nemusíte mít práva, ledaže byste museli provádět opravu dat.

Změny kódu

Poznámka: Před použitím oprav v produkčních počítačích vždy otestujte opravy kódu v kontrolovaném prostředí.
Chcete-li tento problém vyřešit, postupujte takto:

  1. Změňte kód v datové položce číslo 6 v sestavě deklarace Make 347 (10707) takto:
    Existující kód

    ...
    IF Vendor."VAT Registration No." <> '' THEN BEGIN
    TotalNotIn347Amt := TotalNotIn347Amt + NotIn347Amt + AmtSameVATRegNo;
    
    // Delete the following line.
    PurchasesAmt := PurchasesAmt - NotIn347Amt;
    // End of the line.
    
    IF PurchasesAmt >= MinAmount THEN BEGIN
    IF PostCode347 = ' ' THEN
    ERROR(Text1100009,Vendor."No.");
    ...
    
    

    Náhradní kód

    ...
    IF Vendor."VAT Registration No." <> '' THEN BEGIN
    TotalNotIn347Amt := TotalNotIn347Amt + NotIn347Amt + AmtSameVATRegNo;
    
    // Add the following line.
    PurchasesAmt := PurchasesAmt - NotIn347Amt + AmtSameVATRegNo; // ES0001
    // End of the line.
    
    IF PurchasesAmt >= MinAmount THEN BEGIN
    IF PostCode347 = ' ' THEN
    ERROR(Text1100009,Vendor."No.");
    ...
    
    
  2. Následujícím způsobem změňte kód ve funkci CheckSameVATRegNo v sestavě deklarace Make 347 (10707):
    Existující kód 1

    ...
    VATEntry3@1100000 : Record 254;
    BEGIN
    VATEntry3.SETCURRENTKEY(Type,"Country/Region Code","VAT Registration No.");
    
    // Delete the following line.
    VATEntry3.SETRANGE(Type,VATEntry3.Type::Sale);
    // End of the line.
    
    VATEntry3.SETRANGE("Country/Region Code",CountryCode);
    IF IsCustomer THEN BEGIN
    ...
    
    

    Náhradní kód 1

    ...
    VATEntry3@1100000 : Record 254;
    BEGIN
    VATEntry3.SETCURRENTKEY(Type,"Country/Region Code","VAT Registration No.");
    VATEntry3.SETRANGE("Country/Region Code",CountryCode);
    IF IsCustomer THEN BEGIN
    ...
    
    

    Existující kód 2

    ...
    VATEntry3.SETRANGE("Country/Region Code",CountryCode);
    IF IsCustomer THEN BEGIN
    VATEntry3.SETRANGE("VAT Registration No.",Customer."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Customer."No.");
    END ELSE BEGIN
    ...
    
    

    Náhradní kód 2

    ...
    VATEntry3.SETRANGE("Country/Region Code",CountryCode);
    IF IsCustomer THEN BEGIN
    
    // Add the following line.
    VATEntry3.SETRANGE(Type,VATEntry3.Type::Sale); // ES0001
    // End of the line.
    
    VATEntry3.SETRANGE("VAT Registration No.",Customer."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Customer."No.");
    END ELSE BEGIN
    ...
    
    

    Existující kód 3

    ...
    VATEntry3.SETRANGE("VAT Registration No.",Customer."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Customer."No.");
    END ELSE BEGIN
    VATEntry3.SETRANGE("VAT Registration No.",Vendor."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
    END;
    ...
    
    

    Náhradní kód 3

    ...
    VATEntry3.SETRANGE("VAT Registration No.",Customer."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Customer."No.");
    END ELSE BEGIN
    
    // Add the following line.
    VATEntry3.SETRANGE(Type,VATEntry3.Type::Purchase); // ES0001
    // End of the line.
    
    VATEntry3.SETRANGE("VAT Registration No.",Vendor."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
    END;
    ...
    
    

    Existující kód 4

    ...
    VATEntry3.SETRANGE("VAT Registration No.",Vendor."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
    END;
    
    // Delete the following line.
    VATEntry3.SETRANGE("Posting Date",FromDate,ToDate);
    // End of the line.
    
    IF VATEntry3.FINDFIRST THEN
    REPEAT
    ...
    
    

    Náhradní kód 4

    ...
    VATEntry3.SETRANGE("VAT Registration No.",Vendor."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
    END;
    
    // Add the following line.
    VATEntry3.SETRANGE("Document Date",FromDate,ToDate); // ES0001
    // End of the line.
    
    IF VATEntry3.FINDFIRST THEN
    REPEAT
    ...
    
    

    Existující kód 5

    ...
    IF VATEntry3.FINDFIRST THEN
    REPEAT
    
    // Delete the following line.
    Amt := ABS(Amt + VATEntry3.Base + VATEntry3.Amount);
    // End of the line.
    
    UNTIL VATEntry3.NEXT = 0;
    EXIT(Amt);
    END;
    ...
    
    

    Náhradní kód 5

    ...
    IF VATEntry3.FINDFIRST THEN
    REPEAT
    
    // Add the following lines.
    // ES0001.begin
    IF IsCustomer THEN
    Amt := Amt - VATEntry3.Base - VATEntry3.Amount
    ELSE
    Amt := Amt + VATEntry3.Base + VATEntry3.Amount;
    // ES0001.end
    // End of the lines.
    
    UNTIL VATEntry3.NEXT = 0;
    EXIT(Amt);
    END;
    ...
    
    

Požadavky

Chcete-li nainstalovat tuto opravu hotfix, musíte mít nainstalovaný jeden z následujících produktů:

  • Španělská verze Microsoft Dynamics NAV 2009 R2
  • Španělská verze aplikace Microsoft Dynamics NAV 2009 Service Pack 1
  • Španělská verze Microsoft Dynamics NAV 5.0 Service Pack 1

Informace o odebrání

Tuto opravu hotfix nelze odebrat.

Stav

Společnost Microsoft potvrdila, že se jedná o problém produktů Microsoft, které jsou uvedeny v sekci Platí pro.

Poznámka: Toto je článek určený k rychlému zveřejnění, který byl vytvořen přímo v rámci organizace podpory společnosti Microsoft. Zde uvedené informace jsou poskytovány tak, jak jsou, jako reakce na nově vznikající potíže. Vzhledem k rychlosti, s jakou byl článek zpřístupněn, mohou příslušné materiály obsahovat typografické chyby a mohou být kdykoli bez předchozího upozornění revidovány. Další okolnosti viz Podmínky použití .