Skip to main content

Notifications

Announcements

No record found.

Small and medium business | Business Central, N...
Suggested answer

This code is not working to copy whole data from bank ledger on basis of entry no. to custom table

(0) ShareShare
ReportReport
Posted on by 210
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;
   
}    
   
  • Pragya752 Profile Picture
    Pragya752 210 on at
    This code is not working to copy whole data from bank ledger on basis of entry no. to custom table
    I tried the below code but after running once and copying all data via job queue ,it gave me this error

     
    This is the code that i ran
     
    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;
       
    }    
       
  • Suggested answer
    Mohana Yadav Profile Picture
    Mohana Yadav 59,194 Super User 2024 Season 2 on at
    This code is not working to copy whole data from bank ledger on basis of entry no. to custom table
    Please try
     
            DestinationTableVar.RESET();
            SourceTableVar.Reset();
           if SourceTableVar.Findset() then 
           repeat 
              DestinationTableVar.SetRange("Entry No.", SourceTableVar."Entry No.");
              IF DestinationTableVar.FIND() THEN begin
                //your modify code here
              end else begin
                //your insert code here
              end; 
           until SourceTableVar.next() = 0;

Under review

Thank you for your reply! To ensure a great experience for everyone, your content is awaiting approval by our Community Managers. Please check back later.

Helpful resources

Quick Links

December Spotlight Star - Muhammad Affan

Congratulations to a top community star!

Top 10 leaders for November!

Congratulations to our November super stars!

Tips for Writing Effective Verified Answers

Best practices for providing successful forum answers ✍️

Leaderboard

#1
André Arnaud de Calavon Profile Picture

André Arnaud de Cal... 291,391 Super User 2024 Season 2

#2
Martin Dráb Profile Picture

Martin Dráb 230,445 Most Valuable Professional

#3
nmaenpaa Profile Picture

nmaenpaa 101,156

Leaderboard

Featured topics

Product updates

Dynamics 365 release plans