[Request for External] Public access for procedures in Mfg. Create Put-away

[mjmatthiesen]

Why do you need this change?

We handle prod orders from external devices via service calls. Because of how some of the interactions operate with UI elements in Business Central and how users want those (or more) prompts before continuing the process, we need to call two of the internal procedures that are leveraged from "Prod. Order Status Management". We are not able to subscribe to events in these flows to interop with custom prompts, so we need to

1. call ShouldCreateWhsePutAwayForProdOutput via service
2. trigger user prompt on our platform
3. call CreateWhsePutAwayForProdOrderOutputLine via service

Currently this means we have to duplicate this behaviour and break any other vendor that wants to modify the base business central behaviour, which we would prefer not to do, it's nice for us or them :)

Describe the request

Add public access for ShouldCreateWhsePutAwayForProdOutput and CreateWhsePutAwayForProdOrderOutputLine
Internal work item: AB#619084

[tomasevicst]

✅ Analysis complete - approved for implementation

---

Implementation:

Change two procedures from internal to public in Codeunit 99000893 "Mfg. Create Put-away".

Current code:

internal procedure ShouldCreateWhsePutAwayForProdOutput(ItemJournalLine: Record "Item Journal Line"): Boolean
var
    ProductionOrder: Record "Production Order";
    ProdOrderLine: Record "Prod. Order Line";
    xProductionOrder: Record "Production Order";
    xProdOrderLine: Record "Prod. Order Line";
    ShouldCreateWhsePutAway: Boolean;
    WhsePutAwayRequired: Boolean;
begin
    // ... existing implementation
end;

internal procedure CreateWhsePutAwayForProdOrderOutputLine(ProdOrderLine: Record "Prod. Order Line")
var
    TempProdOrdLineTrackingBuff: Record "Prod. Ord. Line Tracking Buff." temporary;
    ItemTrackingManagement: Codeunit "Item Tracking Management";
    MfgItemTrackingMgt: Codeunit "Mfg. Item Tracking Mgt.";
begin
    // ... existing implementation
end;

Proposed change:

procedure ShouldCreateWhsePutAwayForProdOutput(ItemJournalLine: Record "Item Journal Line"): Boolean
var
    ProductionOrder: Record "Production Order";
    ProdOrderLine: Record "Prod. Order Line";
    xProductionOrder: Record "Production Order";
    xProdOrderLine: Record "Prod. Order Line";
    ShouldCreateWhsePutAway: Boolean;
    WhsePutAwayRequired: Boolean;
begin
    // ... existing implementation
end;

procedure CreateWhsePutAwayForProdOrderOutputLine(ProdOrderLine: Record "Prod. Order Line")
var
    TempProdOrdLineTrackingBuff: Record "Prod. Ord. Line Tracking Buff." temporary;
    ItemTrackingManagement: Codeunit "Item Tracking Management";
    MfgItemTrackingMgt: Codeunit "Mfg. Item Tracking Mgt.";
begin
    // ... existing implementation
end;

---

File: MfgCreatePutaway.Codeunit.al