Microsoft/bcquality
1
0
Fork 0
mirror of https://github.com/microsoft/BCQuality.git synced 2026-08-06 09:26:52 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Correct security and privacy knowledge guidance (#92)

Browse source 
* Correct security and privacy guidance

Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com>

Copilot-Session: 9c2eebc4-dcd5-4b85-8113-90772d818900

* Address security privacy review findings

Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com>

Copilot-Session: 9c2eebc4-dcd5-4b85-8113-90772d818900

---------

Co-authored-by: Jesper Schulz-Wedde <jesper.schulzwedde@microsoft.com>
This commit is contained in:
Jesper Schulz-Wedde 2026-07-14 11:25:03 +02:00 • committed by GitHub
parent bfda67a95a
commit aca3986fd0
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
34 changed files with 192 additions and 153 deletions
Download patch file Download diff file Expand all files Collapse all files

27
microsoft/knowledge/privacy/privacy-notice-consent-for-external-data-transfer.good.al
View file

@ -1,22 +1,35 @@
codeunit 50216 "Privacy Sample Consent Good"
{
var
ExternalSyncNoticeIdLbl: Label 'CONTOSO-EXTERNAL-SYNC', Locked = true;
ExternalSyncNameLbl: Label 'Contoso External Sync', Locked = true;
PrivacyTermsUrlLbl: Label 'https://contoso.example/privacy', Locked = true;
internal procedure RegisterPrivacyNotice()
var
PrivacyNotice: Codeunit "Privacy Notice";
begin
PrivacyNotice.CreatePrivacyNotice(
ExternalSyncNoticeIdLbl, ExternalSyncNameLbl, PrivacyTermsUrlLbl);
end;
procedure SendDataToExternalService(Customer: Record Customer)
var
PrivacyNotice: Codeunit "Privacy Notice";
PrivacyNoticeRegistrations: Codeunit "Privacy Notice Registrations";
HttpClient: HttpClient;
Content: HttpContent;
Payload: JsonObject;
PayloadText: Text;
Response: HttpResponseMessage;
PrivacyConsentRequiredErr: Label 'Privacy notice consent is required for this integration.';
begin
if PrivacyNotice.GetPrivacyNoticeApprovalState(
PrivacyNoticeRegistrations.GetExchangePrivacyNoticeId())
<> "Privacy Notice Approval State"::Agreed
then
if not PrivacyNotice.ConfirmPrivacyNoticeApproval(ExternalSyncNoticeIdLbl) then
Error(PrivacyConsentRequiredErr);
Content.WriteFrom(StrSubstNo('{"email":"%1","name":"%2"}',
Customer."E-Mail", Customer.Name));
Payload.Add('email', Customer."E-Mail");
Payload.Add('name', Customer.Name);
Payload.WriteTo(PayloadText);
Content.WriteFrom(PayloadText);
HttpClient.Post('https://api.externalservice.com/sync', Content, Response);
end;
}