[Event Request] Page 9239 "Sales Budget Overview Matrix"

[Skylar-KyiShinKhant]

Why do you need this change?

We'd like to add extra filters when FindRecord() or NextRecord().

Describe the request

We'd like to request events here please.

[IntegrationEvent(false, false)]
local procedure OnBeforeFindRecord(ItemBudgetName: Record "Item Budget Name")
begin
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeNextRecord(ItemBudgetName: Record "Item Budget Name")
begin
end;

Internal work item: AB#646682

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add integration events around the OnFindRecord and OnNextRecord triggers in Page 9239 "Sales Budget Overview Matrix" so extensions can modify Item Budget Name filters during record navigation.

Location in OnFindRecord and OnNextRecord triggers:

    trigger OnFindRecord(Which: Text): Boolean
    var
        Found: Boolean;
    begin
        OnBeforeOnFindRecord(ItemBudgetName);
        Found :=
          ItemBudgetManagement.FindRecord(
            ItemBudgetName, LineDimType, Rec, Which,
            ItemFilter, SourceNoFilter, PeriodType, DateFilter, PeriodInitialized, InternalDateFilter,
            GlobalDim1Filter, GlobalDim2Filter, BudgetDim1Filter, BudgetDim2Filter, BudgetDim3Filter);
        OnAfterOnFindRecord(ItemBudgetName);
        exit(Found);
    end;

    trigger OnNextRecord(Steps: Integer): Integer
    var
        ResultSteps: Integer;
    begin
        OnBeforeOnNextRecord(ItemBudgetName);
        ResultSteps :=
          ItemBudgetManagement.NextRecord(
            ItemBudgetName, LineDimType, Rec, Steps,
            ItemFilter, SourceNoFilter, PeriodType, DateFilter,
            GlobalDim1Filter, GlobalDim2Filter, BudgetDim1Filter, BudgetDim2Filter, BudgetDim3Filter);
        OnAfterOnNextRecord(ItemBudgetName);
        exit(ResultSteps);
    end;

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

    [IntegrationEvent(false, false)]
    local procedure OnBeforeOnFindRecord(var ItemBudgetName: Record "Item Budget Name")
    begin
    end;

    [IntegrationEvent(false, false)]
    local procedure OnAfterOnFindRecord(var ItemBudgetName: Record "Item Budget Name")
    begin
    end;

    [IntegrationEvent(false, false)]
    local procedure OnBeforeOnNextRecord(var ItemBudgetName: Record "Item Budget Name")
    begin
    end;

    [IntegrationEvent(false, false)]
    local procedure OnAfterOnNextRecord(var ItemBudgetName: Record "Item Budget Name")
    begin
    end;

---

File: SalesBudgetOverviewMatrix.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.