[NL][Page][11404][CashJournalSubform][OnNewRecord] Add integration event OnAfterNewRecord

[KateDovgalova]

Why do you need this change?

In 4PS Construct we need to fill or overwrite values of Date and "Applies-to Doc. Type" in "CBG Statement Line" in trigger OnNewRecord on page 11404 "Cash Journal Subform". Code should be executed in trigger OnNewRecord after line Rec.InitRecord(xRec) but before AfterGetCurrentRecord() - xRec is changed in this procedure.

Describe the request

Dear ALAppExtensions team,

On behalf of 4PS I would like to request integration event 'OnAfterNewRecord' to be added to trigger OnNewRecord of page 11404 "Cash Journal Subform":

    trigger OnNewRecord(BelowxRec: Boolean)
    begin
        Clear(ShortcutDimCode);
        GetHeader();
        if CBGStatement."No." <> 0 then
            Rec.InitRecord(xRec);

        OnAfterNewRecord(CBGStatement, Rec, xRec); //new

        AfterGetCurrentRecord();
    end;

    [IntegrationEvent(false, false)]
    local procedure OnAfterNewRecord(CBGStatement: Record "CBG Statement"; var CBGStatementLine: Record "CBG Statement Line"; xCBGStatementLine: Record "CBG Statement Line")
    begin
        //new
    end;
}

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add a new integration event in the OnNewRecord(BelowxRec: Boolean) trigger of page 11404 "Cash Journal Subform" immediately after Rec.InitRecord(xRec) and before AfterGetCurrentRecord().

Location in OnNewRecord(BelowxRec: Boolean) trigger:

trigger OnNewRecord(BelowxRec: Boolean)
begin
    Clear(ShortcutDimCode);
    GetHeader();
    if CBGStatement."No." <> 0 then
        Rec.InitRecord(xRec);
    OnOnNewRecordOnAfterInitRecord(CBGStatement, Rec, xRec); // NEW
    AfterGetCurrentRecord();
end;

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

[IntegrationEvent(false, false)]
local procedure OnOnNewRecordOnAfterInitRecord(CBGStatement: Record "CBG Statement"; var CBGStatementLine: Record "CBG Statement Line"; xCBGStatementLine: Record "CBG Statement Line")
begin
end;

---

File: CashJournalSubform.Page.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.