From fdab0f022e11a81783a00e9a8d98dbed8c3623df Mon Sep 17 00:00:00 2001
From: Alexander Yakunin <ayakunin@microsoft.com>
Date: Mon, 20 Jul 2026 19:38:59 +0200
Subject: [PATCH] Test-Code-Reviewer-Comments

---
 .../GeneralLedger/Ledger/GLEntry.Table.al       | 14 ++++++--------
 .../GeneralLedger/Ledger/GLEntryES.TableExt.al  | 17 +++++++++++++++++
 2 files changed, 23 insertions(+), 8 deletions(-)
 create mode 100644 src/Layers/ES/BaseApp/Local/Finance/GeneralLedger/Ledger/GLEntryES.TableExt.al

diff --git a/src/Layers/ES/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al b/src/Layers/ES/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al
index 5de482ebc1..8a5f3953b3 100644
--- a/src/Layers/ES/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al
+++ b/src/Layers/ES/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al
@@ -789,10 +789,6 @@ table 17 "G/L Entry"
             Caption = 'Period Trans. No.';
             DataClassification = SystemMetadata;
         }
-        field(7000000; "Bill No."; Code[20])
-        {
-            Caption = 'Bill No.';
-        }
     }
 
     keys
@@ -844,7 +840,7 @@ table 17 "G/L Entry"
         key(Key12; "VAT Bus. Posting Group", "VAT Prod. Posting Group")
         {
         }
-        key(Key13; "G/L Account No.", "Document No.", "Bill No.")
+        key(Key13; "G/L Account No.", "Document No.")
         {
             SumIndexFields = Amount, "Additional-Currency Amount";
         }
@@ -1060,7 +1056,6 @@ table 17 "G/L Entry"
         "No. Series" := GenJnlLine."Posting No. Series";
         "IC Partner Code" := GenJnlLine."IC Partner Code";
         "Prod. Order No." := GenJnlLine."Prod. Order No.";
-        "Bill No." := GenJnlLine."Bill No.";
 
         OnAfterCopyGLEntryFromGenJnlLine(Rec, GenJnlLine);
     end;
@@ -1158,6 +1153,8 @@ table 17 "G/L Entry"
     /// </summary>
     /// <param name="DeferralPostBuffer">Deferral posting buffer to copy from</param>
     procedure CopyFromDeferralPostBuffer(DeferralPostBuffer: Record "Deferral Posting Buffer")
+    var
+        Test: Boolean;
     begin
         "System-Created Entry" := DeferralPostBuffer."System-Created Entry";
         "Gen. Posting Type" := DeferralPostBuffer."Gen. Posting Type";
@@ -1170,7 +1167,7 @@ table 17 "G/L Entry"
         "Tax Group Code" := DeferralPostBuffer."Tax Group Code";
         "Use Tax" := DeferralPostBuffer."Use Tax";
 
-        OnAfterCopyFromDeferralPostBuffer(Rec, DeferralPostBuffer);
+        OnAfterCopyFromDeferralPostBuffer(Rec, DeferralPostBuffer, Test);
     end;
 
     /// <summary>
@@ -1218,8 +1215,9 @@ table 17 "G/L Entry"
     /// </summary>
     /// <param name="GLEntry">G/L entry being updated</param>
     /// <param name="DeferralPostingBuffer">Source deferral posting buffer</param>
+    /// <param name="Test">Test flag</param>
     [IntegrationEvent(false, false)]
-    local procedure OnAfterCopyFromDeferralPostBuffer(var GLEntry: Record "G/L Entry"; DeferralPostingBuffer: Record "Deferral Posting Buffer")
+    local procedure OnAfterCopyFromDeferralPostBuffer(var GLEntry: Record "G/L Entry"; DeferralPostingBuffer: Record "Deferral Posting Buffer"; Test: Boolean)
     begin
     end;
 
diff --git a/src/Layers/ES/BaseApp/Local/Finance/GeneralLedger/Ledger/GLEntryES.TableExt.al b/src/Layers/ES/BaseApp/Local/Finance/GeneralLedger/Ledger/GLEntryES.TableExt.al
new file mode 100644
index 0000000000..d3cbda2a81
--- /dev/null
+++ b/src/Layers/ES/BaseApp/Local/Finance/GeneralLedger/Ledger/GLEntryES.TableExt.al
@@ -0,0 +1,17 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+namespace Microsoft.Finance.GeneralLedger.Ledger;
+
+tableextension 7000017 "G/L Entry ES" extends "G/L Entry"
+{
+    fields
+    {
+        field(7000000; "Bill No."; Code[20])
+        {
+            Caption = 'Bill No.';
+            DataClassification = CustomerContent;
+        }
+    }
+}
\ No newline at end of file