Page 2509 Extn Deployment Status Detail, source in 25

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

namespace System.Apps;

/// <summary>
/// Displays details about the deployment status of the selected extension.
/// </summary>
page 2509 "Extn Deployment Status Detail"
{
    Extensible = false;
    DataCaptionExpression = Rec.Description;
    DelayedInsert = false;
    DeleteAllowed = false;
    Editable = false;
    InsertAllowed = false;
    ModifyAllowed = false;
    PageType = Card;
    RefreshOnActivate = true;
    ShowFilter = false;
    SourceTable = "NAV App Tenant Operation";
    SourceTableTemporary = true;
    ContextSensitiveHelpPage = 'ui-extensions';
    Caption = 'Extension Installation Status Detail';

    layout
    {
        area(Content)
        {
            group(General)
            {
                group(Control16)
                {
                    ShowCaption = false;
                    field("App Name"; Name)
                    {
                        ApplicationArea = All;
                        Caption = 'App Name';
                        ToolTip = 'Specifies the name of the App.';
                        Visible = not HideName;
                    }
                    field("App Publisher"; Publisher)
                    {
                        ApplicationArea = All;
                        Caption = 'App Publisher';
                        ToolTip = 'Specifies the name of the App Publisher.';
                        Visible = not HideName;
                    }
                    field("App Version"; Version)
                    {
                        ApplicationArea = All;
                        Caption = 'App Version';
                        ToolTip = 'Specifies the version of the App.';
                        Visible = not HideName;
                    }
                    field(Schedule; DeploymentSchedule)
                    {
                        ApplicationArea = All;
                        Caption = 'Schedule';
                        ToolTip = 'Specifies the deployment Schedule.';
                        Visible = not HideName;
                    }
                    field("Started On"; Rec."Started On")
                    {
                        ApplicationArea = All;
                        Caption = 'Started Date';
                        ToolTip = 'Specifies the Deployment start date.';
                    }
                }
                group(Control17)
                {
                    ShowCaption = false;
                    field(Status; Rec.Status)
                    {
                        ApplicationArea = All;
                        Caption = 'Status';
                        ToolTip = 'Specifies the deployment status.';
                    }
                    field(OpDetails; DeploymentDetails)
                    {
                        ApplicationArea = All;
                        Caption = 'Summary';
                        MultiLine = true;
                        ToolTip = 'Specifies the deployment summary details.';
                    }
                    group(Control18)
                    {
                        ShowCaption = false;
                        Visible = (ShowDetails) and (not ShowDetailedMessage);
                        field(Details; DetailedMessageLbl)
                        {
                            ApplicationArea = All;
                            Caption = 'Details';
                            ShowCaption = false;
                            ToolTip = 'Specifies deploy operation details.';
                            Visible = ShowDetails;

                            trigger OnDrillDown()
                            var
                                ExtensionOperationImpl: Codeunit "Extension Operation Impl";
                                DeployOperationJobId: Text;
                            begin
                                DetailedMessageText := ExtensionOperationImpl.GetDeploymentDetailedStatusMessage(Rec."Operation ID");
                                DeployOperationJobId := ExtensionOperationImpl.GetDeployOperationJobId(Rec."Operation ID");

                                DetailedMessageText := DetailedMessageText + ' - Job Id : ' + DeployOperationJobId;
                                ShowDetailedMessage := true;
                            end;
                        }
                    }
                }
            }
            group("Error Details")
            {
                Caption = 'Error Details';
                Visible = ShowDetailedMessage;
                field("Detailed Message box"; DetailedMessageText)
                {
                    ApplicationArea = All;
                    Caption = 'Detailed Message box';
                    Editable = false;
                    MultiLine = true;
                    ShowCaption = false;
                    ToolTip = 'Specifies detailed message box.';
                }
            }
        }
    }

    actions
    {
        area(Processing)
        {
            action(Refresh)
            {
                ApplicationArea = All;
                ToolTip = 'Refresh the deployment details.';
                Enabled = not IsFinalStatus;
                Image = Refresh;
                Promoted = true;
                PromotedCategory = Process;
                PromotedIsBig = true;
                PromotedOnly = true;

                trigger OnAction()
                var
                    ExtensionOperationImpl: Codeunit "Extension Operation Impl";
                begin
                    ExtensionOperationImpl.RefreshStatus(Rec."Operation ID");
                    NavAppTenantOperationTable.SetRange("Operation ID", Rec."Operation ID");
                    if not NavAppTenantOperationTable.FindFirst() then
                        CurrPage.Close();

                    SetEnvironmentVariables();
                end;
            }
            action("Download Details")
            {
                ApplicationArea = All;
                Caption = 'Download Details';
                Enabled = ShowDetails;
                Image = ExportFile;
                Promoted = true;
                PromotedCategory = Process;
                PromotedIsBig = true;
                PromotedOnly = true;
                ToolTip = 'Download the operation status details to a file.';

                trigger OnAction()
                var
                    ExtensionOperationImpl: Codeunit "Extension Operation Impl";
                begin
                    ExtensionOperationImpl.DownloadDeploymentStatusDetails(Rec."Operation ID");
                end;
            }
        }
    }

    trigger OnAfterGetCurrRecord()
    var
        ExtensionOperationImpl: Codeunit "Extension Operation Impl";
    begin
        NavAppTenantOperationTable.SetRange("Operation ID", Rec."Operation ID");
        if not NavAppTenantOperationTable.FindFirst() then
            CurrPage.Close();

        IsFinalStatus := NavAppTenantOperationTable.Status in [Rec.Status::Completed, Rec.Status::Failed];

        if not IsFinalStatus then
            ExtensionOperationImpl.RefreshStatus(Rec."Operation ID");

        SetOperationRecord(NavAppTenantOperationTable);

        ShowDetails := not (Rec.Status in [Rec.Status::InProgress, Rec.Status::Completed]);
        ExtensionOperationImpl.GetDeployOperationInfo(Rec."Operation ID", Version, DeploymentSchedule, Publisher, Name, Rec.Description);
        if Name = '' then
            HideName := true;
    end;

    var
        NavAppTenantOperationTable: Record "NAV App Tenant Operation";
        DeploymentDetails: BigText;
        DetailedMessageLbl: Label 'View Details';
        ShowDetails: Boolean;
        DetailedMessageText: Text;
        ShowDetailedMessage: Boolean;
        DeploymentSchedule: Text;
        Version: Text;
        Name: Text;
        Publisher: Text;
        HideName: Boolean;
        IsFinalStatus: Boolean;

    internal procedure SetOperationRecord(NavAppTenantOperationRec: Record "NAV App Tenant Operation")
    var
        DetailsStream: InStream;
    begin
        Rec.TransferFields(NavAppTenantOperationRec, true);

        NavAppTenantOperationRec.CalcFields(Details);
        NavAppTenantOperationRec.Details.CreateInStream(DetailsStream, TextEncoding::UTF8);
        DeploymentDetails.Read(DetailsStream);

        if not Rec.Insert() then
            Rec.Modify();

        SetEnvironmentVariables();
    end;

    local procedure SetEnvironmentVariables()
    var
        DetailsStream: InStream;
    begin
        Rec.Status := NavAppTenantOperationTable.Status;

        NavAppTenantOperationTable.CalcFields(Details);
        NavAppTenantOperationTable.Details.CreateInStream(DetailsStream, TextEncoding::UTF8);
        DeploymentDetails.Read(DetailsStream);

        CurrPage.Update();
        ShowDetails := Rec.Status <> Rec.Status::InProgress;
    end;
}