The VAT amount is incorrect when you enter an invoice line for an invoice rounding general ledger account in Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Create a new GetCPGInvRoundAcc function that uses the Code type for the return value (Lenght 20) in the Sales Line table (37). To create this function, follow these steps:
   1. Add a new local variable, and then specify the variable as follows:
      • Name: Cust@1012
      • DataType: Record
      • Subtype: Customer
   2. Add a new local variable, and then specify the variable as follows:
      • Name: CustPostingGroup@1013
      • DataType: Record
      • Subtype: Customer Posting Group
   3. Add a new local variable, and then specify the variable as follows:
      • Name: CustTemplate@1014
      • DataType: Record
      • Subtype: Customer Template
   4. Add a new local variable, and then specify the variable as follows:
      • Name: SalesSetup@1008
      • DataType: Record
      • Subtype: Sales & Receivables Setup
   5. Add the code as follows:
      

      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. Delete the following local variables in the CalcVATAmountLines function in the Sales Line table (37):
   • Cust@1012
   • CustPostingGroup@1013
   • CustTemplate@1014
3. Change the code in the CalcVATAmountLines function in the Sales Line table (37) as follows:
   Existing code

   …
   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"]
   …

   Replacement code

   …
   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. Create a new GetVPGInvRoundAcc function that uses the Code type (Lenght 20) for the return value in the Purchase Line table (39). To create this function, follow these steps:
   1. Add a new local variable, and then specify the variable as follows:
      • Name: Vendor@1000
      • DataType: Record
      • Subtype: Vendor
   2. Add a new local variable, and then specify the variable as follows:
      • Name: VendorPostingGroup@1001
      • DataType: Record
      • Subtype: Vendor Posting Group
   3. Add a new local variable, and then specify the variable as follows:
      • Name: PurchSetup@1002
      • DataType: Record
      • Subtype: Purchase & Payables Setup
   4. Add the code  as follows:
      

      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. Delete the following local variables in the CalcVATAmountLines function in the Purchase Line table (39):
   • Vendor@1012
   • VendorPostingGroup@1013
6. Change the code in the CalcVATAmountLines function in the Purchase Line table (39):
   Existing code

   …
   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"]
   …

   Replacement code

   …
   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"]
   …

Prerequisites

• Microsoft Dynamics NAV 2009 R2
• Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
• Microsoft Dynamics NAV 2009

Removal information