Page 192 Incoming Document Approvers

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

using System.Environment;
using System.Security.AccessControl;

page 192 "Incoming Document Approvers"
{
    Caption = 'Incoming Document Approvers';
    DataCaptionFields = "User Name";
    DeleteAllowed = false;
    InsertAllowed = false;
    LinksAllowed = false;
    ModifyAllowed = false;
    PageType = List;
    SourceTable = User;
    SourceTableView = sorting("User Name")
                      where(State = const(Enabled));

    layout
    {
        area(content)
        {
            repeater(Group)
            {
                field("User Name"; Rec."User Name")
                {
                    ApplicationArea = Suite;
                    ToolTip = 'Specifies the user''s name. If the user is required to present credentials when starting the client, this is the name that the user must present.';
                }
                field("Full Name"; Rec."Full Name")
                {
                    ApplicationArea = Suite;
                    ToolTip = 'Specifies the full name of the user.';
                }
                field(IsApprover; IsApprover)
                {
                    ApplicationArea = Suite;
                    Caption = 'Approver';
                    ToolTip = 'Specifies the incoming document approver. Note that this approver is not related to approval workflows.';

                    trigger OnValidate()
                    begin
                        IncomingDocumentApprover.SetIsApprover(Rec, IsApprover);
                    end;
                }
                field("License Type"; Rec."License Type")
                {
                    ApplicationArea = Suite;
                    ToolTip = 'Specifies the type of license that applies to the user. For more information, see License Types.';
                }
            }
        }
    }

    actions
    {
    }

    trigger OnAfterGetRecord()
    begin
        IsApprover := IncomingDocumentApprover.Get(Rec."User Security ID");
    end;

    trigger OnOpenPage()
    begin
        HideExternalUsers();
    end;

    var
        IncomingDocumentApprover: Record "Incoming Document Approver";
        IsApprover: Boolean;

    local procedure HideExternalUsers()
    var
        EnvironmentInfo: Codeunit "Environment Information";
        OriginalFilterGroup: Integer;
    begin
        if not EnvironmentInfo.IsSaaS() then
            exit;

        OriginalFilterGroup := Rec.FilterGroup;
        Rec.FilterGroup := 2;
        Rec.SetFilter("License Type", '<>%1&<>%2', Rec."License Type"::"External User", Rec."License Type"::"AAD Group");
        Rec.FilterGroup := OriginalFilterGroup;
    end;
}