From 5971f612c0cc865ba15282652888e14c0e95e9c4 Mon Sep 17 00:00:00 2001 From: MarkoAleksandric Date: Wed, 15 Jul 2026 10:02:39 +0200 Subject: [PATCH] Ext fix issue 30349: add OnBeforeCheckTrackingIfRequired event to Item Journal Line Co-authored-by: Copilot <223556219+Copilot@users.noreply.github.com> --- .../APAC/BaseApp/Inventory/Journal/ItemJournalLine.Table.al | 6 ++++++ .../CH/BaseApp/Inventory/Journal/ItemJournalLine.Table.al | 6 ++++++ .../ES/BaseApp/Inventory/Journal/ItemJournalLine.Table.al | 6 ++++++ .../FR/BaseApp/Inventory/Journal/ItemJournalLine.Table.al | 6 ++++++ .../GB/BaseApp/Inventory/Journal/ItemJournalLine.Table.al | 6 ++++++ .../IT/BaseApp/Inventory/Journal/ItemJournalLine.Table.al | 6 ++++++ .../RU/BaseApp/Inventory/Journal/ItemJournalLine.Table.al | 6 ++++++ .../W1/BaseApp/Inventory/Journal/ItemJournalLine.Table.al | 6 ++++++ 8 files changed, 48 insertions(+) diff --git a/src/Layers/APAC/BaseApp/Inventory/Journal/ItemJournalLine.Table.al b/src/Layers/APAC/BaseApp/Inventory/Journal/ItemJournalLine.Table.al index 61f8be3651..72f926814d 100644 --- a/src/Layers/APAC/BaseApp/Inventory/Journal/ItemJournalLine.Table.al +++ b/src/Layers/APAC/BaseApp/Inventory/Journal/ItemJournalLine.Table.al @@ -3665,6 +3665,7 @@ table 83 "Item Journal Line" /// Item tracking setup to use. procedure CheckTrackingIfRequired(ItemTrackingSetup: Record "Item Tracking Setup") begin + OnBeforeCheckTrackingIfRequired(Rec, ItemTrackingSetup); if ItemTrackingSetup."Serial No. Required" then TestField("Serial No."); if ItemTrackingSetup."Lot No. Required" then @@ -4946,6 +4947,11 @@ table 83 "Item Journal Line" begin end; + [IntegrationEvent(false, false)] + local procedure OnBeforeCheckTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); + begin + end; + [IntegrationEvent(false, false)] local procedure OnAfterCheckNewTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); begin diff --git a/src/Layers/CH/BaseApp/Inventory/Journal/ItemJournalLine.Table.al b/src/Layers/CH/BaseApp/Inventory/Journal/ItemJournalLine.Table.al index fd7b6dd63e..37f9292108 100644 --- a/src/Layers/CH/BaseApp/Inventory/Journal/ItemJournalLine.Table.al +++ b/src/Layers/CH/BaseApp/Inventory/Journal/ItemJournalLine.Table.al @@ -3707,6 +3707,7 @@ table 83 "Item Journal Line" /// Item tracking setup to use. procedure CheckTrackingIfRequired(ItemTrackingSetup: Record "Item Tracking Setup") begin + OnBeforeCheckTrackingIfRequired(Rec, ItemTrackingSetup); if ItemTrackingSetup."Serial No. Required" then TestField("Serial No."); if ItemTrackingSetup."Lot No. Required" then @@ -4988,6 +4989,11 @@ table 83 "Item Journal Line" begin end; + [IntegrationEvent(false, false)] + local procedure OnBeforeCheckTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); + begin + end; + [IntegrationEvent(false, false)] local procedure OnAfterCheckNewTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); begin diff --git a/src/Layers/ES/BaseApp/Inventory/Journal/ItemJournalLine.Table.al b/src/Layers/ES/BaseApp/Inventory/Journal/ItemJournalLine.Table.al index b6355d6e01..3d77ca6253 100644 --- a/src/Layers/ES/BaseApp/Inventory/Journal/ItemJournalLine.Table.al +++ b/src/Layers/ES/BaseApp/Inventory/Journal/ItemJournalLine.Table.al @@ -3675,6 +3675,7 @@ table 83 "Item Journal Line" /// Item tracking setup to use. procedure CheckTrackingIfRequired(ItemTrackingSetup: Record "Item Tracking Setup") begin + OnBeforeCheckTrackingIfRequired(Rec, ItemTrackingSetup); if ItemTrackingSetup."Serial No. Required" then TestField("Serial No."); if ItemTrackingSetup."Lot No. Required" then @@ -4956,6 +4957,11 @@ table 83 "Item Journal Line" begin end; + [IntegrationEvent(false, false)] + local procedure OnBeforeCheckTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); + begin + end; + [IntegrationEvent(false, false)] local procedure OnAfterCheckNewTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); begin diff --git a/src/Layers/FR/BaseApp/Inventory/Journal/ItemJournalLine.Table.al b/src/Layers/FR/BaseApp/Inventory/Journal/ItemJournalLine.Table.al index 987d32bb01..95293d9a96 100644 --- a/src/Layers/FR/BaseApp/Inventory/Journal/ItemJournalLine.Table.al +++ b/src/Layers/FR/BaseApp/Inventory/Journal/ItemJournalLine.Table.al @@ -3669,6 +3669,7 @@ table 83 "Item Journal Line" /// Item tracking setup to use. procedure CheckTrackingIfRequired(ItemTrackingSetup: Record "Item Tracking Setup") begin + OnBeforeCheckTrackingIfRequired(Rec, ItemTrackingSetup); if ItemTrackingSetup."Serial No. Required" then TestField("Serial No."); if ItemTrackingSetup."Lot No. Required" then @@ -4950,6 +4951,11 @@ table 83 "Item Journal Line" begin end; + [IntegrationEvent(false, false)] + local procedure OnBeforeCheckTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); + begin + end; + [IntegrationEvent(false, false)] local procedure OnAfterCheckNewTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); begin diff --git a/src/Layers/GB/BaseApp/Inventory/Journal/ItemJournalLine.Table.al b/src/Layers/GB/BaseApp/Inventory/Journal/ItemJournalLine.Table.al index 186b28273d..b9d6e31353 100644 --- a/src/Layers/GB/BaseApp/Inventory/Journal/ItemJournalLine.Table.al +++ b/src/Layers/GB/BaseApp/Inventory/Journal/ItemJournalLine.Table.al @@ -3669,6 +3669,7 @@ table 83 "Item Journal Line" /// Item tracking setup to use. procedure CheckTrackingIfRequired(ItemTrackingSetup: Record "Item Tracking Setup") begin + OnBeforeCheckTrackingIfRequired(Rec, ItemTrackingSetup); if ItemTrackingSetup."Serial No. Required" then TestField("Serial No."); if ItemTrackingSetup."Lot No. Required" then @@ -4950,6 +4951,11 @@ table 83 "Item Journal Line" begin end; + [IntegrationEvent(false, false)] + local procedure OnBeforeCheckTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); + begin + end; + [IntegrationEvent(false, false)] local procedure OnAfterCheckNewTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); begin diff --git a/src/Layers/IT/BaseApp/Inventory/Journal/ItemJournalLine.Table.al b/src/Layers/IT/BaseApp/Inventory/Journal/ItemJournalLine.Table.al index f1be508f58..8a4afd59cd 100644 --- a/src/Layers/IT/BaseApp/Inventory/Journal/ItemJournalLine.Table.al +++ b/src/Layers/IT/BaseApp/Inventory/Journal/ItemJournalLine.Table.al @@ -3739,6 +3739,7 @@ table 83 "Item Journal Line" /// Item tracking setup to use. procedure CheckTrackingIfRequired(ItemTrackingSetup: Record "Item Tracking Setup") begin + OnBeforeCheckTrackingIfRequired(Rec, ItemTrackingSetup); if ItemTrackingSetup."Serial No. Required" then TestField("Serial No."); if ItemTrackingSetup."Lot No. Required" then @@ -5020,6 +5021,11 @@ table 83 "Item Journal Line" begin end; + [IntegrationEvent(false, false)] + local procedure OnBeforeCheckTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); + begin + end; + [IntegrationEvent(false, false)] local procedure OnAfterCheckNewTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); begin diff --git a/src/Layers/RU/BaseApp/Inventory/Journal/ItemJournalLine.Table.al b/src/Layers/RU/BaseApp/Inventory/Journal/ItemJournalLine.Table.al index 72d4bf8c4c..174e85b4ce 100644 --- a/src/Layers/RU/BaseApp/Inventory/Journal/ItemJournalLine.Table.al +++ b/src/Layers/RU/BaseApp/Inventory/Journal/ItemJournalLine.Table.al @@ -3876,6 +3876,7 @@ table 83 "Item Journal Line" /// Item tracking setup to use. procedure CheckTrackingIfRequired(ItemTrackingSetup: Record "Item Tracking Setup") begin + OnBeforeCheckTrackingIfRequired(Rec, ItemTrackingSetup); if ItemTrackingSetup."Serial No. Required" then TestField("Serial No."); if ItemTrackingSetup."Lot No. Required" then @@ -5157,6 +5158,11 @@ table 83 "Item Journal Line" begin end; + [IntegrationEvent(false, false)] + local procedure OnBeforeCheckTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); + begin + end; + [IntegrationEvent(false, false)] local procedure OnAfterCheckNewTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); begin diff --git a/src/Layers/W1/BaseApp/Inventory/Journal/ItemJournalLine.Table.al b/src/Layers/W1/BaseApp/Inventory/Journal/ItemJournalLine.Table.al index c3d165693c..fe0b216e55 100644 --- a/src/Layers/W1/BaseApp/Inventory/Journal/ItemJournalLine.Table.al +++ b/src/Layers/W1/BaseApp/Inventory/Journal/ItemJournalLine.Table.al @@ -3659,6 +3659,7 @@ table 83 "Item Journal Line" /// Item tracking setup to use. procedure CheckTrackingIfRequired(ItemTrackingSetup: Record "Item Tracking Setup") begin + OnBeforeCheckTrackingIfRequired(Rec, ItemTrackingSetup); if ItemTrackingSetup."Serial No. Required" then TestField("Serial No."); if ItemTrackingSetup."Lot No. Required" then @@ -4940,6 +4941,11 @@ table 83 "Item Journal Line" begin end; + [IntegrationEvent(false, false)] + local procedure OnBeforeCheckTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); + begin + end; + [IntegrationEvent(false, false)] local procedure OnAfterCheckNewTrackingIfRequired(ItemJournalLine: Record "Item Journal Line"; ItemTrackingSetup: Record "Item Tracking Setup"); begin