Codeunit 1820 Customer Consent Mgt.

App
Base Application
Namespace
System.Privacy
Versions
18-28

Procedures, 5

Versions171819202122232425262728

Source29

Source in 29

src/Layers/W1/BaseApp/CustomerConsentMgt.Codeunit.al56 lines, Copyright (c) Microsoft Corporation. MIT

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

codeunit 1820 "Customer Consent Mgt."
{
    procedure ConfirmUserConsent(): Boolean
    var
        CustConsentConfirmation: Page "Cust. Consent Confirmation";
    begin
        CustConsentConfirmation.LookupMode(true);
        CustConsentConfirmation.RunModal();
        exit(CustConsentConfirmation.WasAgreed())
    end;

    procedure ConfirmUserConsentToMicrosoftService(): Boolean
    var
        CustConsentConfirmation: Page "Consent Microsoft Confirm";
    begin
        CustConsentConfirmation.LookupMode(true);
        CustConsentConfirmation.RunModal();
        exit(CustConsentConfirmation.WasAgreed())
    end;

    procedure ConsentToMicrosoftServiceWithAI(): Boolean
    var
        CustConsentConfirmation: Page "Consent Microsoft AI";
    begin
        CustConsentConfirmation.LookupMode(true);
        CustConsentConfirmation.RunModal();
        exit(CustConsentConfirmation.WasAgreed())
    end;

    procedure ConfirmUserConsentToOpenExternalLink(): Boolean
    var
        CustConsentConfirmation: Page "Cust. Consent Confirmation";
    begin
        CustConsentConfirmation.SetOpenExternalLinkConsentText();
        CustConsentConfirmation.LookupMode(true);
        CustConsentConfirmation.RunModal();
        exit(CustConsentConfirmation.WasAgreed())
    end;

    procedure ConfirmCustomConsent(CustomConsentText: Text): Boolean
    var
        CustConsentConfirmation: Page "Cust. Consent Confirmation";
    begin
        CustConsentConfirmation.SetCustomConsentText(CustomConsentText);
        CustConsentConfirmation.LookupMode(true);
        CustConsentConfirmation.RunModal();
        exit(CustConsentConfirmation.WasAgreed())
    end;
}