From 3d169bc87e2c73d5d03acb987e5337e4bee88297 Mon Sep 17 00:00:00 2001
From: MarkoAleksandric <maleksandric@microsoft.com>
Date: Thu, 30 Jul 2026 22:41:28 +0200
Subject: [PATCH] Ext fix issue 29078: Add OnBeforeTestTransferLine event to
 Transfer Header table

---
 .../IT/BaseApp/Inventory/Transfer/TransferHeader.Table.al  | 7 +++++++
 .../NA/BaseApp/Inventory/Transfer/TransferHeader.Table.al  | 7 +++++++
 .../RU/BaseApp/Inventory/Transfer/TransferHeader.Table.al  | 7 +++++++
 .../W1/BaseApp/Inventory/Transfer/TransferHeader.Table.al  | 7 +++++++
 4 files changed, 28 insertions(+)

diff --git a/src/Layers/IT/BaseApp/Inventory/Transfer/TransferHeader.Table.al b/src/Layers/IT/BaseApp/Inventory/Transfer/TransferHeader.Table.al
index 7eff477db35..0b4b6dda4cd 100644
--- a/src/Layers/IT/BaseApp/Inventory/Transfer/TransferHeader.Table.al
+++ b/src/Layers/IT/BaseApp/Inventory/Transfer/TransferHeader.Table.al
@@ -1779,6 +1779,8 @@ table 5740 "Transfer Header"
     var
         DummyTrackingSpecification: Record "Tracking Specification";
     begin
+        OnBeforeTestTransferLine(TransferLine, Ship);
+
         if Ship then
             DummyTrackingSpecification.CheckItemTrackingQuantity(Database::"Transfer Line", 0, "No.", TransferLine."Line No.",
                 TransferLine."Qty. to Ship (Base)", TransferLine."Qty. to Ship (Base)", true, false)
@@ -2168,4 +2170,9 @@ table 5740 "Transfer Header"
     local procedure OnUpdateTransLinesOnAfterUpdateFromDirectTransfer(var TransferLine: Record "Transfer Line"; TempTransferLine: Record "Transfer Line")
     begin
     end;
+
+    [IntegrationEvent(false, false)]
+    local procedure OnBeforeTestTransferLine(TransferLine: Record "Transfer Line"; Ship: Boolean)
+    begin
+    end;
 }
diff --git a/src/Layers/NA/BaseApp/Inventory/Transfer/TransferHeader.Table.al b/src/Layers/NA/BaseApp/Inventory/Transfer/TransferHeader.Table.al
index c8f286192c5..9700cd664aa 100644
--- a/src/Layers/NA/BaseApp/Inventory/Transfer/TransferHeader.Table.al
+++ b/src/Layers/NA/BaseApp/Inventory/Transfer/TransferHeader.Table.al
@@ -1664,6 +1664,8 @@ table 5740 "Transfer Header"
     var
         DummyTrackingSpecification: Record "Tracking Specification";
     begin
+        OnBeforeTestTransferLine(TransferLine, Ship);
+
         if Ship then
             DummyTrackingSpecification.CheckItemTrackingQuantity(Database::"Transfer Line", 0, "No.", TransferLine."Line No.",
                 TransferLine."Qty. to Ship (Base)", TransferLine."Qty. to Ship (Base)", true, false)
@@ -2053,4 +2055,9 @@ table 5740 "Transfer Header"
     local procedure OnUpdateTransLinesOnAfterUpdateFromDirectTransfer(var TransferLine: Record "Transfer Line"; TempTransferLine: Record "Transfer Line")
     begin
     end;
+
+    [IntegrationEvent(false, false)]
+    local procedure OnBeforeTestTransferLine(TransferLine: Record "Transfer Line"; Ship: Boolean)
+    begin
+    end;
 }
diff --git a/src/Layers/RU/BaseApp/Inventory/Transfer/TransferHeader.Table.al b/src/Layers/RU/BaseApp/Inventory/Transfer/TransferHeader.Table.al
index 8a51a38d18f..265e8d6d656 100644
--- a/src/Layers/RU/BaseApp/Inventory/Transfer/TransferHeader.Table.al
+++ b/src/Layers/RU/BaseApp/Inventory/Transfer/TransferHeader.Table.al
@@ -1592,6 +1592,8 @@ table 5740 "Transfer Header"
     var
         DummyTrackingSpecification: Record "Tracking Specification";
     begin
+        OnBeforeTestTransferLine(TransferLine, Ship);
+
         if Ship then
             DummyTrackingSpecification.CheckItemTrackingQuantity(Database::"Transfer Line", 0, "No.", TransferLine."Line No.",
                 TransferLine."Qty. to Ship (Base)", TransferLine."Qty. to Ship (Base)", true, false)
@@ -1981,4 +1983,9 @@ table 5740 "Transfer Header"
     local procedure OnUpdateTransLinesOnAfterUpdateFromDirectTransfer(var TransferLine: Record "Transfer Line"; TempTransferLine: Record "Transfer Line")
     begin
     end;
+
+    [IntegrationEvent(false, false)]
+    local procedure OnBeforeTestTransferLine(TransferLine: Record "Transfer Line"; Ship: Boolean)
+    begin
+    end;
 }
diff --git a/src/Layers/W1/BaseApp/Inventory/Transfer/TransferHeader.Table.al b/src/Layers/W1/BaseApp/Inventory/Transfer/TransferHeader.Table.al
index 32676f80305..0f61480f583 100644
--- a/src/Layers/W1/BaseApp/Inventory/Transfer/TransferHeader.Table.al
+++ b/src/Layers/W1/BaseApp/Inventory/Transfer/TransferHeader.Table.al
@@ -1573,6 +1573,8 @@ table 5740 "Transfer Header"
     var
         DummyTrackingSpecification: Record "Tracking Specification";
     begin
+        OnBeforeTestTransferLine(TransferLine, Ship);
+
         if Ship then
             DummyTrackingSpecification.CheckItemTrackingQuantity(Database::"Transfer Line", 0, "No.", TransferLine."Line No.",
                 TransferLine."Qty. to Ship (Base)", TransferLine."Qty. to Ship (Base)", true, false)
@@ -1962,4 +1964,9 @@ table 5740 "Transfer Header"
     local procedure OnUpdateTransLinesOnAfterUpdateFromDirectTransfer(var TransferLine: Record "Transfer Line"; TempTransferLine: Record "Transfer Line")
     begin
     end;
+
+    [IntegrationEvent(false, false)]
+    local procedure OnBeforeTestTransferLine(TransferLine: Record "Transfer Line"; Ship: Boolean)
+    begin
+    end;
 }