To implement this hotfix, you must have a developer license.
You do not have to have rights to the data stores unless you have to perform data repair.
...
BankRecLine.RESET;
BankRecLine.SETCURRENTKEY("Bank Account No.",
"Statement No.");
BankRecLine.SETRANGE("Bank Account No.","Bank Account No.");
BankRecLine.SETRANGE("Statement No.","Statement No.");
// Delete the following lines.
IF BankRecLine.FIND('-') THEN
REPEAT BEGIN
Window.UPDATE(BankRecLine."Record Type" + 4,BankRecLine."Line No.");
IF (GLSetup."Bank Rec. Adj. Doc. Nos." <> '') AND
(BankRecLine."Document No." <> NoSeriesMgt.GetNextNo(GLSetup."Bank Rec. Adj. Doc. Nos.",BankRecHeader."Posting Date",FALSE)
)
THEN
NoSeriesMgt.TestManual(GLSetup."Bank Rec. Adj. Doc. Nos.");
// End of the lines.
IF BankRecLine."Record Type" = BankRecLine."Record Type"::Adjustment THEN
PostAdjustmentToGL(BankRecLine)
ELSE
IF BankRecLine.Cleared THEN
UpdateLedgers(BankRecLine,SetStatus::Posted)
ELSE
UpdateLedgers(BankRecLine,SetStatus::Open);
PostedBankRecLine.INIT;
PostedBankRecLine.TRANSFERFIELDS(BankRecLine,TRUE);
PostedBankRecLine.INSERT;
TransferDim(BankRecLine);
END UNTIL BankRecLine.NEXT = 0;
BankRecLine.DELETEALL;
BankRecSubLine.RESET;
BankRecSubLine.SETRANGE("Bank Account No.",BankRecHeader."Bank Account No.");
BankRecSubLine.SETRANGE("Statement No.",BankRecHeader."Statement No.");
BankRecSubLine.DELETEALL;
...
...
BankRecLine.RESET;
BankRecLine.SETCURRENTKEY("Bank Account No.",
"Statement No.");
BankRecLine.SETRANGE("Bank Account No.","Bank Account No.");
BankRecLine.SETRANGE("Statement No.","Statement No.");
// Add the following lines.
IF BankRecLine.FIND('-') THEN BEGIN
IF (GLSetup."Bank Rec. Adj. Doc. Nos." <> '') AND
(BankRecLine."Document No." <> NoSeriesMgt.GetNextNo
(GLSetup."Bank Rec. Adj. Doc. Nos.",
BankRecHeader."Posting Date",FALSE))THEN
NoSeriesMgt.TestManual(GLSetup."Bank Rec. Adj. Doc. Nos.");
REPEAT BEGIN
Window.UPDATE(BankRecLine."Record Type" + 4,BankRecLine."Line No.");
// End of the lines.
IF BankRecLine."Record Type" = BankRecLine."Record Type"::Adjustment THEN
PostAdjustmentToGL(BankRecLine)
ELSE
IF BankRecLine.Cleared THEN
UpdateLedgers(BankRecLine,SetStatus::Posted)
ELSE
UpdateLedgers(BankRecLine,SetStatus::Open);
PostedBankRecLine.INIT;
PostedBankRecLine.TRANSFERFIELDS(BankRecLine,TRUE);
PostedBankRecLine.INSERT;
TransferDim(BankRecLine);
END UNTIL BankRecLine.NEXT = 0;
// Add the following line.
END;
BankRecLine.DELETEALL;
BankRecSubLine.RESET;
BankRecSubLine.SETRANGE("Bank Account No.",BankRecHeader."Bank Account No.");
BankRecSubLine.SETRANGE("Statement No.",BankRecHeader."Statement No.");
BankRecSubLine.DELETEALL;
...