[Event Request] Codeunit 99000893 "Mfg. Create Put-away" - OnBeforeInitializeGlobalsWhsePutAwayForProdOutput

[makuhn]

Why do you need this change?

Event ist required to integrate our enhanced warehouse functionality for load carrier management (create put-away per load carrier).

Describe the request

    local procedure CreateWhsePutAwayForProdOutput(ProdOrderLine: Record "Prod. Order Line"; var TempProdOrdLineTrackingBuff: Record "Prod. Ord. Line Tracking Buff." temporary)
    var
        TakeLineNo: Integer;
        BreakPackage: Boolean;
        Breakbulk: Boolean;
    begin
        OnBeforeInitializeGlobalsWhsePutAwayForProdOutput(ProdOrderLine, TempProdOrdLineTrackingBuff);
+       InitializeGlobalsWhsePutAwayForProdOutput();

        GetLocation(ProdOrderLine."Location Code");
        if not CurrLocation."Bin Mandatory" then begin
...

+   [IntegrationEvent(false, false)]
+   local procedure OnBeforeInitializeGlobalsWhsePutAwayForProdOutput(ProdOrderLine: Record "Prod. Order Line"; var TempProdOrdLineTrackingBuff: Record "Prod. Ord. Line Tracking Buff." temporary)
+   begin
+   end;

Internal work item: AB#619007

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add the new IntegrationEvent before the InitializeGlobalsWhsePutAwayForProdOutput() call in the CreateWhsePutAwayForProdOutput procedure.

Location in CreateWhsePutAwayForProdOutput procedure (around line 750):

local procedure CreateWhsePutAwayForProdOutput(ProdOrderLine: Record "Prod. Order Line"; var TempProdOrdLineTrackingBuff: Record "Prod. Ord. Line Tracking Buff." temporary)
var
    TakeLineNo: Integer;
    BreakPackage: Boolean;
    Breakbulk: Boolean;
begin
    OnBeforeCreateWhsePutAwayForProdOutput(ProdOrderLine, TempProdOrdLineTrackingBuff);  // <-- New event
    InitializeGlobalsWhsePutAwayForProdOutput();
    // ... rest of the procedure
end;

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

[IntegrationEvent(false, false)]
local procedure OnBeforeCreateWhsePutAwayForProdOutput(ProdOrderLine: Record "Prod. Order Line"; var TempProdOrdLineTrackingBuff: Record "Prod. Ord. Line Tracking Buff." temporary)
begin
end;

---

File: MfgCreatePutaway.Codeunit.al