VAT amount is posted to the Rounding account instead of the Realized Gain/Loss account when you apply a payment to a purchase invoice in a foreign currency in the Czech version of Microsoft Dynamics NAV 2009 R2

Installation information

Code changes

1. Change the code in the InsertVAT function in the Gen. Jnl.-Post Line codeunit (12) as follows:
   Existing code

   ...
   VATEntry."Customs Procedure Code" := "Customs Procedure Code";
   VATEntry."Registration No." := "Registration No.";
   
   // Delete the following lines.
   IF "VAT Difference" = 0 THEN
   VATDifferenceLCY := 0
   ELSE
   IF "Currency Code" = '' THEN
   VATDifferenceLCY := "VAT Difference"
   ELSE
   VATDifferenceLCY :=
   ROUND(
   CurrExchRate.ExchangeAmtFCYToLCY(
   "Posting Date","Currency Code","VAT Difference",
   CurrExchRate.ExchangeRate("Posting Date","Currency Code")));
   
   IF ("VAT Amount (LCY)" <> CalculatedVATAmountLCY) AND
   ("Currency Code" <> '')
   THEN
   VATDifferenceLCY := "VAT Amount (LCY)" - CalculatedVATAmountLCY;
   // End of the deleted lines.
   
   IF "VAT Calculation Type" = "VAT Calculation Type"::"Sales Tax" THEN BEGIN
   ...

   Replacement code

   ...
   VATEntry."Customs Procedure Code" := "Customs Procedure Code";
   VATEntry."Registration No." := "Registration No.";
   
   // Add the following line. 
   VATDifferenceLCY := CalcVATDiffLCY;
   // End of the added line.
   
   IF "VAT Calculation Type" = "VAT Calculation Type"::"Sales Tax" THEN BEGIN
   ...

2. Change the code in the CalcCurrencyRealizedGainLoss function in the Gen. Jnl.-Post Line codeunit (12) as follows:
   Existig code

   ...
   RealizedGainLossLCY :=
   
   // Delete the following line. 
   AppliedAmountLCY - ROUND(AppliedAmount / CVLedgEntryBuf."Adjusted Currency Factor");
   // End of the deleted line.
   
   IF RealizedGainLossLCY <> 0 THEN BEGIN
   ...

   Replacement code

   ...
   RealizedGainLossLCY :=
   
   // Add the following lines. 
   AppliedAmountLCY - ROUND(AppliedAmount / CVLedgEntryBuf."Adjusted Currency Factor") + 
   CalcVATDiffFromVATEntry(CVLedgEntryBuf);
   // End of the added lines.
    
   IF RealizedGainLossLCY <> 0 THEN BEGIN
   ...

3. Create two new functions in the Gen. Jnl.-Post Line codeunit (12) as follows:

   LOCAL PROCEDURE CalcVATDiffFromVATEntry@1220002(CVLedgEntryBuf@1220002 : Record 382) VATDiffAmt : Decimal;
   VAR
   CalcVATEntry@1220001 : Record 254;
   BEGIN
   IF NOT (CVLedgEntryBuf."Document Type" IN
   [CVLedgEntryBuf."Document Type"::Invoice,CVLedgEntryBuf."Document Type"::"Credit Memo"])
   THEN
   EXIT;
   
   WITH CalcVATEntry DO BEGIN
   SETRANGE("Transaction No.",CVLedgEntryBuf."Transaction No.");
   IF FINDSET THEN
   REPEAT
   VATDiffAmt := VATDiffAmt + "VAT Difference";
   UNTIL NEXT = 0;
   END;
   END;
   
   LOCAL PROCEDURE CalcVATDiffLCY@1220000() VATDifferenceLCY : Decimal;
   BEGIN 
   WITH GenJnlLine DO BEGIN
   IF ("VAT Difference" = 0) AND ("VAT Difference (LCY)" = 0) THEN
   EXIT(0);
   
   IF ("VAT Amount (LCY)" <> CalculatedVATAmountLCY) AND
   ("Currency Code" <> '')
   THEN
   EXIT("VAT Amount (LCY)" - CalculatedVATAmountLCY);
   
   IF ("VAT Difference" = 0) AND ("VAT Difference (LCY)" <> 0) THEN
   VATDifferenceLCY := "VAT Difference (LCY)"
   ELSE
   IF "Currency Code" = '' THEN
   VATDifferenceLCY := "VAT Difference"
   ELSE
   VATDifferenceLCY :=
   ROUND(
   CurrExchRate.ExchangeAmtFCYToLCY(
   "Posting Date","Currency Code","VAT Difference",
   CurrExchRate.ExchangeRate("Posting Date","Currency Code")));
   END;
   END;

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

   ...
   GenJnlLine."VAT Difference" := InvPostingBuffer[1]."VAT Difference";
   GenJnlLine."VAT Posting" := GenJnlLine."VAT Posting"::"Manual VAT Entry";
   ...

   Replacement code

   ...
   GenJnlLine."VAT Difference" := InvPostingBuffer[1]."VAT Difference";
   
   // Add the following line. 
   GenJnlLine."VAT Difference (LCY)" := InvPostingBuffer[1]."VAT Difference (LCY)";
   // End of the added line.
    
   GenJnlLine."VAT Posting" := GenJnlLine."VAT Posting"::"Manual VAT Entry";
   ...

5. Change the code in the OnRun function in the Purch.-Post codeunit (90) as follows:
   Existing code

   ...
   GenJnlLine."VAT Difference" := InvPostingBuffer[1]."VAT Difference";
   TransferNonDedVAT(GenJnlLine,InvPostingBuffer[1]);
   ...

   Replacement code

   ...
   GenJnlLine."VAT Difference" := InvPostingBuffer[1]."VAT Difference";
   
   // Add the following lines. 
   GenJnlLine."VAT Difference (LCY)" := InvPostingBuffer[1]."VAT Difference (LCY)";
   // End of the added line.
   
   TransferNonDedVAT(GenJnlLine,InvPostingBuffer[1]);
   ...

Prerequisites

Removal information