[Event Request] Page 9219 "Purch. 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#646681

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add new integration events before and after the ItemBudgetManagement.FindRecord(...) and ItemBudgetManagement.NextRecord(...) calls in page 9219 Purch. 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: PurchBudgetOverviewMatrix.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.