mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-06 15:16:56 +01:00
67962727f6
Six carried-over threads: - api-page-least-privilege-write-access fixtures: added the mandatory EntityName/EntitySetName properties (AL0485). - pages-must-not-contain-business-logic fixtures: Sales Line has no "Total Amount" field; replaced with the real "Line Amount" (field 103). - test-feature-scenario-tags.good.al and test-one-when-per-test.good.al: CreatePriceHeader leaves a price list in Draft status, which price calculation ignores. Added Validate(Status, Active) + Modify before the sales line that depends on it. Verified Status field/enum against PriceListHeader.Table.al and PriceStatus.Enum.al in the BCApps clone. - exposed-objects-must-be-in-a-permission-set.md: a published codeunit is a SOAP endpoint (SOAP is deprecated), not OData - Page/Query are the OData object types. Corrected and pointed new integrations at API pages/queries instead. - al-error-handling-review.md: the log-writes-must-survive-rollback cue selected on Session.StartSession, which only appears in the compliant fix, never in the anti-pattern - the bad fixture could never be worklisted. Recued on the actual risk shape (log insert around a failed TryFunction/GetLastError* path, then raise/propagate), with StartSession as an explicit compliant discriminator instead. - page-design-must-match-bc-page-type-conventions.md: the enum value is NavigatePage, not Navigate; noted the type list is a selected subset, not an exhaustive PageType catalogue (PromptDialog, ConfigurationDialog, UserControlHost, XmlPort also exist, out of this article's scope). Four new correctness gaps: - release-must-update-app-version.md: "the version is the only identity" was backwards - id is the app's stable identity, version identifies a release/code-state of it. - defensive-vs-offensive-code-must-match-blast-radius.good.al: the "low blast radius" example had no else branch, so a failed Customer.Get() left the field at its prior/default value instead of the explicit chosen fallback the article claims to demonstrate. Added the else. - bcpt-scenarios-must-be-app-specific.good.al: InitTest and both measured StartScenario/EndScenario sections were empty/comment-only, so the "app-specific" fixture measured no actual work. Filled in a real, self-contained header+line creation path. - upgrade-tag-logic-must-not-nest-deeply.good.al: the flattened version dropped both safety conditions the bad fixture had (Discount % = 0, nonblank posting group), silently changing behavior instead of just removing nesting. Extracted the guarded update into a helper with both conditions preserved as early exits. Also converted this PR's remaining plain-backtick "See sample:" sample references (16 articles) to the READ-convention markdown-link form, matching the fix already made on #156/#158. Rebased onto upstream/main (conflicts in al-ui-review.md, al-style-review.md, al-upgrade-review.md against merged upstream PRs - all additive, both sides' worklist cues retained).
59 lines
1.8 KiB
AL
59 lines
1.8 KiB
AL
codeunit 50100 "BCPT Create Service Request" implements "BCPT Test Param. Provider"
|
|
{
|
|
SingleInstance = true;
|
|
|
|
trigger OnRun()
|
|
begin
|
|
if not IsInitialized then begin
|
|
InitTest();
|
|
IsInitialized := true;
|
|
end;
|
|
CreateServiceRequest(GlobalBCPTTestContext);
|
|
end;
|
|
|
|
var
|
|
GlobalBCPTTestContext: Codeunit "BCPT Test Context";
|
|
CustomerNo: Code[20];
|
|
NextNo: Integer;
|
|
IsInitialized: Boolean;
|
|
|
|
local procedure InitTest()
|
|
var
|
|
Customer: Record Customer;
|
|
begin
|
|
Customer.FindFirst();
|
|
CustomerNo := Customer."No.";
|
|
end;
|
|
|
|
local procedure CreateServiceRequest(var BCPTTestContext: Codeunit "BCPT Test Context")
|
|
var
|
|
ServiceRequestHeader: Record "Service Request Header";
|
|
ServiceRequestLine: Record "Service Request Line";
|
|
begin
|
|
BCPTTestContext.StartScenario('Create Service Request Header');
|
|
NextNo += 1;
|
|
ServiceRequestHeader.Init();
|
|
ServiceRequestHeader."No." := CopyStr(Format(NextNo), 1, MaxStrLen(ServiceRequestHeader."No."));
|
|
ServiceRequestHeader.Validate("Customer No.", CustomerNo);
|
|
ServiceRequestHeader.Insert(true);
|
|
BCPTTestContext.EndScenario('Create Service Request Header');
|
|
BCPTTestContext.UserWait();
|
|
|
|
BCPTTestContext.StartScenario('Add Service Request Line');
|
|
ServiceRequestLine.Init();
|
|
ServiceRequestLine."Document No." := ServiceRequestHeader."No.";
|
|
ServiceRequestLine."Line No." := 10000;
|
|
ServiceRequestLine.Description := 'Performance test line';
|
|
ServiceRequestLine.Insert(true);
|
|
BCPTTestContext.EndScenario('Add Service Request Line');
|
|
end;
|
|
|
|
procedure GetDefaultParameters(): Text[1000]
|
|
begin
|
|
exit('');
|
|
end;
|
|
|
|
procedure ValidateParameters(Parameters: Text[1000])
|
|
begin
|
|
end;
|
|
}
|