The VAT rounding works incorrectly for the corrective entries on sales/purchase documents in the Czech version of Microsoft Dynamics NAV 2009 R2

Hotfix information

A supported hotfix is now available from Microsoft. However, it is only intended to correct the problem that is described in this article. Apply it only to systems that are experiencing this specific problem. This hotfix may receive additional testing. Therefore, if you are not severely affected by this problem, we recommend that you wait for the next Microsoft Dynamics NAV 2009 service pack or the next Microsoft Dynamics NAV version that contains this hotfix.

Note In special cases, charges that are ordinarily incurred for support calls may be canceled if a Technical Support Professional for Microsoft Dynamics and related products determines that a specific update will resolve your problem. The usual support costs will apply to additional support questions and issues that do not qualify for the specific update in question.

Code changes

Note Always test code fixes in a controlled environment before you apply the fixes to your production computers.
To resolve this problem, follow these steps:

1. Change the code in the RoundAmount function in the Sales-Post codeunit (80) as follows:
   Add a text constant as follows:
   Text054 : TextConst 'ENU=%1 %2 must have zero VAT setup.'
   Existing code

   ...
         IF ("VAT Calculation Type" = "VAT Calculation Type"::"Normal VAT") OR
        ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT")
     THEN BEGIN
       GetCurrency;
       GLSetup.GET;
       GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
   
       IF SalesHeader."Prices Including VAT" THEN
   ...

   Replacement code

   ...
      IF ("VAT Calculation Type" = "VAT Calculation Type"::"Normal VAT") OR
        ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT")
     THEN BEGIN
       GetCurrency;
   // Add the following lines.
       IF "System-Created Entry" THEN BEGIN
         RoundingPrecisionLCY := Currency."Amount Rounding Precision";
         RoundingDirectionLCY := Currency.VATRoundingDirection;
       END ELSE BEGIN
   // End of the added lines.      
   
         GLSetup.GET;
         GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
   // Add the following line.              
       END;            
   
       IF SalesHeader."Prices Including VAT" THEN
   ...

2. Change the code in the InvoiceRounding function in the Sales-Post codeunit (80) as follows:
   Delete the following local variables:

   • Name: RoundingPrecision; DataType: Decimal

   • Name: RoundingDirection; DataType: Text[1]

   Add the following local variables:
   

   • Name: VATPostingSetup; DataType: Record (325)

   • Name: GLAcc; DataType: Record (15)

   
   Existing code 1

   ...
   // Delete the following line.
     GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
   
     Currency.TESTFIELD("Invoice Rounding Precision");
     InvoiceRoundingAmount :=
       -ROUND(
         TotalSalesLine."Amount Including VAT" -
         ROUND(
           TotalSalesLine."Amount Including VAT",
           Currency."Invoice Rounding Precision",
           Currency.InvoiceRoundingDirection),
   // Delete the following line.            
         RoundingPrecision);
   
     IF InvoiceRoundingAmount <>0 THEN BEGIN
       CustPostingGr.GET(SalesHeader."Customer Posting Group");
       CustPostingGr.TESTFIELD("Invoice Rounding Account");
   
       WITH SalesLine DO BEGIN    
   ...

   Replacement code 1

   ...
     Currency.TESTFIELD("Invoice Rounding Precision");
     InvoiceRoundingAmount :=
       -ROUND(
         TotalSalesLine."Amount Including VAT" -
         ROUND(
           TotalSalesLine."Amount Including VAT",
           Currency."Invoice Rounding Precision",
           Currency.InvoiceRoundingDirection),
   
   // Add the following line.           
         Currency."Amount Rounding Precision");
   
     IF InvoiceRoundingAmount <> 0 THEN BEGIN
       CustPostingGr.GET(SalesHeader."Customer Posting Group");
       CustPostingGr.TESTFIELD("Invoice Rounding Account");
   // Add the following lines.        
       IF GLSetup."Rounding VAT (LCY)" <> GLSetup."Amount Rounding Precision" THEN BEGIN
         GLAcc.GET(CustPostingGr."Invoice Rounding Account");
         IF VATPostingSetup.GET(SalesHeader."VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group") THEN
           IF VATPostingSetup."VAT %" <> 0 THEN
             ERROR(Text054,CustPostingGr.FIELDCAPTION("Invoice Rounding Account"),CustPostingGr."Invoice Rounding Account");
       END;
   // End of the added lines. 
   
       WITH SalesLine DO BEGIN
   ...

   Existing code 2

   ...
      ELSE
       VALIDATE(
         "Unit Price",
         ROUND(
           InvoiceRoundingAmount /
           (1 + (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100),
   // Delete the following line.                
           RoundingPrecision));
   
     VALIDATE("Amount Including VAT",InvoiceRoundingAmount);  
   ...

   Replacement code 2

   ...
     ELSE
       VALIDATE(
         "Unit Price",
         ROUND(
           InvoiceRoundingAmount /
           (1 + (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100),
   // Add the following line.                
           Currency."Amount Rounding Precision"));
   
     VALIDATE("Amount Including VAT",InvoiceRoundingAmount);  
   ...

3. Change the code in the RoundAmount function in the Purch.-Post codeunit (90) as follows:
   Add the following text constant:
   
   Text061 : TextConst 'ENU=%1 %2 must have zero VAT setup.'
   
   Existing code

   ...
     IF ("VAT Calculation Type" = "VAT Calculation Type"::"Normal VAT") OR
        ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT")
     THEN BEGIN
       GetCurrency;
       GLSetup.GET;
       GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
   
       IF PurchHeader."Prices Including VAT" THEN
   ...

   Replacement code

   ...
     IF ("VAT Calculation Type" = "VAT Calculation Type"::"Normal VAT") OR
        ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT")
     THEN BEGIN
       GetCurrency;
   // Add the following lines.                        
       IF "System-Created Entry" THEN BEGIN
         RoundingPrecisionLCY := Currency."Amount Rounding Precision";
         RoundingDirectionLCY := Currency.VATRoundingDirection;
       END ELSE BEGIN
   // End of the added lines.             
         GLSetup.GET;
         GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
   // Add the following line.              
       END;
   
       IF PurchHeader."Prices Including VAT" THEN
   ...

4. Change the code in the InvoiceRounding function in the Purch.-Post codeunit (90) as follows:
   Delete the following local variables:

   • Name: RoundingPrecision; DataType: Decimal

   • Name: RoundingDirection; DataType: Text[1]

   Add the following local variables:
   

   • Name: VATPostingSetup; DataType: Record (325)

   • Name: GLAcc; DataType: Record (15)

   
   Existing code

   ...
      IF InvoiceRoundingAmount <> 0 THEN BEGIN
       VendPostingGr.GET(PurchHeader."Vendor Posting Group");
       VendPostingGr.TESTFIELD("Invoice Rounding Account");
   
       WITH PurchLine DO BEGIN 
   ...

   Replacement code

   ...
       IF InvoiceRoundingAmount <>  0 THEN BEGIN
       VendPostingGr.GET(PurchHeader."Vendor Posting Group");
       VendPostingGr.TESTFIELD("Invoice Rounding Account");
   // Add the following lines.
       IF GLSetup."Rounding VAT (LCY)" <> GLSetup."Amount Rounding Precision" THEN BEGIN
         GLAcc.GET(VendPostingGr."Invoice Rounding Account");
         IF VATPostingSetup.GET(PurchHeader."VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group") THEN
           IF VATPostingSetup."VAT %" <>0 THEN
             ERROR(Text061,VendPostingGr.FIELDCAPTION("Invoice Rounding Account"),VendPostingGr."Invoice Rounding Account");
       END;
   // End of the added lines.         
       WITH PurchLine DO BEGIN
   ...

5. Change the code in the Amount Including VAT - OnValidate trigger in the Sales Line table (37) as follows:
   Existing code

   ...
       CASE "VAT Calculation Type" OF
       "VAT Calculation Type"::"Normal VAT",
       "VAT Calculation Type"::"Reverse Charge VAT":
         BEGIN
           GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
   
           Amount := 
   ...

   Replacement code

   ...
     CASE "VAT Calculation Type" OF
       "VAT Calculation Type"::"Normal VAT",
       "VAT Calculation Type"::"Reverse Charge VAT":
         BEGIN
   // Add the following lines.
           IF "System-Created Entry" THEN
             RoundingPrecision := Currency."Amount Rounding Precision"
           ELSE
   // End of the added lines.                                                                       
             GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
   
           Amount := 
   ...

6. Change the code in the CalcVATAmountLines function in the Sales Line table (37) as follows:
   Existing code 1

   ...
                 END;
           END;
   // Delete the following line        
         TotalVATAmount := TotalVATAmount + "Amount Including VAT" - Amount;
       VATCorrection := VATCorrection AND SalesLine."VAT Correction";
       END;
     UNTIL NEXT = 0;
   ...

   Replacement code 1

   ...
               END;
           END;
   // Add the following lines.        
       IF GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision" THEN
         TotalVATAmount := TotalVATAmount + "Amount Including VAT" - Amount + "VAT Difference";
   // End of the added lines.       
       VATCorrection := VATCorrection AND SalesLine."VAT Correction";
       END;
     UNTIL NEXT = 0;
   ...

   Existing code 2

   ...
       END;
     END;
   // Delete the following line.  
     IF RoundingLineInserted THEN
       TotalVATAmount := TotalVATAmount - "VAT Amount";
     "Calculated VAT Amount" := "VAT Amount" - "VAT Difference";
   ...

   Replacement code 2

   ...
        END;
     END;
   // Add the following line. 
     IF RoundingLineInserted AND (GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision") THEN
       TotalVATAmount := TotalVATAmount - "VAT Amount";
     "Calculated VAT Amount" := "VAT Amount" - "VAT Difference";
   ...

7. Change the code in the Amount Including VAT - OnValidate trigger in the Purchase Line table (39) as follows:
   Existing code

   ...
       CASE "VAT Calculation Type" OF
       "VAT Calculation Type"::"Normal VAT",
       "VAT Calculation Type"::"Reverse Charge VAT":
         BEGIN
           GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
   
           Amount := 
   ...

   Replacement code

   ...
     CASE "VAT Calculation Type" OF
       "VAT Calculation Type"::"Normal VAT",
       "VAT Calculation Type"::"Reverse Charge VAT":
         BEGIN
   // Add the following lines.
           IF "System-Created Entry" THEN
             RoundingPrecision := Currency."Amount Rounding Precision"
           ELSE
   // End of the added lines.                                                                       
             GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
   
           Amount := 
   ...

8. Change the code in the CalcVATAmountLines function in the Purchase Line table (39) as follows:
   Existing code 1

   ...
          END;
     END;
   
       TotalVATAmount := TotalVATAmount + "Amount Including VAT" - Amount + "VAT Difference";
     VATCorrection := VATCorrection AND PurchLine."VAT Correction";  
   ...

   Replacement code 1

   ...
          END;
     END;
   // Add the following line.  
     IF GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision" THEN
       TotalVATAmount := TotalVATAmount + "Amount Including VAT" - Amount + "VAT Difference";
     VATCorrection := VATCorrection AND PurchLine."VAT Correction";
   ...

   Existing code 2

   ...
      END;
     END;
   // Delete the following line.  
     IF RoundingLineInserted THEN
       TotalVATAmount := TotalVATAmount - "VAT Amount";
     "Calculated VAT Amount" := "VAT Amount" - "VAT Difference";    
   ...

   Replacement code 2

   ...
        END;
     END;
   // Add the following line  
     IF RoundingLineInserted AND (GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision") THEN
       TotalVATAmount := TotalVATAmount - "VAT Amount";
     "Calculated VAT Amount" := "VAT Amount" - "VAT Difference"; 
   ...