Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.
View products that this article applies to.
...
OnAfterGetRecord=VAR
BankAccLedgEntry@1110000 : Record 271;
BEGIN
BankAccNo := BankAccNo + 1;
Window.UPDATE(1,ROUND(BankAccNo / BankAccNoTotal * 10000,1));
...
...
OnAfterGetRecord=VAR
BankAccLedgEntry@1110000 : Record 271;
// Add the following lines.
TotalAdjBase@1110001 : Decimal;
TotalAdjBaseLCY@1110002 : Decimal;
TotalBankAdjAmount@1110003 : Decimal;
// End of the lines.
BEGIN
BankAccNo := BankAccNo + 1;
Window.UPDATE(1,ROUND(BankAccNo / BankAccNoTotal * 10000,1));
...
...
CurrExchRate.ExchangeAmtFCYToLCYAdjmt(
PostingDate,Currency.Code,BankAccPostingBuffer[1].Amount,Currency."Currency Factor")) -
BankAccPostingBuffer[1]."Amount (LCY)";
// Delete the following lines.
GetAdjustmentValues(
AdjBase,AdjBaseLCY,AdjAmount,3,"Bank Account".Name,PostingDocNo,"Bank Account"."No.",PostingDate,Currency.Code);
// End of the lines.
IF AdjAmount <> 0 THEN BEGIN
GenJnlLine.VALIDATE("Posting Date",PostingDate);
...
...
CurrExchRate.ExchangeAmtFCYToLCYAdjmt(
PostingDate,Currency.Code,BankAccPostingBuffer[1].Amount,Currency."Currency Factor")) -
BankAccPostingBuffer[1]."Amount (LCY)";
IF AdjAmount <> 0 THEN BEGIN
GenJnlLine.VALIDATE("Posting Date",PostingDate);
...
...
MODIFY;
END;
TotalAdjAmount := TotalAdjAmount + AdjAmount;
END;
END;
UNTIL BankAccPostingBuffer[1].NEXT(-1) = 0;
...
...
MODIFY;
END;
TotalAdjAmount := TotalAdjAmount + AdjAmount;
// Add the following lines.
TotalAdjBase := TotalAdjBase + AdjBase;
TotalAdjBaseLCY := TotalAdjBaseLCY + AdjBaseLCY;
TotalBankAdjAmount := TotalBankAdjAmount + AdjAmount;
GetAdjustmentValues(TotalAdjBase,TotalAdjBaseLCY,TotalBankAdjAmount,
3,"Bank Account".Name,PostingDocNo,"Bank Account"."No.",PostingDate,Currency.Code);
BankAdjusted := TRUE;
// End of the lines.
END;
END;
UNTIL BankAccPostingBuffer[1].NEXT(-1) = 0;
...
...
UNTIL BankAccPostingBuffer[1].NEXT(-1) = 0;
Window.UPDATE(4,TotalAdjAmount);
// Delete the following line.
BankAdjusted := TRUE;
END;
OnPostDataItem=BEGIN
...
...
UNTIL BankAccPostingBuffer[1].NEXT(-1) = 0;
Window.UPDATE(4,TotalAdjAmount);
END;
OnPostDataItem=BEGIN
...
Keywords: kbqfe, kbmbspartner, kbmbsmigrate, kbmbscodefix, kbmbsquickpub, kbnoloc, kbsurveynew, kb