From 6154f086ee7164dcad33bb4d06f1d37ad28a51c8 Mon Sep 17 00:00:00 2001
From: Bert Verbeek <bverbeek@4ps.nl>
Date: Mon, 12 Jan 2026 14:29:32 +0100
Subject: [PATCH] Add Remaining Amount field and calculation to General Ledger
 Entries Review page

---
 .../GeneralLedgerEntriesReview.PageExt.al     | 23 +++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/Apps/W1/ReviewGLEntries/app/src/pages/GeneralLedgerEntriesReview.PageExt.al b/Apps/W1/ReviewGLEntries/app/src/pages/GeneralLedgerEntriesReview.PageExt.al
index 07cc63b281..a8d7894da3 100644
--- a/Apps/W1/ReviewGLEntries/app/src/pages/GeneralLedgerEntriesReview.PageExt.al
+++ b/Apps/W1/ReviewGLEntries/app/src/pages/GeneralLedgerEntriesReview.PageExt.al
@@ -4,6 +4,20 @@ using Microsoft.Finance.GeneralLedger.Ledger;
 
 pageextension 22204 "General Ledger Entries Review" extends "General Ledger Entries"
 {
+    layout
+    {
+        addafter(Amount)
+        {
+            field(RemainingAmount; RemainingAmount)
+            {
+                ApplicationArea = Basic, Suite;
+                Caption = 'Remaining Amount';
+                Editable = false;
+                ToolTip = 'Specifies the remaining amount that can be reviewed.';
+            }
+        }
+    }
+
     actions
     {
         addfirst("Ent&ry")
@@ -29,4 +43,13 @@ pageextension 22204 "General Ledger Entries Review" extends "General Ledger Entr
             }
         }
     }
+
+    trigger OnAfterGetRecord()
+    begin
+        Rec.CalcFields("Reviewed Amount");
+        RemainingAmount := Rec.Amount - Rec."Reviewed Amount";
+    end;
+
+    var
+        RemainingAmount: Decimal;
 }
\ No newline at end of file