[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

[JesperSchulz]

Thanks for reporting this. We agree, and we’ll publish a fix asap, either in an update for the current version or in the next major release. Please do not reply to this, as we do not monitor closed issues. If you have follow-up questions or requests, please create a new issue where you reference this one.

Build ID: 45983.