Microsoft/alguidelines
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update examples

Browse source
This commit is contained in:
Christoph Krieg 2022-06-27 19:22:33 +02:00
parent 3661c16c80
commit 2c4e2cc991
1 changed files with 26 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

40
content/docs/BestPractices/if-not-find-then-exit/index.md
View file

@ -59,25 +59,37 @@ or
## Good code ## Good code
```al ```al
SalesHeader.Reset(); procedure DoSomethingSalesOrder()
SalesHeader.SetRange("Document Type", SalesHeader."Document Type"::Order); var
SalesHeader.SetRange(Status, SalesHeader.Status::Open); SalesHeader: Record "Sales Header";
if (not SalesHeader.FindSet(false)) then begin
exit; SalesHeader.Reset();
SalesHeader.SetRange("Document Type", SalesHeader."Document Type"::Order);
SalesHeader.SetRange(Status, SalesHeader.Status::Open);
if (not SalesHeader.FindSet(false)) then
exit;
repeat repeat
DoSomethingSalesLine(SalesHeader);
until SalesHeader.Next() = 0;
DoSomethingElse();
end;
procedure DoSomethingSalesLine(var SalesHeader: Record "Sales Header")
var
SalesLine: Record "Sales Line";
begin
SalesLine.Reset(); SalesLine.Reset();
SalesLine.SetRange("Document Type", SalesHeader."Document Type"::Order); SalesLine.SetRange("Document Type", SalesHeader."Document Type"::Order);
SalesLine.SetRange("Document No.", SalesHeader."No."); SalesLine.SetRange("Document No.", SalesHeader."No.");
if (SalesLine.FindSet(true)) then begin if (not SalesLine.FindSet(true)) then
repeat exit;
DoSomething();
until SalesLine.Next() = 0;
end;
until SalesHeader.Next() = 0;
DoSomethingElse(); repeat
end; DoSomething();
until SalesLine.Next() = 0;
end;
``` ```
or or