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

View products that this article applies to.

This article applies to Microsoft Dynamics NAV for the Czech (cz) region.

Symptoms

In the Czech version of Microsoft Dynamics NAV 2009 R2, the system calculates the VAT rounding for the corrective entries on sales/purchase documents. This problem occurs when the system is rounding the invoices and VAT to whole numbers.

↑ Back to the top

Resolution

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.

↑ Back to the top

Installation information

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.

Note Before you install this hotfix, verify that all Microsoft Navision client users are logged off the system. This includes Microsoft Navision Application Services (NAS) client users. You should be the only client user who is logged on when you implement this hotfix.

To implement this hotfix, you must have a developer license.

We recommend that the user account in the Windows Logins window or in the Database Logins window be assigned the "SUPER" role ID. If the user account cannot be assigned the "SUPER" role ID, you must verify that the user account has the following permissions:

The Modify permission for the object that you will be changing.
The Execute permission for the System Object ID 5210 object and for the System Object ID 9015 object.

Note You do not have to have rights to the data stores unless you have to perform data repair.

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:

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
...

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);  
...

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
...

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
...

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 := 
...

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";
...

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 := 
...

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"; 
...

Prerequisites

You must have the Czech version of Microsoft Dynamics NAV 2009 R2 installed to apply this hotfix.

Removal information

You cannot remove this hotfix.

↑ Back to the top

Status

Microsoft has confirmed that this is a problem in the Microsoft products that are listed in the "Applies to" section.

↑ Back to the top

References

VSTF DynamicsNAV SE: 254108

↑ Back to the top

Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

↑ Back to the top