codeunit 386 "Reverse Payment Rec. Journal" - procedure "InsertRelatedAndAppliedEntriesOfGLRegister" - New Event OnAfterInsertRelatedAndAppliedEntriesOfGLRegister

[AndreaRux]

Why do you need this change?

Event is needed to include G/L entries to reverse.

Describe the request

Please add new Event in
codeunit 386 "Reverse Payment Rec. Journal"
procedure "InsertRelatedAndAppliedEntriesOfGLRegister"

    local procedure InsertRelatedAndAppliedEntriesOfGLRegister(var GLRegister: Record "G/L Register"; var PostedPaymentReconHdr: Record "Posted Payment Recon. Hdr")
    var
        BankAccountLedgerEntry: Record "Bank Account Ledger Entry";
        CustLedgerEntry: Record "Cust. Ledger Entry";
        VendorLedgerEntry: Record "Vendor Ledger Entry";
        EmployeeLedgerEntry: Record "Employee Ledger Entry";
        StatementLineNo: Integer;
    begin
        BankAccountLedgerEntry.SetRange("Entry No.", GLRegister."From Entry No.", GLRegister."To Entry No.");
        if BankAccountLedgerEntry.FindSet() then
            repeat
                InsertBankPaymentRecRelatedEntry(BankAccountLedgerEntry, PostedPaymentReconHdr."Statement No.", -1);
            until BankAccountLedgerEntry.Next() = 0;

        CustLedgerEntry.SetRange("Entry No.", GLRegister."From Entry No.", GLRegister."To Entry No.");
        if CustLedgerEntry.FindSet() then
            repeat
                StatementLineNo += 10000;
                InsertRelatedAndAppliedEntries(PostedPaymentReconHdr."Bank Account No.", PostedPaymentReconHdr."Statement No.", StatementLineNo, CustLedgerEntry);
            until CustLedgerEntry.Next() = 0;

        VendorLedgerEntry.SetRange("Entry No.", GLRegister."From Entry No.", GLRegister."To Entry No.");
        if VendorLedgerEntry.FindSet() then
            repeat
                StatementLineNo += 10000;
                InsertRelatedAndAppliedEntries(PostedPaymentReconHdr."Bank Account No.", PostedPaymentReconHdr."Statement No.", StatementLineNo, VendorLedgerEntry);
            until VendorLedgerEntry.Next() = 0;

        EmployeeLedgerEntry.SetRange("Entry No.", GLRegister."From Entry No.", GLRegister."To Entry No.");
        if EmployeeLedgerEntry.FindSet() then
            repeat
                StatementLineNo += 10000;
                InsertRelatedAndAppliedEntries(PostedPaymentReconHdr."Bank Account No.", PostedPaymentReconHdr."Statement No.", StatementLineNo, EmployeeLedgerEntry);
            until EmployeeLedgerEntry.Next() = 0;
        OnAfterInsertRelatedAndAppliedEntriesOfGLRegister(GLRegister, PostedPaymentReconHdr);
    end;

    [IntegrationEvent(false, false)]
    local procedure OnAfterInsertRelatedAndAppliedEntriesOfGLRegister(var GLRegister: Record "G/L Register"; var PostedPaymentReconHdr: Record "Posted Payment Recon. Hdr")
    begin
    end;

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event at the end of InsertRelatedAndAppliedEntriesOfGLRegister in Codeunit 386 "Reverse Payment Rec. Journal" so extensions can add related entries after the standard bank, customer, vendor, and employee entry processing completes.

Location in InsertRelatedAndAppliedEntriesOfGLRegister() procedure (around line 445):

    EmployeeLedgerEntry.SetRange("Entry No.", GLRegister."From Entry No.", GLRegister."To Entry No.");
    if EmployeeLedgerEntry.FindSet() then
        repeat
            StatementLineNo += 10000;
            InsertRelatedAndAppliedEntries(PostedPaymentReconHdr."Bank Account No.", PostedPaymentReconHdr."Statement No.", StatementLineNo, EmployeeLedgerEntry);
        until EmployeeLedgerEntry.Next() = 0;

    OnAfterInsertRelatedAndAppliedEntriesOfGLRegister(GLRegister, PostedPaymentReconHdr, StatementLineNo);
end;

Event Publisher (add at the end of the codeunit with other events):

[IntegrationEvent(false, false)]
local procedure OnAfterInsertRelatedAndAppliedEntriesOfGLRegister(var GLRegister: Record "G/L Register"; var PostedPaymentReconHdr: Record "Posted Payment Recon. Hdr"; var StatementLineNo: Integer)
begin
end;

---

File: ReversePaymentRecJournal.Codeunit.al