The VAT calculation is incorrect if a reverse charge VAT purchase invoice has several lines that link to different jobs in Microsoft Dynamics NAV

Installation information

Code changes

1. Add a local variable in the OnRun trigger, and then specify the variable as follows:
   • Name:TempRevChargeVATAmountLine
   • DataType:Record
   • Subtype:VAT Amount Line
   Note Enable the Temporary property.
2. Add a local variable in the OnRun trigger, and then specify the variable as follows:
   • Name:TempRevChargeVATAmountLine2
   • DataType:Record
   • Subtype:VAT Amount Line
   Note Enable the Temporary property.
3. Change the code the OnRun trigger as follows:
   Existing code
   
   ....
   

   CASE InvPostingBuffer[1]."VAT Calculation Type" OF
     InvPostingBuffer[1]."VAT Calculation Type"::"Reverse Charge VAT":
   //delete lines begin    
       BEGIN
         VATPostingSetup.GET(
           InvPostingBuffer[1]."VAT Bus. Posting Group",InvPostingBuffer[1]."VAT Prod. Posting Group");
         InvPostingBuffer[1]."VAT Amount" :=
           ROUND(
             InvPostingBuffer[1].Amount * VATPostingSetup."VAT %" / 100);
         InvPostingBuffer[1]."VAT Amount (ACY)" :=
           ROUND(
             (InvPostingBuffer[1]."Amount (ACY)" * VATPostingSetup."VAT %" / 100),Currency."Amount Rounding Precision");
       END
   //delete lines end  
     InvPostingBuffer[1]."VAT Calculation Type"::"Sales Tax":

   Replacement code

   ...
   CASE InvPostingBuffer[1]."VAT Calculation Type" OF
   InvPostingBuffer[1]."VAT Calculation Type"::"Reverse Charge VAT":
   
   // Add the following line.
   CalcRevChargeVATAmounts(InvPostingBuffer[1],TempRevChargeVATAmountLine,TempRevChargeVATAmountLine2);
   
   InvPostingBuffer[1]."VAT Calculation Type"::"Sales Tax":
   ...
   

4. Add a new CalcRevChargeVATAmount function. To do this, follow these steps:
   1. Set the Local property to Yes.
   2. Add a local parameter in the CalcRevChargeVATAmount function, and then specify the parameter as follows:
      • Var: Yes
      • Name:InvoicePostBuffer
      • DataType:Record
      • Subtype:Invoice Post. Buffer
   3. Add a local parameter in the CalcRevChargeVATAmount function, and then specify the parameter as follows:
      • Var: Yes
      • Name:TempRevChargeVATAmountLine
      • DataType:Record
      • Subtype:VAT Amount Line
   4. Add a local variable in the CalcRevChargeVATAmount function, and then specify the variable as follows:
      • Name:VATBase
      • DataType:Decimal
   5. Add a local variable in the CalcRevChargeVATAmount function, and then specify the variable as follows:
      • Name:TotalVATBase
      • DataType:Decimal
   6. In the created CalcRevChargeVATAmount(VAR InvoicePostBuffer : Record "Invoice Post. Buffer";VAR TempRevChargeVATAmountLine : Record "VAT Amount Line") function, add the following code:

      VATBase := InvoicePostBuffer.Amount;
      TotalVATBase := GetTotalVATBase(TempRevChargeVATAmountLine,InvoicePostBuffer);
      InvoicePostBuffer."VAT Amount" := GetVATAmount(TotalVATBase + VATBase) - GetVATAmount(TotalVATBase);
      SetTotalVATBase(TempRevChargeVATAmountLine,InvoicePostBuffer,VATBase);

5. Add a new CalcRevChargeVATAmounts function. To do this, follow these steps:
   1. Set the Local property to Yes.
   2. Add a local parameter in the CalcRevChargeVATAmounts function, and then specify the parameter as follows:
      • Var: Yes
      • Name:InvoicePostBuffer
      • DataType:Record
      • Subtype:Invoice Post. Buffer
   3. Add a local parameter in the CalcRevChargeVATAmounts function, and then specify the parameter as follows:
      • Var: Yes
      • Name:TempRevChargeVATAmountLine
      • DataType:Record
      • Subtype:VAT Amount Line
   4. Add a local parameter in the CalcRevChargeVATAmounts function, and then specify the parameter as follows:
      • Var: Yes
      • Name:TempRevChargeVATAmountLine2
      • DataType:Record
      • Subtype:VAT Amount Line
   5. Add a local variable in the CalcRevChargeVATAmounts function, and then specify the variable as follows:
      • Name:ACYInvoicePostBuffer
      • DataType:Record
      • Subtype:Invoice Post. Buffer
      Note Enable the Temporary property.
   6. In the created CalcRevChargeVATAmounts(VAR InvoicePostBuffer : Record "Invoice Post. Buffer";VAR TempRevChargeVATAmountLine : Record "VAT Amount Line") function, add the following code:

      CalcRevChargeVATAmount(InvoicePostBuffer,TempRevChargeVATAmountLine);
      CopyACYAmounts(InvoicePostBuffer,ACYInvoicePostBuffer);
      CalcRevChargeVATAmount(ACYInvoicePostBuffer,TempRevChargeVATAmountLine2);
      InvoicePostBuffer."VAT Amount (ACY)" := ACYInvoicePostBuffer."VAT Amount";
      

6. Add a new FillVATAmountLine function. To do this, follow these steps:
   1. Set theLocal property to Yes.
   2. Add a local parameter in the FillVATAmountLine function, and then specify the parameter as follows:
      • Var: Yes
      • Name:TempRevChargeVATAmountLine
      • DataType:Record
      • Subtype:VAT Amount Line
   3. Add a local parameter in the FillVATAmountLine function, and then specify the parameter as follows:
      • Var: No
      • Name:InvoicePostBuffer
      • DataType:Record
      • Subtype:Invoice Post. Buffer
   4. In the created FillVATAmountLine(VAR TempRevChargeVATAmountLine : Record "VAT Amount Line";InvoicePostBuffer : Record "Invoice Post. Buffer") function, add the following code:

      VATPostingSetup.GET(InvoicePostBuffer."VAT Bus. Posting Group",InvoicePostBuffer."VAT Prod. Posting Group");
      TempRevChargeVATAmountLine.INIT;
      TempRevChargeVATAmountLine."VAT Identifier" := VATPostingSetup."VAT Identifier";
      TempRevChargeVATAmountLine."VAT Calculation Type" := VATPostingSetup."VAT Calculation Type";
      TempRevChargeVATAmountLine."Tax Group Code" := InvoicePostBuffer."Tax Group Code";
      TempRevChargeVATAmountLine."Use Tax" := InvoicePostBuffer."Use Tax";
      TempRevChargeVATAmountLine.Positive := InvoicePostBuffer.Amount > 0;
      

7. Add a new SetTotalVATBase function. To do this, follow these steps:
   1. Set the Local property to Yes.
   2. Add a local parameter in the SetTotalVATBase function, and then specify the parameter as follows:
      • Var: Yes
      • Name:TempRevChargeVATAmountLine
      • DataType:Record
      • Subtype:VAT Amount Line
   3. Add a local parameter in the SetTotalVATBase function, and then specify the parameter as follows:
      • Var: No
      • Name:InvoicePostBuffer
      • DataType:Record
      • Subtype:Invoice Post. Buffer
   4. Add a local parameter in the SetTotalVATBase function, and then specify the parameter as follows:
      • Var: No
      • Name:VATBase
      • DataType:Decimal
   5. In the created SetTotalVATBase(VAR TempRevChargeVATAmountLine : Record "VAT Amount Line";InvoicePostBuffer : Record "Invoice Post. Buffer";VATBase : D) function, add the following code:

      FillVATAmountLine(TempRevChargeVATAmountLine,InvoicePostBuffer);
      IF NOT TempRevChargeVATAmountLine.FIND THEN
      TempRevChargeVATAmountLine.INSERT;
      TempRevChargeVATAmountLine."VAT Base" += VATBase;
      TempRevChargeVATAmountLine.MODIFY;
      

8. Add a new GetTotalVATBase function. To do this, follow these steps:
   1. Set the Local property to Yes.
   2. Add a local parameter in the GetTotalVATBase function, and then specify the parameter as follows:
      • Var: Yes
      • Name:TempRevChargeVATAmountLine
      • DataType:Record
      • Subtype:VAT Amount Line
   3. Add a local parameter in the GetTotalVATBase function, and then specify the parameter as follows:
      • Var: No
      • Name:InvoicePostBuffer
      • DataType:Record
      • Subtype:Invoice Post. Buffer
   4. Set a return value in the GetTotalVATBase function, and then specify the value as follows:
      • Name:VATBase
      • Return Type:Decimal
   5. In the created GetTotalVATBase(VAR TempRevChargeVATAmountLine : Record "VAT Amount Line";InvoicePostBuffer : Record "Invoice Post. Buffer") VATBase function, add the following code:

      FillVATAmountLine(TempRevChargeVATAmountLine,InvoicePostBuffer);
      IF TempRevChargeVATAmountLine.FIND THEN
      VATBase := TempRevChargeVATAmountLine."VAT Base";
      

9. Add a new CopyACYAmounts function. To do this, follow these steps:
   1. Set the Local property to Yes.
   2. Add a local parameter in the CopyACYAmounts function, and then specify the parameter as follows:
      • Var: No
      • Name:FromInvoicePostBuffer
      • DataType:Record
      • Subtype:Invoice Post. Buffer
   3. Add a local parameter in the CopyACYAmounts function, and then specify the parameter as follows:
      • Var: Yes
      • Name:ToInvoicePostBuffer
      • DataType:Record
      • Subtype:Invoice Post. Buffer
   4. In the created CopyACYAmounts(FromInvoicePostBuffer : Record "Invoice Post. Buffer";VAR ToInvoicePostBuffer : Record "Invoice Post. Buffer") function, add the following code:

      ToInvoicePostBuffer := FromInvoicePostBuffer;
      ToInvoicePostBuffer.Amount := FromInvoicePostBuffer."Amount (ACY)";

10. Add a new GetVATAmount function. To do this, follow these steps:
    1. Set the Local property to Yes.
    2. Add a local parameter in the GetVATAmount function, and then specify the parameter as follows:
       • Var: No
       • Name:VATBase
       • DataType:Decimal
    3. Set a return value in the GetVATAmount function, and then specify the value as follows:
       • Return Type:Decimal
    4. In the created GetVATAmount(VATBase : Decimal) : Decimal function, add the following code:

       EXIT(ROUND(VATBase * VATPostingSetup."VAT %" / 100));

Prerequisites

• Microsoft Dynamics NAV 2009 R2
• Microsoft Dynamics NAV 2009 Service Pack 1
• Microsoft Dynamics NAV 5.0 Service Pack 1

Removal information