[Event Request] codeunit 99000893 "Mfg. Create Put-away" - OnBeforeGetPutAwayUOMForProdOrderLine

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

See also
#29582
#29611
#29612
#29613
#29614
#29615

Describe the request

Add new code and Integration Event in codeunit 99000893 "Mfg. Create Put-away"

     local procedure GetPutAwayUOMForProdOrderLine(ProdOrderLine: Record "Prod. Order Line")
+    var
+        IsHandled: Boolean;
     begin
+        IsHandled := false;
+        OnBeforeGetPutAwayUOMForProdOrderLine(PutAwayItemUnitOfMeasure, ProdOrderLine, IsHandled);
+        if IsHandled then
+            exit;
+
         if not CurrLocation."Directed Put-away and Pick" then begin
             PutAwayItemUnitOfMeasure.Code := ProdOrderLine."Unit of Measure Code";

...

+    [IntegrationEvent(false, false)]
+    local procedure OnBeforeGetPutAwayUOMForProdOrderLine(var PutAwayItemUOM: Record "Item Unit of Measure"; ProdOrderLine: Record "Prod. Order Line"; var IsHandled: Boolean)
+    begin
+    end;

Internal work item: AB#621151

[AleksandricMarko]

Hi @makuhn,

Thanks for submitting this extensibility request. To help us process it efficiently, please update the issue to include the required information.

📚 Extensibility Guidelines

Missing Information:

• Alternatives Evaluated: Which existing events/patterns were tried and why they are insufficient must be provided.

• Justification for IsHandled: Specific technical reason why a standard event is insufficient and why the bypass functionality (IsHandled) is necessary must be provided. The current justification explains the business need but doesn't explain why IsHandled is essential vs. a regular event.

• Performance Considerations: Expected execution frequency and potential impact assessment must be included.

• Data Sensitivity Review: Confirmation of no sensitive data exposure or rationale if necessary must be provided.

• Multi-Extension Interaction: Risks if multiple extensions subscribe and conflict mitigation strategy must be addressed.

Please update the issue with the missing details. We'll automatically re-analyze once updated.

[makuhn]

Hi @AleksandricMarko,

event is required to implement a different logic for determining the Put-Away Unit of Measure to use. Alternative implementation is not possible because this function is the central point for setting the Put-Away Unit of Measure. IsHandled pattern is required to be able to overrule the standard functionality. Same event already exists in Codeunit 7313 Create Put-Away. Event does not expose any sensitive data.

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event at the beginning of the GetPutAwayUOMForProdOrderLine procedure in Codeunit 99000893 "Mfg. Create Put-away" to allow customization of the Put-Away Unit of Measure logic. The event includes an IsHandled parameter to bypass the standard logic when needed.

Location in GetPutAwayUOMForProdOrderLine procedure (line 1192):

local procedure GetPutAwayUOMForProdOrderLine(ProdOrderLine: Record "Prod. Order Line")
var
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeGetPutAwayUOMForProdOrderLine(PutAwayItemUnitOfMeasure, ProdOrderLine, IsHandled);
    if IsHandled then
        exit;

    if not CurrLocation."Directed Put-away and Pick" then begin
        PutAwayItemUnitOfMeasure.Code := ProdOrderLine."Unit of Measure Code";
        PutAwayItemUnitOfMeasure."Qty. per Unit of Measure" := ProdOrderLine."Qty. per Unit of Measure";
        PutAwayItemUnitOfMeasure."Qty. Rounding Precision" := ProdOrderLine."Qty. Rounding Precision";
        BasePutAwayItemUnitOfMeasure."Qty. Rounding Precision" := ProdOrderLine."Qty. Rounding Precision (Base)";
        exit;
    end;

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

[IntegrationEvent(false, false)]
local procedure OnBeforeGetPutAwayUOMForProdOrderLine(var ItemUnitOfMeasure: Record "Item Unit of Measure"; ProdOrderLine: Record "Prod. Order Line"; var IsHandled: Boolean)
begin
end;

---

File: MfgCreatePutaway.Codeunit.al