[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). This functionality implements 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.

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, BasePutAwayItemUnitOfMeasure, 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 BasePutAwayItemUnitOfMeasure: var Record "Item Unit of Measure"; IsHandled: Boolean)
+    begin
+    end;

Internal work item: AB#635595

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

• Existing event applicability: Codeunit 99000893 "Mfg. Create Put-away" already contains OnBeforeGetPutAwayUOMForProdOrderLine(var ItemUnitOfMeasure: Record "Item Unit of Measure"; ProdOrderLine: Record "Prod. Order Line"; var IsHandled: Boolean). Please confirm whether this existing event could work for your scenario, potentially by extending it with extra parameters, or explain why that existing publisher is still insufficient.
• Why IsHandled bypass is required: Please describe the exact standard behavior that must be bypassed and why adding data to the existing event would not be enough.
• Alternative patterns considered: Please describe which alternatives you evaluated and why they do not work for this scenario.
• Multi-extension interaction assessment: Please add a brief explanation of how this IsHandled customization would behave if multiple extensions subscribe and try to override the same logic.

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

[makuhn]

My origin request was based on V28.0. This event was added later. It is sufficient if already existing event is extended by additional parameter.

IsHandled bypass is required in order to be able to overrule how Put-Away Unit of Measure is retrieved and set. Business Central standard code must be skipped if our functionality is applied. There are no alternatives because this is the central function which sets variables PutAwayItemUnitOfMeasure as well as BasePutAwayItemUnitOfMeasure.

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Update the existing OnBeforeGetPutAwayUOMForProdOrderLine event to expose BasePutAwayItemUnitOfMeasure so subscribers can override both unit-of-measure variables when IsHandled is used.

Location in GetPutAwayUOMForProdOrderLine() procedure (around line 1193):

local procedure GetPutAwayUOMForProdOrderLine(ProdOrderLine: Record "Prod. Order Line")
var
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeGetPutAwayUOMForProdOrderLine(PutAwayItemUnitOfMeasure, ProdOrderLine, IsHandled, BasePutAwayItemUnitOfMeasure);
    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;

    // existing standard logic
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; var BasePutAwayItemUnitOfMeasure: Record "Item Unit of Measure")
begin
end;

---

File: MfgCreatePutaway.Codeunit.al

[AleksandricMarko]

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.