Request for Integration Event Inside Tracking Specification Loop in Codeunit 7322 – CreatePickOrMoveLine

[rishiekeshaainnovites]

Why do you need this change?

📌 Why This Is Required

In our scenario:

Users manually select lots via a custom selection page.

Only selected lots should generate Warehouse Activity Lines.

Non-selected lots must be skipped completely.

Standard bin, reservation, expiration, and quantity logic must remain unchanged.

Currently:

There is no event that allows skipping line creation per tracking specification.

Existing events do not allow setting IsHandled to prevent line creation cleanly.

We require:

Per-tracking-line control.

Ability to set IsHandled := true for non-selected lots.

Clean and upgrade-safe extensibility.

We request a new IntegrationEvent in:

Codeunit 7322

Method: CreatePickOrMoveLine

Location: Inside the TempTrackingSpecification loop

With IsHandled support

This is required to support selective lot-based warehouse activity line creation in a safe and extensible manner.

Describe the request

//In CreatePickOrMoveLine method of Codeunit 7322

if TempTrackingSpecification.Find('-') then
repeat
// Tracking line logic
OnCreatePickOrMoveLineFromHandlingSpec(...);
if isHandled then
exit;
// Standard warehouse activity line creation logic

until (TempTrackingSpecification.Next() = 0) or (RemQtyToPickBase <= 0);

[IntegrationEvent(false, false)]
local procedure OnBeforeCreatePickOrMoveLinePerTrackingSpec(
var NewWarehouseActivityLine: Record "Warehouse Activity Line";
var TempTrackingSpecification: Record "Tracking Specification" temporary;
var RemQtyToPickBase: Decimal;
OutstandingQtyBase: Decimal;
ReservationExists: Boolean;
var IsHandled: Boolean)
begin
end;

[AleksandricMarko]

Hi @rishiekeshaainnovites,

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: You mentioned that existing events don't allow the needed control, but please specify which existing events you evaluated and why each was insufficient.

• Performance Considerations: Please provide an assessment of the expected execution frequency (how often will this event fire) and potential performance impact.

• Data Sensitivity Review: Please confirm whether the event parameters expose any sensitive data, or provide rationale if sensitive data exposure is necessary.

• Multi-Extension Interaction: Please describe the risks if multiple extensions subscribe to this event and how conflicts would be mitigated.

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

[rishiekeshaainnovites]

Hi,
Thank you for the feedback. Below are the existing events we evaluated and the reasons they are not sufficient for achieving the required functionality.

1. Alternatives Evaluated -
   I have specified how the code should work through comments in the below code.
   `internal procedure CreatePickOrMoveLine(NewWarehouseActivityLine: Record "Warehouse Activity Line"; var RemQtyToPickBase: Decimal; OutstandingQtyBase: Decimal; ReservationExists: Boolean)
   var
   ReservationEntry: Record "Reservation Entry";
   ATOSalesLine: Record "Sales Line";
   WhseItemTrackingSetup: Record "Item Tracking Setup";
   ATOJobPlanningLine: Record "Job Planning Line";
   QtyAvailToPickBase: Decimal;
   OriginalRemQtyToPickBase: Decimal;
   QtyRemToPickBase: Decimal;
   ITQtyToPickBase: Decimal;
   TotalITQtyToPickBase: Decimal;
   QtyToTrackBase: Decimal;
   EntriesExist: Boolean;
   ShouldInsertPickOrMoveDefaultBin: Boolean;
   IsHandled: Boolean;
   begin
   GetLocation(NewWarehouseActivityLine."Location Code");

    if ReservationExists then
        CalcRemQtyToPickOrMoveBase(NewWarehouseActivityLine, OutstandingQtyBase, RemQtyToPickBase);
   
    if RemQtyToPickBase <= 0 then
        exit;
   
    HasExpiredItems := false;
    OriginalRemQtyToPickBase := RemQtyToPickBase;
   
    QtyAvailToPickBase := CalcInvtAvailability(NewWarehouseActivityLine, WhseItemTrackingSetup);
    if WMSManagement.GetATOSalesLine(
         NewWarehouseActivityLine."Source Type", NewWarehouseActivityLine."Source Subtype", NewWarehouseActivityLine."Source No.",
         NewWarehouseActivityLine."Source Line No.", ATOSalesLine)
    then
        QtyAvailToPickBase += ATOSalesLine.QtyToAsmBaseOnATO();
   
    if WMSManagement.GetATOJobPlanningLine(
        NewWarehouseActivityLine."Source Type", NewWarehouseActivityLine."Source No.", NewWarehouseActivityLine."Source Line No.",
        NewWarehouseActivityLine."Source Subline No.", ATOJobPlanningLine)
    then
        QtyAvailToPickBase += ATOJobPlanningLine.QtyToAsmBaseOnATO();
   
    IsHandled := false;
    OnCreatePickOrMoveLineOnAfterCalcQtyAvailToPickBase(
        NewWarehouseActivityLine, WhseItemTrackingSetup."Serial No. Required", WhseItemTrackingSetup."Lot No. Required",
        ReservationExists, RemQtyToPickBase, QtyAvailToPickBase, IsHandled);
    if not IsHandled then
        if RemQtyToPickBase > QtyAvailToPickBase then begin
            IsHandled := false;
            OnCreatePickOrMoveLineOnAfterCheckForCompleteShipment(CurrWarehouseActivityHeader, WhseItemTrackingSetup, ReservationExists, RemQtyToPickBase, QtyAvailToPickBase, IsHandled);
            if not IsHandled then
                RemQtyToPickBase := QtyAvailToPickBase;
            CompleteShipment := false;
        end;
   
    if RemQtyToPickBase > 0 then begin
        if ItemTrackingManagement.GetWhseItemTrkgSetup(NewWarehouseActivityLine."Item No.", WhseItemTrackingSetup) then begin
            OnCreatePickOrMoveLineOnAfterGetWhseItemTrkgSetup(NewWarehouseActivityLine, WhseItemTrackingSetup);
            if IsBlankInvtMovement then
                ItemTrackingManagement.SumUpItemTrackingOnlyInventoryOrATO(TempReservationEntry, TempTrackingSpecification, true, true)
            else begin
                SetFilterReservEntry(ReservationEntry, NewWarehouseActivityLine);
                CopyReservEntriesToTemp(TempReservationEntry, ReservationEntry);
                if IsInvtMovement then
                    if NewWarehouseActivityLine."Source Type" = 5407 then // Database::"Prod. Order Component"
                        PrepareItemTrackingFromWhse(
                          NewWarehouseActivityLine."Source Type", NewWarehouseActivityLine."Source Subtype", NewWarehouseActivityLine."Source No.",
                          '', NewWarehouseActivityLine."Source Line No.", NewWarehouseActivityLine."Source Subline No.", 1, false)
                    else
                        PrepareItemTrackingFromWhse(
                          NewWarehouseActivityLine."Source Type", NewWarehouseActivityLine."Source Subtype", NewWarehouseActivityLine."Source No.",
                          '', 0, NewWarehouseActivityLine."Source Line No.", 1, false);
                ItemTrackingManagement.SumUpItemTrackingOnlyInventoryOrATO(TempReservationEntry, TempTrackingSpecification, true, true);
            end;
   
            if PickOrMoveAccordingToFEFO(NewWarehouseActivityLine."Location Code", WhseItemTrackingSetup) or
               PickStrictExpirationPosting(NewWarehouseActivityLine."Item No.", WhseItemTrackingSetup)
            then begin
                QtyToTrackBase := RemQtyToPickBase;
                if UndefinedItemTracking(QtyToTrackBase) then
                    CreateTempHandlingSpec(NewWarehouseActivityLine, QtyToTrackBase);
            end;
            TempTrackingSpecification.Reset();
   

   //before starting of this process I want to apply some filter on temptrackingspec which
   because I want to only create warehouse actitvity lines for the lots selected.
   In temptrackingspec all lots will be present.//
   if TempTrackingSpecification.Find('-') then
   repeat
   //Base code for creation happens here//
   until (TempTrackingSpecification.Next() = 0) or (RemQtyToPickBase <= 0);

            RemQtyToPickBase := Minimum(RemQtyToPickBase, OriginalRemQtyToPickBase - TotalITQtyToPickBase);
        end;
   

   end;
   `

2. Performance Considerations :
   This will only be triggered during the creation of Activity Lines, so it will not impact performance since we only need to apply filters on the Temp Tracking Specification.
   We also reviewed the code where the Temp Tracking Specifications are created, specifically in the CreateTempHandlingSpec method.
   If an event is added at this point, it would allow us to restrict the insertion of Temp Tracking Specifications for lots that are not selected.
   This approach would also help achieve the desired behavior.

3. Data Sensitivity Review:
   This change does not impact data sensitivity. The event parameters only involve the TempTrackingSpec buffer, which is used temporarily during the creation of activity lines. No sensitive or personal data is exposed through this event.

4. Multi-Extension Interaction :
   The purpose of requesting this event is to allow filtering on the TempTrackingSpec buffer before the records are inserted. This will enable extensions to restrict the creation of tracking specifications based on custom business logic (for example, limiting lots to only those selected by the user).
   Regarding multi-extension interaction, the risk is minimal because the event is intended only to filter or restrict records in the temporary TempTrackingSpec buffer during activity line creation. Extensions subscribing to this event would typically apply additional filtering conditions rather than modifying core data.
   Since the buffer is temporary and scoped to the activity line creation process, any interaction between extensions would be limited to this specific context. Extensions can mitigate potential conflicts by implementing conditional checks and ensuring they only apply their intended filtering logic.

[AleksandricMarko]

Hi @rishiekeshaainnovites,

Thanks for providing the detailed responses. However, to complete the analysis, we need one more piece of information:

Missing Requirement:

• Proposed Code Change: Please provide the exact code snippet showing where the event publisher will be placed in the CreatePickOrMoveLine method, with clear before/after context (not pseudo-code).

Specifically, we need to see:

1. The actual code from the TempTrackingSpecification loop in Codeunit 7322
2. Exactly where the event call OnBeforeCreatePickOrMoveLinePerTrackingSpec(...) would be placed
3. The event publisher declaration with all parameters

Example format:

// Current code (lines X-Y):
if TempTrackingSpecification.Find('-') then
    repeat
        // ... existing code here ...
        
        // ... more existing code ...
        
    until (TempTrackingSpecification.Next() = 0) or (RemQtyToPickBase <= 0);

// Proposed change with event:
if TempTrackingSpecification.Find('-') then
    repeat
        IsHandled := false;
        OnBeforeCreatePickOrMoveLinePerTrackingSpec(
            NewWarehouseActivityLine, TempTrackingSpecification, 
            RemQtyToPickBase, OutstandingQtyBase, ReservationExists, IsHandled);
        if IsHandled then begin
            TempTrackingSpecification.Next();
            continue;
        end;
        
        // ... existing code for line creation ...
        
    until (TempTrackingSpecification.Next() = 0) or (RemQtyToPickBase <= 0);

[IntegrationEvent(false, false)]
local procedure OnBeforeCreatePickOrMoveLinePerTrackingSpec(
    var NewWarehouseActivityLine: Record "Warehouse Activity Line";
    var TempTrackingSpecification: Record "Tracking Specification" temporary;
    var RemQtyToPickBase: Decimal;
    OutstandingQtyBase: Decimal;
    ReservationExists: Boolean;
    var IsHandled: Boolean)
begin
end;

Please update with the actual code context from the current codebase. We'll automatically re-analyze once updated.

[rishiekeshaainnovites]

Hi @microsoft Team,

Thank you for the clarification. Below is the exact proposed code change with full context from the CreatePickOrMoveLine method in Codeunit 7322.

1. Current code

`if PickOrMoveAccordingToFEFO(NewWarehouseActivityLine."Location Code", WhseItemTrackingSetup) or
                   PickStrictExpirationPosting(NewWarehouseActivityLine."Item No.", WhseItemTrackingSetup)
                then begin
                    QtyToTrackBase := RemQtyToPickBase;
                    if UndefinedItemTracking(QtyToTrackBase) then
                        CreateTempHandlingSpec(NewWarehouseActivityLine, QtyToTrackBase);
                end;
                TempTrackingSpecification.Reset();
                if TempTrackingSpecification.Find('-') then
                    repeat
                        ITQtyToPickBase := Abs(TempTrackingSpecification."Qty. to Handle (Base)");
                        TotalITQtyToPickBase += ITQtyToPickBase;
                        if ITQtyToPickBase > 0 then begin
                            NewWarehouseActivityLine.CopyTrackingFromSpec(TempTrackingSpecification);
                            if NewWarehouseActivityLine.TrackingExists() then
                                UpdateExpirationDate(NewWarehouseActivityLine, EntriesExist);

                            if IsInvtMovement and not IsBlankInvtMovement and not TempTrackingSpecification.Correction then
                                CheckBinContentWithToAssemblyBinCode(ITQtyToPickBase, NewWarehouseActivityLine);
`

2. Proposed Change (with Event Placement)

if PickOrMoveAccordingToFEFO(NewWarehouseActivityLine."Location Code", WhseItemTrackingSetup) or
                   PickStrictExpirationPosting(NewWarehouseActivityLine."Item No.", WhseItemTrackingSetup)
                then begin
                    QtyToTrackBase := RemQtyToPickBase;
                    if UndefinedItemTracking(QtyToTrackBase) then
                        CreateTempHandlingSpec(NewWarehouseActivityLine, QtyToTrackBase);
                end;

                TempTrackingSpecification.Reset();
                if TempTrackingSpecification.Find('-') then
                    repeat

     ---- The event should be placed over here -----
IsHandled := false;
        OnBeforeCreatePickOrMoveLinePerTrackingSpec(
            NewWarehouseActivityLine, TempTrackingSpecification, 
            RemQtyToPickBase, OutstandingQtyBase, ReservationExists, IsHandled);
        if IsHandled then begin
            TempTrackingSpecification.Next();
            continue;
        end;
------------------------------------------------------------

                    ITQtyToPickBase := Abs(TempTrackingSpecification."Qty. to Handle (Base)");
                    TotalITQtyToPickBase += ITQtyToPickBase;
                    if ITQtyToPickBase > 0 then begin
                        NewWarehouseActivityLine.CopyTrackingFromSpec(TempTrackingSpecification);
                        if NewWarehouseActivityLine.TrackingExists() then
                            UpdateExpirationDate(NewWarehouseActivityLine, EntriesExist);

                        if IsInvtMovement and not IsBlankInvtMovement and not TempTrackingSpecification.Correction then
                            CheckBinContentWithToAssemblyBinCode(ITQtyToPickBase, NewWarehouseActivityLine);

3. Event Publisher Declaration

[IntegrationEvent(false, false)]
local procedure OnBeforeCreatePickOrMoveLinePerTrackingSpec(
    var NewWarehouseActivityLine: Record "Warehouse Activity Line";
    var TempTrackingSpecification: Record "Tracking Specification" temporary;
    var RemQtyToPickBase: Decimal;
    OutstandingQtyBase: Decimal;
    ReservationExists: Boolean;
    var IsHandled: Boolean)
begin
end;

**Behavior**
Event is triggered per tracking specification line
Extensions can:
Apply custom filtering logic
Set IsHandled := true to skip creation of warehouse activity lines for specific lots
Standard behavior remains unchanged when not handled

[AleksandricMarko]

Hi @rishiekeshaainnovites,

Thank you for your extensibility request. After analyzing the codebase, I found that the functionality you're looking to extend is actually located in a different place than specified.

Your request: Add a new IsHandled event inside the TempTrackingSpecification loop in CreatePickOrMoveLine to skip warehouse activity line creation for non-selected lots.

What I found: The filtering point happens earlier in CreateTempHandlingSpec(). The existing event OnCreateTempHandlingSpecOnAfterCalcTotalAvailQtyToPickBase already exposes the current Entry Summary and TotalAvailQtyToPickBase before InsertTempHandlingSpec(...) is called, so non-selected lots can be prevented from entering TempTrackingSpecification at all.

Suggested alternative:

Use the existing OnCreateTempHandlingSpecOnAfterCalcTotalAvailQtyToPickBase event in CreateTempHandlingSpec() and set TotalAvailQtyToPickBase := 0 for lots that should be skipped. That prevents QtyToPickBase from being assigned and avoids inserting the unwanted tracking specification entry.

if CurrLocation."Bin Mandatory" then
    TotalAvailQtyToPickBase :=
      CalcQtyAvailToPickOnBins(WarehouseActivityLine, WhseItemTrackingSetup, RemQtyToPickBase)
else
    TotalAvailQtyToPickBase := CalcInvtAvailability(WarehouseActivityLine, WhseItemTrackingSetup);

OnCreateTempHandlingSpecOnAfterCalcTotalAvailQtyToPickBase(WarehouseActivityLine, EntrySummary, TotalAvailQtyToPickBase);

TotalAvailQtyToPickBase := TotalAvailQtyToPickBase - QtyTracked;
...
if QtyToPickBase > 0 then
    InsertTempHandlingSpec(EntrySummary, WarehouseActivityLine, QtyToPickBase);

[IntegrationEvent(false, false)]
local procedure OnCreateTempHandlingSpecOnAfterCalcTotalAvailQtyToPickBase(
    WhseActivLine: Record "Warehouse Activity Line";
    EntrySummary: Record "Entry Summary";
    var TotalAvailQtyToPickBase: Decimal)
begin
end;

File: CreateInventoryPickMovement.Codeunit.al

Please confirm if this alternative approach works for your scenario, or let us know if you specifically need change like it is requested and what are the reasons.

[rishiekeshaainnovites]

Hi,

Thank you for the analysis and the suggested alternative.

In our scenario, the location is not configured for FEFO, and Strict Expiration Posting is not enabled in Item Tracking Management. Because of this, the logic does not enter the CreateTempHandlingSpec() flow, and therefore the event OnCreateTempHandlingSpecOnAfterCalcTotalAvailQtyToPickBase is not triggered in our case.

Because of this, the proposed approach cannot be applied to our requirement. We specifically need control at a later stage—once the tracking specifications are already created—within CreatePickOrMoveLine, in order to skip non-selected lots.

We kindly request you to proceed with the enhancement as originally suggested.

[AleksandricMarko]

Hello @rishiekeshaainnovites

Seems like the cleanest option would be to skip whole loop, and add IsHandled event before

  TempTrackingSpecification.Reset();
  if TempTrackingSpecification.Find('-') then
      repeat

Otherwise, this code would be even more complex.
Please check do you need some additional parameters in that case

[rishiekeshaainnovites]

Hello AleksandricMarko,

I want the loop to run only for specific lots—those for which warehouse activity lines need to be created. The initial approach works well for us, as it allows skipping the lots that the user did not select

[AleksandricMarko]

Hello @rishiekeshaainnovites

If you can explain me why you can`t filter/exclude lines before loop (if we add new event before loop)