Page 545 Dim. Values per Account, source in 29

Source29

src/Layers/W1/BaseApp/Finance/Dimension/DimValuesPerAccount.Page.al94 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.Dimension;

/// <summary>
/// Page displaying dimension values per account with mandatory posting rules.
/// Shows default dimensions configured for specific accounts where dimension values are required during posting.
/// </summary>
/// <remarks>
/// Filtered to show only default dimensions with "Code Mandatory" value posting, ensuring dimension values are required.
/// Provides account-specific dimension configuration with allowed values management and validation.
/// Used for reviewing and managing mandatory dimension requirements at the account level.
/// </remarks>
page 545 "Dim. Values per Account"
{
    Caption = 'Dimension Values per Account';
    DataCaptionFields = "Dimension Code";
    PageType = List;
    SourceTable = "Default Dimension";
    SourceTableView = where("Value Posting" = const("Code Mandatory"));
    InsertAllowed = false;

    layout
    {
        area(Content)
        {
            repeater(GroupName)
            {
                field(TableID; Rec."Table ID")
                {
                    ApplicationArea = Dimensions;
                    Editable = false;
                }
                field("Table Caption"; Rec."Table Caption")
                {
                    ApplicationArea = Dimensions;
                    DrillDown = false;
                }
                field(AccountNo; Rec."No.")
                {
                    ApplicationArea = Dimensions;
                    Editable = false;
                }
                field(AllowedValues; Rec."Allowed Values Filter")
                {
                    ApplicationArea = Dimensions;

                    trigger OnAssistEdit()
                    var
                        DimMgt: Codeunit DimensionManagement;
                    begin
                        DimMgt.OpenAllowedDimValuesPerAccount(Rec);
                    end;
                }
            }
        }
    }

    actions
    {
        area(navigation)
        {
            action(SetupAllowedValues)
            {
                ApplicationArea = Dimensions;
                Caption = 'Setup Allowed Values';
                ToolTip = 'Specifies the dimension values that can be used for the selected account.';
                Image = Dimensions;

                trigger OnAction();
                var
                    DimMgt: Codeunit DimensionManagement;
                begin
                    DimMgt.OpenAllowedDimValuesPerAccount(Rec);
                end;
            }
        }
        area(Promoted)
        {
            group(Category_Process)
            {
                Caption = 'Process';

                actionref(SetupAllowedValues_Promoted; SetupAllowedValues)
                {
                }
            }
        }
    }

}