Page 252 Cons. Process Details

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Finance.Consolidation;

/// <summary>
/// Displays detailed information about consolidation process execution for business units.
/// Shows consolidation status, progress tracking, and business unit processing details.
/// </summary>
/// <remarks>
/// Read-only detail page for monitoring consolidation process execution and business unit status.
/// Provides comprehensive view of consolidation workflow progress and individual business unit processing results.
/// </remarks>
page 252 "Cons. Process Details"
{
    PageType = ListPlus;
    Caption = 'Consolidation Process Details';
    SourceTable = "Bus. Unit In Cons. Process";
    Editable = false;
    InsertAllowed = false;
    DeleteAllowed = false;
    DataCaptionExpression = Caption();

    layout
    {
        area(Content)
        {
            field(StartingDate; ConsolidationProcess."Starting Date")
            {
                ApplicationArea = All;
                Caption = 'Starting Date';
                ToolTip = 'Specifies the starting date of the imported entries.';
            }
            field("Ending Date"; ConsolidationProcess."Ending Date")
            {
                ApplicationArea = All;
                Caption = 'Ending Date';
                ToolTip = 'Specifies the ending date of the imported entries.';
            }
            field(RunStatus; ConsolidationProcess.Status)
            {
                ApplicationArea = All;
                Caption = 'Status';
                ToolTip = 'Specifies the status of the consolidation process.';
            }
            field(Error; ConsolidationProcess.Error)
            {
                ApplicationArea = All;
                Caption = 'Error';
                Visible = ConsolidationProcessHasError;
                ToolTip = 'Specifies the error message if the consolidation process has failed.';
            }
            repeater(BusinessUnits)
            {
                field("Business Unit Code"; Rec."Business Unit Code")
                {
                    ApplicationArea = All;
                }
                field(Status; Rec.Status)
                {
                    ApplicationArea = All;
                }
                field("Currency Code"; Rec."Currency Code")
                {
                    ApplicationArea = All;
                }
                field("Currency Exchange Rate Table"; Rec."Currency Exchange Rate Table")
                {
                    ApplicationArea = All;
                }
                field("Closing Exchange Rate"; Rec."Closing Exchange Rate")
                {
                    ApplicationArea = All;
                }
                field("Average Exchange Rate"; Rec."Average Exchange Rate")
                {
                    ApplicationArea = All;
                }
                field("Last Closing Exchange Rate"; Rec."Last Closing Exchange Rate")
                {
                    ApplicationArea = All;
                }
            }
        }
    }
    var
        ConsolidationProcess: Record "Consolidation Process";
        ConsolidationProcessHasError: Boolean;

    trigger OnOpenPage()
    begin
        ConsolidationProcessHasError := ConsolidationProcess.Error <> '';
    end;

    internal procedure SetConsolidationProcess(Id: Integer)
    begin
        ConsolidationProcess.Get(Id);
        Rec.SetRange("Consolidation Process Id", ConsolidationProcess.Id);
    end;

    local procedure Caption(): Text
    begin
        exit(Format(ConsolidationProcess."Starting Date") + ' - ' + Format(ConsolidationProcess."Ending Date"));
    end;

}