mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 14:46:55 +01:00
2d0913568e
- add 20 agent knowledge rules with good and bad AL samples - clarify setup dialog shape, temporary persistence, permissions, profiles, instructions, capability registration, and interface wiring - add the community-owned AL agents review skill - make review fixture discovery layer-aware with custom, community, and Microsoft precedence - document layer-aware evaluation behavior
26 lines
1.1 KiB
AL
26 lines
1.1 KiB
AL
codeunit 50100 "Sales Review Agent Task"
|
|
{
|
|
procedure AnalyzeAgentTaskMessage(AgentTaskMessage: Record "Agent Task Message"; var Annotations: Record "Agent Annotation")
|
|
var
|
|
AgentMessage: Codeunit "Agent Message";
|
|
NotRelevantMsg: Label 'Message is not a sales order task.';
|
|
NotRelevantDetailsTxt: Label 'Provide a message related to sales order review.';
|
|
begin
|
|
if AgentTaskMessage.Type = AgentTaskMessage.Type::Output then begin
|
|
AgentMessage.UpdateText(AgentTaskMessage, AgentMessage.GetText(AgentTaskMessage) + '\n\nWritten with the help of AI');
|
|
exit;
|
|
end;
|
|
if not IsRelevant(AgentMessage.GetText(AgentTaskMessage)) then begin
|
|
Annotations.Code := 'RELEVANCE001';
|
|
Annotations.Severity := Annotations.Severity::Warning;
|
|
Annotations.Message := NotRelevantMsg;
|
|
Annotations.Details := NotRelevantDetailsTxt;
|
|
Annotations.Insert();
|
|
end;
|
|
end;
|
|
|
|
local procedure IsRelevant(MessageText: Text): Boolean
|
|
begin
|
|
exit(MessageText <> '');
|
|
end;
|
|
}
|