[W1][ReportExtension][7305][Mfg. WhseSourceCreateDocument] Add publisher before SetCustomWhseSourceLine's grouping number in Prod. Order Component - OnAfterGetRecord

[mavohra]

Why do you need this change?

Some of our customers want each production order line picked as its own warehouse activity line rather than all lines for an order grouped together. SetCustomWhseSourceLine is called with a hardcoded grouping number of 1 for every component, so it is currently impossible to influence how pick lines get grouped without replacing the whole call. There is no event before this call that exposes the grouping number for a subscriber to change.

Describe the request

Add a publisher immediately before CreatePick.SetCustomWhseSourceLine is called, with a var parameter for the grouping number, so a subscriber can change how pick lines for the same production order are grouped.

if QtyToPick > 0 then begin
    LineNo := 1;
    OnBeforeSetCustomWhseSourceLineOnBeforeSetLineNo("Prod. Order Component", LineNo);
    CreatePick.SetCustomWhseSourceLine(
        "Prod. Order Component", LineNo,
        Database::"Prod. Order Component", Status.AsInteger(), "Prod. Order No.", "Prod. Order Line No.", "Line No.");
    ...

Event Signature:

[IntegrationEvent(false, false)]
local procedure OnBeforeSetCustomWhseSourceLineOnBeforeSetLineNo(ProdOrderComponent: Record "Prod. Order Component"; var LineNo: Integer)
begin
end;

Alternatives evaluated:

• Subscribing to OnAfterSetCustomWhseSourceLine on codeunit "Create Pick": fires after the grouping number is already copied into the codeunit's internal TempNo field, and the event does not expose that field, so nothing can change it there.

Internal work item: AB#645233

[github-actions]

Hi Ahmed Vohra (@mavohra),

Thank you for your extensibility request. To help us process it efficiently, please update the issue to include the required information.

📚 Extensibility Guidelines

Missing Information:

• Target object details: The specified report Mfg. WhseSourceCreateDocument could not be located in the analyzed codebase. Please verify the object name/ID and update the issue with the correct target object/location for the requested event.

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

Note

Automatically generated by the Triage Agent — advisory only. An engineer will review before any action is taken.

Tip

Not accurate? Reply with /not-accurate (optional: add a short explanation). Your feedback improves future responses.

[mavohra]

Hi, this is a base report extension:

namespace Microsoft.Warehouse.Request;

using Microsoft.Inventory.Item;
using Microsoft.Inventory.Location;
using Microsoft.Manufacturing.Document;
using Microsoft.Warehouse.Activity;
using Microsoft.Warehouse.Journal;

reportextension 7305 "Mfg. WhseSourceCreateDocument" extends "Whse.-Source - Create Document"

---

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add a new integration event in OnAfterGetRecord() of reportextension 7305 Mfg. WhseSourceCreateDocument immediately before CreatePick.SetCustomWhseSourceLine(...) so the grouping number can be changed.

Location in OnAfterGetRecord() trigger:

if QtyToPick > 0 then begin
    LineNo := 1;
    OnAfterGetRecordProdOrderComponentOnBeforeSetCustomWhseSourceLine("Prod. Order Component", LineNo);
    CreatePick.SetCustomWhseSourceLine(
        "Prod. Order Component", LineNo,
        Database::"Prod. Order Component", Status.AsInteger(), "Prod. Order No.", "Prod. Order Line No.", "Line No.");
    CreatePick.SetTempWhseItemTrkgLine(
        "Prod. Order No.", Database::"Prod. Order Component", '', "Prod. Order Line No.", "Line No.", "Location Code");
    CreatePick.CreateTempLine(
        "Location Code", "Item No.", "Variant Code", "Unit of Measure Code", '', "Bin Code", "Qty. per Unit of Measure",
        "Qty. Rounding Precision", "Qty. Rounding Precision (Base)", QtyToPick, QtyToPickBase);
end
else
    CreatePick.InsertSkippedLinesToCalculationSummary(Database::"Prod. Order Component", "Prod. Order No.", "Prod. Order Line No.", Status.AsInteger(), "Line No.", "Location Code", "Item No.", "Variant Code", "Unit of Measure Code", "Bin Code", QtyToPick, QtyToPickBase, EmptyGuid);

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

[IntegrationEvent(false, false)]
local procedure OnAfterGetRecordProdOrderComponentOnBeforeSetCustomWhseSourceLine(var ProdOrderComponent: Record "Prod. Order Component"; var LineNo: Integer)
begin
end;

---

File: MfgWhseSourceCreateDocument.ReportExt.al

Note

Automatically generated by the Triage Agent — advisory only. An engineer will review before any action is taken.

Tip

Not accurate? Reply with /not-accurate (optional: add a short explanation). Your feedback improves future responses.