Add parameter in event OnBeforePostBalanceAccount on codeunit 12172 "Customer Bill - Post + Print"

[VeronicaGoglia]

Why do you need this change?

I need this new parameter to customize the balance accoun and then post it. My needed is to create more line of balance account for due date date and not only only line as in standard code. So i need to post more line, if i try to use a loca variable of Gen. Jnl.-Post Line the sistem return error

Describe the request

Hi AL-Team,
can you please add new parameter in event OnBeforePostBalanceAccount. The new parameter is var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line";

The event should be
[IntegrationEvent(false, false)]
local procedure OnBeforePostBalanceAccount(var GenJournalLine: Record "Gen. Journal Line"; CustomerBillHeader: Record "Customer Bill Header"; CustLedgerEntry: Record "Cust. Ledger Entry"; var BalanceAmount: Decimal; var IsHandled: Boolean; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line")
begin
end;

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add the var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line" parameter to the OnBeforePostBalanceAccount integration event and pass it from PostBalanceAccount().

Location in PostBalanceAccount() procedure:

    procedure PostBalanceAccount(CustomerBillHeader: Record "Customer Bill Header"; CustLedgEntry: Record "Cust. Ledger Entry"; BillPostingGroup: Record "Bill Posting Group"; BalanceAmount: Decimal)
    var
        GenJnlLine: Record "Gen. Journal Line";
        IsHandled: Boolean;
    begin
        IsHandled := false;
        OnBeforePostBalanceAccount(GenJnlLine, CustomerBillHeader, CustLedgEntry, BalanceAmount, IsHandled, GenJnlPostLine);
        if IsHandled then
            exit;

        GenJnlLine.Init();

        GenJnlLine.Validate("Posting Date", CustomerBillHeader."Posting Date");

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

    [IntegrationEvent(false, false)]
    local procedure OnBeforePostBalanceAccount(var GenJournalLine: Record "Gen. Journal Line"; CustomerBillHeader: Record "Customer Bill Header"; CustLedgerEntry: Record "Cust. Ledger Entry"; var BalanceAmount: Decimal; var IsHandled: Boolean; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line")
    begin
    end;

---

File: CustomerBillPostPrint.Codeunit.al

Note

Automatically generated by the Triage Agent — advisory only. An engineer will review before any action is taken.

Tip

Not accurate? Reply with /not-accurate (optional: add a short explanation). Your feedback improves future responses.