...
IF NOT TestPrint THEN BEGIN
IF UseCheckNo <> GenJnlLine."Document No." THEN BEGIN
GenJnlLine3.RESET;
GenJnlLine3.SETCURRENTKEY("Journal Template Name","Journal Batch Name","Posting Date","Document No.");
GenJnlLine3.SETRANGE("Journal Template Name",GenJnlLine."Journal Template Name");
GenJnlLine3.SETRANGE("Journal Batch Name",GenJnlLine."Journal Batch Name");
...
...
// Add the following line.
BankAcc2.INIT;
IF NOT TestPrint THEN BEGIN
IF UseCheckNo <> GenJnlLine."Document No." THEN BEGIN
GenJnlLine3.RESET;
GenJnlLine3.SETCURRENTKEY("Journal Template Name","Journal Batch Name","Posting Date","Document No.");
GenJnlLine3.SETRANGE("Journal Template Name",GenJnlLine."Journal Template Name");
GenJnlLine3.SETRANGE("Journal Batch Name",GenJnlLine."Journal Batch Name");
...
...
GenJnlLine3.INSERT;
END;
END;
BankAcc2."Last Check No." := UseCheckNo;
// Delete the following line.
BankAcc2.MODIFY;
CLEAR(CheckManagement);
...
...
GenJnlLine3.INSERT;
END;
END;
BankAcc2."Last Check No." := UseCheckNo;
// Add the following lines.
xRecRef.GETTABLE(BankAcc2);
BankAcc2.MODIFY;
RecRef.GETTABLE(BankAcc2);
ChangeLogMgt.LogModification(RecRef,xRecRef);
// End of the lines.
CLEAR(CheckManagement);
...