Skip to main content

Notifications

Announcements

Join us in the Community for an AMA: December 12th Register Today
Announcing Mentions and Quick Responses!
News and Announcements icon
Dynamics 365 Community / Forums / Small and medium business | Business Central, N... / This code is not worki...
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 Pragya752 208
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;
   
}    
   
Categories:
Business Central
  • Pragya752 Profile Picture
    Pragya752 208 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,077 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

News and Announcements

Join us in the Community for an AMA: December 12th Register Today
Announcing Mentions and Quick Responses!

Quick Links

November Spotlight Star - Khushbu Rajvi

Congratulations to a top community star!

Forum Structure Changes Complete!

🔔 Be sure to subscribe to the new forums you are interested in to stay up to date! 🔔

Dynamics 365 Community Platform update – Oct 28

Welcome to the next edition of the Community Platform Update. This is a status …

Leaderboard

#1
André Arnaud de Calavon Profile Picture

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

#2
Martin Dráb Profile Picture

Martin Dráb 229,918 Most Valuable Professional

#3
nmaenpaa Profile Picture

nmaenpaa 101,156

Leaderboard

Featured topics

Product updates

Dynamics 365 release plans