Page 2510 Marketplace Extn Deployment

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

using System.Globalization;

/// <summary>
/// Provides an interface for installing extensions from AppSource.
/// </summary>
page 2510 "Marketplace Extn Deployment"
{
    Extensible = false;
    Caption = 'Install extension';
    PageType = NavigatePage;
    ContextSensitiveHelpPage = 'ui-extensions';
    ApplicationArea = All;

    layout
    {
        area(Content)
        {
            group(DisclaimerStep)
            {
                Visible = Step = Step::Disclaimer;
                ShowCaption = false;

                group(DisclaimerHeader)
                {
                    ShowCaption = false;
                    InstructionalText = 'Extension Installation';

                    field(DisclaimerText; DisclaimerLbl)
                    {
                        ApplicationArea = All;
                        ShowCaption = false;
                        Editable = false;
                        MultiLine = true;
                        ToolTip = 'Third-party extension disclaimer.';
                    }

                    field(LearnMoreCompliance; LearnMoreComplianceLbl)
                    {
                        ApplicationArea = All;
                        ShowCaption = false;
                        Editable = false;
                        Style = StrongAccent;
                        ToolTip = 'Learn what to consider when installing third-party apps.';

                        trigger OnDrillDown()
                        begin
                            Hyperlink(LearnMoreComplianceURLLbl);
                        end;
                    }

                    field(LearnMoreInstalling; LearnMoreInstallingLbl)
                    {
                        ApplicationArea = All;
                        ShowCaption = false;
                        Editable = false;
                        Style = StrongAccent;
                        ToolTip = 'Learn more about installing/uninstalling apps.';

                        trigger OnDrillDown()
                        begin
                            Hyperlink(InstallAppsURLLbl);
                        end;
                    }
                }
            }

            group(InstallationStep)
            {
                Visible = Step = Step::Installation;
                ShowCaption = false;

                field(ActiveUsers; ActiveUsersLbl)
                {
                    ApplicationArea = All;
                    ShowCaption = false;
                    Editable = false;
                    Style = Strong;
                    ToolTip = 'There might be other users working in the system.';
                }
                field(Warning; WarningLbl)
                {
                    ApplicationArea = All;
                    ShowCaption = false;
                    Editable = false;
                    ToolTip = 'Installing extensions during business hours will disrupt other users.';
                }
                field(RefreshInfo; RefreshInfoLbl)
                {
                    ApplicationArea = All;
                    ShowCaption = false;
                    Editable = false;
                    ToolTip = 'After installation, your session will refresh, and you can set up your extension.';
                }
                field(PreviewInfo; PreviewInfoLbl)
                {
                    ApplicationArea = All;
                    ShowCaption = false;
                    Editable = false;
                    MultiLine = true;
                    Style = Strong;
                    ToolTip = 'You are about to install a preview version of the extension.';
                    Visible = InstallPreview;
                }
                field(ImportantInfo; ImportantInfoLbl)
                {
                    ApplicationArea = All;
                    ShowCaption = false;
                    Editable = false;
                    Style = Strong;
                }
                field(ImportantDisclaimer; ImportantDisclaimerLbl)
                {
                    ApplicationArea = All;
                    ShowCaption = false;
                    Editable = false;
                    MultiLine = true;
                    Style = None;
                    ToolTip = 'Installing applications may require dependencies to be installed.';
                }
                field(HelpLink; InstallAppsURLLbl)
                {
                    ApplicationArea = All;
                    ShowCaption = false;
                    ToolTip = 'Read more about installing and uninstalling apps.';
                    Editable = false;
                    MultiLine = true;
                    Style = None;

                    trigger OnDrillDown()
                    begin
                        Hyperlink(InstallAppsURLLbl);
                    end;
                }
                field(Language; LanguageName)
                {
                    ApplicationArea = All;
                    Caption = 'Language';
                    ToolTip = 'Specifies the language of the extension.';
                    Editable = false;

                    trigger OnAssistEdit()
                    var
                        Language: Codeunit Language;
                    begin
                        Language.LookupApplicationLanguageId(LanguageID);
                        LanguageName := Language.GetWindowsLanguageName(LanguageID);
                    end;
                }
            }
        }
    }

    actions
    {
        area(Processing)
        {
            action(Back)
            {
                ApplicationArea = All;
                Image = PreviousRecord;
                Caption = 'Back';
                ToolTip = 'Go back to the previous step.';
                InFooterBar = true;
                Enabled = Step <> Step::Disclaimer;
                Visible = Step <> Step::Disclaimer;

                trigger OnAction()
                begin
                    if Step = Step::Installation then
                        Step := Step::Disclaimer;
                    CurrPage.Update();
                end;
            }

            action(Continue)
            {
                ApplicationArea = All;
                Image = NextRecord;
                Caption = 'Continue';
                ToolTip = 'Continue to the next step.';
                InFooterBar = true;
                Visible = Step = Step::Disclaimer;

                trigger OnAction()
                begin
                    Step := Step::Installation;
                    CurrPage.Update();
                end;
            }

            action(Install)
            {
                ApplicationArea = All;
                Image = Approve;
                Caption = 'Install';
                ToolTip = 'Install the extension.';
                InFooterBar = true;
                Visible = Step = Step::Installation;

                trigger OnAction()
                begin
                    InstallSelected := true;

                    CurrPage.Close();
                    exit;
                end;
            }
        }
    }

    internal procedure GetLanguageId(): Integer
    begin
        exit(LanguageID);
    end;

    internal procedure GetInstalledSelected(): Boolean
    begin
        exit(InstallSelected);
    end;

    internal procedure SetAppID(ID: Guid)
    begin
        AppID := ID;
    end;

    internal procedure SetPreviewKey(PreviewKey: Text[2048])
    begin
        if (PreviewKey <> '') then
            InstallPreview := true;
    end;

    trigger OnInit()
    var
        LanguageManagement: Codeunit Language;
    begin
        LanguageID := GlobalLanguage();
        LanguageName := LanguageManagement.GetWindowsLanguageName(LanguageID);
        Clear(InstallSelected);
        Step := Step::Disclaimer;
    end;

    trigger OnOpenPage()
    var
        DataOutOfGeoAppImpl: Codeunit "Data Out Of Geo. App Impl.";
    begin
        DataOutOfGeoAppImpl.CheckAndFireNotification(AppID);
    end;

    var
        LanguageName: Text;
        LanguageID: Integer;
        InstallSelected: Boolean;
        InstallPreview: Boolean;
        AppID: Guid;
        Step: Option Disclaimer,Installation;
        ActiveUsersLbl: Label 'Note: There might be other users working in the system.';
        WarningLbl: Label 'Installing extensions during business hours will disrupt other users.';
        ImportantInfoLbl: Label 'Important';
        ImportantDisclaimerLbl: Label 'When installing an AppSource app, it may require additional apps to be installed as dependencies. Make sure to review the provider''s terms of use and privacy policy review before proceeding. For more information on installing and uninstalling apps, see the link below.';
        RefreshInfoLbl: Label 'After installation, your session will refresh, and you can set up your extension.';
        PreviewInfoLbl: Label 'Note: A preview key was provided for the installation. A preview version of the extension is about to be installed. If a higher public version exists for your environment, it will be installed instead of the preview version.';
        DisclaimerLbl: Label 'This extension/app is provided to you by a third-party publisher and not Microsoft. The extension/app may require additional apps to be installed as dependencies. Please review the providers'' terms and privacy policy before proceeding and note that the third-party publisher may not meet the same compliance and security standards as Dynamics 365 Business Central.';
        LearnMoreComplianceLbl: Label 'Learn what to consider when installing third-party apps';
        LearnMoreComplianceURLLbl: Label 'https://go.microsoft.com/fwlink/?linkid=2342556', Locked = true;
        LearnMoreInstallingLbl: Label 'Learn more about installing/uninstalling apps';
        InstallAppsURLLbl: Label 'https://go.microsoft.com/fwlink/?linkid=2260926', Locked = true;
}