[Event Request] codeunit 22 "Item Jnl.-Post Line" procedure CheckExpirationDate event OnCheckExpirationDateOnBeforeAssignExpirationDate

[kmistrytnp]

Why do you need this change?

I would like 3 additional parameters added to the OnCheckExpirationDateOnBeforeAssignExpirationDate event so that I can create similar code/logic to the standard code (although slightly modified) and handle the event using the existing IsHandled param.

Note: As this is an integration event, adding extra parameters is not a breaking change, and existing subscribers will be unaffected

Describe the request

I would like 3 additional parameters added to the OnCheckExpirationDateOnBeforeAssignExpirationDate event...

GlobalItemTrackingCode
ItemJnlLine2
SignFactor

Current event signature...

    [IntegrationEvent(false, false)]
    local procedure OnCheckExpirationDateOnBeforeAssignExpirationDate(var TempTrackingSpecification: Record "Tracking Specification" temporary; ExistingExpirationDate: Date; var IsHandled: Boolean)
    begin
    end;

New event signature...

    [IntegrationEvent(false, false)]
    local procedure OnCheckExpirationDateOnBeforeAssignExpirationDate(var TempTrackingSpecification: Record "Tracking Specification" temporary; ExistingExpirationDate: Date; GlobalItemTrackingCode: Record "Item Tracking Code"; ItemJnlLine2: Record "Item Journal Line"; SignFactor: Integer; var IsHandled: Boolean)
    begin
    end;

Internal work item: AB#642240

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add GlobalItemTrackingCode, ItemJnlLine2, and SignFactor to OnCheckExpirationDateOnBeforeAssignExpirationDate, and pass them from CheckExpirationDate() before the standard expiration date assignment logic.

Location in CheckExpirationDate() procedure:

        if not (EntriesExist or ExpirationDateChecked) then begin
            ItemTrackingMgt.TestExpDateOnTrackingSpec(TempTrackingSpecification);
            ExpirationDateChecked := true;
        end;
        IsHandled := false;
        OnCheckExpirationDateOnBeforeAssignExpirationDate(
            TempTrackingSpecification, ExistingExpirationDate, IsHandled, GlobalItemTrackingCode, ItemJnlLine2, SignFactor);
        if not IsHandled then
            if ItemJnlLine2."Entry Type" = ItemJnlLine2."Entry Type"::Transfer then
                if TempTrackingSpecification."Expiration Date" = 0D then
                    TempTrackingSpecification."Expiration Date" := ExistingExpirationDate;

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

    [IntegrationEvent(false, false)]
    local procedure OnCheckExpirationDateOnBeforeAssignExpirationDate(
        var TempTrackingSpecification: Record "Tracking Specification" temporary; ExistingExpirationDate: Date; var IsHandled: Boolean;
        GlobalItemTrackingCode: Record "Item Tracking Code"; ItemJnlLine2: Record "Item Journal Line"; SignFactor: Integer)
    begin
    end;

---

File: ItemJnlPostLine.Codeunit.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.

[kmistrytnp]

Yes, that's exactly what is needed