JOP-AL

Objects/Codeunits

Codeunit 8820 AAD Application Interface

, Base Application 28.5.54151.54365, checked

App
Base Application
Namespace
System.Environment.Configuration
Versions
17-28

Procedures, 3

Versions171819202122232425262728

Source29

Source in 29

src/Layers/W1/BaseApp/System/AadApplication/AADApplicationInterFace.Codeunit.al42 lines, Copyright (c) Microsoft Corporation. MIT

namespace System.Environment.Configuration;

codeunit 8820 "AAD Application Interface"
{
    trigger OnRun()
    begin
    end;

    procedure CreateAADApplication(ClientId: Guid; ClientDescription: Text[50]; ContactInformation: Text[50])
    var
        AADApplication: Record "AAD Application";
    begin
        AADApplication."Client Id" := ClientId;
        AADApplication.Description := ClientDescription;
        AADApplication."Contact Information" := ContactInformation;
        AADApplication.State := AADApplication.State::Disabled;
        if AADApplication.Insert() then;
    end;

    procedure CreateAADApplication(ClientId: Guid; ClientDescription: Text[50]; ContactInformation: Text[50]; EnableAADApplication: Boolean)
    var
        AADApplication: Record "AAD Application";
    begin
        CreateAADApplication(ClientId, ClientDescription, ContactInformation);
        AADApplication.Get(ClientId);
        if EnableAADApplication then begin
            AADApplication.TestField(Description);
            AADApplication.Validate(State, AADApplication.State::Enabled);
            AADApplication.Modify();
        end;
    end;

    procedure ModifyAADApplicationDescription(ClientId: Guid; ClientDescription: Text[50])
    var
        AADApplication: Record "AAD Application";
    begin
        if not AADApplication.Get(ClientId) then
            exit;
        AADApplication.Description := ClientDescription;
        AADApplication.Modify();
    end;
}