[Event Request] codeunit 5407 TransReopenProdOrderComp After Insert

[LidaLidaLidaLidaLida]

Why do you need this change?

I need the event so that I can directly extend the function in the loop. Otherwise I have to use the event OnAfterTransferRelatedTablesToReleasedProdOrder and build the loop once again, which will cost me performance.

Describe the request

Please add a new publisher after the insert in the repeat..until loop.

Internal work item: [AB#619081](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/619081)

[tomasevicst]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event in the TransReopenProdOrderComp procedure of Codeunit 5407 "Prod. Order Status Management" after NewProdOrderComponent.Insert() in the repeat..until loop.

Location in TransReopenProdOrderComp procedure (around line 325):

local procedure TransReopenProdOrderComp(FromProdOrderLine: Record "Prod. Order Line")
var
    FromProdOrderComponent: Record "Prod. Order Component";
    NewProdOrderComponent: Record "Prod. Order Component";
begin
    FromProdOrderComponent.SetRange(Status, FromProdOrderLine.Status);
    FromProdOrderComponent.SetRange("Prod. Order No.", FromProdOrderLine."Prod. Order No.");
    FromProdOrderComponent.SetRange("Prod. Order Line No.", FromProdOrderLine."Line No.");
    if FromProdOrderComponent.FindSet() then begin
        repeat
            NewProdOrderComponent.Init();
            NewProdOrderComponent := FromProdOrderComponent;
            NewProdOrderComponent.Status := NewProdOrderComponent.Status::Released;
            NewProdOrderComponent.Insert();
            OnTransReopenProdOrderCompOnAfterInsert(FromProdOrderComponent, NewProdOrderComponent);  // <-- New event
        until FromProdOrderComponent.Next() = 0;
        FromProdOrderComponent.DeleteAll();
    end;
end;

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

[IntegrationEvent(false, false)]
local procedure OnTransReopenProdOrderCompOnAfterInsert(FromProdOrderComponent: Record "Prod. Order Component"; NewProdOrderComponent: Record "Prod. Order Component")
begin
end;

---

File: ProdOrderStatusManagement.Codeunit.al