Page 8893 Email Scenario Setup

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

namespace System.Email;

using System.Telemetry;

/// <summary>
/// Page is used to display email scenarios usage by email accounts.
/// </summary>
page 8893 "Email Scenario Setup"
{
    Caption = 'Email Scenario Assignment';
    PageType = List;
    UsageCategory = Administration;
    ApplicationArea = All;
    Extensible = false;
    Editable = false;
    DeleteAllowed = false;
    InsertAllowed = false;
    ModifyAllowed = false;
    SourceTable = "Email Account Scenario";
    InstructionalText = 'Assign email scenarios';
    AboutTitle = 'About Email Scenario Assignment';
    AboutText = 'Email scenarios define which email account is used when Business Central sends documents or notifications, such as sales orders, purchase documents, or invitations. Assign scenarios to ensure the right sender is used for each process—any scenario not assigned uses the default email account. You can also define default attachments that are automatically added when emails are created for a scenario.';

    layout
    {
        area(Content)
        {
            repeater(ScenariosByEmail)
            {
                IndentationColumn = Indentation;
                IndentationControls = Name;
                ShowAsTree = true;

                field(Name; Rec."Display Name")
                {
                    ApplicationArea = All;
                    Caption = 'Scenarios by email accounts';
                    ToolTip = 'Specifies the scenarios that are using the email account.';
                    Editable = false;
                    StyleExpr = Style;
                }

                field(Default; DefaultTxt)
                {
                    ApplicationArea = All;
                    Caption = 'Default';
                    ToolTip = 'Specifies whether this is the default account to use for scenarios when no other account is specified.';
                    StyleExpr = Style;
                }
            }
        }
    }

    actions
    {
        area(Processing)
        {
            group(Account)
            {
                action(AddScenario)
                {
                    Visible = (TypeOfEntry = TypeOfEntry::Account) and CanUserManageEmailSetup;

                    ApplicationArea = All;
                    Caption = 'Assign scenarios';
                    ToolTip = 'Assign email scenarios for the selected email account. When assigned, everyone will use the account for the scenario. For example, if you assign the Sales Order scenario, everyone will use the account to send sales orders.';
                    Image = NewDocument;
                    Promoted = true;
                    PromotedOnly = true;
                    PromotedCategory = Process;
                    PromotedIsBig = true;
                    Scope = Repeater;

                    trigger OnAction()
                    begin
                        TempSelectedEmailAccountScenario := Rec;
                        EmailScenarioImpl.AddScenarios(Rec);

                        EmailScenarioImpl.GetScenariosByEmailAccount(Rec);
                        SetSelectedRecord();
                    end;
                }
            }

            group(Scenario)
            {
                action(ChangeAccount)
                {
                    Visible = (TypeOfEntry = TypeOfEntry::Scenario) and CanUserManageEmailSetup;

                    ApplicationArea = All;
                    Caption = 'Reassign';
                    ToolTip = 'Reassign the selected scenarios to another email account.';
                    Image = Change;
                    Promoted = true;
                    PromotedOnly = true;
                    PromotedCategory = Process;
                    PromotedIsBig = true;
                    Scope = Repeater;

                    trigger OnAction()
                    begin
                        CurrPage.SetSelectionFilter(Rec);
                        TempSelectedEmailAccountScenario := Rec;

                        EmailScenarioImpl.ChangeAccount(Rec);
                        EmailScenarioImpl.GetScenariosByEmailAccount(Rec); // refresh the data on the page
                        SetSelectedRecord();
                    end;
                }

                action(Unassign)
                {
                    Visible = (TypeOfEntry = TypeOfEntry::Scenario) and CanUserManageEmailSetup;

                    ApplicationArea = All;
                    Caption = 'Unassign';
                    ToolTip = 'Unassign the selected scenarios. Afterward, the default email account will be used to send emails for the scenarios.';
                    Image = Delete;
                    Promoted = true;
                    PromotedOnly = true;
                    PromotedCategory = Process;
                    PromotedIsBig = true;
                    Scope = Repeater;

                    trigger OnAction()
                    begin
                        CurrPage.SetSelectionFilter(Rec);
                        TempSelectedEmailAccountScenario := Rec;

                        EmailScenarioImpl.DeleteScenario(Rec);
                        EmailScenarioImpl.GetScenariosByEmailAccount(Rec); // refresh the data on the page
                        SetSelectedRecord();
                    end;
                }

                action(SetDefaultAttachments)
                {
                    Visible = (TypeOfEntry = TypeOfEntry::Scenario) and CanUserManageEmailSetup;

                    ApplicationArea = All;
                    Caption = 'Set Scenario Attachments';
                    ToolTip = 'Attach one or more files that can be attached to emails for this scenario.';
                    Image = Archive;
                    Promoted = true;
                    PromotedOnly = true;
                    PromotedCategory = Process;
                    PromotedIsBig = true;
                    Scope = Repeater;

                    trigger OnAction()
                    var
                        EmailScenarioAttachments: Page "Email Scenario Attach Setup";
                    begin
                        EmailScenarioAttachments.SetEmailScenario(Rec.Scenario);
                        EmailScenarioAttachments.Run()
                    end;
                }
            }
        }
    }

    trigger OnOpenPage()
    var
        FeatureTelemetry: Codeunit "Feature Telemetry";
    begin
        FeatureTelemetry.LogUptake('0000CTN', 'Emailing', Enum::"Feature Uptake Status"::Discovered);
        CanUserManageEmailSetup := EmailAccountImpl.IsUserEmailAdmin();
        EmailScenarioImpl.GetScenariosByEmailAccount(Rec);

        // Set selection
        if not Rec.Get(-1, EmailAccountId, EmailConnector) then
            if Rec.FindFirst() then;
    end;

    trigger OnAfterGetRecord()
    begin
        DefaultTxt := '';

        TypeOfEntry := Rec.EntryType;

        if TypeOfEntry = TypeOfEntry::Account then begin
            Indentation := 0;
            Style := 'Strong';
            if Rec.Default then
                DefaultTxt := '✓'
        end;

        if TypeOfEntry = TypeOfEntry::Scenario then begin
            Indentation := 1;
            Style := 'Standard';
        end;
    end;

    // Used to set the focus on an email account
    internal procedure SetEmailAccountId(AccountId: Guid; Connector: Enum "Email Connector")
    begin
        EmailAccountId := AccountId;
        EmailConnector := Connector;
    end;

    local procedure SetSelectedRecord()
    begin
        if not Rec.Get(TempSelectedEmailAccountScenario.Scenario, TempSelectedEmailAccountScenario."Account Id", TempSelectedEmailAccountScenario.Connector) then
            if Rec.FindFirst() then;
    end;

    var
        TempSelectedEmailAccountScenario: Record "Email Account Scenario";
        EmailScenarioImpl: Codeunit "Email Scenario Impl.";
        EmailAccountImpl: Codeunit "Email Account Impl.";
        EmailAccountId: Guid;
        EmailConnector: Enum "Email Connector";
        Style, DefaultTxt : Text;
        TypeOfEntry: Option Account,Scenario;
        Indentation: Integer;
        CanUserManageEmailSetup: Boolean;
}