diff --git a/src/Layers/APAC/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al b/src/Layers/APAC/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al index 9818cb772e..0eaea0946e 100644 --- a/src/Layers/APAC/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al +++ b/src/Layers/APAC/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al @@ -1844,6 +1844,8 @@ codeunit 22 "Item Jnl.-Post Line" 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 @@ -7449,6 +7451,11 @@ codeunit 22 "Item Jnl.-Post Line" begin end; + [IntegrationEvent(false, false)] + local procedure OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgerEntry: Record "Item Ledger Entry"; OldItemLedgerEntry: Record "Item Ledger Entry"; var ItemTrackingCode: Record "Item Tracking Code") + begin + end; + [IntegrationEvent(false, false)] local procedure OnAfterTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code") begin @@ -8996,4 +9003,3 @@ codeunit 22 "Item Jnl.-Post Line" begin end; } - diff --git a/src/Layers/CH/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al b/src/Layers/CH/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al index d4f3dcda3f..9fa0655e87 100644 --- a/src/Layers/CH/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al +++ b/src/Layers/CH/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al @@ -1842,6 +1842,8 @@ codeunit 22 "Item Jnl.-Post Line" 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 @@ -7420,6 +7422,11 @@ codeunit 22 "Item Jnl.-Post Line" begin end; + [IntegrationEvent(false, false)] + local procedure OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgerEntry: Record "Item Ledger Entry"; OldItemLedgerEntry: Record "Item Ledger Entry"; var ItemTrackingCode: Record "Item Tracking Code") + begin + end; + [IntegrationEvent(false, false)] local procedure OnAfterTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code") begin @@ -8967,4 +8974,3 @@ codeunit 22 "Item Jnl.-Post Line" begin end; } - diff --git a/src/Layers/ES/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al b/src/Layers/ES/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al index 0faa5f3f7d..327010e1d6 100644 --- a/src/Layers/ES/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al +++ b/src/Layers/ES/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al @@ -1842,6 +1842,8 @@ codeunit 22 "Item Jnl.-Post Line" 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 @@ -7430,6 +7432,11 @@ codeunit 22 "Item Jnl.-Post Line" begin end; + [IntegrationEvent(false, false)] + local procedure OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgerEntry: Record "Item Ledger Entry"; OldItemLedgerEntry: Record "Item Ledger Entry"; var ItemTrackingCode: Record "Item Tracking Code") + begin + end; + [IntegrationEvent(false, false)] local procedure OnAfterTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code") begin @@ -8977,4 +8984,3 @@ codeunit 22 "Item Jnl.-Post Line" begin end; } - diff --git a/src/Layers/IT/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al b/src/Layers/IT/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al index 285fe0ebb5..de1bd51ec7 100644 --- a/src/Layers/IT/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al +++ b/src/Layers/IT/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al @@ -1857,6 +1857,8 @@ codeunit 22 "Item Jnl.-Post Line" 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 @@ -7447,6 +7449,11 @@ codeunit 22 "Item Jnl.-Post Line" begin end; + [IntegrationEvent(false, false)] + local procedure OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgerEntry: Record "Item Ledger Entry"; OldItemLedgerEntry: Record "Item Ledger Entry"; var ItemTrackingCode: Record "Item Tracking Code") + begin + end; + [IntegrationEvent(false, false)] local procedure OnAfterTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code") begin @@ -8994,4 +9001,3 @@ codeunit 22 "Item Jnl.-Post Line" begin end; } - diff --git a/src/Layers/RU/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al b/src/Layers/RU/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al index 6edf1a19b2..796989fcb7 100644 --- a/src/Layers/RU/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al +++ b/src/Layers/RU/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al @@ -1860,6 +1860,8 @@ codeunit 22 "Item Jnl.-Post Line" 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 @@ -7765,6 +7767,11 @@ codeunit 22 "Item Jnl.-Post Line" begin end; + [IntegrationEvent(false, false)] + local procedure OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgerEntry: Record "Item Ledger Entry"; OldItemLedgerEntry: Record "Item Ledger Entry"; var ItemTrackingCode: Record "Item Tracking Code") + begin + end; + [IntegrationEvent(false, false)] local procedure OnAfterTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code") begin @@ -9312,4 +9319,3 @@ codeunit 22 "Item Jnl.-Post Line" begin end; } - diff --git a/src/Layers/W1/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al index dc001de1aa..05a4913af1 100644 --- a/src/Layers/W1/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al @@ -1842,6 +1842,8 @@ codeunit 22 "Item Jnl.-Post Line" 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 @@ -7416,6 +7418,11 @@ codeunit 22 "Item Jnl.-Post Line" begin end; + [IntegrationEvent(false, false)] + local procedure OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgerEntry: Record "Item Ledger Entry"; OldItemLedgerEntry: Record "Item Ledger Entry"; var ItemTrackingCode: Record "Item Tracking Code") + begin + end; + [IntegrationEvent(false, false)] local procedure OnAfterTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code") begin @@ -8963,4 +8970,3 @@ codeunit 22 "Item Jnl.-Post Line" begin end; } -