[Event Request] codeunit 22 "Item Jnl.-Post Line" procedure TestFirstApplyItemLedgerEntryTracking

[kmistrytnp]

Why do you need this change?

I need to provide better error messages for the user, the current error messages make references to the "Item Journal Line" record - which is a temporary record for document postings (such as a Sales Order or Purchase Invoice) - so the user cannot tell from the error message which document line or which specific Item is missing the Item Tracking (Serial/Lot).

I also need to skip the lot checking in a specific scenario, so I would like the ItemTrackingCode parameter to be a var parameter so I can amend it accordingly.

I therefore want to do the check myself and error with a better error message BEFORE the standard code by having an OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry, OldItemLedgEntry, ItemTrackingCode) event at the start.

Describe the request

The following to be added at the start

OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry, OldItemLedgEntry, ItemTrackingCode);

Event procedure created as follows

    [IntegrationEvent(false, false)]
    local procedure OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; var ItemTrackingCode: Record "Item Tracking Code")
    begin
    end;

Internal work item: AB#642242

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add a new integration event at the start of TestFirstApplyItemLedgerEntryTracking() so extensions can adjust ItemTrackingCode before the standard tracking validation runs.

Location in TestFirstApplyItemLedgerEntryTracking() procedure:

local procedure TestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code");
begin
    OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry, OldItemLedgEntry, ItemTrackingCode);

    if ItemTrackingCode."SN Specific Tracking" then
        OldItemLedgEntry.TestField("Serial No.", ItemLedgEntry."Serial No.");
    if ItemLedgEntry."Drop Shipment" and (OldItemLedgEntry."Serial No." <> '') then
        OldItemLedgEntry.TestField("Serial No.", ItemLedgEntry."Serial No.");

    if ItemTrackingCode."Lot Specific Tracking" then
        OldItemLedgEntry.TestField("Lot No.", ItemLedgEntry."Lot No.");
    if ItemLedgEntry."Drop Shipment" and (OldItemLedgEntry."Lot No." <> '') then
        OldItemLedgEntry.TestField("Lot No.", ItemLedgEntry."Lot No.");

    OnAfterTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry, OldItemLedgEntry, ItemTrackingCode);
end;

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

[IntegrationEvent(false, false)]
local procedure OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgerEntry: Record "Item Ledger Entry"; OldItemLedgerEntry: Record "Item Ledger Entry"; var ItemTrackingCode: Record "Item Tracking Code")
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