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"
///
/// Deferral posting buffer to copy from
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;
///
@@ -1218,8 +1215,9 @@ table 17 "G/L Entry"
///
/// G/L entry being updated
/// Source deferral posting buffer
+ /// Test flag
[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