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;
}