VAT is posted incorrectly when you apply a sales invoice that contains unrealized VAT and a negative line in the Italian version of Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Change the code in Keys in the VAT Entry table (254) as follows:
   Existing code

   ...
   KeyGroups=SalesTax }
         {    ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
                                                        SumIndexFields=Base,Additional-Currency Base;
                                                        KeyGroups=VIES_EC }
   
   // Delete the following line.
        {    ;Document No.,Posting Date                }
   // End of the deleted line.
   
         {    ;Transaction No.                          }
         {    ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
                                                        KeyGroups=SalesTax }
         {    ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code,Blacklisted,Document Type,Bill-to/Pay-to No.,EU Service,Reverse Sales VAT,Document Date;
   ...

   Replacement code

   ...
   KeyGroups=SalesTax }
         {    ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
                                                        SumIndexFields=Base,Additional-Currency Base;
                                                        KeyGroups=VIES_EC }
   
   // Add the following line.
        {    ;Document No.,Posting Date               ;SumIndexFields=Remaining Unrealized Amount,Remaining Unrealized Base }
   // End of the added line.
   
         {    ;Transaction No.                          }
         {    ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
                                                        KeyGroups=SalesTax }
         {    ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code,Blacklisted,Document Type,Bill-to/Pay-to No.,EU Service,Reverse Sales VAT,Document Date;
   ...

2. Change the code in the GetUnRealizedVATPart function in the VAT Entry table (254) as follows:
   Existing code

   ...
   (("Remaining Unrealized Amount" = 0) AND
                 ("Remaining Unrealized Base" = 0))
             THEN
               EXIT(0);
   
   // Delete the following lines.
           //IF ABS(Paid) = ABS(Full) THEN
           //   EXIT(1);
   // End of the deleted lines.
     
             CASE UnrealizedVatType OF
               UnrealizedVatType::Percentage:
                 BEGIN
   ...

   Replacement code

   ...
   (("Remaining Unrealized Amount" = 0) AND
                 ("Remaining Unrealized Base" = 0))
             THEN
               EXIT(0);
   
   // Add the following lines.
            IF ABS(Paid) = ABS(GetRemainingUnrealizedAmount("Document No.","Posting Date")) THEN
              EXIT(1);
   // End of the added lines.
     
             CASE UnrealizedVatType OF
               UnrealizedVatType::Percentage:
                 BEGIN
   ...

3. Change the code in the GetRemainingUnrealizedAmount function in the VAT Entry table (254) as follows:
   Existing code

   ...
   CALCSUMS("Remaining Unrealized Base");
           EXIT("Remaining Unrealized Base");
         END;
     
         PROCEDURE GetBlacklistAmount@1130012() : Decimal;
         BEGIN
           IF CalculateSum THEN
             CALCSUMS("Blacklist Amount");
   ...

   Replacement code

   ...
   CALCSUMS("Remaining Unrealized Base");
           EXIT("Remaining Unrealized Base");
         END;
   
   // Add the following lines.
        LOCAL PROCEDURE GetRemainingUnrealizedAmount@1170000000(DocumentNo@1170000001 : Code[20];PostingDate@1170000002 : Date) : Decimal;
        VAR
          VATEntry@1170000000 : Record 254;
        BEGIN
          VATEntry.SETCURRENTKEY("Document No.","Posting Date");
          VATEntry.SETRANGE("Document No.",DocumentNo);
          VATEntry.SETRANGE("Posting Date",PostingDate);
          VATEntry.CALCSUMS("Remaining Unrealized Base","Remaining Unrealized Amount");
          EXIT(VATEntry."Remaining Unrealized Base" + VATEntry."Remaining Unrealized Amount");
        END;
   // End of the added lines.
    
         PROCEDURE GetBlacklistAmount@1130012() : Decimal;
         BEGIN
           IF CalculateSum THEN
             CALCSUMS("Blacklist Amount");
   ...

Prerequisites

• The Italian version of Microsoft Dynamics NAV 2009 Service Pack 1
• The Italian version of Microsoft Dynamics NAV 2009 R2

Removal information