Částka DPH je nesprávné, pokud jste zadali řádek faktury pro účet hlavní knihy v produktu Microsoft Dynamics NAV 2009 zaokrouhlení faktury

Informace o opravě hotfix

Podporovaná oprava hotfix je nyní k dispozici od společnosti Microsoft. Však je určena pouze k odstranění problému popsaného v tomto článku. Použijte ji pouze u systémů, ve kterých dochází k tomuto konkrétnímu problému. Tato oprava hotfix může být dále testována. Proto pokud jste závažně tento problém, doporučujeme počkat na další aktualizaci service pack produktu Microsoft Dynamics NAV 2009 nebo další verze produktu Microsoft Dynamics NAV, která obsahuje tuto opravu hotfix.

Poznámka: Ve zvláštních případech poplatky, které jsou třeba obvykle zaplatit za telefonní hovory mohou být stornovány, jestliže pracovník technické podpory společnosti Microsoft Dynamics a souvisejících produktů Určuje, že konkrétní aktualizace odstraní váš problém. Výdaje na technickou podporu použije dalších otázek a problémů, které nelze vyřešit konkrétní aktualizací.

Změny kódu

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

1. Vytvořte nové funkce GetCPGInvRoundAcc , která používá kód typu vrácené hodnoty (20 délku) v tabulce Prodejní řádek (37). Chcete-li vytvořit tuto funkci, postupujte takto:

   1. Přidat nový místní proměnné a proměnné zadejte následujícím způsobem:

      • Název: Cust@1012

      • Datový typ: záznam

      • Podtyp: Zákazník

   2. Přidat nový místní proměnné a proměnné zadejte následujícím způsobem:

      • Název: CustPostingGroup@1013

      • Datový typ: záznam

      • Podtyp: Účto skupiny zákazníků

   3. Přidat nový místní proměnné a proměnné zadejte následujícím způsobem:

      • Název: CustTemplate@1014

      • Datový typ: záznam

      • Podtyp: šablony zákazníka

   4. Přidat nový místní proměnné a proměnné zadejte následujícím způsobem:

      • Název: SalesSetup@1008

      • Datový typ: záznam

      • Podtyp: Nastavení prodeje a pohledávek

   5. Přidejte následující kód:
      

      SalesSetup.GET;IF SalesSetup."Invoice Rounding" THEN BEGIN
        IF Cust.GET(SalesHeader."Bill-to Customer No.") THEN
          CustPostingGroup.GET(Cust."Customer Posting Group")
        ELSE
          IF CustTemplate.GET(SalesHeader."Sell-to Customer Template Code") THEN
            CustPostingGroup.GET(CustTemplate."Customer Posting Group");
      END;
      EXIT(CustPostingGroup."Invoice Rounding Account");
      

2. Odstraňte následující místní proměnné ve funkci CalcVATAmountLines v tabulce Prodejní řádek (37):

   • Cust@1012

   • CustPostingGroup@1013

   • CustTemplate@1014

3. Změňte kód ve funkci CalcVATAmountLines v tabulce Prodejní řádek (37) takto:
   Existující kód

   …WITH SalesLine DO BEGIN
     SETRANGE("Document Type",SalesHeader."Document Type");
     SETRANGE("Document No.",SalesHeader."No.");
     SalesSetup.GET;
     IF SalesSetup."Invoice Rounding" THEN BEGIN
       IF Cust.GET(SalesHeader."Bill-to Customer No.") THEN
         CustPostingGroup.GET(Cust."Customer Posting Group")
       ELSE
         IF CustTemplate.GET(SalesHeader."Sell-to Customer Template Code") THEN
           CustPostingGroup.GET(CustTemplate."Customer Posting Group");
     END;
     IF FINDSET THEN
       REPEAT
         IF NOT ZeroAmountLine(QtyType) THEN BEGIN
           IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN
             RoundingLineInserted := ("No." = CustPostingGroup."Invoice Rounding Account") OR RoundingLineInserted;
           IF "VAT Calculation Type" IN
              ["VAT Calculation Type"::"Reverse Charge VAT","VAT Calculation Type"::"Sales Tax"]
   …
   

   Změněný kód

   …WITH SalesLine DO BEGIN
     SETRANGE("Document Type",SalesHeader."Document Type");
     SETRANGE("Document No.",SalesHeader."No.");
     IF FINDSET THEN
       REPEAT
         IF NOT ZeroAmountLine(QtyType) THEN BEGIN
           IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN
             RoundingLineInserted := ("No." = GetCPGInvRoundAcc) OR RoundingLineInserted;
           IF "VAT Calculation Type" IN
              ["VAT Calculation Type"::"Reverse Charge VAT","VAT Calculation Type"::"Sales Tax"]
   …
   

4. Vytvořte nové funkce GetVPGInvRoundAcc , která používá typ kódu (20 délku) pro vrácenou hodnotu v tabulce Nákupní řádek (39). Chcete-li vytvořit tuto funkci, postupujte takto:

   1. Přidat nový místní proměnné a proměnné zadejte následujícím způsobem:

      • Název: Vendor@1000

      • Datový typ: záznam

      • Podtyp: dodavatele

   2. Přidat nový místní proměnné a proměnné zadejte následujícím způsobem:

      • Název: VendorPostingGroup@1001

      • Datový typ: záznam

      • Podtyp: Účto skupiny dodavatele

   3. Přidat nový místní proměnné a proměnné zadejte následujícím způsobem:

      • Název: PurchSetup@1002

      • Datový typ: záznam

      • Podtyp: Nastavení nákupu a závazků

   4. Přidejte následující kód:
      

      PurchSetup.GET;  IF PurchSetup."Invoice Rounding" THEN  
        IF Vendor.GET(PurchHeader."Pay-to Vendor No.") THEN
          VendorPostingGroup.GET(Vendor."Vendor Posting Group");
      EXIT(VendorPostingGroup."Invoice Rounding Account");
      

      
      

5. Odstraňte následující místní proměnné ve funkci CalcVATAmountLines v tabulce Nákupní řádek (39):

   • Vendor@1012

   • VendorPostingGroup@1013

6. Změňte kód ve funkci CalcVATAmountLines v tabulce Nákupní řádek (39):
   Existující kód

   …WITH PurchLine DO BEGIN
     SETRANGE("Document Type",PurchHeader."Document Type");
     SETRANGE("Document No.",PurchHeader."No.");
     PurchSetup.GET;
     IF PurchSetup."Invoice Rounding" THEN BEGIN
       Vendor.GET(PurchHeader."Pay-to Vendor No.");
       VendorPostingGroup.GET(Vendor."Vendor Posting Group");
     END;
     IF FINDSET THEN
       REPEAT
         IF NOT ZeroAmountLine(QtyType) THEN BEGIN
           IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN
             RoundingLineInserted := ("No." = VendorPostingGroup."Invoice Rounding Account") OR RoundingLineInserted;
           IF "VAT Calculation Type" IN
              ["VAT Calculation Type"::"Reverse Charge VAT","VAT Calculation Type"::"Sales Tax"]
   …
   

   Změněný kód

   …WITH PurchLine DO BEGIN
     SETRANGE("Document Type",PurchHeader."Document Type");
     SETRANGE("Document No.",PurchHeader."No.");
     IF FINDSET THEN
       REPEAT
         IF NOT ZeroAmountLine(QtyType) THEN BEGIN
           IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN
             RoundingLineInserted := ("No." = GetVPGInvRoundAcc) OR RoundingLineInserted;
           IF "VAT Calculation Type" IN
              ["VAT Calculation Type"::"Reverse Charge VAT","VAT Calculation Type"::"Sales Tax"]
   …