Dynamics 365 Business Central: AL Language M-Pesa Invoice Sync

// Business Central AL M-Pesa Invoice Reconciliation Codeunit
codeunit 50100 "MPesa Payment Handler"
{
    trigger OnRun()
    begin
    end;

    procedure ProcessMPesaCallback(DocNo: Code[20]; AmountPaid: Decimal; TransCode: Code[30])
    var
        CustLedgerEntry: Record "Cust. Ledger Entry";
    begin
        CustLedgerEntry.SetRange("Document No.", DocNo);
        if CustLedgerEntry.FindFirst() then begin
            CustLedgerEntry."External Document No." := TransCode;
            CustLedgerEntry.Modify();
        end;
    end;
}