[Event Request] Codeunit 80 "Sales-Post" procedure "CheckItemTrackingQuantity"

[Mariangela-DeMaio-EOS]

Why do you need this change?

Hi,
i ask to add the "SalesHeader" record to the existing event "OnBeforeCheckItemTrackingQuantity" in the procedure "CheckItemTrackingQuantity" in the codeunit 80 "Sales-Post".
I need the "SalesHeader" record to control the "Ship" and "Invoice" fields in our custom.

`

              local procedure CheckItemTrackingQuantity(var SalesLine: Record "Sales Line"; var SalesHeader: Record "Sales Header")
var
    TrackingSpecification: Record "Tracking Specification";
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeCheckItemTrackingQuantity(SalesLine, IsHandled);   <----------- Add SalesHeader
    if IsHandled then
        exit;
    SyncSurPlusItemTracking(SalesHeader, SalesLine);
    case SalesHeader."Document Type" of
        SalesHeader."Document Type"::Order, SalesHeader."Document Type"::Invoice:
            TrackingSpecification.CheckItemTrackingQuantity(DATABASE::"Sales Line", SalesLine."Document Type".AsInteger(), SalesLine."Document No.", SalesLine."Line No.", SalesLine."Qty. to Ship (Base)", SalesLine."Qty. to Invoice (Base)", SalesHeader.Ship, SalesHeader.Invoice);
        SalesHeader."Document Type"::"Credit Memo", SalesHeader."Document Type"::"Return Order":
            TrackingSpecification.CheckItemTrackingQuantity(DATABASE::"Sales Line", SalesLine."Document Type".AsInteger(), SalesLine."Document No.", SalesLine."Line No.", SalesLine."Return Qty. to Receive (Base)", SalesLine."Qty. to Invoice (Base)", SalesHeader.Receive, SalesHeader.Invoice);
        else
            OnCheckItemTrackingQuantityOnDocumentTypeCaseElse(SalesHeader, SalesLine);
    end;
end;

`

Describe the request

Add the "SalesHeader" record to the existing event "OnBeforeCheckItemTrackingQuantity" in the codeunit 80 "Sales-Post".

`

       [IntegrationEvent(false, false)]
local procedure OnBeforeCheckItemTrackingQuantity(SalesLine: Record "Sales Line"; var IsHandled: Boolean; SalesHeader: Record "Sales Header")
begin
end;

`
Internal work item: AB#625399

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add the SalesHeader parameter to the existing event OnBeforeCheckItemTrackingQuantity in Codeunit 80 "Sales-Post".

Location in CheckItemTrackingQuantity procedure (around line 2545):

local procedure CheckItemTrackingQuantity(var SalesLine: Record "Sales Line"; var SalesHeader: Record "Sales Header")
var
    TrackingSpecification: Record "Tracking Specification";
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeCheckItemTrackingQuantity(SalesLine, IsHandled, SalesHeader);  // <-- Add SalesHeader parameter
    if IsHandled then
        exit;
    SyncSurPlusItemTracking(SalesHeader, SalesLine);
    case SalesHeader."Document Type" of
        SalesHeader."Document Type"::Order, SalesHeader."Document Type"::Invoice:
            TrackingSpecification.CheckItemTrackingQuantity(DATABASE::"Sales Line", SalesLine."Document Type".AsInteger(), SalesLine."Document No.", SalesLine."Line No.", SalesLine."Qty. to Ship (Base)", SalesLine."Qty. to Invoice (Base)", SalesHeader.Ship, SalesHeader.Invoice);
        SalesHeader."Document Type"::"Credit Memo", SalesHeader."Document Type"::"Return Order":
            TrackingSpecification.CheckItemTrackingQuantity(DATABASE::"Sales Line", SalesLine."Document Type".AsInteger(), SalesLine."Document No.", SalesLine."Line No.", SalesLine."Return Qty. to Receive (Base)", SalesLine."Qty. to Invoice (Base)", SalesHeader.Receive, SalesHeader.Invoice);
        else
            OnCheckItemTrackingQuantityOnDocumentTypeCaseElse(SalesHeader, SalesLine);
    end;
end;

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

/// <summary>
/// Raised before checking item tracking quantity on a sales line.
/// </summary>
/// <param name="SalesLine">The sales line to check.</param>
/// <param name="IsHandled">Set to true to skip the default quantity check.</param>
/// <param name="SalesHeader">The sales header of the document being posted.</param>
[IntegrationEvent(false, false)]
local procedure OnBeforeCheckItemTrackingQuantity(SalesLine: Record "Sales Line"; var IsHandled: Boolean; SalesHeader: Record "Sales Header")
begin
end;

---

File: SalesPost.Codeunit.al

[JesperSchulz]

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.

Build ID: 47814.