Skip to content

Revert Privacy opt-in for Semantic Data Search (#6919) #7002

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
SVinchi merged 1 commit into from
Mar 4, 2026
Merged

Revert Privacy opt-in for Semantic Data Search (#6919) #7002

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
100 changes: 8 additions & 92 deletions src/System Application/App/AI/src/Copilot/CopilotAICapabilities.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -240,92 +240,22 @@ page 7775 "Copilot AI Capabilities"
UpdateBingSearchOptIn();
end;
}
field(BingSearchServiceAgreement; MSServiceAgreementLbl)
field(BingSearchServiceAgreement; BingMSServiceAgreementLbl)
{
ShowCaption = false;

trigger OnDrillDown()
begin
Hyperlink(MSServiceAgreementDocLinkLbl);
Hyperlink(BingMSServiceAgreementDocLinkLbl);
end;
}
field(BingSearchPrivacyStatement; MSPrivacyStatementLbl)
field(BingSearchPrivacyStatement; BingMSPrivacyStatementLbl)
{
ShowCaption = false;

trigger OnDrillDown()
begin
Hyperlink(MSPrivacyStatementDocLinkLbl);
end;
}
}
}

group(SemanticDataSearchOptIn)
{
ShowCaption = false;
Visible = true;

group(SemanticDataSearchAllowedDataMovementOffInfo)
{
ShowCaption = false;
Visible = true;
InstructionalText = 'Some features use semantic data similarity. To get the most out of these features, you must enable Semantic Data Search.';
}
field(SemanticDataSearchServiceAgreement; MSServiceAgreementLbl)
{
ShowCaption = false;

trigger OnDrillDown()
begin
Hyperlink(MSServiceAgreementDocLinkLbl);
end;
}
field(SemanticDataSearchPrivacyStatement; MSPrivacyStatementLbl)
{
ShowCaption = false;

trigger OnDrillDown()
begin
Hyperlink(MSPrivacyStatementDocLinkLbl);
end;
}
group(SemanticDataSearchDataMovementGroup)
{
ShowCaption = false;
label(SemanticDataSearchCaption)
{
ApplicationArea = All;
Caption = 'By enabling Semantic Data Search, you agree to data being processed by the Azure Open AI Service outside of your environment''s geographic region or compliance boundary if Azure Open AI Service is not available in your region.';
}
field(SemanticDataSearchAreaDataMovement; SemanticDataSearchOptIn)
{
ApplicationArea = All;
Caption = 'Enable Semantic Search';
ToolTip = 'Specifies whether to enable Semantic Data Search. This is required for some features to use Semantic Data Search in your environment.';
Editable = true;

trigger OnValidate()
begin
UpdateSemanticDataSearchOptIn();
end;
}
field(SemanticDataSearchAOAIServiceLocated; AOAIServiceLocatedLbl)
{
ShowCaption = false;

trigger OnDrillDown()
begin
Hyperlink(AOAIServiceLocatedDocLinkLbl);
end;
}
field(SemanticDataSearchDataProcess; DataProcessByAOAILbl)
{
ShowCaption = false;

trigger OnDrillDown()
begin
Hyperlink(DataProcessByAOAIDocLinkLbl);
Hyperlink(BingMSPrivacyStatementDocLinkLbl);
end;
}
}
Expand Down Expand Up @@ -420,7 +350,6 @@ page 7775 "Copilot AI Capabilities"
end;

BingOptIn := PrivacyNotice.GetPrivacyNoticeApprovalState(SystemPrivacyNoticeReg.GetBingPrivacyNoticeName(), true) = Enum::"Privacy Notice Approval State"::Agreed;
SemanticDataSearchOptIn := PrivacyNotice.GetPrivacyNoticeApprovalState(SystemPrivacyNoticeReg.GetSemanticDataSearchPrivacyNoticeName(), true) = Enum::"Privacy Notice Approval State"::Agreed;
end;

trigger OnPageBackgroundTaskCompleted(TaskId: Integer; Results: Dictionary of [Text, Text])
Expand Down Expand Up @@ -499,18 +428,6 @@ page 7775 "Copilot AI Capabilities"
CopilotNotifications.ShowCapabilityChange();
end;

local procedure UpdateSemanticDataSearchOptIn()
var
SystemPrivacyNoticeReg: Codeunit "System Privacy Notice Reg.";
begin
if SemanticDataSearchOptIn then
PrivacyNotice.SetApprovalState(SystemPrivacyNoticeReg.GetSemanticDataSearchPrivacyNoticeName(), "Privacy Notice Approval State"::Agreed)
else
PrivacyNotice.SetApprovalState(SystemPrivacyNoticeReg.GetSemanticDataSearchPrivacyNoticeName(), "Privacy Notice Approval State"::Disagreed);

CopilotNotifications.ShowCapabilityChange();
end;

[IntegrationEvent(false, false)]
local procedure OnRegisterCopilotCapability()
begin
Expand Down Expand Up @@ -540,9 +457,8 @@ page 7775 "Copilot AI Capabilities"
BingOptIn: Boolean;
BingFeaturesLbl: Label 'Features using Bing Search';
BingFeaturesDocLinkLbl: Label 'https://go.microsoft.com/fwlink/?linkid=2298540', Locked = true;
MSServiceAgreementLbl: Label 'Microsoft Services Agreement';
MSServiceAgreementDocLinkLbl: Label 'https://aka.ms/msa', Locked = true;
MSPrivacyStatementLbl: Label 'Microsoft Privacy Statement';
MSPrivacyStatementDocLinkLbl: Label 'https://go.microsoft.com/fwlink?LinkId=521839', Locked = true;
SemanticDataSearchOptIn: Boolean;
BingMSServiceAgreementLbl: Label 'Microsoft Services Agreement';
BingMSServiceAgreementDocLinkLbl: Label 'https://aka.ms/msa', Locked = true;
BingMSPrivacyStatementLbl: Label 'Microsoft Privacy Statement';
BingMSPrivacyStatementDocLinkLbl: Label 'https://go.microsoft.com/fwlink?LinkId=521839', Locked = true;
}
13 changes: 0 additions & 13 deletions src/System Application/App/Privacy Notice/src/SystemPrivacyNoticeReg.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -21,7 +21,6 @@ codeunit 1566 "System Privacy Notice Reg."
PowerAutomateLabelTxt: Label 'Microsoft Power Automate', Locked = true; // Product names are not translated and it's important this entry exists.
MicrosoftLearnTxt: Label 'Microsoft Learn', Locked = true; // Product names are not translated and it's important this entry exists.
BingTxt: Label 'Bing', Locked = true; // Product names are not translated and it's important this entry exists.
SemanticDataSearchTxt: Label 'Semantic Data Search', Locked = true;

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Privacy Notice", OnRegisterPrivacyNotices, '', false, false)]
local procedure CreatePrivacyNoticeRegistrations(var TempPrivacyNotice: Record "Privacy Notice" temporary)
Expand All @@ -39,9 +38,6 @@ codeunit 1566 "System Privacy Notice Reg."
TempPrivacyNotice.ID := BingTxt;
TempPrivacyNotice."Integration Service Name" := BingTxt;
if not TempPrivacyNotice.Insert() then;
TempPrivacyNotice.ID := SemanticDataSearchTxt;
TempPrivacyNotice."Integration Service Name" := SemanticDataSearchTxt;
if not TempPrivacyNotice.Insert() then;
end;

/// <summary>
Expand Down Expand Up @@ -89,15 +85,6 @@ codeunit 1566 "System Privacy Notice Reg."
exit(BingTxt);
end;

/// <summary>
/// Gets the Semantic Data Search privacy notice name.
/// </summary>
/// <returns>The privacy notice name for Semantic Data Search.</returns>
procedure GetSemanticDataSearchPrivacyNoticeName(): Code[50]
begin
exit(SemanticDataSearchTxt);
end;

[TryFunction]
internal procedure TryGetMicrosoftLearnInGeoSupport(var HasInGeoSupport: Boolean)
var
Expand Down
Loading