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

Seed web-services (API v2) knowledge domain

Browse source 
Add eight web-services API page knowledge articles (each with .good.al/.bad.al samples), a new al-web-services-review leaf skill, and wire it into al-code-review and the README.

Co-authored-by: Copilot <223556219+Copilot@users.noreply.github.com>
This commit is contained in:
Jesper Schulz-Wedde 2026-06-24 12:38:11 +02:00
parent 6140a52b03
commit 2da72e782a
27 changed files with 965 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

59
microsoft/knowledge/web-services/expose-operations-as-bound-actions.good.al Normal file
View file

@ -0,0 +1,59 @@
page 50350 "WS Bound Action Good"
{
PageType = API;
Caption = 'salesOrder';
APIPublisher = 'contoso';
APIGroup = 'sales';
APIVersion = 'v1.0';
EntityName = 'salesOrder';
EntitySetName = 'salesOrders';
ODataKeyFields = SystemId;
SourceTable = "Sales Header";
DelayedInsert = true;
layout
{
area(content)
{
repeater(records)
{
field(id; Rec.SystemId)
{
Caption = 'id';
Editable = false;
}
field(number; Rec."No.")
{
Caption = 'number';
}
}
}
}
[ServiceEnabled]
procedure Post(var ActionContext: WebServiceActionContext)
var
PostHelper: Codeunit "WS Bound Action Helper";
begin
PostHelper.PostOrder(Rec);
SetActionResponse(ActionContext, Rec.SystemId);
end;
local procedure SetActionResponse(var ActionContext: WebServiceActionContext; CreatedId: Guid)
begin
ActionContext.SetObjectType(ObjectType::Page);
ActionContext.SetObjectId(Page::"WS Bound Action Good");
ActionContext.AddEntityKey(Rec.FieldNo(SystemId), CreatedId);
ActionContext.SetResultCode(WebServiceActionResultCode::Updated);
end;
}
codeunit 50352 "WS Bound Action Helper"
{
procedure PostOrder(var SalesHeader: Record "Sales Header")
var
SalesPost: Codeunit "Sales-Post";
begin
SalesPost.Run(SalesHeader);
end;
}