The VAT amount is negative incorrectly in the sales prepayment invoices in the Polish version of Microsoft Dynamics NAV 2009 Service Pack 1

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, follow these steps:

1. Change the code in the UpdateVATOnLines function in the Sales-Post Prepayments codeunit (442) as follows:
   Existing code

   ...
   // PL001.begin
   IF NOT SalesHeader."Prices Including VAT" AND (DocumentType <> DocumentType::Statistic) THEN BEGIN
   
   // Delete the following line.
   RecalcPrepmts(SalesHeader,TotalPrepmtAmount,TotalPrepmtInvAmount,Adjustment);
   
   TotalAmountToPost := TotalPrepmtAmount + Adjustment - TotalPrepmtInvAmount;
   END;
   ...
   

   Replacement code

   ...
   // PL001.begin
   IF NOT SalesHeader."Prices Including VAT" AND (DocumentType <> DocumentType::Statistic) THEN BEGIN
   
   Add the following line.
   RecalcPrepmts(SalesHeader,DocumentType,TotalPrepmtAmount,TotalPrepmtInvAmount,Adjustment); 
   
   TotalAmountToPost := TotalPrepmtAmount + Adjustment - TotalPrepmtInvAmount;
   END;
   ...
   

2. Change the code in the RecalcPrepmts function in the Sales-Post Prepayments codeunit (442). To do this, follow these steps:

   1. Add a local parameter, and then specify the parameter as follows:

      • Var: No

      • Name: DocumentType

      • DataType:Option

   2. Add a local parameter, and then specify the parameter as follows:

      • Var: Yes

      • Name: PrepmtInvAmt

      • DataType:Decimal

   3. Add a local parameter, and then specify the parameter as follows:

      • Var: Yes

      • Name: PrepmtAmt

      • DataType:Decimal

   4. Delete the following parameters:

      • PrepmtInvAmount

      • PrepmtAmount

   5. Delete the PrepmtDocs variable.

   6. Change the code as follows:
      Existing code

      ...
      // PL001.begin
      // Delete the following line.
      CollectPrevPrepmts(0,'',0D,SalesHeader."No.",FALSE,PrepmtDocs,PrepmtInvAmount);
      
      WITH SalesLine DO BEGIN
      SETRANGE("Document Type",SalesHeader."Document Type");
      SETRANGE("Document No.",SalesHeader."No.");
      IF FINDSET THEN
      REPEAT
      IF "Adjust Prepmt. Amount" THEN
      Adjustment := Adjustment + "Prepmt. Rounding Amount";
      
      // Delete the following line.
      PrepmtAmount := PrepmtAmount + "Prepmt. Amt. Incl. VAT";
      
      UNTIL NEXT = 0;
      ...
      

      Replacement code

      ...
      // PL001.begin
      WITH SalesLine DO BEGIN
      SETRANGE("Document Type",SalesHeader."Document Type");
      SETRANGE("Document No.",SalesHeader."No.");
      IF FINDSET THEN
      REPEAT
      
      // Add the following line.
      IF PrepmtAmount(SalesLine,DocumentType) <> 0 THEN BEGIN
      
      IF "Adjust Prepmt. Amount" THEN
      Adjustment := Adjustment + "Prepmt. Rounding Amount";
      
      // Add the following lines.
      PrepmtAmt := PrepmtAmt + "Prepmt. Amt. Incl. VAT";
      PrepmtInvAmt := PrepmtInvAmt + "Prepmt. Amt. Inv.";
      END;
      
      UNTIL NEXT = 0;
      ...
      

3. Change the code in the UpdateVATOnLines function in the Purchase-Post Prepayments codeunit (444) as follows:
   Existing code

   ...
   IF NOT PurchHeader."Prices Including VAT" AND (DocumentType <> DocumentType::Statistic) THEN BEGIN
   
   // Delete the following line.
   RecalcPrepmts(PurchHeader,TotalPrepmtAmount,TotalPrepmtInvAmount,Adjustment); 
   
   TotalAmountToPost := TotalPrepmtAmount + Adjustment - TotalPrepmtInvAmount;
   ...
   

   Replacement code

   ...
   IF NOT PurchHeader."Prices Including VAT" AND (DocumentType <> DocumentType::Statistic) THEN BEGIN
   
   // Add the following line.
   RecalcPrepmts(PurchHeader,DocumentType,TotalPrepmtAmount,TotalPrepmtInvAmount,Adjustment);
   
   TotalAmountToPost := TotalPrepmtAmount + Adjustment - TotalPrepmtInvAmount;
   ...
   

4. Change the code in the RecalcPrepmts function in the Purchase-Post Prepayments codeunit (444). To do this, follow these steps:

   1. Add a local parameter, and then specify the parameter as follows:

      • Var: No

      • Name: DocumentType

      • DataType:Option

   2. Add a local parameter, and then specify the parameter as follows:

      • Var: Yes

      • Name: PrepmtInvAmt

      • DataType:Decimal

   3. Add a local parameter, and then specify the parameter as follows:

      • Var: Yes

      • Name: PrepmtAmt

      • DataType:Decimal

   4. Delete the following parameters:

      • PrepmtInvAmount

      • PrepmtAmount

   5. Delete the PrepmtDocs variable.

   6. Change the code as follows:
      Existing code

      ...
      // Delete the following line.
      CollectPrevPrepmts(0,'',0D,PurchHeader."No.",FALSE,PrepmtDocs,PrepmtInvAmount); 
      
      WITH PurchLine DO BEGIN
      SETRANGE("Document Type",PurchHeader."Document Type");
      SETRANGE("Document No.",PurchHeader."No.");
      IF FINDSET THEN
      REPEAT
      IF "Adjust Prepmt. Amount" THEN
      Adjustment := Adjustment + "Prepmt. Rounding Amount";
      
      // Delete the following line.
      PrepmtAmount := PrepmtAmount + "Prepmt. Amt. Incl. VAT";
      
      UNTIL NEXT = 0;
      ...
      

      Replacement code

      ...
      WITH PurchLine DO BEGIN
      SETRANGE("Document Type",PurchHeader."Document Type");
      SETRANGE("Document No.",PurchHeader."No.");
      IF FINDSET THEN
      REPEAT
      
      // Add the following line.
      IF PrepmtAmount(PurchLine,DocumentType) <> 0 THEN BEGIN
      
      IF "Adjust Prepmt. Amount" THEN
      Adjustment := Adjustment + "Prepmt. Rounding Amount";
      
      // Add the following lines.
      PrepmtAmt := PrepmtAmt + "Prepmt. Amt. Incl. VAT";
      PrepmtInvAmt := PrepmtInvAmt + "Prepmt. Amt. Inv.";
      END;
      
      UNTIL NEXT = 0;
      ...