Page 243 Consolidation Setup, source in 29
Source29
src/Layers/W1/BaseApp/Finance/Consolidation/ConsolidationSetup.Page.al96 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.Finance.Consolidation;
using Microsoft.Finance.GeneralLedger.Setup;
/// <summary>
/// Configuration page for consolidation system setup and global consolidation parameters.
/// Manages consolidation settings, default values, and system-wide consolidation preferences.
/// </summary>
/// <remarks>
/// Card page for configuring consolidation system settings and default parameters.
/// Controls consolidation behavior, default dimension handling, and system-wide consolidation preferences.
/// Central configuration point for multi-company consolidation system setup and management.
/// </remarks>
page 243 "Consolidation Setup"
{
ApplicationArea = All;
Caption = 'Consolidation Setup';
PageType = Card;
SourceTable = "Consolidation Setup";
InsertAllowed = false;
DeleteAllowed = false;
UsageCategory = Administration;
layout
{
area(Content)
{
group(API)
{
Caption = 'Cross Environment';
field(ApiUrl; ApiUrl)
{
Caption = 'Current environment''s API Endpoint';
ApplicationArea = All;
MultiLine = true;
ToolTip = 'The URL of the API for the current environment. Copy this value to set up the business unit in the consolidation company';
Editable = false;
}
field(AllowQuery; AllowQueryConsolidations)
{
Caption = 'Enable company as subsidiary';
ApplicationArea = All;
ToolTip = 'Specifies if this company can be queried for financial consolidations by other companies';
trigger OnValidate()
begin
GeneralLedgerSetup.Validate("Allow Query From Consolid.", AllowQueryConsolidations);
GeneralLedgerSetup.Modify();
end;
}
field(MaxAttempts; Rec.MaxAttempts)
{
Caption = 'Maximum number of retries';
ApplicationArea = All;
Visible = false;
}
field(PageSize; Rec.PageSize)
{
ApplicationArea = All;
Caption = 'API page size';
Visible = false;
}
field(MaxAttempts429; Rec.MaxAttempts429)
{
ApplicationArea = All;
Caption = 'Maximum attempts when receiving HTTP 429 responses';
Visible = false;
}
field(WaitMsRetries; Rec.WaitMsRetries)
{
ApplicationArea = All;
Caption = 'Wait between retries (ms)';
Visible = false;
}
}
}
}
var
GeneralLedgerSetup: Record "General Ledger Setup";
ApiUrl: Text;
AllowQueryConsolidations: Boolean;
trigger OnOpenPage()
begin
GeneralLedgerSetup.GetRecordOnce();
AllowQueryConsolidations := GeneralLedgerSetup."Allow Query From Consolid.";
Rec.GetOrCreateWithDefaults();
ApiUrl := GetUrl(ClientType::Api);
end;
}