Incorrect calculation of VAT on a correction credit memo in the Polish version of Microsoft Dynamics NAV 2009 R2

Installation information

Code changes

1. Change the code in DivideAmount function in the Sales-Post codeunit (80) as follows:
   Existing code

   ...
   WITH SalesLine DO
             IF (SalesLineQty = 0) OR ("Unit Price" = 0) OR ("Line Discount %" = 100) THEN BEGIN
               "Line Amount" := 0;
               "Line Discount Amount" := 0;
               "Inv. Discount Amount" := 0;
   
   // Delete the following line.
   "VAT Base Amount" := 0;
   // End of the deleted line.
   
               Amount := 0;
               "Amount Including VAT" := 0;
             END ELSE BEGIN
               TempVATAmountLine.GET("VAT Identifier","VAT Calculation Type","Tax Group Code",
                                     FALSE,"Line Amount" >= 0,"VAT Date");
   ...

   Replacement code

   ...
   WITH SalesLine DO
             IF (SalesLineQty = 0) OR ("Unit Price" = 0) OR ("Line Discount %" = 100) THEN BEGIN
               "Line Amount" := 0;
               "Line Discount Amount" := 0;
               "Inv. Discount Amount" := 0;
   
   // Add the following lines.
   // VSTF337320.begin
   IF NOT IsVATRateCorrection THEN
   // VSTF337320.end
   "VAT Base Amount" := 0;
   // End of the added lines.
   
               Amount := 0;
               "Amount Including VAT" := 0;
             END ELSE BEGIN
               TempVATAmountLine.GET("VAT Identifier","VAT Calculation Type","Tax Group Code",
                                     FALSE,"Line Amount" >= 0,"VAT Date");
   ...

2. Change the code in PostItemChargePerInvoice function in the Sales-Post codeunit (80) as follows:
   Existing code

   ...
   ValueEntry."Valued Quantity",ValueEntry."Valued Quantity",
               SalesLine."Appl.-to Item Entry","Item Charge No.",DummyTrackingSpecification);
           END;
         END;
   ...

   Replacement code

   ...
   ValueEntry."Valued Quantity",ValueEntry."Valued Quantity",
               SalesLine."Appl.-to Item Entry","Item Charge No.",DummyTrackingSpecification);
           END;
         END;
     
   // Add the following lines.
   LOCAL PROCEDURE IsVATRateCorrection@1170102() : Boolean;
   VAR
   SalesCorrType@1170001 : Record 12335;
   BEGIN
   IF (SalesHeader."Document Type" IN [SalesHeader."Document Type"::Order,SalesHeader."Document Type"::Invoice]) OR
   (NOT SalesCorrType.GET(SalesHeader."Correction Type"))
   THEN
   EXIT(FALSE);
   EXIT(
   (SalesCorrType."Correction Type" = SalesCorrType."Correction Type"::"VAT Rate") AND
   (SalesHeader."Corr. Document No." <> ''));
   END;
   // End of the added lines.
   ...

Prerequisites

• The Polish version of Microsoft Dynamics NAV 2009 R2

Removal information