diff --git a/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al b/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al index df90ea9d98..8ce2487bb5 100644 --- a/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al +++ b/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al @@ -206,7 +206,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Cust. Balances Due'; Editable = false; FieldClass = FlowField; @@ -220,7 +221,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balances Due'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/APAC/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al b/src/Layers/APAC/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al index f985105f11..558e9d3e85 100644 --- a/src/Layers/APAC/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al +++ b/src/Layers/APAC/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al @@ -261,6 +261,11 @@ table 380 "Detailed Vendor Ledg. Entry" TableRelation = "G/L Register"; ToolTip = 'Specifies the G/L register number that groups related G/L entries from the same posting.'; } + field(7000004; "Excluded from calculation"; Boolean) + { + Caption = 'Excluded from calculation'; + Editable = false; + } field(17130; "Document Date"; Date) { Caption = 'Document Date'; @@ -273,7 +278,7 @@ table 380 "Detailed Vendor Ledg. Entry" { Clustered = true; } - key(Key2; "Vendor No.", "Currency Code") + key(Key2; "Vendor No.", "Currency Code", "Excluded from calculation") { SumIndexFields = Amount, "Amount (LCY)"; } @@ -281,7 +286,7 @@ table 380 "Detailed Vendor Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key4; "Vendor Ledger Entry No.", "Ledger Entry Amount", "Posting Date") + key(Key4; "Vendor Ledger Entry No.", "Ledger Entry Amount", "Posting Date", "Excluded from calculation") { IncludedFields = "Currency Code", Amount, "Amount (LCY)", "Debit Amount", "Credit Amount", "Debit Amount (LCY)", "Credit Amount (LCY)"; } @@ -289,7 +294,7 @@ table 380 "Detailed Vendor Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key6; "Vendor No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date") + key(Key6; "Vendor No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date", "Excluded from calculation") { IncludedFields = Amount, "Amount (LCY)"; } diff --git a/src/Layers/APAC/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al b/src/Layers/APAC/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al index 565fe7d36b..aefe31f4f1 100644 --- a/src/Layers/APAC/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al +++ b/src/Layers/APAC/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al @@ -103,7 +103,8 @@ table 25 "Vendor Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Vendor Ledg. Entry".Amount where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; ToolTip = 'Specifies the amount that remains to be applied to before the entry is totally applied to.'; Editable = false; @@ -125,7 +126,8 @@ table 25 "Vendor Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/APAC/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/APAC/BaseApp/Purchases/Vendor/Vendor.Table.al index e0f98883da..12205213e2 100644 --- a/src/Layers/APAC/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/APAC/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -483,7 +483,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry".Amount where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -495,7 +496,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -508,7 +510,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -521,7 +524,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -574,7 +578,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -587,7 +592,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/APAC/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/APAC/BaseApp/Sales/Customer/Customer.Table.al index 7787ffa33a..db93536b67 100644 --- a/src/Layers/APAC/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/APAC/BaseApp/Sales/Customer/Customer.Table.al @@ -730,7 +730,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -745,7 +746,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -762,7 +764,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -778,7 +781,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -860,7 +864,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -876,7 +881,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Overdue Balance (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/APAC/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al b/src/Layers/APAC/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al index f6dc18262e..978a754055 100644 --- a/src/Layers/APAC/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al +++ b/src/Layers/APAC/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al @@ -147,7 +147,8 @@ table 21 "Cust. Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; Editable = false; FieldClass = FlowField; @@ -176,7 +177,8 @@ table 21 "Cust. Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; @@ -1203,11 +1205,6 @@ table 21 "Cust. Ledger Entry" } } - trigger OnInsert() - begin - TestField("G/L Register No."); - end; - var #pragma warning disable AA0074 #pragma warning disable AA0470 diff --git a/src/Layers/APAC/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al b/src/Layers/APAC/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al index 67b7eeea39..1540e4ddfb 100644 --- a/src/Layers/APAC/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al +++ b/src/Layers/APAC/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al @@ -380,6 +380,11 @@ table 379 "Detailed Cust. Ledg. Entry" TableRelation = "G/L Register"; ToolTip = 'Specifies the G/L register number that groups related G/L entries from the same posting.'; } + field(7000004; "Excluded from calculation"; Boolean) + { + Caption = 'Excluded from calculation'; + Editable = false; + } field(17130; "Document Date"; Date) { Caption = 'Document Date'; @@ -392,7 +397,7 @@ table 379 "Detailed Cust. Ledg. Entry" { Clustered = true; } - key(Key2; "Customer No.", "Currency Code") + key(Key2; "Customer No.", "Currency Code", "Excluded from calculation") { SumIndexFields = Amount, "Amount (LCY)"; } @@ -404,7 +409,7 @@ table 379 "Detailed Cust. Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key6; "Customer No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date") + key(Key6; "Customer No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date", "Excluded from calculation") { IncludedFields = Amount, "Amount (LCY)"; } @@ -434,7 +439,7 @@ table 379 "Detailed Cust. Ledg. Entry" } key(Key14; "Customer No.", "Initial Entry Due Date") { - IncludedFields = Amount, "Amount (LCY)"; + IncludedFields = Amount, "Amount (LCY)", "Excluded from calculation"; } } diff --git a/src/Layers/BE/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al b/src/Layers/BE/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al index 25113831f7..1a8a7f4f0d 100644 --- a/src/Layers/BE/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al +++ b/src/Layers/BE/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al @@ -207,7 +207,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Cust. Balances Due'; Editable = false; FieldClass = FlowField; @@ -221,7 +222,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balances Due'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/BE/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/BE/BaseApp/Purchases/Vendor/Vendor.Table.al index 5d1c374217..a6a4af0c2e 100644 --- a/src/Layers/BE/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/BE/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -482,7 +482,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry".Amount where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -494,7 +495,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -507,7 +509,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -520,7 +523,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -573,7 +577,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -586,7 +591,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/BE/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/BE/BaseApp/Sales/Customer/Customer.Table.al index 54a52b6dd9..8ee6b0a285 100644 --- a/src/Layers/BE/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/BE/BaseApp/Sales/Customer/Customer.Table.al @@ -730,7 +730,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -745,7 +746,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -762,7 +764,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -778,7 +781,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -860,7 +864,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -876,7 +881,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Overdue Balance (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/BE/BaseApp/Sales/Customer/Statement.Report.al b/src/Layers/BE/BaseApp/Sales/Customer/Statement.Report.al index bc7198bb31..0263d2075f 100644 --- a/src/Layers/BE/BaseApp/Sales/Customer/Statement.Report.al +++ b/src/Layers/BE/BaseApp/Sales/Customer/Statement.Report.al @@ -227,7 +227,7 @@ report 116 Statement } dataitem("Detailed Cust. Ledg. Entry"; "Detailed Cust. Ledg. Entry") { - DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code"); + DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code") where("Excluded from calculation" = const(false)); column(PostDate_DtldCustLedgEntries; Format("Posting Date")) { } diff --git a/src/Layers/CH/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al b/src/Layers/CH/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al index ffcb5f45cd..8a9ade2861 100644 --- a/src/Layers/CH/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al +++ b/src/Layers/CH/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al @@ -206,7 +206,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Cust. Balances Due'; Editable = false; FieldClass = FlowField; @@ -220,7 +221,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balances Due'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/CH/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al b/src/Layers/CH/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al index 2e77b50843..74fdceee01 100644 --- a/src/Layers/CH/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al +++ b/src/Layers/CH/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al @@ -102,7 +102,8 @@ table 25 "Vendor Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Vendor Ledg. Entry".Amount where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; ToolTip = 'Specifies the amount that remains to be applied to before the entry is totally applied to.'; Editable = false; @@ -124,7 +125,8 @@ table 25 "Vendor Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/CH/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/CH/BaseApp/Purchases/Vendor/Vendor.Table.al index e1305f2670..96ea6ff06f 100644 --- a/src/Layers/CH/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/CH/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -482,7 +482,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry".Amount where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -494,7 +495,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -507,7 +509,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -520,7 +523,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -573,7 +577,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -586,7 +591,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/CH/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/CH/BaseApp/Sales/Customer/Customer.Table.al index 845fba3e44..40e2dc9fdb 100644 --- a/src/Layers/CH/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/CH/BaseApp/Sales/Customer/Customer.Table.al @@ -729,7 +729,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -744,7 +745,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -761,7 +763,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -777,7 +780,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -859,7 +863,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -875,7 +880,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Overdue Balance (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/CH/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al b/src/Layers/CH/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al index 166a03ddf9..4bfab62bcc 100644 --- a/src/Layers/CH/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al +++ b/src/Layers/CH/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al @@ -148,7 +148,8 @@ table 21 "Cust. Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; Editable = false; FieldClass = FlowField; @@ -177,7 +178,8 @@ table 21 "Cust. Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/DACH/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al b/src/Layers/DACH/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al index 4779a6cfd2..76b1dcd944 100644 --- a/src/Layers/DACH/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al +++ b/src/Layers/DACH/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al @@ -206,7 +206,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Cust. Balances Due'; Editable = false; FieldClass = FlowField; @@ -220,7 +221,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balances Due'; Editable = false; FieldClass = FlowField; @@ -938,7 +940,6 @@ table 98 "General Ledger Setup" ObsoleteState = Removed; ObsoleteTag = '25.0'; - trigger OnValidate() begin Error(AccSchedObsoleteErr); @@ -1246,7 +1247,7 @@ table 98 "General Ledger Setup" field(188; "Control VAT Period"; Enum "VAT Period Control") { Caption = 'Control VAT Period'; - ToolTip = 'Specifies a way of using VAT Date against VAT Return Periods. If you choose ‘Block posting within closed and warn for released period’, system will not allow postings in closed VAT Return Period, but if the period is not closed, but VAT returns are released or submitted, user will be warned what try to post an entry with VAT Date in this period. If you choose ‘Block posting within closed period’, system will still not allow postings in closed VAT Return Period, but there will be no warnings for release or submitted VAT returns. If you choose ‘Warn when posting in closed period’, system will not block posting entry with VAT Date in the closed VAT return period, but it will show warning message before posting. And if you choose ‘Disabled’ options, system will allow you to post without any control regardless of VAT return or period status.'; + ToolTip = 'Specifies a way of using VAT Date against VAT Return Periods. If you choose Block posting within closed and warn for released period, system will not allow postings in closed VAT Return Period, but if the period is not closed, but VAT returns are released or submitted, user will be warned what try to post an entry with VAT Date in this period. If you choose Block posting within closed period, system will still not allow postings in closed VAT Return Period, but there will be no warnings for release or submitted VAT returns. If you choose ˜Warn when posting in closed period, system will not block posting entry with VAT Date in the closed VAT return period, but it will show warning message before posting. And if you choose ˜Disabled options, system will allow you to post without any control regardless of VAT return or period status.'; trigger OnValidate() begin diff --git a/src/Layers/DACH/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/DACH/BaseApp/Purchases/Vendor/Vendor.Table.al index 3789aa3d4f..e6788cd99a 100644 --- a/src/Layers/DACH/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/DACH/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -482,7 +482,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry".Amount where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -494,7 +495,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -507,7 +509,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -520,7 +523,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -573,7 +577,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -586,7 +591,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/ES/BaseApp/Finance/Currency/Currency.Table.al b/src/Layers/ES/BaseApp/Finance/Currency/Currency.Table.al index 7350615d26..8c66f16f5e 100644 --- a/src/Layers/ES/BaseApp/Finance/Currency/Currency.Table.al +++ b/src/Layers/ES/BaseApp/Finance/Currency/Currency.Table.al @@ -1412,4 +1412,5 @@ table 4 Currency local procedure OnGetGainLossAccountOnOtherEntryType(var Currency: Record Currency; DtldCVLedgEntryBuffer: Record "Detailed CV Ledg. Entry Buffer"; var IsHandled: Boolean; var ReturnValue: Code[20]) begin end; + } diff --git a/src/Layers/ES/BaseApp/Finance/GeneralLedger/Setup/GeneralPostingSetup.Table.al b/src/Layers/ES/BaseApp/Finance/GeneralLedger/Setup/GeneralPostingSetup.Table.al index 7ab5e67843..36ff91fe1e 100644 --- a/src/Layers/ES/BaseApp/Finance/GeneralLedger/Setup/GeneralPostingSetup.Table.al +++ b/src/Layers/ES/BaseApp/Finance/GeneralLedger/Setup/GeneralPostingSetup.Table.al @@ -1726,5 +1726,4 @@ table 252 "General Posting Setup" local procedure OnBeforeGetPurchaseVarianceAccount(var AccountNo: Code[20]; var IsHandled: Boolean) begin end; - } diff --git a/src/Layers/ES/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al b/src/Layers/ES/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al index 526530f474..de57f10c3b 100644 --- a/src/Layers/ES/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al +++ b/src/Layers/ES/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al @@ -431,5 +431,6 @@ table 380 "Detailed Vendor Ledg. Entry" local procedure OnSetZeroTransNoOnBeforeDetailedVendorLedgEntryModify(var DetailedVendorLedgEntry: Record "Detailed Vendor Ledg. Entry") begin end; + } diff --git a/src/Layers/ES/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al b/src/Layers/ES/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al index 6c998daa3f..82d0c93c35 100644 --- a/src/Layers/ES/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al +++ b/src/Layers/ES/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al @@ -1362,5 +1362,6 @@ table 25 "Vendor Ledger Entry" local procedure OnBeforeCheckBillSituation(var VendorLedgerEntry: Record "Vendor Ledger Entry") begin end; + } diff --git a/src/Layers/ES/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/ES/BaseApp/Purchases/Vendor/Vendor.Table.al index 5691d75bbd..e4b730820b 100644 --- a/src/Layers/ES/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/ES/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -3077,5 +3077,4 @@ table 23 Vendor local procedure OnOpenVendorLedgerEntriesOnBeforeDrillDownEntries(var DetailedVendorLedgEntry: Record "Detailed Vendor Ledg. Entry"; FilterOnDueEntries: Boolean; var IsHandled: Boolean) begin end; - } diff --git a/src/Layers/ES/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/ES/BaseApp/Sales/Customer/Customer.Table.al index 9105017c31..0bb1bc43c7 100644 --- a/src/Layers/ES/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/ES/BaseApp/Sales/Customer/Customer.Table.al @@ -5105,5 +5105,4 @@ table 18 Customer local procedure OnAfterGetVATRegistrationNo(var Customer: Record Customer; var VATRegNo: Text[20]); begin end; - } diff --git a/src/Layers/ES/BaseApp/Sales/Customer/MyCustomer.Table.al b/src/Layers/ES/BaseApp/Sales/Customer/MyCustomer.Table.al deleted file mode 100644 index 838ca1a734..0000000000 --- a/src/Layers/ES/BaseApp/Sales/Customer/MyCustomer.Table.al +++ /dev/null @@ -1,111 +0,0 @@ -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Sales.Customer; - -using Microsoft.Sales.Receivables; -using System.Security.AccessControl; - -/// -/// Stores user-specific favorite customers for quick access on the Role Center. -/// -table 9150 "My Customer" -{ - Caption = 'My Customer'; - DataClassification = CustomerContent; - - fields - { - /// - /// Specifies the ID of the user who added this customer to their favorites list. - /// - field(1; "User ID"; Code[50]) - { - Caption = 'User ID'; - DataClassification = EndUserIdentifiableInformation; - TableRelation = User."User Name"; - ValidateTableRelation = false; - } - /// - /// Specifies the number of the customer that appears in the user's favorites list on the Role Center. - /// - field(2; "Customer No."; Code[20]) - { - Caption = 'Customer No.'; - NotBlank = true; - TableRelation = Customer; - ToolTip = 'Specifies the customer numbers that are displayed in the My Customer Cue on the Role Center.'; - - trigger OnValidate() - begin - SetCustomerFields(); - end; - } - /// - /// Stores the customer's name for display purposes in the favorites list. - /// - field(3; Name; Text[100]) - { - Caption = 'Name'; - Editable = false; - ToolTip = 'Specifies the name of the customer.'; - } - /// - /// Stores the customer's phone number for quick reference in the favorites list. - /// - field(4; "Phone No."; Text[30]) - { - Caption = 'Phone No.'; - Editable = false; - ToolTip = 'Specifies the customer''s phone number.'; - } - /// - /// Contains the customer's current balance in local currency, calculated from customer ledger entries. - /// - field(5; "Balance (LCY)"; Decimal) - { - AutoFormatType = 1; - AutoFormatExpression = ''; - CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Customer No." = field("Customer No."), - "Excluded from calculation" = const(false))); - Caption = 'Balance (LCY)'; - Editable = false; - FieldClass = FlowField; - ToolTip = 'Specifies the payment amount that the customer owes for completed sales.'; - } - } - - keys - { - key(Key1; "User ID", "Customer No.") - { - Clustered = true; - } - key(Key2; Name) - { - } - key(Key3; "Phone No.") - { - } - } - - fieldgroups - { - } - - /// - /// Populates the Name and Phone No. fields from the related Customer record. - /// - procedure SetCustomerFields() - var - Customer: Record Customer; - begin - Customer.SetLoadFields("Name", "Phone No."); - if Customer.Get("Customer No.") then begin - Name := Customer.Name; - "Phone No." := Customer."Phone No."; - end; - end; -} - diff --git a/src/Layers/ES/BaseApp/Sales/Customer/StandardStatement.Report.al b/src/Layers/ES/BaseApp/Sales/Customer/StandardStatement.Report.al deleted file mode 100644 index 1b8090e868..0000000000 --- a/src/Layers/ES/BaseApp/Sales/Customer/StandardStatement.Report.al +++ /dev/null @@ -1,1478 +0,0 @@ -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Sales.Customer; - -using Microsoft.CRM.Interaction; -using Microsoft.CRM.Segment; -using Microsoft.Finance.Currency; -using Microsoft.Finance.GeneralLedger.Setup; -using Microsoft.Foundation.Address; -using Microsoft.Foundation.Company; -using Microsoft.Foundation.Reporting; -using Microsoft.Sales.Receivables; -using Microsoft.Sales.Setup; -using System.Email; -using System.Globalization; -using System.Utilities; - -/// -/// Generates standard customer statements with Word and RDLC layout options for email distribution. -/// -report 1316 "Standard Statement" -{ - Caption = 'Customer Statement'; - DefaultRenderingLayout = "StandardStatement.docx"; - WordMergeDataItem = Customer; - - dataset - { - dataitem(Customer; Customer) - { - DataItemTableView = sorting("No."); - PrintOnlyIfDetail = true; - RequestFilterFields = "No.", "Search Name", "Print Statements", "Currency Filter"; - column(No_Cust; "No.") - { - } - dataitem("Integer"; "Integer") - { - DataItemTableView = sorting(Number) where(Number = const(1)); - PrintOnlyIfDetail = true; - column(CompanyPicture; CompanyInfo.Picture) - { - } - column(CompanyInfo1Picture; CompanyInfo1.Picture) - { - } - column(CompanyInfo2Picture; CompanyInfo2.Picture) - { - } - column(CompanyInfo3Picture; CompanyInfo3.Picture) - { - } - column(CustAddr1; CustomerAddress[1]) - { - } - column(CompanyAddr1; CompanyAddress[1]) - { - } - column(CustAddr2; CustomerAddress[2]) - { - } - column(CompanyAddr2; CompanyAddress[2]) - { - } - column(CustAddr3; CustomerAddress[3]) - { - } - column(CompanyAddr3; CompanyAddress[3]) - { - } - column(CustAddr4; CustomerAddress[4]) - { - } - column(CompanyAddr4; CompanyAddress[4]) - { - } - column(CustAddr5; CustomerAddress[5]) - { - } - column(CompanyAddr5; CompanyAddress[5]) - { - } - column(PhoneNo_CompanyInfo; CompanyInfo."Phone No.") - { - } - column(CustAddr6; CustomerAddress[6]) - { - } - column(CompanyAddr6; CompanyAddress[6]) - { - } - column(CompanyInfoEmail; CompanyInfo."E-Mail") - { - } - column(CompanyInfoHomePage; CompanyInfo."Home Page") - { - } - column(VATRegNo_CompanyInfo; CompanyInfo."VAT Registration No.") - { - } - column(GiroNo_CompanyInfo; CompanyInfo."Giro No.") - { - } - column(BankName_CompanyInfo; CompanyInfo."Bank Name") - { - } - column(BankAccNo_CompanyInfo; CompanyInfo."Bank Account No.") - { - } - column(No1_Cust; Customer."No.") - { - } - column(TodayFormatted; Format(Today)) - { - } - column(StartDate; Format(StartDate)) - { - } - column(EndDate; Format(EndDate)) - { - } - column(LastStatmntNo_Cust; Format(Customer."Last Statement No." + 1)) - { - } - column(CustAddr7; CustomerAddress[7]) - { - } - column(CustAddr8; CustomerAddress[8]) - { - } - column(CompanyAddr7; CompanyAddress[7]) - { - } - column(CompanyAddr8; CompanyAddress[8]) - { - } - column(StatementCaption; StatementCaptionLbl) - { - } - column(PhoneNo_CompanyInfoCaption; PhoneNo_CompanyInfoCaptionLbl) - { - } - column(VATRegNo_CompanyInfoCaption; VATRegNo_CompanyInfoCaptionLbl) - { - } - column(GiroNo_CompanyInfoCaption; GiroNo_CompanyInfoCaptionLbl) - { - } - column(BankName_CompanyInfoCaption; BankName_CompanyInfoCaptionLbl) - { - } - column(BankAccNo_CompanyInfoCaption; BankAccNo_CompanyInfoCaptionLbl) - { - } - column(No1_CustCaption; No1_CustCaptionLbl) - { - } - column(StartDateCaption; StartDateCaptionLbl) - { - } - column(EndDateCaption; EndDateCaptionLbl) - { - } - column(LastStatmntNo_CustCaption; LastStatmntNo_CustCaptionLbl) - { - } - column(PostDate_DtldCustLedgEntriesCaption; PostDate_DtldCustLedgEntriesCaptionLbl) - { - } - column(DocNo_DtldCustLedgEntriesCaption; DtldCustLedgEntries.FieldCaption("Document No.")) - { - } - column(Desc_CustLedgEntry2Caption; CustLedgEntry2.FieldCaption(Description)) - { - } - column(DueDate_CustLedgEntry2Caption; DueDate_CustLedgEntry2CaptionLbl) - { - } - column(RemainAmtCustLedgEntry2Caption; CustLedgEntry2.FieldCaption("Remaining Amount")) - { - } - column(CustBalanceCaption; CustBalanceCaptionLbl) - { - } - column(OriginalAmt_CustLedgEntry2Caption; CustLedgEntry2.FieldCaption("Original Amount")) - { - } - column(CompanyInfoHomepageCaption; CompanyInfoHomepageCaptionLbl) - { - } - column(CompanyInfoEmailCaption; CompanyInfoEmailCaptionLbl) - { - } - column(DocDateCaption; DocDateCaptionLbl) - { - } - column(CurrReportPageNoCaption; CurrReportPageNoCaptionLbl) - { - } - column(CompanyLegalOffice; LegalOfficeTxt) - { - } - column(CompanyLegalOffice_Lbl; LegalOfficeLbl) - { - } - dataitem(CurrencyLoop; "Integer") - { - DataItemTableView = sorting(Number) where(Number = filter(1 ..)); - PrintOnlyIfDetail = true; - column(Total_Caption2; Total_CaptionLbl) - { - } - dataitem(CustLedgEntryHdr; "Integer") - { - DataItemTableView = sorting(Number) where(Number = const(1)); - column(Currency2Code_CustLedgEntryHdr; StrSubstNo(EntriesLbl, CurrencyCode3)) - { - } - column(StartBalance; StartBalance) - { - AutoFormatExpression = TempCurrency2.Code; - AutoFormatType = 1; - } - column(CurrencyCode3; CurrencyCode3) - { - } - column(CustBalance_CustLedgEntryHdr; CustBalance) - { - } - column(PrintLine; PrintLine) - { - } - column(DtldCustLedgEntryType; Format(DtldCustLedgEntries."Entry Type", 0, 2)) - { - } - column(EntriesExists; EntriesExists) - { - } - column(IsNewCustCurrencyGroup; IsNewCustCurrencyGroup) - { - } - dataitem(DtldCustLedgEntries; "Detailed Cust. Ledg. Entry") - { - DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code") where("Excluded from calculation" = const(false)); - column(PostDate_DtldCustLedgEntries; Format("Posting Date")) - { - } - column(DocNo_DtldCustLedgEntries; "Document No.") - { - } - column(Description; Description) - { - } - column(YourReference_DtldCustLedgEntries; YourReference) - { - } - column(DueDate_DtldCustLedgEntries; Format(DueDate)) - { - } - column(CurrCode_DtldCustLedgEntries; "Currency Code") - { - } - column(Amt_DtldCustLedgEntries; Amount) - { - AutoFormatExpression = "Currency Code"; - AutoFormatType = 1; - } - column(RemainAmt_DtldCustLedgEntries; RemainingAmount) - { - AutoFormatExpression = "Currency Code"; - AutoFormatType = 1; - } - column(CustBalance; CustBalance) - { - AutoFormatExpression = "Currency Code"; - AutoFormatType = 1; - } - column(Currency2Code; TempCurrency2.Code) - { - } - - trigger OnAfterGetRecord() - var - Skip: Boolean; - begin - if SkipReversedUnapplied(DtldCustLedgEntries) or (Amount = 0) then - CurrReport.Skip(); - RemainingAmount := 0; - PrintLine := true; - YourReference := ''; - case "Entry Type" of - "Entry Type"::"Initial Entry": - begin - CustLedgerEntry.Get("Cust. Ledger Entry No."); - Skip := false; - OnDtldCustLedgEntriesOnAfterGetRecordnAfterGetCustLedgerEntry(DtldCustLedgEntries, CustLedgerEntry, Skip); - if Skip then - CurrReport.Skip(); - YourReference := CustLedgerEntry."Your Reference"; - Description := CustLedgerEntry.Description; - DueDate := CustLedgerEntry."Due Date"; - CustLedgerEntry.SetRange("Date Filter", 0D, EndDate); - CustLedgerEntry.CalcFields("Remaining Amount"); - RemainingAmount := CustLedgerEntry."Remaining Amount"; - CustLedgerEntry.SetRange("Date Filter"); - end; - "Entry Type"::Application: - begin - DetailedCustLedgEntry2.SetCurrentKey("Customer No.", "Posting Date", "Entry Type"); - DetailedCustLedgEntry2.SetRange("Customer No.", "Customer No."); - DetailedCustLedgEntry2.SetRange("Posting Date", "Posting Date"); - DetailedCustLedgEntry2.SetRange("Entry Type", "Entry Type"::Application); - DetailedCustLedgEntry2.SetRange("Transaction No.", "Transaction No."); - DetailedCustLedgEntry2.SetFilter("Currency Code", '<>%1', "Currency Code"); - if not DetailedCustLedgEntry2.IsEmpty() then begin - Description := MulticurrencyAppLbl; - DueDate := 0D; - end else - CurrReport.Skip(); - end; - "Entry Type"::"Payment Discount", - "Entry Type"::"Payment Discount (VAT Excl.)", - "Entry Type"::"Payment Discount (VAT Adjustment)", - "Entry Type"::"Payment Discount Tolerance", - "Entry Type"::"Payment Discount Tolerance (VAT Excl.)", - "Entry Type"::"Payment Discount Tolerance (VAT Adjustment)": - begin - Description := PaymentDiscountLbl; - DueDate := 0D; - end; - "Entry Type"::"Payment Tolerance", - "Entry Type"::"Payment Tolerance (VAT Excl.)", - "Entry Type"::"Payment Tolerance (VAT Adjustment)": - begin - Description := WriteoffsLbl; - DueDate := 0D; - end; - "Entry Type"::"Appln. Rounding", - "Entry Type"::"Correction of Remaining Amount": - begin - Description := RoundingLbl; - DueDate := 0D; - end; - end; - - if PrintLine then begin - if StatementStyle = StatementStyle::"Open Item" then - if RemainingAmount = 0 then - CurrReport.Skip(); - - NumberOfCustLedgerEntryLines += 1; - if StatementStyle = StatementStyle::"Open Item" then - CustBalance += RemainingAmount - else - CustBalance := CustBalance + Amount; - IsNewCustCurrencyGroup := IsFirstPrintLine; - IsFirstPrintLine := false; - ClearCompanyPicture(); - end; - end; - - trigger OnPreDataItem() - begin - SetRange("Customer No.", Customer."No."); - SetRange("Posting Date", StartDate, EndDate); - SetRange("Currency Code", TempCurrency2.Code); - if StatementStyle = StatementStyle::"Open Item" then - SetRange("Entry Type", "Entry Type"::"Initial Entry"); - OnDtldCustLedgEntriesOnPreDataItemOnAfterSetFilters(DtldCustLedgEntries); - if TempCurrency2.Code = '' then begin - GLSetup.TestField("LCY Code"); - CurrencyCode3 := GLSetup."LCY Code" - end else - CurrencyCode3 := TempCurrency2.Code; - - IsFirstPrintLine := true; - end; - } - } - dataitem(CustLedgEntryFooter; "Integer") - { - DataItemTableView = sorting(Number) where(Number = const(1)); - column(CurrencyCode3_CustLedgEntryFooter; CurrencyCode3) - { - } - column(Total_Caption; Total_CaptionLbl) - { - } - column(CustBalance_CustLedgEntryHdrFooter; CustBalance) - { - AutoFormatExpression = TempCurrency2.Code; - AutoFormatType = 1; - } - column(EntriesExistsl_CustLedgEntryFooterCaption; EntriesExists) - { - } - - trigger OnAfterGetRecord() - begin - ClearCompanyPicture(); - end; - } - dataitem(OverdueVisible; "Integer") - { - DataItemTableView = sorting(Number) where(Number = const(1)); - column(Total_Caption3; Total_CaptionLbl) - { - } - column(PostDate_DtldCustLedgEntriesCaption2; PostDate_DtldCustLedgEntriesCaptionLbl) - { - } - column(DocNo_DtldCustLedgEntriesCaption2; DtldCustLedgEntries.FieldCaption("Document No.")) - { - } - column(Desc_CustLedgEntry2Caption2; CustLedgEntry2.FieldCaption(Description)) - { - } - column(DueDate_CustLedgEntry2Caption2; DueDate_CustLedgEntry2CaptionLbl) - { - } - column(RemainAmtCustLedgEntry2Caption2; CustLedgEntry2.FieldCaption("Remaining Amount")) - { - } - column(OriginalAmt_CustLedgEntry2Caption2; CustLedgEntry2.FieldCaption("Original Amount")) - { - } - column(OverDueEntries; StrSubstNo(OverdueEntriesLbl, CurrencyCode3)) - { - } - column(CurrencyCode3_CustLedgEntry2; CurrencyCode3) - { - } - dataitem(CustLedgEntry2; "Cust. Ledger Entry") - { - DataItemLink = "Customer No." = field("No."); - DataItemLinkReference = Customer; - DataItemTableView = sorting("Customer No.", Open, Positive, "Due Date"); - column(RemainAmt_CustLedgEntry2; "Remaining Amount") - { - AutoFormatExpression = "Currency Code"; - AutoFormatType = 1; - } - column(PostDate_CustLedgEntry2; Format("Posting Date")) - { - } - column(DocNo_CustLedgEntry2; "Document No.") - { - } - column(Desc_CustLedgEntry2; Description) - { - } - column(YourReference_CustLedgEntry2; "Your Reference") { } - column(DueDate_CustLedgEntry2; Format("Due Date")) - { - } - column(OriginalAmt_CustLedgEntry2; "Original Amount") - { - AutoFormatExpression = "Currency Code"; - } - column(CurrCode_CustLedgEntry2; "Currency Code") - { - } - column(PrintEntriesDue; PrintEntriesDue) - { - } - column(Currency2Code_CustLedgEntry2; TempCurrency2.Code) - { - } - column(CustNo_CustLedgEntry2; "Customer No.") - { - } - - trigger OnAfterGetRecord() - var - CustLedgEntry: Record "Cust. Ledger Entry"; - begin - if IncludeAgingBand then - if ("Posting Date" > EndDate) and ("Due Date" >= EndDate) then - CurrReport.Skip(); - CustLedgEntry := CustLedgEntry2; - CustLedgEntry.SetRange("Date Filter", 0D, EndDate); - CustLedgEntry.CalcFields("Remaining Amount"); - "Remaining Amount" := CustLedgEntry."Remaining Amount"; - if CustLedgEntry."Remaining Amount" = 0 then - CurrReport.Skip(); - - if "Due Date" >= EndDate then - CurrReport.Skip(); - - CustBalance2 := CustBalance2 + CustLedgEntry."Remaining Amount"; - ClearCompanyPicture(); - end; - - trigger OnPreDataItem() - begin - if not IncludeAgingBand then - SetRange("Due Date", 0D, EndDate - 1); - SetRange("Currency Code", TempCurrency2.Code); - OnCustLedgEntry2OnPreDataItemOnAfterSetFilters(CustLedgEntry2); - if (not PrintEntriesDue) and (not IncludeAgingBand) then - CurrReport.Break(); - end; - } - dataitem(OverdueEntryFooder; "Integer") - { - DataItemTableView = sorting(Number) where(Number = const(1)); - column(OverdueBalance; CustBalance2) - { - } - } - - trigger OnPreDataItem() - begin - if not PrintEntriesDue then - CurrReport.Break(); - end; - } - - trigger OnAfterGetRecord() - var - CustLedgerEntryBalance: Record "Cust. Ledger Entry"; - begin - if Number = 1 then - TempCurrency2.Find('-'); - - repeat - if not IsFirstLoop then - IsFirstLoop := true - else - if TempCurrency2.Next() = 0 then - CurrReport.Break(); - CustLedgerEntry.SetCurrentKey("Customer No.", "Posting Date", "Currency Code"); - CustLedgerEntry.SetRange("Customer No.", Customer."No."); - CustLedgerEntry.SetRange("Posting Date", 0D, EndDate); - CustLedgerEntry.SetRange("Currency Code", TempCurrency2.Code); - EntriesExists := not CustLedgerEntry.IsEmpty(); - until EntriesExists; - - if StatementStyle = StatementStyle::"Open Item" then begin - CustBalance := 0; - StartBalance := 0; - CustLedgerEntryBalance.SetCurrentKey("Customer No.", "Posting Date", "Currency Code"); - CustLedgerEntryBalance.SetRange("Customer No.", Customer."No."); - CustLedgerEntryBalance.SetRange("Posting Date", 0D, StartDate - 1); - CustLedgerEntryBalance.SetRange("Currency Code", TempCurrency2.Code); - CustLedgerEntryBalance.SetRange("Date Filter", 0D, EndDate); - CustLedgerEntryBalance.SetFilter("Remaining Amount", '<>0'); - CustLedgerEntryBalance.SetAutoCalcFields("Remaining Amount"); - if CustLedgerEntryBalance.FindSet() then - repeat - StartBalance += CustLedgerEntryBalance."Remaining Amount"; - until CustLedgerEntryBalance.Next() = 0; - OnCurrencyLoopOnAfterGetRecordOnAfterCalculateStartBalanceStatementTypeOpenItems(Customer, CustLedgerEntryBalance, StartDate, EndDate, TempCurrency2.Code, StartBalance); - end else begin - Cust2 := Customer; - Cust2.SetRange("Date Filter", 0D, StartDate - 1); - Cust2.SetRange("Currency Filter", TempCurrency2.Code); - Cust2.CalcFields("Net Change"); - StartBalance := Cust2."Net Change"; - OnCurrencyLoopOnAfterGetRecordOnAfterCalculateStartBalanceStatementTypeBalance(Customer, StartDate, EndDate, TempCurrency2.Code, StartBalance); - end; - CustBalance := StartBalance; - CustBalance2 := 0; - end; - - trigger OnPreDataItem() - begin - Customer.CopyFilter("Currency Filter", TempCurrency2.Code); - end; - } - dataitem(AgingBandVisible; "Integer") - { - DataItemTableView = sorting(Number) where(Number = const(1)); - dataitem(AgingCustLedgEntry; "Cust. Ledger Entry") - { - DataItemLink = "Customer No." = field("No."); - DataItemLinkReference = Customer; - DataItemTableView = sorting("Customer No.", Open, Positive, "Due Date"); - - trigger OnAfterGetRecord() - var - CustLedgEntry: Record "Cust. Ledger Entry"; - begin - if ("Posting Date" > EndDate) and ("Due Date" >= EndDate) then - CurrReport.Skip(); - if DateChoice = DateChoice::"Due Date" then - if "Due Date" >= EndDate then - CurrReport.Skip(); - CustLedgEntry := AgingCustLedgEntry; - CustLedgEntry.SetRange("Date Filter", 0D, EndDate); - CustLedgEntry.CalcFields("Remaining Amount"); - "Remaining Amount" := CustLedgEntry."Remaining Amount"; - if CustLedgEntry."Remaining Amount" = 0 then - CurrReport.Skip(); - - if "Posting Date" <= EndDate then - UpdateBuffer("Currency Code", GetDate("Posting Date", "Due Date"), "Remaining Amount"); - end; - - trigger OnPreDataItem() - begin - Customer.CopyFilter("Currency Filter", "Currency Code"); - SetCurrentKey("Customer No.", "Posting Date", "Currency Code"); - SetRange("Customer No.", Customer."No."); - SetRange("Posting Date", 0D, EndDate); - end; - } - dataitem(AgingBandLoop; "Integer") - { - DataItemTableView = sorting(Number) where(Number = filter(1 ..)); - column(AgingDate1; Format(AgingDate[1] + 1)) - { - } - column(AgingDate2; Format(AgingDate[2])) - { - } - column(AgingDate21; Format(AgingDate[2] + 1)) - { - } - column(AgingDate3; Format(AgingDate[3])) - { - } - column(AgingDate31; Format(AgingDate[3] + 1)) - { - } - column(AgingDate4; Format(AgingDate[4])) - { - } - column(AgingBandEndingDate; StrSubstNo(AgedSummaryLbl, AgingBandEndingDate, PeriodLength, SelectStr(DateChoice + 1, DuePostingDateLbl))) - { - } - column(AgingDate41; Format(AgingDate[4] + 1)) - { - } - column(AgingDate5; Format(AgingDate[5])) - { - } - column(AgingBandBufCol1Amt; TempAgingBandBuf."Column 1 Amt.") - { - AutoFormatExpression = TempAgingBandBuf."Currency Code"; - AutoFormatType = 1; - } - column(AgingBandBufCol2Amt; TempAgingBandBuf."Column 2 Amt.") - { - AutoFormatExpression = TempAgingBandBuf."Currency Code"; - AutoFormatType = 1; - } - column(AgingBandBufCol3Amt; TempAgingBandBuf."Column 3 Amt.") - { - AutoFormatExpression = TempAgingBandBuf."Currency Code"; - AutoFormatType = 1; - } - column(AgingBandBufCol4Amt; TempAgingBandBuf."Column 4 Amt.") - { - AutoFormatExpression = TempAgingBandBuf."Currency Code"; - AutoFormatType = 1; - } - column(AgingBandBufCol5Amt; TempAgingBandBuf."Column 5 Amt.") - { - AutoFormatExpression = TempAgingBandBuf."Currency Code"; - AutoFormatType = 1; - } - column(AgingBandCurrencyCode; AgingBandCurrencyCode) - { - } - column(beforeCaption; beforeCaptionLbl) - { - } - column(AgingDateHeader1; AgingDateHeader1) - { - } - column(AgingDateHeader2; AgingDateHeader2) - { - } - column(AgingDateHeader3; AgingDateHeader3) - { - } - column(AgingDateHeader4; AgingDateHeader4) - { - } - - trigger OnAfterGetRecord() - begin - if Number = 1 then begin - ClearCompanyPicture(); - if not TempAgingBandBuf.Find('-') then - CurrReport.Break(); - end else - if TempAgingBandBuf.Next() = 0 then - CurrReport.Break(); - AgingBandCurrencyCode := TempAgingBandBuf."Currency Code"; - if AgingBandCurrencyCode = '' then - AgingBandCurrencyCode := GLSetup."LCY Code"; - end; - } - - trigger OnPreDataItem() - begin - if not IncludeAgingBand then - CurrReport.Break(); - end; - } - } - dataitem(LetterText; "Integer") - { - DataItemTableView = sorting(Number) where(Number = const(1)); - column(GreetingText; GreetingLbl) - { - } - column(BodyText; BodyLbl) - { - } - column(ClosingText; ClosingLbl) - { - } - } - - trigger OnAfterGetRecord() - begin - TempAgingBandBuf.DeleteAll(); - CurrReport.Language := LanguageMgt.GetLanguageIdOrDefault("Language Code"); - CurrReport.FormatRegion := LanguageMgt.GetFormatRegionOrDefault("Format Region"); - FormatAddress.SetLanguageCode("Language Code"); - PrintLine := false; - if PrintAllHavingBal and (not PrintAllHavingEntry) then - PrintLine := true; - - if (not PrintLine) and PrintAllHavingEntry then begin - CustLedgerEntry.Reset(); - CustLedgerEntry.SetCurrentKey("Customer No.", "Posting Date"); - CustLedgerEntry.SetRange("Customer No.", "No."); - CustLedgerEntry.SetRange("Posting Date", StartDate, EndDate); - CopyFilter("Currency Filter", CustLedgerEntry."Currency Code"); - if StatementStyle = StatementStyle::"Open Item" then begin - CustLedgerEntry.SetRange("Date Filter", 0D, EndDate); - CustLedgerEntry.SetFilter("Remaining Amount", '<>0'); - end; - - PrintLine := not CustLedgerEntry.IsEmpty(); - OnCurrencyLoopOnAfterGetRecordOnAfterCustLedgerEntryCheckIsEmpty(Customer, CustLedgerEntry, PrintLine); - end; - if (not PrintLine) and PrintAllHavingBal then begin - Cust2 := Customer; - Cust2.SetRange("Date Filter", 0D, EndDate); - Cust2.CalcFields("Net Change (LCY)"); - PrintLine := Cust2."Net Change (LCY)" <> 0; - end; - if not PrintLine then - CurrReport.Skip(); - - FormatAddress.Customer(CustomerAddress, Customer); - PrintedCustomersList.Add("No."); - UpdatePictures(); - FirstRecordPrinted := false; - IsFirstLoop := false; - end; - - trigger OnPreDataItem() - begin - VerifyDates(); - AgingBandEndingDate := EndDate; - CalcAgingBandDates(); - - CompanyInfo.Get(); - FormatAddress.Company(CompanyAddress, CompanyInfo); - CompanyInfo.CalcFields(Picture); - - PopulateTempCurrencies(); - - if PrintAllHavingBal and not PrintAllHavingEntry then begin - SetRange("Date Filter", 0D, EndDate); - SetAutoCalcFields("Net Change (LCY)"); - SetFilter("Net Change (LCY)", '<>0'); - end; - end; - } - } - - requestpage - { - AboutTitle = 'About Customer Statement'; - AboutText = 'Send customers an overview of outstanding amounts, and also use as a payment reminder about overdue amounts.'; - SaveValues = true; - - layout - { - area(content) - { - group(Options) - { - Caption = 'Options'; - field("Start Date"; StartDate) - { - ApplicationArea = Basic, Suite; - Caption = 'Start Date'; - ToolTip = 'Specifies the date from which the report or batch job processes information.'; - ShowMandatory = true; - } - field("End Date"; EndDate) - { - ApplicationArea = Basic, Suite; - Caption = 'End Date'; - ToolTip = 'Specifies the date to which the report or batch job processes information.'; - ShowMandatory = true; - } - field("Statement Style"; StatementStyle) - { - ApplicationArea = Basic, Suite; - Caption = 'Statement Style'; - OptionCaption = 'Balance,Open Item'; - ToolTip = 'Specifies if you want regular statement report or report with open entries only which are posted in the selected period and still open in the moment of Ending Date.'; - - trigger OnValidate() - begin - UpdateReqPageParameters(); - end; - } - - field(ShowOverdueEntries; PrintEntriesDue) - { - ApplicationArea = Basic, Suite; - Caption = 'Show Overdue Entries'; - ToolTip = 'Specifies if you want overdue entries to be shown separately for each currency.'; - } - - group(Include) - { - Caption = 'Include'; - field(IncludeAllCustomerswithLE; PrintAllHavingEntry) - { - ApplicationArea = Basic, Suite; - Caption = 'Include All Customers with Ledger Entries'; - MultiLine = true; - ToolTip = 'Specifies if you want entries displayed for customers that have ledger entries at the end of the selected period.'; - Editable = PrintAllHavingEntryEditable; - - trigger OnValidate() - begin - if not PrintAllHavingEntry then - PrintAllHavingBal := true; - end; - } - field(IncludeAllCustomerswithBalance; PrintAllHavingBal) - { - ApplicationArea = Basic, Suite; - Caption = 'Include All Customers with a Balance'; - MultiLine = true; - ToolTip = 'Specifies if you want entries displayed for customers that have a balance at the end of the selected period.'; - Editable = PrintAllHavingBalEditable; - - trigger OnValidate() - begin - if not PrintAllHavingBal then - PrintAllHavingEntry := true; - end; - } - field(IncludeReversedEntries; PrintReversedEntries) - { - ApplicationArea = Basic, Suite; - Caption = 'Include Reversed Entries'; - ToolTip = 'Specifies if you want to include reversed entries in the report.'; - Editable = PrintReversedEntriesEditable; - } - field(IncludeUnappliedEntries; PrintUnappliedEntries) - { - ApplicationArea = Basic, Suite; - Caption = 'Include Unapplied Entries'; - ToolTip = 'Specifies if you want to include unapplied entries in the report.'; - Editable = PrintUnappliedEntriesEditable; - } - } - group("Aging Band") - { - Caption = 'Aging Band'; - field(IncludeAgingBand; IncludeAgingBand) - { - ApplicationArea = Basic, Suite; - Caption = 'Include Aging Band'; - ToolTip = 'Specifies if you want an aging band to be included in the document. If you place a check mark here, you must also fill in the Aging Band Period Length and Aging Band by fields.'; - } - field(AgingBandPeriodLengt; PeriodLength) - { - ApplicationArea = Basic, Suite; - Caption = 'Aging Band Period Length'; - ToolTip = 'Specifies the length of each of the four periods in the aging band, for example, enter "1M" for one month. The most recent period will end on the last day of the period in the Date Filter field.'; - } - field(AgingBandby; DateChoice) - { - ApplicationArea = Basic, Suite; - Caption = 'Aging Band by'; - OptionCaption = 'Due Date,Posting Date'; - ToolTip = 'Specifies if the aging band will be calculated from the due date or from the posting date.'; - } - } - field(LogInteraction; LogInteraction) - { - ApplicationArea = Basic, Suite; - Caption = 'Log Interaction'; - Enabled = LogInteractionEnable; - ToolTip = 'Specifies if you want the program to log this interaction.'; - } - } - group("Output Options") - { - Caption = 'Output Options'; - field(ReportOutput; SupportedOutputMethod) - { - ApplicationArea = Basic, Suite; - Caption = 'Report Output'; - OptionCaption = 'Print,Preview,Word,PDF,Email,XML - RDLC layouts only', Comment = 'Each item is a verb/action - to print, to preview, to export to Word, export to PDF, send email, export to XML for RDLC layouts only'; - ToolTip = 'Specifies the output of the scheduled report, such as PDF or Word.'; - - trigger OnValidate() - var - CustomLayoutReporting: Codeunit "Custom Layout Reporting"; - begin - ShowPrintIfEmailIsMissing := (SupportedOutputMethod = SupportedOutputMethod::Email); - - case SupportedOutputMethod of - SupportedOutputMethod::Print: - ChosenOutputMethod := CustomLayoutReporting.GetPrintOption(); - SupportedOutputMethod::Preview: - ChosenOutputMethod := CustomLayoutReporting.GetPreviewOption(); - SupportedOutputMethod::Word: - ChosenOutputMethod := CustomLayoutReporting.GetWordOption(); - SupportedOutputMethod::PDF: - ChosenOutputMethod := CustomLayoutReporting.GetPDFOption(); - SupportedOutputMethod::Email: - ChosenOutputMethod := CustomLayoutReporting.GetEmailOption(); - SupportedOutputMethod::XML: - ChosenOutputMethod := CustomLayoutReporting.GetXMLOption(); - end; - end; - } - field(ChosenOutput; ChosenOutputMethod) - { - ApplicationArea = Basic, Suite; - Caption = 'Chosen Output'; - ToolTip = 'Specifies how to output the report, such as Print or Excel.'; - Visible = false; - } - group(EmailOptions) - { - Caption = 'Email Options'; - Visible = ShowPrintIfEmailIsMissing; - field(PrintMissingAddresses; PrintIfEmailIsMissing) - { - ApplicationArea = Basic, Suite; - Caption = 'Print Although Email is Missing or Invalid'; - ToolTip = 'Specifies if you want to print also the statements for customers that have not been set up with a send-to email address or defined send-to email address is invalid.'; - } - } - } - } - } - - actions - { - } - - trigger OnInit() - begin - InitInteractionLog(); - LogInteractionEnable := LogInteraction; - InitRequestPageDataInternal(); - end; - } - - rendering - { - layout("StandardStatement.rdlc") - { - Type = RDLC; - LayoutFile = './Sales/Customer/StandardStatement.rdlc'; - Caption = 'Standard Customer Statement (RDLC)'; - Summary = 'The Standard Customer Statement (RDLC) provides a detailed layout.'; - } - layout("StandardStatement.docx") - { - Type = Word; - LayoutFile = './Sales/Customer/StandardStatement.docx'; - Caption = 'Standard Customer Statement (Word)'; - Summary = 'The Standard Customer Statement (Word) provides a basic layout.'; - } - layout("StandardCustomerStatementEmail.docx") - { - Type = Word; - LayoutFile = './Sales/Customer/StandardCustomerStatementEmail.docx'; - Caption = 'Standard Customer Statement Email (Word)'; - Summary = 'The Standard Customer Statement Email (Word) provides an email body layout.'; - } - } - - labels - { - } - - trigger OnInitReport() - var - IsHandled: Boolean; - begin - GLSetup.Get(); - SalesSetup.Get(); - SavedCompanyInfo.SetAutoCalcFields(Picture); - SavedCompanyInfo1.SetAutoCalcFields(Picture); - SavedCompanyInfo2.SetAutoCalcFields(Picture); - SavedCompanyInfo3.SetAutoCalcFields(Picture); - SavedCompanyInfo.Get(); - case SalesSetup."Logo Position on Documents" of - SalesSetup."Logo Position on Documents"::Left: - SavedCompanyInfo1.Get(); - SalesSetup."Logo Position on Documents"::Center: - SavedCompanyInfo2.Get(); - SalesSetup."Logo Position on Documents"::Right: - SavedCompanyInfo3.Get(); - end; - - UpdatePictures(); - - LogInteractionEnable := true; - PrintAllHavingEntryEditable := true; - - IsHandled := false; - OnInitReportForGlobalVariable(IsHandled, LegalOfficeTxt, LegalOfficeLbl); - end; - - trigger OnPostReport() - var - CusNo: Code[20]; - begin - if not IsReportInPreviewMode() then - foreach CusNo in PrintedCustomersList do - if Customer.Get(CusNo) then begin - Customer."Last Statement No." := Customer."Last Statement No." + 1; - Customer.Modify(); - if LogInteraction then - SegManagement.LogDocument( - 7, Format(Customer."Last Statement No."), 0, 0, DATABASE::Customer, Customer."No.", Customer."Salesperson Code", '', - StatementLbl + Format(Customer."Last Statement No."), ''); - end; - FinishDateTime := CurrentDateTime(); - LogReportTelemetry(StartDateTime, FinishDateTime, NumberOfCustLedgerEntryLines); - end; - - trigger OnPreReport() - begin - StartDateTime := CurrentDateTime(); - InitRequestPageDataInternal(); - end; - - var - GLSetup: Record "General Ledger Setup"; - SalesSetup: Record "Sales & Receivables Setup"; - SavedCompanyInfo: Record "Company Information"; - SavedCompanyInfo1: Record "Company Information"; - SavedCompanyInfo2: Record "Company Information"; - SavedCompanyInfo3: Record "Company Information"; - Cust2: Record Customer; - TempCurrency2: Record Currency temporary; - CustLedgerEntry: Record "Cust. Ledger Entry"; - DetailedCustLedgEntry2: Record "Detailed Cust. Ledg. Entry"; - TempAgingBandBuf: Record "Aging Band Buffer" temporary; - LanguageMgt: Codeunit Language; - FormatAddress: Codeunit "Format Address"; - SegManagement: Codeunit SegManagement; - PeriodLength2: DateFormula; - PrintedCustomersList: List of [Code[20]]; - PrintLine: Boolean; - LogInteraction: Boolean; - EntriesExists: Boolean; - DueDate: Date; - StartBalance: Decimal; - CurrencyCode3: Code[10]; - AgingDate: array[5] of Date; - AgingBandEndingDate: Date; - AgingBandCurrencyCode: Code[20]; - LogInteractionEnable: Boolean; - PrintAllHavingEntryEditable: Boolean; - PrintAllHavingBalEditable: Boolean; - PrintUnappliedEntriesEditable: Boolean; - PrintReversedEntriesEditable: Boolean; - isInitialized: Boolean; - IsFirstLoop: Boolean; - IsFirstPrintLine: Boolean; - IsNewCustCurrencyGroup: Boolean; - AgingDateHeader1: Text; - AgingDateHeader2: Text; - AgingDateHeader3: Text; - AgingDateHeader4: Text; - SupportedOutputMethod: Option Print,Preview,Word,PDF,Email,XML; - ChosenOutputMethod: Integer; - PrintIfEmailIsMissing: Boolean; - ShowPrintIfEmailIsMissing: Boolean; - CustBalance2: Decimal; - FirstRecordPrinted: Boolean; - YourReference: Text; - EntriesLbl: Label 'Entries %1', Comment = '%1 = Currency code'; - OverdueEntriesLbl: Label 'Overdue Entries %1', Comment = '%1=Currency code'; - StatementLbl: Label 'Statement '; - MulticurrencyAppLbl: Label 'Multicurrency Application'; - PaymentDiscountLbl: Label 'Payment Discount'; - RoundingLbl: Label 'Rounding'; - AgingBandPeriodErr: Label 'You must specify the Aging Band Period Length.'; - AgingBandEndErr: Label 'You must specify Aging Band Ending Date.'; - AgedSummaryLbl: Label 'Aged Summary by %1 (%2 by %3)', Comment = '%1=Report aging band end date, %2=Aging band period, %3=Type of deadline (''due date'', ''posting date'') as given in DuePostingDateLbl'; - PeriodLengthErr: Label 'Period Length is out of range.'; - DuePostingDateLbl: Label 'Due Date,Posting Date'; - WriteoffsLbl: Label 'Application Writeoffs'; - PeriodSeparatorLbl: Label '-%1', Comment = 'Negating the period length: %1 is the period length'; - StatementCaptionLbl: Label 'Statement'; - PhoneNo_CompanyInfoCaptionLbl: Label 'Phone No.'; - VATRegNo_CompanyInfoCaptionLbl: Label 'VAT Registration No.'; - GiroNo_CompanyInfoCaptionLbl: Label 'Giro No.'; - BankName_CompanyInfoCaptionLbl: Label 'Bank'; - BankAccNo_CompanyInfoCaptionLbl: Label 'Account No.'; - No1_CustCaptionLbl: Label 'Customer No.'; - StartDateCaptionLbl: Label 'Starting Date'; - EndDateCaptionLbl: Label 'Ending Date'; - LastStatmntNo_CustCaptionLbl: Label 'Statement No.'; - PostDate_DtldCustLedgEntriesCaptionLbl: Label 'Posting Date'; - DueDate_CustLedgEntry2CaptionLbl: Label 'Due Date'; - CustBalanceCaptionLbl: Label 'Running Total'; - beforeCaptionLbl: Label '..before'; - CompanyInfoHomepageCaptionLbl: Label 'Home Page'; - CompanyInfoEmailCaptionLbl: Label 'Email'; - DocDateCaptionLbl: Label 'Document Date'; - Total_CaptionLbl: Label 'Total'; - BlankStartDateErr: Label 'Start Date must have a value.'; - BlankEndDateErr: Label 'End Date must have a value.'; - StartDateLaterTheEndDateErr: Label 'Start date must be earlier than End date.'; - CurrReportPageNoCaptionLbl: Label 'Page'; - GreetingLbl: Label 'Hello'; - ClosingLbl: Label 'Sincerely'; - BodyLbl: Label 'Thank you for your business. Your statement is attached to this message.'; - TelemetryCategoryTxt: Label 'Report', Locked = true; - CustomerStatementReportGeneratedTxt: Label 'Customer Statement report generated.', Locked = true; - LegalOfficeTxt, LegalOfficeLbl : Text; - - protected var - CompanyInfo: Record "Company Information"; - CompanyInfo1: Record "Company Information"; - CompanyInfo2: Record "Company Information"; - CompanyInfo3: Record "Company Information"; - PeriodLength: DateFormula; - Description: Text[100]; - CustomerAddress: array[8] of Text[100]; - CompanyAddress: array[8] of Text[100]; - CustBalance: Decimal; - RemainingAmount: Decimal; - IncludeAgingBand: Boolean; - NumberOfCustLedgerEntryLines: Integer; - StartDateTime: DateTime; - FinishDateTime: DateTime; - StartDate: Date; - EndDate: Date; - PrintAllHavingEntry: Boolean; - PrintAllHavingBal: Boolean; - PrintEntriesDue: Boolean; - PrintUnappliedEntries: Boolean; - PrintReversedEntries: Boolean; - DateChoice: Option "Due Date","Posting Date"; - StatementStyle: Option "Balance","Open Item"; - - local procedure GetDate(PostingDate: Date; DueDate: Date): Date - begin - if DateChoice = DateChoice::"Posting Date" then - exit(PostingDate); - - exit(DueDate); - end; - - local procedure UpdatePictures() - begin - CompanyInfo.Picture := SavedCompanyInfo.Picture; - CompanyInfo1.Picture := SavedCompanyInfo1.Picture; - CompanyInfo2.Picture := SavedCompanyInfo2.Picture; - CompanyInfo3.Picture := SavedCompanyInfo3.Picture; - end; - - local procedure CalcAgingBandDates() - begin - if not IncludeAgingBand then - exit; - if AgingBandEndingDate = 0D then - Error(AgingBandEndErr); - if Format(PeriodLength) = '' then - Error(AgingBandPeriodErr); - Evaluate(PeriodLength2, StrSubstNo(PeriodSeparatorLbl, PeriodLength)); - AgingDate[5] := AgingBandEndingDate; - AgingDate[4] := CalcDate(PeriodLength2, AgingDate[5]); - AgingDate[3] := CalcDate(PeriodLength2, AgingDate[4]); - AgingDate[2] := CalcDate(PeriodLength2, AgingDate[3]); - AgingDate[1] := CalcDate(PeriodLength2, AgingDate[2]); - if AgingDate[2] <= AgingDate[1] then - Error(PeriodLengthErr); - - AgingDateHeader1 := Format(AgingDate[1]) + ' - ' + Format(AgingDate[2]); - AgingDateHeader2 := Format(AgingDate[2] + 1) + ' - ' + Format(AgingDate[3]); - AgingDateHeader3 := Format(AgingDate[3] + 1) + ' - ' + Format(AgingDate[4]); - AgingDateHeader4 := Format(AgingDate[4] + 1); - end; - - local procedure UpdateBuffer(CurrencyCode: Code[10]; Date: Date; Amount: Decimal) - var - I: Integer; - GoOn: Boolean; - begin - TempAgingBandBuf.Init(); - TempAgingBandBuf."Currency Code" := CurrencyCode; - if not TempAgingBandBuf.Find() then - TempAgingBandBuf.Insert(); - I := 1; - GoOn := true; - while (I <= 5) and GoOn do begin - if Date <= AgingDate[I] then - if I = 1 then begin - TempAgingBandBuf."Column 1 Amt." := TempAgingBandBuf."Column 1 Amt." + Amount; - GoOn := false; - end; - if Date <= AgingDate[I] then - if I = 2 then begin - TempAgingBandBuf."Column 2 Amt." := TempAgingBandBuf."Column 2 Amt." + Amount; - GoOn := false; - end; - if Date <= AgingDate[I] then - if I = 3 then begin - TempAgingBandBuf."Column 3 Amt." := TempAgingBandBuf."Column 3 Amt." + Amount; - GoOn := false; - end; - if Date <= AgingDate[I] then - if I = 4 then begin - TempAgingBandBuf."Column 4 Amt." := TempAgingBandBuf."Column 4 Amt." + Amount; - GoOn := false; - end; - if Date <= AgingDate[I] then - if I = 5 then begin - TempAgingBandBuf."Column 5 Amt." := TempAgingBandBuf."Column 5 Amt." + Amount; - GoOn := false; - end; - I := I + 1; - end; - TempAgingBandBuf.Modify(); - end; - - /// - /// Determines whether to skip a detailed customer ledger entry based on reversed and unapplied settings. - /// - /// The detailed customer ledger entry to check. - /// True if the entry should be skipped, false otherwise. - procedure SkipReversedUnapplied(var DetailedCustLedgEntry: Record "Detailed Cust. Ledg. Entry"): Boolean - var - CustLedgEntry: Record "Cust. Ledger Entry"; - begin - if PrintReversedEntries and PrintUnappliedEntries then - exit(false); - if not PrintUnappliedEntries then - if DetailedCustLedgEntry.Unapplied then - exit(true); - if not PrintReversedEntries then begin - CustLedgEntry.Get(DetailedCustLedgEntry."Cust. Ledger Entry No."); - if CustLedgEntry.Reversed then - exit(true); - end; - exit(false); - end; - - /// - /// Initializes the report request with the specified parameters. - /// - /// Whether to print entries due. - /// Whether to print all customers with entries. - /// Whether to print all customers with balance. - /// Whether to print reversed entries. - /// Whether to print unapplied entries. - /// Whether to include aging band. - /// The period length for aging. - /// The date type to use (Due Date or Posting Date). - /// Whether to log interaction. - /// The statement start date. - /// The statement end date. - procedure InitializeRequest(NewPrintEntriesDue: Boolean; NewPrintAllHavingEntry: Boolean; NewPrintAllHavingBal: Boolean; NewPrintReversedEntries: Boolean; NewPrintUnappliedEntries: Boolean; NewIncludeAgingBand: Boolean; NewPeriodLength: Text[30]; NewDateChoice: Option "Due Date","Posting Date"; NewLogInteraction: Boolean; NewStartDate: Date; NewEndDate: Date) - begin - InitRequestPageDataInternal(); - - PrintEntriesDue := NewPrintEntriesDue; - PrintAllHavingEntry := NewPrintAllHavingEntry; - PrintAllHavingBal := NewPrintAllHavingBal; - PrintReversedEntries := NewPrintReversedEntries; - PrintUnappliedEntries := NewPrintUnappliedEntries; - IncludeAgingBand := NewIncludeAgingBand; - Evaluate(PeriodLength, NewPeriodLength); - DateChoice := NewDateChoice; - LogInteraction := NewLogInteraction; - StartDate := NewStartDate; - EndDate := NewEndDate; - end; - - local procedure IsReportInPreviewMode(): Boolean - var - MailManagement: Codeunit "Mail Management"; - begin - exit(CurrReport.Preview or MailManagement.IsHandlingGetEmailBody()); - end; - - /// - /// Initializes the request page data with default values if not already initialized. - /// - procedure InitRequestPageDataInternal() - begin - if isInitialized then - exit; - - isInitialized := true; - - if (not PrintAllHavingEntry) and (not PrintAllHavingBal) then - PrintAllHavingBal := true; - - if Format(PeriodLength) = '' then - Evaluate(PeriodLength, '<1M+CM>'); - - UpdateReqPageParameters(); - - ShowPrintIfEmailIsMissing := SupportedOutputMethod = SupportedOutputMethod::Email; - end; - - local procedure InitInteractionLog() - begin - LogInteraction := SegManagement.FindInteractionTemplateCode(Enum::"Interaction Log Entry Document Type"::"Sales Stmnt.") <> ''; - end; - - local procedure VerifyDates() - begin - if StartDate = 0D then - Error(BlankStartDateErr); - if EndDate = 0D then - Error(BlankEndDateErr); - if StartDate > EndDate then - Error(StartDateLaterTheEndDateErr); - end; - - local procedure PopulateTempCurrencies() - begin - CustLedgerEntry.Reset(); - CustLedgerEntry.SetCurrentKey("Currency Code"); - TempCurrency2.Init(); - while CustLedgerEntry.FindFirst() do begin - TempCurrency2.Code := CustLedgerEntry."Currency Code"; - TempCurrency2.Insert(); - CustLedgerEntry.SetFilter("Currency Code", '>%1', CustLedgerEntry."Currency Code"); - end; - end; - - local procedure UpdateReqPageParameters() - begin - PrintAllHavingEntryEditable := StatementStyle <> StatementStyle::"Open Item"; - PrintAllHavingBalEditable := StatementStyle <> StatementStyle::"Open Item"; - PrintUnappliedEntriesEditable := StatementStyle <> StatementStyle::"Open Item"; - PrintReversedEntriesEditable := StatementStyle <> StatementStyle::"Open Item"; - - if not PrintAllHavingEntryEditable then - PrintAllHavingEntry := false; - - if not PrintAllHavingBalEditable then - PrintAllHavingBal := true; - - if not PrintUnappliedEntriesEditable then - PrintUnappliedEntries := true; - - if not PrintReversedEntriesEditable then - PrintReversedEntries := false; - end; - - local procedure LogReportTelemetry(StartDateTime: DateTime; FinishDateTime: DateTime; NumberOfLines: Integer) - var - Dimensions: Dictionary of [Text, Text]; - ReportDuration: BigInteger; - begin - ReportDuration := FinishDateTime - StartDateTime; - Dimensions.Add('Category', TelemetryCategoryTxt); - Dimensions.Add('ReportStartTime', Format(StartDateTime, 0, 9)); - Dimensions.Add('ReportFinishTime', Format(FinishDateTime, 0, 9)); - Dimensions.Add('ReportDuration', Format(ReportDuration)); - Dimensions.Add('NumberOfLines', Format(NumberOfLines)); - Session.LogMessage('0000FJK', CustomerStatementReportGeneratedTxt, Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, Dimensions); - end; - - local procedure ClearCompanyPicture() - begin - if FirstRecordPrinted then begin - Clear(CompanyInfo.Picture); - Clear(CompanyInfo1.Picture); - Clear(CompanyInfo2.Picture); - Clear(CompanyInfo3.Picture); - end; - FirstRecordPrinted := true; - end; - - /// - /// Raises an event after setting filters on the detailed customer ledger entries data item. - /// - /// The detailed customer ledger entry record with filters applied. - [IntegrationEvent(false, false)] - local procedure OnDtldCustLedgEntriesOnPreDataItemOnAfterSetFilters(var DetailedCustLedgEntry: Record "Detailed Cust. Ledg. Entry") - begin - end; - - /// - /// Raises an event after getting the customer ledger entry for a detailed entry during statement generation. - /// - /// The detailed customer ledger entry record being processed. - /// The associated customer ledger entry record. - /// Set to true to skip processing of this entry. - [IntegrationEvent(false, false)] - local procedure OnDtldCustLedgEntriesOnAfterGetRecordnAfterGetCustLedgerEntry(var DetailedCustLedgEntry: Record "Detailed Cust. Ledg. Entry"; CustLedgerEntry: Record "Cust. Ledger Entry"; var Skip: Boolean) - begin - end; - - /// - /// Raises an event after checking if customer ledger entries exist for printing. - /// - /// The customer record being processed. - /// The customer ledger entry record used for the check. - /// Set to control whether to print the line. - [IntegrationEvent(false, false)] - local procedure OnCurrencyLoopOnAfterGetRecordOnAfterCustLedgerEntryCheckIsEmpty(Customer: Record Customer; var CustLedgerEntry: Record "Cust. Ledger Entry"; var PrintLine: Boolean) - begin - end; - - /// - /// Raises an event after setting filters on the overdue customer ledger entries data item. - /// - /// The customer ledger entry record with filters applied. - [IntegrationEvent(false, false)] - local procedure OnCustLedgEntry2OnPreDataItemOnAfterSetFilters(var CustLedgEntry: Record "Cust. Ledger Entry") - begin - end; - - /// - /// Raises an event during report initialization to allow setting global variables for legal office information. - /// - /// Set to true to indicate custom handling was performed. - /// The legal office text value to display. - /// The legal office label caption. - [IntegrationEvent(false, false)] - local procedure OnInitReportForGlobalVariable(var IsHandled: Boolean; var LegalOfficeTxt: Text; var LegalOfficeLbl: Text) - begin - end; - - /// - /// Raises an event after calculating the start balance for open item statement style. - /// - /// The customer record being processed. - /// The customer ledger entry record used for balance calculation. - /// The statement start date. - /// The statement end date. - /// The currency code for the balance calculation. - /// The calculated start balance that can be modified. - [IntegrationEvent(false, false)] - local procedure OnCurrencyLoopOnAfterGetRecordOnAfterCalculateStartBalanceStatementTypeOpenItems(Customer: Record Customer; var CustLedgerEntryBalance: Record "Cust. Ledger Entry"; StartDate: Date; EndDate: Date; CurrencyCode: Code[10]; var StartBalance: Decimal) - begin - end; - - /// - /// Raises an event after calculating the start balance for balance statement style. - /// - /// The customer record being processed. - /// The statement start date. - /// The statement end date. - /// The currency code for the balance calculation. - /// The calculated start balance that can be modified. - [IntegrationEvent(false, false)] - local procedure OnCurrencyLoopOnAfterGetRecordOnAfterCalculateStartBalanceStatementTypeBalance(Customer: Record Customer; StartDate: Date; EndDate: Date; CurrencyCode: Code[10]; var StartBalance: Decimal) - begin - end; -} - diff --git a/src/Layers/ES/BaseApp/Sales/Customer/Statement.Report.al b/src/Layers/ES/BaseApp/Sales/Customer/Statement.Report.al index 11bd50bc15..9de6d81ace 100644 --- a/src/Layers/ES/BaseApp/Sales/Customer/Statement.Report.al +++ b/src/Layers/ES/BaseApp/Sales/Customer/Statement.Report.al @@ -1126,5 +1126,6 @@ report 116 Statement end; FirstCustomerPrinted := true; end; + } diff --git a/src/Layers/ES/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al b/src/Layers/ES/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al index abe7c4e9df..9e852eb8dc 100644 --- a/src/Layers/ES/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al +++ b/src/Layers/ES/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -1978,5 +1978,6 @@ table 21 "Cust. Ledger Entry" local procedure OnBeforeCheckBillSituation(var CustLedgerEntry: Record "Cust. Ledger Entry") begin end; + } diff --git a/src/Layers/ES/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al b/src/Layers/ES/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al index 860d8ade7e..76a436533b 100644 --- a/src/Layers/ES/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al +++ b/src/Layers/ES/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al @@ -414,7 +414,7 @@ table 379 "Detailed Cust. Ledg. Entry" { Clustered = true; } - key(Key2; "Customer No.", "Currency Code") + key(Key2; "Customer No.", "Currency Code", "Excluded from calculation") { SumIndexFields = Amount, "Amount (LCY)"; } @@ -426,7 +426,7 @@ table 379 "Detailed Cust. Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key6; "Customer No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date") + key(Key6; "Customer No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date", "Excluded from calculation") { IncludedFields = Amount, "Amount (LCY)"; } @@ -539,8 +539,8 @@ table 379 "Detailed Cust. Ledg. Entry" exit; "Ledger Entry Amount" := - not ("Entry Type" in ["Entry Type"::Application, "Entry Type"::"Appln. Rounding", "Entry Type"::Redrawal, - "Entry Type"::Rejection]); + not (("Entry Type" = "Entry Type"::Application) or ("Entry Type" = "Entry Type"::"Appln. Rounding") or + ("Entry Type" = "Entry Type"::Redrawal) or ("Entry Type" = "Entry Type"::Rejection])); end; /// diff --git a/src/Layers/FI/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al b/src/Layers/FI/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al index 11627f5f8d..f99ec89923 100644 --- a/src/Layers/FI/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al +++ b/src/Layers/FI/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al @@ -101,7 +101,8 @@ table 25 "Vendor Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Vendor Ledg. Entry".Amount where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; ToolTip = 'Specifies the amount that remains to be applied to before the entry is totally applied to.'; Editable = false; @@ -123,7 +124,8 @@ table 25 "Vendor Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/FI/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/FI/BaseApp/Purchases/Vendor/Vendor.Table.al index a4d0a086cf..5f590b29d3 100644 --- a/src/Layers/FI/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/FI/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -482,7 +482,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry".Amount where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -494,7 +495,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -507,7 +509,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -520,7 +523,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -573,7 +577,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -586,7 +591,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/FI/BaseApp/Sales/Customer/Statement.Report.al b/src/Layers/FI/BaseApp/Sales/Customer/Statement.Report.al index a639a01cc6..96bf12c3de 100644 --- a/src/Layers/FI/BaseApp/Sales/Customer/Statement.Report.al +++ b/src/Layers/FI/BaseApp/Sales/Customer/Statement.Report.al @@ -239,7 +239,7 @@ report 116 Statement } dataitem("Detailed Cust. Ledg. Entry"; "Detailed Cust. Ledg. Entry") { - DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code"); + DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code") where("Excluded from calculation" = const(false)); column(PostDate_DtldCustLedgEntries; Format("Posting Date")) { } @@ -865,9 +865,6 @@ report 116 Statement end; var - Text001Lbl: Label 'Entries %1', Comment = '%1 is the currency code'; - Text002Lbl: Label 'Overdue Entries %1', Comment = '%1 is the currency code'; - Text003Txt: Label 'Statement '; GLSetup: Record "General Ledger Setup"; SalesSetup: Record "Sales & Receivables Setup"; Cust2: Record Customer; @@ -877,6 +874,8 @@ report 116 Statement LanguageMgt: Codeunit Language; FormatAddr: Codeunit "Format Address"; SegManagement: Codeunit SegManagement; + PeriodLength: DateFormula; + PeriodLength2: DateFormula; PrintedCustomersList: List of [Code[20]]; PrintAllHavingEntry: Boolean; PrintAllHavingBal: Boolean; @@ -896,23 +895,36 @@ report 116 Statement CustBalance: Decimal; RemainingAmount: Decimal; CurrencyCode3: Code[10]; + DateChoice: Option "Due Date","Posting Date"; + AgingDate: array[5] of Date; + AgingBandEndingDate: Date; + AgingBandCurrencyCode: Code[20]; + IncludeAgingBand: Boolean; + LogInteractionEnable: Boolean; + isInitialized: Boolean; + IsFirstLoop: Boolean; + IsFirstPrintLine: Boolean; + IsNewCustCurrencyGroup: Boolean; + SupportedOutputMethod: Option Print,Preview,PDF,Email,Excel,XML; + ChosenOutputMethod: Integer; + PrintIfEmailIsMissing: Boolean; + ShowPrintIfEmailIsMissing: Boolean; + FirstCustomerPrinted: Boolean; + + CompanyInfoBusinessIdentityCodeLbl: Label 'Business Identity Code'; + CompanyInfoRegisteredHomeCityLbl: Label 'Registered Home City'; + Text001Lbl: Label 'Entries %1', Comment = '%1 is the currency code'; + Text002Lbl: Label 'Overdue Entries %1', Comment = '%1 is the currency code'; + Text003Txt: Label 'Statement '; Text005Txt: Label 'Multicurrency Application'; Text006Txt: Label 'Payment Discount'; Text007Txt: Label 'Rounding'; - PeriodLength: DateFormula; - PeriodLength2: DateFormula; - DateChoice: Option "Due Date","Posting Date"; - AgingDate: array[5] of Date; Text008Err: Label 'You must specify the Aging Band Period Length.'; - AgingBandEndingDate: Date; Text010Err: Label 'You must specify Aging Band Ending Date.'; Text011Lbl: Label 'Aged Summary by %1 (%2 by %3)', Comment = '%1 is ending date, %2 is period length, %3 is Due Date or Posting Date'; - IncludeAgingBand: Boolean; Text012Err: Label 'Period Length is out of range.'; - AgingBandCurrencyCode: Code[20]; Text013Txt: Label 'Due Date,Posting Date'; Text014Txt: Label 'Application Writeoffs'; - LogInteractionEnable: Boolean; Text036Txt: Label '-%1', Comment = 'Negating the period length: %1 is the period length'; StatementCaptionLbl: Label 'Statement'; PhoneNo_CompanyInfoCaptionLbl: Label 'Phone No.'; @@ -928,7 +940,6 @@ report 116 Statement DueDate_CustLedgEntry2CaptionLbl: Label 'Due Date'; CustBalanceCaptionLbl: Label 'Running Total'; beforeCaptionLbl: Label '..before'; - isInitialized: Boolean; CompanyInfoHomepageCaptionLbl: Label 'Home Page'; CompanyInfoEmailCaptionLbl: Label 'Email'; DocDateCaptionLbl: Label 'Document Date'; @@ -936,17 +947,7 @@ report 116 Statement BlankStartDateErr: Label 'Start Date must have a value.'; BlankEndDateErr: Label 'End Date must have a value.'; StartDateLaterTheEndDateErr: Label 'Start date must be earlier than End date.'; - IsFirstLoop: Boolean; CurrReportPageNoCaptionLbl: Label 'Page'; - IsFirstPrintLine: Boolean; - IsNewCustCurrencyGroup: Boolean; - SupportedOutputMethod: Option Print,Preview,PDF,Email,Excel,XML; - ChosenOutputMethod: Integer; - PrintIfEmailIsMissing: Boolean; - ShowPrintIfEmailIsMissing: Boolean; - FirstCustomerPrinted: Boolean; - CompanyInfoBusinessIdentityCodeLbl: Label 'Business Identity Code'; - CompanyInfoRegisteredHomeCityLbl: Label 'Registered Home City'; protected var CompanyInfo: Record "Company Information"; diff --git a/src/Layers/FI/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al b/src/Layers/FI/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al index 675cc4c0b9..8995b93d91 100644 --- a/src/Layers/FI/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al +++ b/src/Layers/FI/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al @@ -146,7 +146,8 @@ table 21 "Cust. Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; Editable = false; FieldClass = FlowField; @@ -175,7 +176,8 @@ table 21 "Cust. Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; @@ -1148,11 +1150,6 @@ table 21 "Cust. Ledger Entry" } } - trigger OnInsert() - begin - TestField("G/L Register No."); - end; - var #pragma warning disable AA0074 #pragma warning disable AA0470 diff --git a/src/Layers/FR/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al b/src/Layers/FR/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al index 1b7646945a..542e3f3b4c 100644 --- a/src/Layers/FR/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al +++ b/src/Layers/FR/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al @@ -213,7 +213,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Cust. Balances Due'; Editable = false; FieldClass = FlowField; @@ -227,7 +228,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balances Due'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/FR/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al b/src/Layers/FR/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al index 30a3cc7e21..2bb53e8824 100644 --- a/src/Layers/FR/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al +++ b/src/Layers/FR/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al @@ -262,6 +262,11 @@ table 380 "Detailed Vendor Ledg. Entry" TableRelation = "G/L Register"; ToolTip = 'Specifies the G/L register number that groups related G/L entries from the same posting.'; } + field(7000004; "Excluded from calculation"; Boolean) + { + Caption = 'Excluded from calculation'; + Editable = false; + } field(10801; "Curr. Adjmt. G/L Account No."; Code[20]) { Caption = 'Curr. Adjmt. G/L Account No.'; @@ -275,7 +280,7 @@ table 380 "Detailed Vendor Ledg. Entry" { Clustered = true; } - key(Key2; "Vendor No.", "Currency Code") + key(Key2; "Vendor No.", "Currency Code", "Excluded from calculation") { SumIndexFields = Amount, "Amount (LCY)"; } @@ -283,7 +288,7 @@ table 380 "Detailed Vendor Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key4; "Vendor Ledger Entry No.", "Ledger Entry Amount", "Posting Date") + key(Key4; "Vendor Ledger Entry No.", "Ledger Entry Amount", "Posting Date", "Excluded from calculation") { IncludedFields = "Currency Code", Amount, "Amount (LCY)", "Debit Amount", "Credit Amount", "Debit Amount (LCY)", "Credit Amount (LCY)"; } @@ -291,7 +296,7 @@ table 380 "Detailed Vendor Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key6; "Vendor No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date") + key(Key6; "Vendor No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date", "Excluded from calculation") { IncludedFields = Amount, "Amount (LCY)"; } diff --git a/src/Layers/FR/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al b/src/Layers/FR/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al index 03090760bd..f979882a28 100644 --- a/src/Layers/FR/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al +++ b/src/Layers/FR/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al @@ -101,7 +101,8 @@ table 25 "Vendor Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Vendor Ledg. Entry".Amount where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; ToolTip = 'Specifies the amount that remains to be applied to before the entry is totally applied to.'; Editable = false; @@ -123,7 +124,8 @@ table 25 "Vendor Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/FR/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/FR/BaseApp/Purchases/Vendor/Vendor.Table.al index 63dcb0e4ee..2c16fb8d42 100644 --- a/src/Layers/FR/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/FR/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -485,7 +485,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry".Amount where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -497,7 +498,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -510,7 +512,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -523,7 +526,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -576,7 +580,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -589,7 +594,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/FR/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/FR/BaseApp/Sales/Customer/Customer.Table.al index 876f8c3334..c2162221e6 100644 --- a/src/Layers/FR/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/FR/BaseApp/Sales/Customer/Customer.Table.al @@ -732,7 +732,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -747,7 +748,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -764,7 +766,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -780,7 +783,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -862,7 +866,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -878,7 +883,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Overdue Balance (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/FR/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al b/src/Layers/FR/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al index 130ae3d200..117c46752c 100644 --- a/src/Layers/FR/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al +++ b/src/Layers/FR/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al @@ -146,7 +146,8 @@ table 21 "Cust. Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; Editable = false; FieldClass = FlowField; @@ -175,7 +176,8 @@ table 21 "Cust. Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; @@ -1097,23 +1099,23 @@ table 21 "Cust. Ledger Entry" key(Key17; "Customer No.", "Applies-to ID", Open, Positive, "Due Date") { } - key(Key23; "Document Type", "Posting Date") + key(Key18; "Document Type", "Posting Date") { SumIndexFields = "Sales (LCY)"; } - key(Key24; "Document Type", "Customer No.", Open, "Due Date") + key(Key19; "Document Type", "Customer No.", Open, "Due Date") { } - key(Key25; "Customer Posting Group") + key(Key20; "Customer Posting Group") { } - key(Key26; "Document Type", Open, "Posting Date", "Closed at Date") + key(Key21; "Document Type", Open, "Posting Date", "Closed at Date") { } - key(Key27; "Salesperson Code") + key(Key22; "Salesperson Code") { } - key(Key28; SystemModifiedAt) + key(Key23; SystemModifiedAt) { } key(Key35; "Customer No.", "Posting Date", "Applies-to ID") @@ -1140,11 +1142,6 @@ table 21 "Cust. Ledger Entry" } } - trigger OnInsert() - begin - TestField("G/L Register No."); - end; - var #pragma warning disable AA0074 #pragma warning disable AA0470 diff --git a/src/Layers/FR/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al b/src/Layers/FR/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al index 550a536483..f6370cd11f 100644 --- a/src/Layers/FR/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al +++ b/src/Layers/FR/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al @@ -381,6 +381,11 @@ table 379 "Detailed Cust. Ledg. Entry" TableRelation = "G/L Register"; ToolTip = 'Specifies the G/L register number that groups related G/L entries from the same posting.'; } + field(7000004; "Excluded from calculation"; Boolean) + { + Caption = 'Excluded from calculation'; + Editable = false; + } field(10801; "Curr. Adjmt. G/L Account No."; Code[20]) { Caption = 'Curr. Adjmt. G/L Account No.'; @@ -394,7 +399,7 @@ table 379 "Detailed Cust. Ledg. Entry" { Clustered = true; } - key(Key2; "Customer No.", "Currency Code") + key(Key2; "Customer No.", "Currency Code", "Excluded from calculation") { SumIndexFields = Amount, "Amount (LCY)"; } @@ -406,7 +411,7 @@ table 379 "Detailed Cust. Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key6; "Customer No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date") + key(Key6; "Customer No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date", "Excluded from calculation") { IncludedFields = Amount, "Amount (LCY)"; } @@ -436,7 +441,7 @@ table 379 "Detailed Cust. Ledg. Entry" } key(Key14; "Customer No.", "Initial Entry Due Date") { - IncludedFields = Amount, "Amount (LCY)"; + IncludedFields = Amount, "Amount (LCY)", "Excluded from calculation"; } } diff --git a/src/Layers/GB/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al b/src/Layers/GB/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al index f813ae10fc..77554ba84b 100644 --- a/src/Layers/GB/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al +++ b/src/Layers/GB/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al @@ -206,7 +206,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Cust. Balances Due'; Editable = false; FieldClass = FlowField; @@ -220,7 +221,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balances Due'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/GB/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al b/src/Layers/GB/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al index 6ee982d2c5..7cb1dac67d 100644 --- a/src/Layers/GB/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al +++ b/src/Layers/GB/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al @@ -101,7 +101,8 @@ table 25 "Vendor Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Vendor Ledg. Entry".Amount where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; ToolTip = 'Specifies the amount that remains to be applied to before the entry is totally applied to.'; Editable = false; @@ -123,7 +124,8 @@ table 25 "Vendor Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/GB/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/GB/BaseApp/Purchases/Vendor/Vendor.Table.al index c6c9948977..df2a8a2f0b 100644 --- a/src/Layers/GB/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/GB/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -482,7 +482,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry".Amount where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -494,7 +495,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -507,7 +509,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -520,7 +523,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -573,7 +577,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -586,7 +591,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/IS/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al b/src/Layers/IS/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al index 8404191cb5..5e69060603 100644 --- a/src/Layers/IS/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al +++ b/src/Layers/IS/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al @@ -146,7 +146,8 @@ table 21 "Cust. Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; Editable = false; FieldClass = FlowField; @@ -175,7 +176,8 @@ table 21 "Cust. Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; @@ -1149,11 +1151,6 @@ table 21 "Cust. Ledger Entry" } } - trigger OnInsert() - begin - TestField("G/L Register No."); - end; - var #pragma warning disable AA0074 #pragma warning disable AA0470 diff --git a/src/Layers/IT/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al b/src/Layers/IT/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al index 1a8dd3bea6..16ce119ca8 100644 --- a/src/Layers/IT/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al +++ b/src/Layers/IT/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al @@ -211,7 +211,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Cust. Balances Due'; Editable = false; FieldClass = FlowField; @@ -225,7 +226,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balances Due'; Editable = false; FieldClass = FlowField; @@ -1248,7 +1250,7 @@ table 98 "General Ledger Setup" field(188; "Control VAT Period"; Enum "VAT Period Control") { Caption = 'Control VAT Period'; - ToolTip = 'Specifies a way of using VAT Date against VAT Return Periods. If you choose ‘Block posting within closed and warn for released period’, system will not allow postings in closed VAT Return Period, but if the period is not closed, but VAT returns are released or submitted, user will be warned what try to post an entry with VAT Date in this period. If you choose ‘Block posting within closed period’, system will still not allow postings in closed VAT Return Period, but there will be no warnings for release or submitted VAT returns. If you choose ‘Warn when posting in closed period’, system will not block posting entry with VAT Date in the closed VAT return period, but it will show warning message before posting. And if you choose ‘Disabled’ options, system will allow you to post without any control regardless of VAT return or period status.'; + ToolTip = 'Specifies a way of using VAT Date against VAT Return Periods. If you choose Block posting within closed and warn for released period, system will not allow postings in closed VAT Return Period, but if the period is not closed, but VAT returns are released or submitted, user will be warned what try to post an entry with VAT Date in this period. If you choose Block posting within closed period, system will still not allow postings in closed VAT Return Period, but there will be no warnings for release or submitted VAT returns. If you choose ˜Warn when posting in closed period, system will not block posting entry with VAT Date in the closed VAT return period, but it will show warning message before posting. And if you choose ˜Disabled options, system will allow you to post without any control regardless of VAT return or period status.'; trigger OnValidate() begin diff --git a/src/Layers/IT/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al b/src/Layers/IT/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al index dbc48c53ca..cfa077ca43 100644 --- a/src/Layers/IT/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al +++ b/src/Layers/IT/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al @@ -261,6 +261,11 @@ table 380 "Detailed Vendor Ledg. Entry" TableRelation = "G/L Register"; ToolTip = 'Specifies the G/L register number that groups related G/L entries from the same posting.'; } + field(7000004; "Excluded from calculation"; Boolean) + { + Caption = 'Excluded from calculation'; + Editable = false; + } field(12103; "Original Document Type"; Enum "Gen. Journal Document Type") { Caption = 'Original Document Type'; @@ -277,7 +282,7 @@ table 380 "Detailed Vendor Ledg. Entry" { Clustered = true; } - key(Key2; "Vendor No.", "Currency Code") + key(Key2; "Vendor No.", "Currency Code", "Excluded from calculation") { SumIndexFields = Amount, "Amount (LCY)"; } @@ -285,7 +290,7 @@ table 380 "Detailed Vendor Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key4; "Vendor Ledger Entry No.", "Ledger Entry Amount", "Posting Date") + key(Key4; "Vendor Ledger Entry No.", "Ledger Entry Amount", "Posting Date", "Excluded from calculation") { IncludedFields = "Currency Code", Amount, "Amount (LCY)", "Debit Amount", "Credit Amount", "Debit Amount (LCY)", "Credit Amount (LCY)"; } @@ -293,7 +298,7 @@ table 380 "Detailed Vendor Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key6; "Vendor No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date") + key(Key6; "Vendor No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date", "Excluded from calculation") { IncludedFields = Amount, "Amount (LCY)"; } diff --git a/src/Layers/IT/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al b/src/Layers/IT/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al index a2ed5fa152..604b51fe83 100644 --- a/src/Layers/IT/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al +++ b/src/Layers/IT/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al @@ -102,7 +102,8 @@ table 25 "Vendor Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Vendor Ledg. Entry".Amount where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; ToolTip = 'Specifies the amount that remains to be applied to before the entry is totally applied to.'; Editable = false; @@ -124,7 +125,8 @@ table 25 "Vendor Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/IT/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/IT/BaseApp/Purchases/Vendor/Vendor.Table.al index 66ebf4233c..91d4180a0b 100644 --- a/src/Layers/IT/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/IT/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -486,7 +486,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry".Amount where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -498,7 +499,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -511,7 +513,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -524,7 +527,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -577,7 +581,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -590,7 +595,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/IT/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/IT/BaseApp/Sales/Customer/Customer.Table.al index bf2be9ad64..f734ed7b0b 100644 --- a/src/Layers/IT/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/IT/BaseApp/Sales/Customer/Customer.Table.al @@ -730,7 +730,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -745,7 +746,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -762,7 +764,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -778,7 +781,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -860,7 +864,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -876,7 +881,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Overdue Balance (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/IT/BaseApp/Sales/Customer/Statement.Report.al b/src/Layers/IT/BaseApp/Sales/Customer/Statement.Report.al index 1e37747bb4..59e0d8fee1 100644 --- a/src/Layers/IT/BaseApp/Sales/Customer/Statement.Report.al +++ b/src/Layers/IT/BaseApp/Sales/Customer/Statement.Report.al @@ -227,7 +227,7 @@ report 116 Statement } dataitem("Detailed Cust. Ledg. Entry"; "Detailed Cust. Ledg. Entry") { - DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code"); + DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code") where("Excluded from calculation" = const(false)); column(PostDate_DtldCustLedgEntries; Format("Posting Date")) { } diff --git a/src/Layers/IT/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al b/src/Layers/IT/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al index 1a54642045..31144dde48 100644 --- a/src/Layers/IT/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al +++ b/src/Layers/IT/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al @@ -147,7 +147,8 @@ table 21 "Cust. Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; Editable = false; FieldClass = FlowField; @@ -176,7 +177,8 @@ table 21 "Cust. Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; @@ -1272,11 +1274,6 @@ table 21 "Cust. Ledger Entry" } } - trigger OnInsert() - begin - TestField("G/L Register No."); - end; - var #pragma warning disable AA0074 #pragma warning disable AA0470 diff --git a/src/Layers/IT/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al b/src/Layers/IT/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al index 2c721ebadb..cab73063d8 100644 --- a/src/Layers/IT/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al +++ b/src/Layers/IT/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al @@ -380,6 +380,11 @@ table 379 "Detailed Cust. Ledg. Entry" TableRelation = "G/L Register"; ToolTip = 'Specifies the G/L register number that groups related G/L entries from the same posting.'; } + field(7000004; "Excluded from calculation"; Boolean) + { + Caption = 'Excluded from calculation'; + Editable = false; + } field(12100; "Bank Receipt Issued"; Boolean) { Caption = 'Bank Receipt Issued'; @@ -404,7 +409,7 @@ table 379 "Detailed Cust. Ledg. Entry" { Clustered = true; } - key(Key2; "Customer No.", "Currency Code") + key(Key2; "Customer No.", "Currency Code", "Excluded from calculation") { SumIndexFields = Amount, "Amount (LCY)"; } @@ -416,7 +421,7 @@ table 379 "Detailed Cust. Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key6; "Customer No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date") + key(Key6; "Customer No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date", "Excluded from calculation") { IncludedFields = Amount, "Amount (LCY)"; } diff --git a/src/Layers/NA/BaseApp/Finance/Currency/Currency.Table.al b/src/Layers/NA/BaseApp/Finance/Currency/Currency.Table.al index d01e011027..9f8111fdf8 100644 --- a/src/Layers/NA/BaseApp/Finance/Currency/Currency.Table.al +++ b/src/Layers/NA/BaseApp/Finance/Currency/Currency.Table.al @@ -421,7 +421,8 @@ table 4 Currency "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Initial Entry Due Date" = field("Date Filter"), "Posting Date" = field(upperlimit("Date Filter")), - "Currency Code" = field(Code))); + "Currency Code" = field(Code), + "Excluded from calculation" = const(false))); Caption = 'Customer Balance Due'; ToolTip = 'Specifies the payment amount that the customer owes you for completed sales where the payment date is exceeded.'; Editable = false; @@ -510,7 +511,8 @@ table 4 Currency "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Initial Entry Due Date" = field("Date Filter"), "Posting Date" = field(upperlimit("Date Filter")), - "Currency Code" = field(Code))); + "Currency Code" = field(Code), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balance Due'; ToolTip = 'Specifies the payment amount that you owe the vendor for completed purchases where the payment date is exceeded.'; Editable = false; diff --git a/src/Layers/NA/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al b/src/Layers/NA/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al index 6e64f925f1..01225d8cd6 100644 --- a/src/Layers/NA/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al +++ b/src/Layers/NA/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al @@ -209,7 +209,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Cust. Balances Due'; Editable = false; FieldClass = FlowField; @@ -223,7 +224,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balances Due'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/NA/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al b/src/Layers/NA/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al index 1b94400a79..cb2c102b8e 100644 --- a/src/Layers/NA/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al +++ b/src/Layers/NA/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al @@ -101,7 +101,8 @@ table 25 "Vendor Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Vendor Ledg. Entry".Amount where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; ToolTip = 'Specifies the amount that remains to be applied to before the entry is totally applied to.'; Editable = false; @@ -123,7 +124,8 @@ table 25 "Vendor Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/NA/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/NA/BaseApp/Purchases/Vendor/Vendor.Table.al index f9854c025c..461f22c891 100644 --- a/src/Layers/NA/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/NA/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -482,7 +482,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry".Amount where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -494,7 +495,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -507,7 +509,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -520,7 +523,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -573,7 +577,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -586,7 +591,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/NA/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/NA/BaseApp/Sales/Customer/Customer.Table.al index 6100a9d911..2ef6876c84 100644 --- a/src/Layers/NA/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/NA/BaseApp/Sales/Customer/Customer.Table.al @@ -730,7 +730,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -745,7 +746,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -762,7 +764,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -778,7 +781,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -860,7 +864,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -876,7 +881,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Overdue Balance (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/NA/BaseApp/Sales/Customer/StandardStatement.Report.al b/src/Layers/NA/BaseApp/Sales/Customer/StandardStatement.Report.al index 7ef433a683..1b8090e868 100644 --- a/src/Layers/NA/BaseApp/Sales/Customer/StandardStatement.Report.al +++ b/src/Layers/NA/BaseApp/Sales/Customer/StandardStatement.Report.al @@ -243,7 +243,7 @@ report 1316 "Standard Statement" } dataitem(DtldCustLedgEntries; "Detailed Cust. Ledg. Entry") { - DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code"); + DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code") where("Excluded from calculation" = const(false)); column(PostDate_DtldCustLedgEntries; Format("Posting Date")) { } @@ -586,7 +586,7 @@ report 1316 "Standard Statement" if ("Posting Date" > EndDate) and ("Due Date" >= EndDate) then CurrReport.Skip(); if DateChoice = DateChoice::"Due Date" then - if "Due Date" > EndDate then + if "Due Date" >= EndDate then CurrReport.Skip(); CustLedgEntry := AgingCustLedgEntry; CustLedgEntry.SetRange("Date Filter", 0D, EndDate); @@ -878,7 +878,7 @@ report 1316 "Standard Statement" { ApplicationArea = Basic, Suite; Caption = 'Include Aging Band'; - ToolTip = 'Specifies if you want an aging band to be included in the document. If you select the check box, then you must also fill the Aging Band Period Length and Aging Band by fields.'; + ToolTip = 'Specifies if you want an aging band to be included in the document. If you place a check mark here, you must also fill in the Aging Band Period Length and Aging Band by fields.'; } field(AgingBandPeriodLengt; PeriodLength) { diff --git a/src/Layers/NA/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al b/src/Layers/NA/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al index 42804c94aa..044f2feb07 100644 --- a/src/Layers/NA/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al +++ b/src/Layers/NA/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al @@ -148,7 +148,8 @@ table 21 "Cust. Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; Editable = false; FieldClass = FlowField; @@ -177,7 +178,8 @@ table 21 "Cust. Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; @@ -1266,11 +1268,6 @@ table 21 "Cust. Ledger Entry" } } - trigger OnInsert() - begin - TestField("G/L Register No."); - end; - var #pragma warning disable AA0074 #pragma warning disable AA0470 diff --git a/src/Layers/NL/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al b/src/Layers/NL/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al index 66bd42c265..4c360158b4 100644 --- a/src/Layers/NL/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al +++ b/src/Layers/NL/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al @@ -206,7 +206,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Cust. Balances Due'; Editable = false; FieldClass = FlowField; @@ -220,7 +221,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balances Due'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/NL/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al b/src/Layers/NL/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al index b5111ae5cc..1be6126bac 100644 --- a/src/Layers/NL/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al +++ b/src/Layers/NL/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al @@ -102,7 +102,8 @@ table 25 "Vendor Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Vendor Ledg. Entry".Amount where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; ToolTip = 'Specifies the amount that remains to be applied to before the entry is totally applied to.'; Editable = false; @@ -124,7 +125,8 @@ table 25 "Vendor Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/NL/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/NL/BaseApp/Purchases/Vendor/Vendor.Table.al index 78e096699a..7f5d1df4e7 100644 --- a/src/Layers/NL/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/NL/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -491,7 +491,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry".Amount where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -503,7 +504,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -516,7 +518,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -529,7 +532,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -582,7 +586,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -595,7 +600,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/NL/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/NL/BaseApp/Sales/Customer/Customer.Table.al index 4618dc1c87..fbd22cd21d 100644 --- a/src/Layers/NL/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/NL/BaseApp/Sales/Customer/Customer.Table.al @@ -739,7 +739,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -754,7 +755,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -771,7 +773,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -787,7 +790,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -869,7 +873,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -885,7 +890,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Overdue Balance (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/NL/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al b/src/Layers/NL/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al index 033cf8387b..7d0219757a 100644 --- a/src/Layers/NL/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al +++ b/src/Layers/NL/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al @@ -147,7 +147,8 @@ table 21 "Cust. Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; Editable = false; FieldClass = FlowField; @@ -176,7 +177,8 @@ table 21 "Cust. Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; @@ -1184,11 +1186,6 @@ table 21 "Cust. Ledger Entry" } } - trigger OnInsert() - begin - TestField("G/L Register No."); - end; - var #pragma warning disable AA0074 #pragma warning disable AA0470 diff --git a/src/Layers/NO/BaseApp/Finance/Currency/Currency.Table.al b/src/Layers/NO/BaseApp/Finance/Currency/Currency.Table.al index 145a9deb02..be2d1d02e1 100644 --- a/src/Layers/NO/BaseApp/Finance/Currency/Currency.Table.al +++ b/src/Layers/NO/BaseApp/Finance/Currency/Currency.Table.al @@ -421,7 +421,8 @@ table 4 Currency "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Initial Entry Due Date" = field("Date Filter"), "Posting Date" = field(upperlimit("Date Filter")), - "Currency Code" = field(Code))); + "Currency Code" = field(Code), + "Excluded from calculation" = const(false))); Caption = 'Customer Balance Due'; ToolTip = 'Specifies the payment amount that the customer owes you for completed sales where the payment date is exceeded.'; Editable = false; @@ -510,7 +511,8 @@ table 4 Currency "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Initial Entry Due Date" = field("Date Filter"), "Posting Date" = field(upperlimit("Date Filter")), - "Currency Code" = field(Code))); + "Currency Code" = field(Code), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balance Due'; ToolTip = 'Specifies the payment amount that you owe the vendor for completed purchases where the payment date is exceeded.'; Editable = false; diff --git a/src/Layers/NO/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al b/src/Layers/NO/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al index 166fb7d7da..a645918fa6 100644 --- a/src/Layers/NO/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al +++ b/src/Layers/NO/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al @@ -206,7 +206,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Cust. Balances Due'; Editable = false; FieldClass = FlowField; @@ -220,7 +221,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balances Due'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/NO/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al b/src/Layers/NO/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al index 08da9f92bb..c01fced8e0 100644 --- a/src/Layers/NO/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al +++ b/src/Layers/NO/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al @@ -101,7 +101,8 @@ table 25 "Vendor Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Vendor Ledg. Entry".Amount where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; ToolTip = 'Specifies the amount that remains to be applied to before the entry is totally applied to.'; Editable = false; @@ -123,7 +124,8 @@ table 25 "Vendor Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/NO/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/NO/BaseApp/Purchases/Vendor/Vendor.Table.al index a9fe015488..bc1b99e3d1 100644 --- a/src/Layers/NO/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/NO/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -482,7 +482,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry".Amount where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -494,7 +495,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -507,7 +509,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -520,7 +523,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -573,7 +577,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -586,7 +591,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/NO/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/NO/BaseApp/Sales/Customer/Customer.Table.al index 4843dc5996..bd976f4109 100644 --- a/src/Layers/NO/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/NO/BaseApp/Sales/Customer/Customer.Table.al @@ -729,7 +729,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -744,7 +745,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -761,7 +763,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -777,7 +780,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -859,7 +863,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -875,7 +880,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Overdue Balance (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/NO/BaseApp/Sales/Customer/Statement.Report.al b/src/Layers/NO/BaseApp/Sales/Customer/Statement.Report.al index 4837b37b88..c823113c1c 100644 --- a/src/Layers/NO/BaseApp/Sales/Customer/Statement.Report.al +++ b/src/Layers/NO/BaseApp/Sales/Customer/Statement.Report.al @@ -232,7 +232,7 @@ report 116 Statement } dataitem("Detailed Cust. Ledg. Entry"; "Detailed Cust. Ledg. Entry") { - DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code"); + DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code") where("Excluded from calculation" = const(false)); column(PostDate_DtldCustLedgEntries; Format("Posting Date")) { } diff --git a/src/Layers/RU/BaseApp/Finance/Currency/Currency.Table.al b/src/Layers/RU/BaseApp/Finance/Currency/Currency.Table.al index 15c8547424..ae1ed05faa 100644 --- a/src/Layers/RU/BaseApp/Finance/Currency/Currency.Table.al +++ b/src/Layers/RU/BaseApp/Finance/Currency/Currency.Table.al @@ -518,6 +518,7 @@ table 4 Currency "Initial Entry Due Date" = field("Date Filter"), "Posting Date" = field(upperlimit("Date Filter")), "Currency Code" = field(Code), + "Excluded from calculation" = const(false)), "Agreement No." = field("Agreement Filter"))); Caption = 'Vendor Balance Due'; ToolTip = 'Specifies the payment amount that you owe the vendor for completed purchases where the payment date is exceeded.'; @@ -537,6 +538,7 @@ table 4 Currency "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), "Currency Code" = field(Code), + "Excluded from calculation" = const(false)), "Agreement No." = field("Agreement Filter"))); Caption = 'Customer Balance (LCY)'; Editable = false; @@ -556,6 +558,7 @@ table 4 Currency "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), "Currency Code" = field(Code), + "Excluded from calculation" = const(false)), "Agreement No." = field("Agreement Filter"))); Caption = 'Vendor Balance (LCY)'; Editable = false; diff --git a/src/Layers/RU/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al b/src/Layers/RU/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al index cd7486ab37..c958a44d63 100644 --- a/src/Layers/RU/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al +++ b/src/Layers/RU/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al @@ -208,7 +208,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Cust. Balances Due'; Editable = false; FieldClass = FlowField; @@ -222,7 +223,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balances Due'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/RU/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al b/src/Layers/RU/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al index de2ab31d43..2662921130 100644 --- a/src/Layers/RU/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al +++ b/src/Layers/RU/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al @@ -297,6 +297,11 @@ table 380 "Detailed Vendor Ledg. Entry" TableRelation = "G/L Register"; ToolTip = 'Specifies the G/L register number that groups related G/L entries from the same posting.'; } + field(7000004; "Excluded from calculation"; Boolean) + { + Caption = 'Excluded from calculation'; + Editable = false; + } } keys @@ -305,7 +310,7 @@ table 380 "Detailed Vendor Ledg. Entry" { Clustered = true; } - key(Key2; "Vendor No.", "Currency Code") + key(Key2; "Vendor No.", "Currency Code", "Excluded from calculation") { SumIndexFields = Amount, "Amount (LCY)"; } @@ -313,7 +318,7 @@ table 380 "Detailed Vendor Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key4; "Vendor Ledger Entry No.", "Ledger Entry Amount", "Posting Date") + key(Key4; "Vendor Ledger Entry No.", "Ledger Entry Amount", "Posting Date", "Excluded from calculation") { IncludedFields = "Currency Code", Amount, "Amount (LCY)", "Debit Amount", "Credit Amount", "Debit Amount (LCY)", "Credit Amount (LCY)"; } diff --git a/src/Layers/RU/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al b/src/Layers/RU/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al index 8266e01f45..82dccf794c 100644 --- a/src/Layers/RU/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al +++ b/src/Layers/RU/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al @@ -103,6 +103,7 @@ table 25 "Vendor Ledger Entry" AutoFormatType = 1; CalcFormula = sum("Detailed Vendor Ledg. Entry".Amount where("Vendor Ledger Entry No." = field("Entry No."), "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false), "Prepmt. Diff. in TA" = const(false))); Caption = 'Remaining Amount'; ToolTip = 'Specifies the amount that remains to be applied to before the entry is totally applied to.'; @@ -127,6 +128,7 @@ table 25 "Vendor Ledger Entry" AutoFormatExpression = ''; CalcFormula = sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor Ledger Entry No." = field("Entry No."), "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false), "Prepmt. Diff. in TA" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; @@ -918,8 +920,6 @@ table 25 "Vendor Ledger Entry" var #pragma warning disable AA0470 MustHaveSameSignErr: Label 'must have the same sign as %1'; -#pragma warning restore AA0470 -#pragma warning disable AA0470 MustNotBeLargerErr: Label 'must not be larger than %1'; #pragma warning restore AA0470 #pragma warning disable AA0074 diff --git a/src/Layers/RU/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/RU/BaseApp/Purchases/Vendor/Vendor.Table.al index 3b99256507..632dbe0e38 100644 --- a/src/Layers/RU/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/RU/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -486,6 +486,7 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false), "Agreement No." = field("Agreement Filter"), "Prepmt. Diff. in TA" = const(false))); Caption = 'Balance'; @@ -500,6 +501,7 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false), "Agreement No." = field("Agreement Filter"), "Prepmt. Diff. in TA" = const(false))); Caption = 'Balance (LCY)'; @@ -515,6 +517,7 @@ table 23 Vendor "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false), "Agreement No." = field("Agreement Filter"), "Prepmt. Diff. in TA" = const(false))); Caption = 'Net Change'; @@ -530,6 +533,7 @@ table 23 Vendor "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false), "Agreement No." = field("Agreement Filter"), "Prepmt. Diff. in TA" = const(false))); Caption = 'Net Change (LCY)'; @@ -544,6 +548,7 @@ table 23 Vendor "Global Dimension 1 Code" = field("Global Dimension 1 Filter"), "Global Dimension 2 Code" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false), "Currency Code" = field("Currency Filter"), "Agreement No." = field("Agreement Filter"))); Caption = 'Purchases (LCY)'; @@ -558,6 +563,7 @@ table 23 Vendor "Global Dimension 1 Code" = field("Global Dimension 1 Filter"), "Global Dimension 2 Code" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false), "Currency Code" = field("Currency Filter"), "Agreement No." = field("Agreement Filter"))); Caption = 'Inv. Discounts (LCY)'; @@ -588,6 +594,7 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false), "Agreement No." = field("Agreement Filter"), "Prepmt. Diff. in TA" = const(false))); Caption = 'Balance Due'; @@ -603,6 +610,7 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false), "Agreement No." = field("Agreement Filter"), "Prepmt. Diff. in TA" = const(false))); Caption = 'Balance Due (LCY)'; diff --git a/src/Layers/RU/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/RU/BaseApp/Sales/Customer/Customer.Table.al index 3b47a1919c..aaafdf92a0 100644 --- a/src/Layers/RU/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/RU/BaseApp/Sales/Customer/Customer.Table.al @@ -732,6 +732,7 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false), "Agreement No." = field("Agreement Filter"), "Prepmt. Diff. in TA" = const(false))); Caption = 'Balance'; @@ -749,6 +750,7 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false), "Agreement No." = field("Agreement Filter"), "Prepmt. Diff. in TA" = const(false))); Caption = 'Balance (LCY)'; @@ -768,6 +770,7 @@ table 18 Customer "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false), "Agreement No." = field("Agreement Filter"), "Prepmt. Diff. in TA" = const(false))); Caption = 'Net Change'; @@ -786,6 +789,7 @@ table 18 Customer "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false), "Agreement No." = field("Agreement Filter"), "Prepmt. Diff. in TA" = const(false))); Caption = 'Net Change (LCY)'; @@ -874,6 +878,7 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false), "Agreement No." = field("Agreement Filter"), "Prepmt. Diff. in TA" = const(false))); Caption = 'Balance Due'; @@ -892,6 +897,7 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false), "Agreement No." = field("Agreement Filter"), "Prepmt. Diff. in TA" = const(false))); Caption = 'Overdue Balance (LCY)'; diff --git a/src/Layers/RU/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al b/src/Layers/RU/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al index 3937cb9242..a992fa3de8 100644 --- a/src/Layers/RU/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al +++ b/src/Layers/RU/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al @@ -148,6 +148,7 @@ table 21 "Cust. Ledger Entry" AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Cust. Ledger Entry No." = field("Entry No."), "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false), "Prepmt. Diff. in TA" = const(false))); Caption = 'Remaining Amount'; Editable = false; @@ -179,6 +180,7 @@ table 21 "Cust. Ledger Entry" AutoFormatExpression = ''; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Cust. Ledger Entry No." = field("Entry No."), "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false), "Prepmt. Diff. in TA" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; @@ -487,7 +489,7 @@ table 21 "Cust. Ledger Entry" /// /// Specifies the type of balancing account used in the original transaction, such as G/L Account, Bank Account, or Vendor. /// - field(51; "Bal. Account Type"; enum "Gen. Journal Account Type") + field(51; "Bal. Account Type"; Enum "Gen. Journal Account Type") { Caption = 'Bal. Account Type'; ToolTip = 'Specifies the type of account that a balancing entry is posted to, such as BANK for a cash account.'; @@ -1218,10 +1220,6 @@ table 21 "Cust. Ledger Entry" #pragma warning disable AA0074 #pragma warning disable AA0470 Text000: Label 'must have the same sign as %1'; -#pragma warning restore AA0470 -#pragma warning restore AA0074 -#pragma warning disable AA0074 -#pragma warning disable AA0470 Text001: Label 'must not be larger than %1'; #pragma warning restore AA0470 #pragma warning restore AA0074 diff --git a/src/Layers/RU/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al b/src/Layers/RU/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al index 29829af502..2ea0ca4a82 100644 --- a/src/Layers/RU/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al +++ b/src/Layers/RU/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al @@ -380,6 +380,11 @@ table 379 "Detailed Cust. Ledg. Entry" TableRelation = "G/L Register"; ToolTip = 'Specifies the G/L register number that groups related G/L entries from the same posting.'; } + field(7000004; "Excluded from calculation"; Boolean) + { + Caption = 'Excluded from calculation'; + Editable = false; + } field(12401; Prepayment; Boolean) { Caption = 'Prepayment'; @@ -424,7 +429,7 @@ table 379 "Detailed Cust. Ledg. Entry" { Clustered = true; } - key(Key2; "Customer No.", "Currency Code") + key(Key2; "Customer No.", "Currency Code", "Excluded from calculation") { SumIndexFields = Amount, "Amount (LCY)"; } @@ -436,7 +441,7 @@ table 379 "Detailed Cust. Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key6; "Customer No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Agreement No.", "Prepmt. Diff. in TA", "Posting Date") + key(Key6; "Customer No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date", "Excluded from calculation") { IncludedFields = Amount, "Amount (LCY)"; } @@ -466,7 +471,7 @@ table 379 "Detailed Cust. Ledg. Entry" } key(Key14; "Customer No.", "Initial Entry Due Date") { - IncludedFields = Amount, "Amount (LCY)"; + IncludedFields = Amount, "Amount (LCY)", "Excluded from calculation"; } } diff --git a/src/Layers/SE/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al b/src/Layers/SE/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al index 0a622e8443..ac6c78a476 100644 --- a/src/Layers/SE/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al +++ b/src/Layers/SE/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al @@ -206,7 +206,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Cust. Balances Due'; Editable = false; FieldClass = FlowField; @@ -220,7 +221,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balances Due'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/W1/BaseApp/Finance/Currency/Currency.Table.al b/src/Layers/W1/BaseApp/Finance/Currency/Currency.Table.al index 61073a900e..3b2ac2a7de 100644 --- a/src/Layers/W1/BaseApp/Finance/Currency/Currency.Table.al +++ b/src/Layers/W1/BaseApp/Finance/Currency/Currency.Table.al @@ -421,7 +421,8 @@ table 4 Currency "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Initial Entry Due Date" = field("Date Filter"), "Posting Date" = field(upperlimit("Date Filter")), - "Currency Code" = field(Code))); + "Currency Code" = field(Code), + "Excluded from calculation" = const(false))); Caption = 'Customer Balance Due'; ToolTip = 'Specifies the payment amount that the customer owes you for completed sales where the payment date is exceeded.'; Editable = false; @@ -510,7 +511,8 @@ table 4 Currency "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Initial Entry Due Date" = field("Date Filter"), "Posting Date" = field(upperlimit("Date Filter")), - "Currency Code" = field(Code))); + "Currency Code" = field(Code), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balance Due'; ToolTip = 'Specifies the payment amount that you owe the vendor for completed purchases where the payment date is exceeded.'; Editable = false; diff --git a/src/Layers/W1/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al b/src/Layers/W1/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al index 0a622e8443..ac6c78a476 100644 --- a/src/Layers/W1/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al +++ b/src/Layers/W1/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al @@ -206,7 +206,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Cust. Balances Due'; Editable = false; FieldClass = FlowField; @@ -220,7 +221,8 @@ table 98 "General Ledger Setup" AutoFormatType = 1; CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Initial Entry Due Date" = field("Date Filter"))); + "Initial Entry Due Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Vendor Balances Due'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/W1/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al b/src/Layers/W1/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al index 99e924f007..2eee72f098 100644 --- a/src/Layers/W1/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al +++ b/src/Layers/W1/BaseApp/Purchases/Payables/DetailedVendorLedgEntry.Table.al @@ -261,6 +261,11 @@ table 380 "Detailed Vendor Ledg. Entry" TableRelation = "G/L Register"; ToolTip = 'Specifies the G/L register number that groups related G/L entries from the same posting.'; } + field(7000004; "Excluded from calculation"; Boolean) + { + Caption = 'Excluded from calculation'; + Editable = false; + } } keys @@ -269,7 +274,7 @@ table 380 "Detailed Vendor Ledg. Entry" { Clustered = true; } - key(Key2; "Vendor No.", "Currency Code") + key(Key2; "Vendor No.", "Currency Code", "Excluded from calculation") { SumIndexFields = Amount, "Amount (LCY)"; } @@ -277,7 +282,7 @@ table 380 "Detailed Vendor Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key4; "Vendor Ledger Entry No.", "Ledger Entry Amount", "Posting Date") + key(Key4; "Vendor Ledger Entry No.", "Ledger Entry Amount", "Posting Date", "Excluded from calculation") { IncludedFields = "Currency Code", Amount, "Amount (LCY)", "Debit Amount", "Credit Amount", "Debit Amount (LCY)", "Credit Amount (LCY)"; } @@ -285,7 +290,7 @@ table 380 "Detailed Vendor Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key6; "Vendor No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date") + key(Key6; "Vendor No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date", "Excluded from calculation") { IncludedFields = Amount, "Amount (LCY)"; } diff --git a/src/Layers/W1/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al b/src/Layers/W1/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al index 03090760bd..f979882a28 100644 --- a/src/Layers/W1/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al +++ b/src/Layers/W1/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al @@ -101,7 +101,8 @@ table 25 "Vendor Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Vendor Ledg. Entry".Amount where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; ToolTip = 'Specifies the amount that remains to be applied to before the entry is totally applied to.'; Editable = false; @@ -123,7 +124,8 @@ table 25 "Vendor Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/W1/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/W1/BaseApp/Purchases/Vendor/Vendor.Table.al index 9bd22378ea..54fa306632 100644 --- a/src/Layers/W1/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/W1/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -231,6 +231,7 @@ table 23 Vendor field(14; "Our Account No."; Text[20]) { Caption = 'Our Account No.'; + MaskType = Concealed; ToolTip = 'Specifies your account number with the vendor, if you have one.'; OptimizeForTextSearch = true; } @@ -481,7 +482,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry".Amount where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -493,7 +495,8 @@ table 23 Vendor CalcFormula = - sum("Detailed Vendor Ledg. Entry"."Amount (LCY)" where("Vendor No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -506,7 +509,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -519,7 +523,8 @@ table 23 Vendor "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -572,7 +577,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -585,7 +591,8 @@ table 23 Vendor "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/W1/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/W1/BaseApp/Sales/Customer/Customer.Table.al index dbe36671da..3d04a3b5f0 100644 --- a/src/Layers/W1/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/W1/BaseApp/Sales/Customer/Customer.Table.al @@ -285,6 +285,7 @@ table 18 Customer field(14; "Our Account No."; Text[20]) { Caption = 'Our Account No.'; + MaskType = Concealed; OptimizeForTextSearch = true; } /// @@ -728,7 +729,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance'; Editable = false; FieldClass = FlowField; @@ -743,7 +745,8 @@ table 18 Customer CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Customer No." = field("No."), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; @@ -760,7 +763,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change'; Editable = false; FieldClass = FlowField; @@ -776,7 +780,8 @@ table 18 Customer "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), "Posting Date" = field("Date Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Net Change (LCY)'; Editable = false; FieldClass = FlowField; @@ -858,7 +863,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Balance Due'; Editable = false; FieldClass = FlowField; @@ -874,7 +880,8 @@ table 18 Customer "Initial Entry Due Date" = field(upperlimit("Date Filter")), "Initial Entry Global Dim. 1" = field("Global Dimension 1 Filter"), "Initial Entry Global Dim. 2" = field("Global Dimension 2 Filter"), - "Currency Code" = field("Currency Filter"))); + "Currency Code" = field("Currency Filter"), + "Excluded from calculation" = const(false))); Caption = 'Overdue Balance (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/W1/BaseApp/Sales/Customer/MyCustomer.Table.al b/src/Layers/W1/BaseApp/Sales/Customer/MyCustomer.Table.al index 0c48dd29a4..838ca1a734 100644 --- a/src/Layers/W1/BaseApp/Sales/Customer/MyCustomer.Table.al +++ b/src/Layers/W1/BaseApp/Sales/Customer/MyCustomer.Table.al @@ -67,7 +67,8 @@ table 9150 "My Customer" { AutoFormatType = 1; AutoFormatExpression = ''; - CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Customer No." = field("Customer No."))); + CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Customer No." = field("Customer No."), + "Excluded from calculation" = const(false))); Caption = 'Balance (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/W1/BaseApp/Sales/Customer/StandardStatement.Report.al b/src/Layers/W1/BaseApp/Sales/Customer/StandardStatement.Report.al index 6049e8eb68..1b8090e868 100644 --- a/src/Layers/W1/BaseApp/Sales/Customer/StandardStatement.Report.al +++ b/src/Layers/W1/BaseApp/Sales/Customer/StandardStatement.Report.al @@ -243,7 +243,7 @@ report 1316 "Standard Statement" } dataitem(DtldCustLedgEntries; "Detailed Cust. Ledg. Entry") { - DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code"); + DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code") where("Excluded from calculation" = const(false)); column(PostDate_DtldCustLedgEntries; Format("Posting Date")) { } diff --git a/src/Layers/W1/BaseApp/Sales/Customer/Statement.Report.al b/src/Layers/W1/BaseApp/Sales/Customer/Statement.Report.al index a9ebd882e2..9564f6b2f1 100644 --- a/src/Layers/W1/BaseApp/Sales/Customer/Statement.Report.al +++ b/src/Layers/W1/BaseApp/Sales/Customer/Statement.Report.al @@ -227,7 +227,7 @@ report 116 Statement } dataitem("Detailed Cust. Ledg. Entry"; "Detailed Cust. Ledg. Entry") { - DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code"); + DataItemTableView = sorting("Customer No.", "Posting Date", "Entry Type", "Currency Code") where("Excluded from calculation" = const(false)); column(PostDate_DtldCustLedgEntries; Format("Posting Date")) { } diff --git a/src/Layers/W1/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al b/src/Layers/W1/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al index f046fe1913..117c46752c 100644 --- a/src/Layers/W1/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al +++ b/src/Layers/W1/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al @@ -146,7 +146,8 @@ table 21 "Cust. Ledger Entry" AutoFormatExpression = Rec."Currency Code"; AutoFormatType = 1; CalcFormula = sum("Detailed Cust. Ledg. Entry".Amount where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amount'; Editable = false; FieldClass = FlowField; @@ -175,7 +176,8 @@ table 21 "Cust. Ledger Entry" AutoFormatType = 1; AutoFormatExpression = ''; CalcFormula = sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" where("Cust. Ledger Entry No." = field("Entry No."), - "Posting Date" = field("Date Filter"))); + "Posting Date" = field("Date Filter"), + "Excluded from calculation" = const(false))); Caption = 'Remaining Amt. (LCY)'; Editable = false; FieldClass = FlowField; diff --git a/src/Layers/W1/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al b/src/Layers/W1/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al index 3d8d8d4f8b..5c82fa7a85 100644 --- a/src/Layers/W1/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al +++ b/src/Layers/W1/BaseApp/Sales/Receivables/DetailedCustLedgEntry.Table.al @@ -380,6 +380,11 @@ table 379 "Detailed Cust. Ledg. Entry" TableRelation = "G/L Register"; ToolTip = 'Specifies the G/L register number that groups related G/L entries from the same posting.'; } + field(7000004; "Excluded from calculation"; Boolean) + { + Caption = 'Excluded from calculation'; + Editable = false; + } } keys @@ -388,7 +393,7 @@ table 379 "Detailed Cust. Ledg. Entry" { Clustered = true; } - key(Key2; "Customer No.", "Currency Code") + key(Key2; "Customer No.", "Currency Code", "Excluded from calculation") { SumIndexFields = Amount, "Amount (LCY)"; } @@ -400,7 +405,7 @@ table 379 "Detailed Cust. Ledg. Entry" { IncludedFields = Amount, "Amount (LCY)"; } - key(Key6; "Customer No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date") + key(Key6; "Customer No.", "Currency Code", "Initial Entry Global Dim. 1", "Initial Entry Global Dim. 2", "Initial Entry Due Date", "Posting Date", "Excluded from calculation") { IncludedFields = Amount, "Amount (LCY)"; } @@ -430,7 +435,7 @@ table 379 "Detailed Cust. Ledg. Entry" } key(Key14; "Customer No.", "Initial Entry Due Date") { - IncludedFields = Amount, "Amount (LCY)"; + IncludedFields = Amount, "Amount (LCY)", "Excluded from calculation"; } }