[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

[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.