[GB][Page][99000816][Production Order Statistics"] OnAfterSetProdOrderLineFilters event

[JeremyOrgan-DC]

Why do you need this change?

This will allows us to change the calculations on the standard "Production Order Statistics" by changing the filter on the "Prod. Order Line" to include other planning levels

Describe the request

[GB][Page][99000816][Production Order Statistics"]
[IntegrationEvent(false, false)]
local procedure OnAfterSetProdOrderLineFilters(var ProdOrderLine: Record "Prod. Order Line"; Rec: Record "Production Order")
begin
end;

trigger OnAfterGetRecord()
var
    CalendarMgt: Codeunit "Shop Calendar Management";
begin
    Clear(StdCost);
    Clear(ExpCost);
    Clear(ActCost);
    Clear(MfgCostCalcMgt);
    Clear(NonInvStdCost);
    Clear(NonInvExpCost);
    Clear(NonInvActCost);

    GLSetup.Get();

    ExpCapNeed := MfgCostCalcMgt.CalcProdOrderExpCapNeed(Rec, false) / CalendarMgt.TimeFactor(CapacityUoM);
    ActTimeUsed := MfgCostCalcMgt.CalcProdOrderActTimeUsed(Rec, false) / CalendarMgt.TimeFactor(CapacityUoM);
    ProdOrderLine.SetRange(Status, Rec.Status);
    ProdOrderLine.SetRange("Prod. Order No.", Rec."No.");
    ProdOrderLine.SetRange("Planning Level Code", 0);
    ProdOrderLine.SetFilter("Item No.", '<>%1', '');
    OnAfterSetProdOrderLineFilters(ProdOrderLine, Rec);  // New Event Call
    if ProdOrderLine.Find('-') then

For completeness the same event could be added to [GB][Report][99000791 ][Production Order Statistics"]
i imagine the changes are valid for [W1]
Internal work item: AB#621590

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event OnAfterSetProdOrderLineFilters in the OnAfterGetRecord trigger to allow modifying filters on "Prod. Order Line" before data is retrieved.

Location in Page 99000816 "Production Order Statistics" OnAfterGetRecord trigger (around line 454):

trigger OnAfterGetRecord()
var
    CalendarMgt: Codeunit "Shop Calendar Management";
begin
    // ... Clear statements and calculations ...
    
    ProdOrderLine.SetRange(Status, Rec.Status);
    ProdOrderLine.SetRange("Prod. Order No.", Rec."No.");
    ProdOrderLine.SetRange("Planning Level Code", 0);
    ProdOrderLine.SetFilter("Item No.", '<>%1', '');
    OnAfterSetProdOrderLineFilters(ProdOrderLine, Rec);  // <-- New event
    if ProdOrderLine.Find('-') then
        repeat

Event Publisher (add at the end of the page):

[IntegrationEvent(false, false)]
local procedure OnAfterSetProdOrderLineFilters(var ProdOrderLine: Record "Prod. Order Line"; ProductionOrder: Record "Production Order")
begin
end;

Location in Report 99000791 "Production Order Statistics" OnAfterGetRecord trigger (around line 182):

trigger OnAfterGetRecord()
var
    ProdOrderLine: Record "Prod. Order Line";
begin
    // ... Clear statements ...
    
    ProdOrderLine.SetRange(Status, Status);
    ProdOrderLine.SetRange("Prod. Order No.", "No.");
    ProdOrderLine.SetRange("Planning Level Code", 0);
    OnAfterSetProdOrderLineFilters(ProdOrderLine, Rec);  // <-- New event
    if ProdOrderLine.FindSet() then
        repeat

Event Publisher (add at the end of the report):

[IntegrationEvent(false, false)]
local procedure OnAfterSetProdOrderLineFilters(var ProdOrderLine: Record "Prod. Order Line"; ProductionOrder: Record "Production Order")
begin
end;

---

File: ProductionOrderStatistics.Page.al and ProductionOrderStatistics.Report.al