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

[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

        CreateNewWhseActivityForProdOrderLine(
            ProdOrderLine,
            TempProdOrdLineTrackingBuff,
            CurrWarehouseActivityLine,
            Enum::"Warehouse Action Type"::Take,
            TakeLineNo,
            0,
            QtyToPickBase,
            false,
            BreakPackage,
            false,
            Breakbulk);
  
        OldLineNo := LineNo;
  
+       OnAfterCreateWhsePutAwayForProdOutput();
    end;
  
    local procedure FindBinForProdOrderLine(ProdOrderLine: Record "Prod. Order Line"; var TempProdOrdLineTrackingBuff: Record "Prod. Ord. Line Tracking Buff." temporary; var BinContentQtyBase: Decimal)

...

+   [IntegrationEvent(false, false)]
+   local procedure OnAfterCreateWhsePutAwayForProdOutput()
+   begin
+   end;

Internal work item: AB#619005

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add the new IntegrationEvent after the CreateNewWhseActivityForProdOrderLine call in the CreateWhsePutAwayForProdOutput procedure.

Location in CreateWhsePutAwayForProdOutput procedure (around line 1161):

CreateNewWhseActivityForProdOrderLine(
    ProdOrderLine,
    TempProdOrdLineTrackingBuff,
    CurrWarehouseActivityLine,
    Enum::"Warehouse Action Type"::Take,
    TakeLineNo,
    0,
    QtyToPickBase,
    false,
    BreakPackage,
    false,
    Breakbulk);

OldLineNo := LineNo;

OnAfterCreateWhsePutAwayForProdOutput(ProdOrderLine, TempProdOrdLineTrackingBuff, CurrWarehouseActivityHeader, CurrWarehouseActivityLine, QtyToPickBase);  // <-- New event

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

[IntegrationEvent(false, false)]
local procedure OnAfterCreateWhsePutAwayForProdOutput(ProdOrderLine: Record "Prod. Order Line"; var TempProdOrdLineTrackingBuff: Record "Prod. Ord. Line Tracking Buff." temporary; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var WarehouseActivityLine: Record "Warehouse Activity Line"; QtyToPickBase: Decimal)
begin
end;

---

File: MfgCreatePutaway.Codeunit.al