mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-06 23:26:55 +01:00
38d341eabb
- mark agent setup pages as non-extensible where required - narrow the agent profile by hiding an unrelated sales-order field - define a dedicated read-only permission set for the sales review agent - assign AL-defined permission sets with system scope and the owning app ID - clarify the permission scope guidance for default access controls
46 lines
1.3 KiB
AL
46 lines
1.3 KiB
AL
page 50100 "Sales Review Agent Setup"
|
|
{
|
|
PageType = ConfigurationDialog;
|
|
ApplicationArea = All;
|
|
SourceTable = "Sales Review Agent Setup";
|
|
SourceTableTemporary = true;
|
|
Extensible = false;
|
|
|
|
layout
|
|
{
|
|
area(Content)
|
|
{
|
|
part(AgentSetupPart; "Agent Setup Part")
|
|
{
|
|
ApplicationArea = All;
|
|
UpdatePropagation = Both;
|
|
}
|
|
}
|
|
}
|
|
|
|
trigger OnQueryClosePage(CloseAction: Action): Boolean
|
|
var
|
|
Agent: Codeunit Agent;
|
|
TempAgentAccessControl: Record "Agent Access Control" temporary;
|
|
AgentUserSecurityId: Guid;
|
|
begin
|
|
if CloseAction = CloseAction::Cancel then
|
|
exit(true);
|
|
|
|
AgentUserSecurityId := Agent.Create(
|
|
Enum::"Agent Metadata Provider"::"Sales Review Agent",
|
|
'SALESREVIEW',
|
|
'Sales Review Agent',
|
|
TempAgentAccessControl);
|
|
Agent.SetInstructions(AgentUserSecurityId, GetInstructions());
|
|
Agent.Activate(AgentUserSecurityId);
|
|
exit(true);
|
|
end;
|
|
|
|
local procedure GetInstructions() Instructions: SecretText
|
|
var
|
|
InstructionsNameTxt: Label 'Instructions.txt', Locked = true;
|
|
begin
|
|
Instructions := NavApp.GetResourceAsText(InstructionsNameTxt);
|
|
end;
|
|
}
|