codeunit 50127 BankAccountLedgerEntryCustom
{
VAR
SourceTableVar: Record /Bank Account Ledger Entry/;
DestinationTableVar: Record BALTable;
BankStatementLine: Record /Bank Account Statement Line/;
trigger OnRun()
begin
copytobankledger();
// copyfrombankledger();
end;
procedure copytobankledger()
begin
DestinationTableVar.RESET();
SourceTableVar.Reset();
if SourceTableVar.Findset() then
repeat
DestinationTableVar.SetRange(/Entry No./, SourceTableVar./Entry No./);
IF DestinationTableVar.FIND() THEN begin
DestinationTableVar./Statement Status/ := SourceTableVar./Statement Status/;
DestinationTableVar./Statement Line No./ := SourceTableVar./Statement Line No./;
DestinationTableVar./Statement No./ := SourceTableVar./Statement No./;
DestinationTableVar.MODIFY(true);
end
ELSE BEGIN
DestinationTableVar.INIT();
DestinationTableVar./Entry No./ := SourceTableVar./Entry No./;
DestinationTableVar.Amount := SourceTableVar.Amount;
DestinationTableVar./Amount (LCY)/ := SourceTableVar./Amount (LCY)/;
DestinationTableVar./Bank Account No./ := SourceTableVar./Bank Account No./;
DestinationTableVar./Bal. Account Type/ := SourceTableVar./Bal. Account Type/;
DestinationTableVar./Statement No./ := SourceTableVar./Statement No./;
DestinationTableVar./Statement Status/ := SourceTableVar./Statement Status/;
DestinationTableVar./Statement Line No./ := SourceTableVar./Statement Line No./;
DestinationTableVar./Transaction No./ := SourceTableVar./Transaction No./;
DestinationTableVar./User ID/ := SourceTableVar./User ID/;
DestinationTableVar./Bank Acc. Posting Group/ := SourceTableVar./Bank Acc. Posting Group/;
DestinationTableVar./Check Ledger Entries/ := SourceTableVar./Check Ledger Entries/;
DestinationTableVar./Closed at Date/ := SourceTableVar./Closed at Date/;
DestinationTableVar./Closed by Entry No./ := SourceTableVar./Closed by Entry No./;
DestinationTableVar./Credit Amount/ := SourceTableVar./Credit Amount/;
DestinationTableVar./Credit Amount (LCY)/ := SourceTableVar./Credit Amount/;
DestinationTableVar./Currency Code/ := SourceTableVar./Currency Code/;
DestinationTableVar./Debit Amount/ := SourceTableVar./Debit Amount/;
DestinationTableVar./Debit Amount (LCY)/ := SourceTableVar./Debit Amount (LCY)/;
DestinationTableVar.Description := SourceTableVar.Description;
DestinationTableVar./Document Date/ := SourceTableVar./Document Date/;
DestinationTableVar./Document No./ := SourceTableVar./Document No./;
DestinationTableVar./Document Type/ := SourceTableVar./Document Type/;
DestinationTableVar./External Document No./ := SourceTableVar./External Document No./;
DestinationTableVar./Global Dimension 1 Code/ := SourceTableVar./Global Dimension 1 Code/;
DestinationTableVar./Global Dimension 2 Code/ := SourceTableVar./Global Dimension 2 Code/;
DestinationTableVar./Journal Batch Name/ := SourceTableVar./Journal Batch Name/;
DestinationTableVar./Journal Templ. Name/ := SourceTableVar./Journal Templ. Name/;
DestinationTableVar.Open := SourceTableVar.Open;
DestinationTableVar./Our Contact Code/ := SourceTableVar./Our Contact Code/;
DestinationTableVar.Positive := SourceTableVar.Positive;
DestinationTableVar./Posting Date/ := SourceTableVar./Posting Date/;
DestinationTableVar./Reason Code/ := SourceTableVar./Reason Code/;
DestinationTableVar./Remaining Amount/ := SourceTableVar./Remaining Amount/;
DestinationTableVar.Reversed := SourceTableVar.Reversed;
DestinationTableVar./Reversed by Entry No./ := SourceTableVar./Reversed by Entry No./;
DestinationTableVar./Reversed Entry No./ := SourceTableVar./Reversed Entry No./;
DestinationTableVar.INSERT(true) ;
end;
UNTIL SourceTableVar.NEXT() = 0;
end;
}