...
CalcCurrencyUnrealizedGainLoss(
OldCVLedgEntryBuf,DtldCVLedgEntryBuf,
GenJnlLine,-OldAppliedAmount,OldRemainingAmtBeforeAppln);
CalcCurrencyRealizedGainLoss(
NewCVLedgEntryBuf,DtldCVLedgEntryBuf,
GenJnlLine,AppliedAmount,AppliedAmountLCY,RealizedGainLossLCY);
VATRealizedGainLossLCY := RealizedGainLossLCY;
CalcCurrencyRealizedGainLoss(
OldCVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,-OldAppliedAmount,-AppliedAmountLCY,RealizedGainLossLCY);
CalcApplication(
NewCVLedgEntryBuf,OldCVLedgEntryBuf,DtldCVLedgEntryBuf,
GenJnlLine,AppliedAmount,AppliedAmountLCY,OldAppliedAmount,
NewCVLedgEntryBuf2,OldCVLedgEntryBuf3);
...
...
CalcCurrencyUnrealizedGainLoss(
OldCVLedgEntryBuf,DtldCVLedgEntryBuf,
GenJnlLine,-OldAppliedAmount,OldRemainingAmtBeforeAppln);
CalcCurrencyRealizedGainLoss(
NewCVLedgEntryBuf,DtldCVLedgEntryBuf,
GenJnlLine,AppliedAmount,AppliedAmountLCY,RealizedGainLossLCY);
VATRealizedGainLossLCY := RealizedGainLossLCY;
CalcCurrencyRealizedGainLoss(
OldCVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,-OldAppliedAmount,-AppliedAmountLCY,RealizedGainLossLCY);
// Add the following line.
VATRealizedGainLossLCY := RealizedGainLossLCY;
CalcApplication(
NewCVLedgEntryBuf,OldCVLedgEntryBuf,DtldCVLedgEntryBuf,
GenJnlLine,AppliedAmount,AppliedAmountLCY,OldAppliedAmount,
NewCVLedgEntryBuf2,OldCVLedgEntryBuf3);
...