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