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

[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";
  
+       OnBeforeWhseActivLineInsert(WarehouseActivityLine, ProdOrderLine, TempProdOrdLineTrackingBuff);
        WarehouseActivityLine.Insert();
    end;
  
    local procedure InsertWarehouseActivityHeaderForProdOutputPutAway(ProdOrderLine: Record "Prod. Order Line")
...

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

Internal work item: AB#619012

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

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

Location in CreateNewWhseActivityForProdOrderLine procedure (around line 1172):

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

OnCreateNewWhseActivityForProdOrderLineOnBeforeWarehouseActivityLineInsert(WarehouseActivityLine, ProdOrderLine, TempProdOrdLineTrackingBuff);
WarehouseActivityLine.Insert();

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

[IntegrationEvent(false, false)]
local procedure OnCreateNewWhseActivityForProdOrderLineOnBeforeWarehouseActivityLineInsert(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