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

[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

        WarehouseActivityLine."Warranty Date" := TempProdOrdLineTrackingBuff."Warranty Date";
        WarehouseActivityLine."Expiration Date" := TempProdOrdLineTrackingBuff."Expiration Date";
  
        WarehouseActivityLine.Insert();
+       OnAfterWhseActivLineInsert(WarehouseActivityLine, ProdOrderLine, TempProdOrdLineTrackingBuff);
    end;
  
    local procedure InsertWarehouseActivityHeaderForProdOutputPutAway(ProdOrderLine: Record "Prod. Order Line")
...

+   [IntegrationEvent(false, false)]
+   local procedure OnAfterWhseActivLineInsert(var WarehouseActivityLine: Record "Warehouse Activity Line")
+   begin
+   end;

Internal work item: AB#619021

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event in the CreateNewWhseActivityForProdOrderLine procedure of Codeunit 99000893 "Mfg. Create Put-away" after WarehouseActivityLine.Insert().

Location in CreateNewWhseActivityForProdOrderLine procedure (around line 1172):

        WarehouseActivityLine.CopyTrackingFromProdOrderLineTrackingBuffer(TempProdOrdLineTrackingBuff);
        WarehouseActivityLine."Warranty Date" := TempProdOrdLineTrackingBuff."Warranty Date";
        WarehouseActivityLine."Expiration Date" := TempProdOrdLineTrackingBuff."Expiration Date";

        WarehouseActivityLine.Insert();
        OnAfterCreateNewWhseActivityForProdOrderLine (WarehouseActivityLine, ProdOrderLine, TempProdOrdLineTrackingBuff);
    end;

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

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

---

File: MfgCreatePutaway.Codeunit.al