Page 850 Cash Flow Forecast Entries, source in 29
Source29
src/Layers/W1/BaseApp/CashFlow/Forecast/CashFlowForecastEntries.Page.al302 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.CashFlow.Forecast;
using Microsoft.Finance.Dimension;
using System.Security.User;
page 850 "Cash Flow Forecast Entries"
{
ApplicationArea = Basic, Suite;
Caption = 'Cash Flow Ledger Entries';
Editable = false;
PageType = List;
SourceTable = "Cash Flow Forecast Entry";
UsageCategory = History;
layout
{
area(content)
{
group(Disclaimer)
{
Caption = ' ';
ShowCaption = false;
Editable = false;
InstructionalText = 'AI generated suggestions may not always be accurate. Please validate results for correctness before using content provided.';
}
repeater(Control1000)
{
ShowCaption = false;
field("Cash Flow Date"; Rec."Cash Flow Date")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the cash flow date that the entry is posted to.';
}
field(Overdue; Rec.Overdue)
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies if the entry is related to an overdue payment. ';
}
field("Cash Flow Forecast No."; Rec."Cash Flow Forecast No.")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies a number for the cash flow forecast.';
}
field("Cash Flow Account No."; Rec."Cash Flow Account No.")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the number of the cash flow account that the forecast entry is posted to.';
}
field("Document No."; Rec."Document No.")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the document that represents the forecast entry.';
}
field(Description; Rec.Description)
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies a description of the cash flow forecast entry.';
trigger OnDrillDown()
begin
Rec.ShowSource(false);
end;
}
field("Source Type"; Rec."Source Type")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the source type that applies to the source number that is shown in the Source No. field.';
}
field("Source No."; Rec."Source No.")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the number of the source document that the entry originates from.';
trigger OnDrillDown()
begin
Rec.ShowSource(true);
end;
}
field("Payment Discount"; Rec."Payment Discount")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the possible payment discount for the cash flow forecast.';
}
field("Global Dimension 1 Code"; Rec."Global Dimension 1 Code")
{
ApplicationArea = Dimensions;
ToolTip = 'Specifies the code for the global dimension that is linked to the record or entry for analysis purposes. Two global dimensions, typically for the company''s most important activities, are available on all cards, documents, reports, and lists.';
}
field("Amount (LCY)"; Rec."Amount (LCY)")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the amount of the forecast line in LCY. Revenues are entered without a plus or minus sign. Expenses are entered with a minus sign.';
Visible = Dim1Visible;
}
field("Global Dimension 2 Code"; Rec."Global Dimension 2 Code")
{
ApplicationArea = Dimensions;
ToolTip = 'Specifies the code for the global dimension that is linked to the record or entry for analysis purposes. Two global dimensions, typically for the company''s most important activities, are available on all cards, documents, reports, and lists.';
Visible = Dim2Visible;
}
field("User ID"; Rec."User ID")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the ID of the user who posted the entry, to be used, for example, in the change log.';
trigger OnDrillDown()
var
UserMgt: Codeunit "User Management";
begin
UserMgt.DisplayUserInformation(Rec."User ID");
end;
}
field("Entry No."; Rec."Entry No.")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the number of the entry, as assigned from the specified number series when the entry was created.';
}
field("Dimension Set ID"; Rec."Dimension Set ID")
{
ApplicationArea = Dimensions;
ToolTip = 'Specifies a reference to a combination of dimension values. The actual values are stored in the Dimension Set Entry table.';
Visible = false;
}
field("Shortcut Dimension 3 Code"; Rec."Shortcut Dimension 3 Code")
{
ApplicationArea = Dimensions;
Editable = false;
ToolTip = 'Specifies the code for Shortcut Dimension 3, which is one of dimension codes that you set up in the General Ledger Setup window.';
Visible = Dim3Visible;
}
field("Shortcut Dimension 4 Code"; Rec."Shortcut Dimension 4 Code")
{
ApplicationArea = Dimensions;
Editable = false;
ToolTip = 'Specifies the code for Shortcut Dimension 4, which is one of dimension codes that you set up in the General Ledger Setup window.';
Visible = Dim4Visible;
}
field("Shortcut Dimension 5 Code"; Rec."Shortcut Dimension 5 Code")
{
ApplicationArea = Dimensions;
Editable = false;
ToolTip = 'Specifies the code for Shortcut Dimension 5, which is one of dimension codes that you set up in the General Ledger Setup window.';
Visible = Dim5Visible;
}
field("Shortcut Dimension 6 Code"; Rec."Shortcut Dimension 6 Code")
{
ApplicationArea = Dimensions;
Editable = false;
ToolTip = 'Specifies the code for Shortcut Dimension 6, which is one of dimension codes that you set up in the General Ledger Setup window.';
Visible = Dim6Visible;
}
field("Shortcut Dimension 7 Code"; Rec."Shortcut Dimension 7 Code")
{
ApplicationArea = Dimensions;
Editable = false;
ToolTip = 'Specifies the code for Shortcut Dimension 7, which is one of dimension codes that you set up in the General Ledger Setup window.';
Visible = Dim7Visible;
}
field("Shortcut Dimension 8 Code"; Rec."Shortcut Dimension 8 Code")
{
ApplicationArea = Dimensions;
Editable = false;
ToolTip = 'Specifies the code for Shortcut Dimension 8, which is one of dimension codes that you set up in the General Ledger Setup window.';
Visible = Dim8Visible;
}
}
}
}
actions
{
area(navigation)
{
group("Ent&ry")
{
Caption = 'Ent&ry';
Image = Entry;
action(Dimensions)
{
AccessByPermission = TableData Dimension = R;
ApplicationArea = Dimensions;
Caption = 'Dimensions';
Image = Dimensions;
ShortCutKey = 'Alt+D';
ToolTip = 'View or edit dimensions, such as area, project, or department, that you can assign to sales and purchase documents to distribute costs and analyze transaction history.';
trigger OnAction()
begin
Rec.ShowDimensions();
end;
}
action(SetDimensionFilter)
{
ApplicationArea = Dimensions;
Caption = 'Set Dimension Filter';
Ellipsis = true;
Image = "Filter";
ToolTip = 'Limit the entries according to the dimension filters that you specify. NOTE: If you use a high number of dimension combinations, this function may not work and can result in a message that the SQL server only supports a maximum of 2100 parameters.';
trigger OnAction()
begin
Rec.SetFilter("Dimension Set ID", DimensionSetIDFilter.LookupFilter());
end;
}
action(GLDimensionOverview)
{
ApplicationArea = Dimensions;
Caption = 'G/L Dimension Overview';
Image = Dimensions;
ToolTip = 'View an overview of general ledger entries and dimensions.';
trigger OnAction()
begin
PAGE.Run(PAGE::"CF Entries Dim. Overview", Rec);
end;
}
}
action(ShowSource)
{
ApplicationArea = Basic, Suite;
Caption = '&Show';
Image = View;
ToolTip = 'View the actual cash flow forecast entries.';
trigger OnAction()
begin
Rec.ShowSource(false);
end;
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process', Comment = 'Generated from the PromotedActionCategories property index 1.';
actionref(ShowSource_Promoted; ShowSource)
{
}
group(Category_Category4)
{
Caption = 'Entry', Comment = 'Generated from the PromotedActionCategories property index 3.';
actionref(Dimensions_Promoted; Dimensions)
{
}
actionref(GLDimensionOverview_Promoted; GLDimensionOverview)
{
}
actionref(SetDimensionFilter_Promoted; SetDimensionFilter)
{
}
}
}
group(Category_Report)
{
Caption = 'Report', Comment = 'Generated from the PromotedActionCategories property index 2.';
}
}
}
trigger OnFindRecord(Which: Text): Boolean
begin
exit(Rec.Find(Which));
end;
trigger OnNextRecord(Steps: Integer): Integer
begin
exit(Rec.Next(Steps));
end;
trigger OnOpenPage()
begin
SetDimVisibility();
end;
var
DimensionSetIDFilter: Page "Dimension Set ID Filter";
protected var
Dim1Visible: Boolean;
Dim2Visible: Boolean;
Dim3Visible: Boolean;
Dim4Visible: Boolean;
Dim5Visible: Boolean;
Dim6Visible: Boolean;
Dim7Visible: Boolean;
Dim8Visible: Boolean;
local procedure SetDimVisibility()
var
DimensionManagement: Codeunit DimensionManagement;
begin
DimensionManagement.UseShortcutDims(Dim1Visible, Dim2Visible, Dim3Visible, Dim4Visible, Dim5Visible, Dim6Visible, Dim7Visible, Dim8Visible);
end;
}