Page 840 CF Forecast Statistics FactBox, source in 29

// ------------------------------------------------------------------------------------------------
// 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.CashFlow.Setup;

page 840 "CF Forecast Statistics FactBox"
{
    Caption = 'Cash Flow Forecast Statistic';
    Editable = false;
    PageType = CardPart;
    SourceTable = "Cash Flow Forecast";

    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.';
            }
            field(LiquidFunds; Rec.CalcSourceTypeAmount(CashFlowForecastEntry."Source Type"::"Liquid Funds"))
            {
                AutoFormatType = 1;
                AutoFormatExpression = '';
                ApplicationArea = Basic, Suite;
                Caption = 'Liquid Funds';
                ToolTip = 'Specifies amounts related to liquid funds.';

                trigger OnDrillDown()
                begin
                    Rec.DrillDownSourceTypeEntries("Cash Flow Source Type"::"Liquid Funds");
                end;
            }
            field(Receivables; Rec.CalcSourceTypeAmount(CashFlowForecastEntry."Source Type"::Receivables))
            {
                AutoFormatType = 1;
                AutoFormatExpression = '';
                ApplicationArea = Basic, Suite;
                Caption = 'Receivables';
                ToolTip = 'Specifies amounts related to receivables.';

                trigger OnDrillDown()
                begin
                    Rec.DrillDownSourceTypeEntries("Cash Flow Source Type"::Receivables);
                end;
            }
            field(SalesOrders; Rec.CalcSourceTypeAmount(CashFlowForecastEntry."Source Type"::"Sales Orders"))
            {
                AutoFormatType = 1;
                AutoFormatExpression = '';
                ApplicationArea = Basic, Suite;
                Caption = 'Sales Orders';
                ToolTip = 'Specifies amounts related to sales orders.';

                trigger OnDrillDown()
                begin
                    Rec.DrillDownSourceTypeEntries("Cash Flow Source Type"::"Sales Orders");
                end;
            }
            field(SaleofFixedAssets; Rec.CalcSourceTypeAmount(CashFlowForecastEntry."Source Type"::"Fixed Assets Disposal"))
            {
                AutoFormatType = 1;
                AutoFormatExpression = '';
                ApplicationArea = Suite;
                Caption = 'Fixed Assets Disposal';
                ToolTip = 'Specifies amounts related to fixed assets disposal.';

                trigger OnDrillDown()
                begin
                    Rec.DrillDownSourceTypeEntries("Cash Flow Source Type"::"Fixed Assets Disposal");
                end;
            }
            field(ManualRevenues; Rec.CalcSourceTypeAmount(CashFlowForecastEntry."Source Type"::"Cash Flow Manual Revenue"))
            {
                AutoFormatType = 1;
                AutoFormatExpression = '';
                ApplicationArea = Basic, Suite;
                Caption = 'Cash Flow Manual Revenues';
                ToolTip = 'Specifies amounts related to cash flow manual revenues.';

                trigger OnDrillDown()
                begin
                    Rec.DrillDownSourceTypeEntries("Cash Flow Source Type"::"Cash Flow Manual Revenue");
                end;
            }
            field(Payables; Rec.CalcSourceTypeAmount(CashFlowForecastEntry."Source Type"::Payables))
            {
                ApplicationArea = Basic, Suite;
                AutoFormatType = 1;
                AutoFormatExpression = '';
                Caption = 'Payables';
                ToolTip = 'Specifies amounts related to payables.';

                trigger OnDrillDown()
                begin
                    Rec.DrillDownSourceTypeEntries("Cash Flow Source Type"::Payables);
                end;
            }
            field(PurchaseOrders; Rec.CalcSourceTypeAmount(CashFlowForecastEntry."Source Type"::"Purchase Orders"))
            {
                AutoFormatType = 1;
                AutoFormatExpression = '';
                ApplicationArea = Suite;
                Caption = 'Purchase Orders';
                ToolTip = 'Specifies the amount of the purchase order to be received and paid out by your business for the cash flow forecast.';

                trigger OnDrillDown()
                begin
                    Rec.DrillDownSourceTypeEntries("Cash Flow Source Type"::"Purchase Orders");
                end;
            }
            field(BudgetedFixedAssets; Rec.CalcSourceTypeAmount(CashFlowForecastEntry."Source Type"::"Fixed Assets Budget"))
            {
                AutoFormatType = 1;
                AutoFormatExpression = '';
                ApplicationArea = Suite;
                Caption = 'Fixed Assets Budget';
                ToolTip = 'Specifies amounts related to fixed asset budgets.';

                trigger OnDrillDown()
                begin
                    Rec.DrillDownSourceTypeEntries("Cash Flow Source Type"::"Fixed Assets Budget");
                end;
            }
            field(ManualExpenses; Rec.CalcSourceTypeAmount(CashFlowForecastEntry."Source Type"::"Cash Flow Manual Expense"))
            {
                AutoFormatType = 1;
                AutoFormatExpression = '';
                ApplicationArea = Basic, Suite;
                Caption = 'Cash Flow Manual Expenses';
                ToolTip = 'Specifies amounts related to cash flow manual expenses.';

                trigger OnDrillDown()
                begin
                    Rec.DrillDownSourceTypeEntries("Cash Flow Source Type"::"Cash Flow Manual Expense");
                end;
            }
            field(GLBudgets; Rec.CalcSourceTypeAmount(CashFlowForecastEntry."Source Type"::"G/L Budget"))
            {
                AutoFormatType = 1;
                AutoFormatExpression = '';
                ApplicationArea = Basic, Suite;
                Caption = 'G/L Budgets';
                ToolTip = 'Specifies amounts related to G/L budgets.';

                trigger OnDrillDown()
                begin
                    Rec.DrillDownSourceTypeEntries("Cash Flow Source Type"::"G/L Budget");
                end;
            }
            field(Jobs; Rec.CalcSourceTypeAmount(CashFlowForecastEntry."Source Type"::Job))
            {
                AutoFormatType = 1;
                AutoFormatExpression = '';
                ApplicationArea = Jobs;
                Caption = 'Projects';
                ToolTip = 'Specifies amounts related to projects.';

                trigger OnDrillDown()
                begin
                    Rec.DrillDownSourceTypeEntries("Cash Flow Source Type"::Job);
                end;
            }
            field(Tax; Rec.CalcSourceTypeAmount(CashFlowForecastEntry."Source Type"::Tax))
            {
                AutoFormatType = 1;
                AutoFormatExpression = '';
                ApplicationArea = Basic, Suite;
                Caption = 'Tax';
                ToolTip = 'Specifies amounts related to tax.';

                trigger OnDrillDown()
                begin
                    Rec.DrillDownSourceTypeEntries("Cash Flow Source Type"::Tax);
                end;
            }
            field(Total; Rec.CalcSourceTypeAmount("Cash Flow Source Type"::" "))
            {
                AutoFormatType = 1;
                AutoFormatExpression = '';
                ApplicationArea = Basic, Suite;
                CaptionClass = Format(StrSubstNo(Text1000, Format(Rec."Manual Payments To")));
                Caption = 'Total';
                ToolTip = 'Specifies the total value of cash flow forecast amounts';

                trigger OnDrillDown()
                begin
                    Rec.DrillDownSourceTypeEntries("Cash Flow Source Type"::" ");
                end;
            }
        }
    }

    actions
    {
    }

    trigger OnAfterGetRecord()
    begin
        if CurrentDate <> WorkDate() then
            CurrentDate := WorkDate();
        if Rec."Manual Payments To" <> 0D then
            CurrentDate := Rec."Manual Payments To";

        if Rec."Manual Payments From" <> 0D then
            Rec.SetCashFlowDateFilter(Rec."Manual Payments From", CurrentDate)
        else
            Rec.SetCashFlowDateFilter(0D, CurrentDate);
    end;

    var
        CashFlowForecastEntry: Record "Cash Flow Forecast Entry";
        CurrentDate: Date;

#pragma warning disable AA0074
#pragma warning disable AA0470
        Text1000: Label 'Liquid Funds at %1';
#pragma warning restore AA0470
#pragma warning restore AA0074
}