Page 9097 IC Setup Diagnostics List, source in 29

Source29

src/Layers/W1/BaseApp/Finance/Intercompany/Setup/ICSetupDiagnosticsList.Page.al59 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.Intercompany.Setup;

/// <summary>
/// Displays detailed list of intercompany setup diagnostic findings and validation results.
/// Shows specific configuration issues and validation messages for setup troubleshooting.
/// </summary>
page 9097 "IC Setup Diagnostics List"
{
    PageType = List;
    SourceTable = "Intercompany Setup Diagnostic";
    SourceTableTemporary = true;
    Editable = false;
    DeleteAllowed = false;
    layout
    {
        area(Content)
        {
            repeater(SubDiagnostics)
            {
                field(Description; Rec.Description)
                {
                    Tooltip = 'Description of the intercompany setup issue found.';
                    ApplicationArea = Intercompany;
                    StyleExpr = DiagnosticStyle;
                }
            }
        }
    }

    trigger OnAfterGetRecord()
    begin
        case Rec.Status of
            Rec.Status::Warning:
                DiagnosticStyle := 'AttentionAccent';
            Rec.Status::Error:
                DiagnosticStyle := 'Attention'
        end;
    end;

    var
        DiagnosticStyle: Text;

    /// <summary>
    /// Adds diagnostic record to the page for display in the diagnostic list.
    /// Transfers diagnostic data from temporary table record to page record.
    /// </summary>
    /// <param name="TempIntercompanySetupDiagnostic">Diagnostic record to be inserted into the page</param>
    procedure InsertDiagnostic(var TempIntercompanySetupDiagnostic: Record "Intercompany Setup Diagnostic" temporary)
    begin
        Clear(Rec);
        Rec.TransferFields(TempIntercompanySetupDiagnostic);
        Rec.Insert();
    end;
}