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

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, change the code in the Purch.-Post codeunit (90). To do this, follow these steps:

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