mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 17:36:53 +01:00
ec8f891954
Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com> Copilot-Session: 9c2eebc4-dcd5-4b85-8113-90772d818900
17 lines
814 B
AL
17 lines
814 B
AL
codeunit 50218 "Privacy Sample Register Integration"
|
|
{
|
|
var
|
|
ExternalSyncNoticeIdLbl: Label 'CONTOSO-EXTERNAL-SYNC', Locked = true;
|
|
ExternalSyncNameLbl: Label 'Contoso External Sync', Locked = true;
|
|
PrivacyTermsUrlLbl: Label 'https://contoso.example/privacy', Locked = true;
|
|
|
|
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Privacy Notice", 'OnRegisterPrivacyNotices', '', false, false)]
|
|
local procedure OnRegisterPrivacyNotices(var TempPrivacyNotice: Record "Privacy Notice" temporary)
|
|
begin
|
|
TempPrivacyNotice.Init();
|
|
TempPrivacyNotice.ID := ExternalSyncNoticeIdLbl;
|
|
TempPrivacyNotice."Integration Service Name" := ExternalSyncNameLbl;
|
|
TempPrivacyNotice.Link := PrivacyTermsUrlLbl;
|
|
if not TempPrivacyNotice.Insert() then;
|
|
end;
|
|
}
|