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

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

@ -59,6 +59,10 @@ or
## Good code ## Good code
```al ```al
procedure DoSomethingSalesOrder()
var
SalesHeader: Record "Sales Header";
begin
SalesHeader.Reset(); SalesHeader.Reset();
SalesHeader.SetRange("Document Type", SalesHeader."Document Type"::Order); SalesHeader.SetRange("Document Type", SalesHeader."Document Type"::Order);
SalesHeader.SetRange(Status, SalesHeader.Status::Open); SalesHeader.SetRange(Status, SalesHeader.Status::Open);
@ -66,18 +70,26 @@ or
exit; 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
exit;
repeat repeat
DoSomething(); DoSomething();
until SalesLine.Next() = 0; until SalesLine.Next() = 0;
end; end;
until SalesHeader.Next() = 0;
DoSomethingElse();
end;
``` ```
or or