Merge pull request #89 from StefanMaron/main

Cosmetic changes to the readability pages
This commit is contained in:
Jesper Schulz-Wedde 2021-12-15 10:07:04 +01:00 committed by GitHub
commit 0652b72824
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
8 changed files with 35 additions and 34 deletions

View file

@ -20,7 +20,7 @@ end;
## Good code ## Good code
```AL ```AL
IF FindSet() then if FindSet() then
repeat repeat
... ...
until next() = 0; until next() = 0;
@ -29,7 +29,7 @@ IF FindSet() then
## Bad code ## Bad code
```AL ```AL
IF IsAssemblyOutputLine then begin if IsAssemblyOutputLine then begin
TestField("Order Line No.", 0); TestField("Order Line No.", 0);
end; end;
``` ```
@ -37,7 +37,7 @@ end;
## Good code ## Good code
```AL ```AL
IF IsAssemblyOutputLine then if IsAssemblyOutputLine then
TestField("Order Line No.", 0); TestField("Order Line No.", 0);
``` ```
@ -45,8 +45,8 @@ IF IsAssemblyOutputLine then
```AL ```AL
// Except for this case // Except for this case
IF X then begin if X then begin
IF Y then if Y then
//DO SOMETHING; //DO SOMETHING;
end else end else
(not X) (not X)

View file

@ -17,6 +17,7 @@ The `end else` pair should always appear on the same line.
... ...
end end
else else
begin
... ...
end; end;
``` ```
@ -27,7 +28,7 @@ The `end else` pair should always appear on the same line.
if OppEntry.Find('-') then if OppEntry.Find('-') then
if SalesCycleStage.Find('-') then begin if SalesCycleStage.Find('-') then begin
... ...
end else end else begin
... ...
end; end;
``` ```

View file

@ -11,13 +11,13 @@ When calling an object statically use the Object Name, not the Object Id.
## Bad code ## Bad code
```al ```al
Page.RunModal(525,SalesShptLine) Page.RunModal(525, SalesShptLine);
``` ```
## Good code ## Good code
```al ```al
Page.RunModal(Page::"Posted Sales Shipment Lines",SalesShptLine) Page.RunModal(Page::"Posted Sales Shipment Lines", SalesShptLine);
``` ```
## [Discussions](https://github.com/microsoft/alguidelines/discussions/categories/bc-best-practices?discussions_q=named+invocations+category%3A%22BC+Best+Practices%22) ## [Discussions](https://github.com/microsoft/alguidelines/discussions/categories/bc-best-practices?discussions_q=named+invocations+category%3A%22BC+Best+Practices%22)

View file

@ -11,7 +11,7 @@ A line of code should not have more than one statement.
## Bad code ## Bad code
```al ```al
if OppEntry.Find('-') then exit(); if OppEntry.Find('-') then exit;
``` ```
@ -19,7 +19,7 @@ A line of code should not have more than one statement.
```al ```al
if OppEntry.Find('-') then if OppEntry.Find('-') then
exit(); exit;
``` ```
## Bad code ## Bad code

View file

@ -11,7 +11,7 @@ weight = 1050
## Bad code ## Bad code
```al ```al
if Atom = '\>' then HasLogicalOperator := TRUE else begin if Atom = '\>' then HasLogicalOperator := true else begin
... ...
end; end;
``` ```

View file

@ -13,7 +13,7 @@ weight = 1270
```al ```al
procedure SomeProcedure() procedure SomeProcedure()
begin begin
if IsAdjmtBinCodeChanged then if IsAdjmtBinCodeChanged() then
Error(AdjmtBinCodeChangeNotAllowedErr, ...) Error(AdjmtBinCodeChangeNotAllowedErr, ...)
else else
Error(BinCodeChangeNotAllowedErr, ...); Error(BinCodeChangeNotAllowedErr, ...);
@ -24,7 +24,7 @@ weight = 1270
```al ```al
procedure SomeProcedure() procedure SomeProcedure()
begin begin
if IsAdjmtBinCodeChanged then if IsAdjmtBinCodeChanged() then
Error(AdjmtBinCodeChangeNotAllowedErr, ...) Error(AdjmtBinCodeChangeNotAllowedErr, ...)
Error(BinCodeChangeNotAllowedErr, ...); Error(BinCodeChangeNotAllowedErr, ...);
end; end;