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

Minor fixes to pattern pages

Browse source
This commit is contained in:
Peter Conijn 2023-02-22 10:44:30 +01:00
parent 36e4ad4245
commit 6bb60cb36f
3 changed files with 27 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

3
content/docs/patterns/facade-pattern/index.md
View file

@ -64,6 +64,9 @@ To achieve this, we are using [access modifiers](https://docs.microsoft.com/bs-c
_The Facade_
```AL
/// <summary>
/// Codeunit to extract image information.
/// </summary>
codeunit 3971 Image
{
Access = Public;

18
content/docs/patterns/generic-method-pattern/index.md
View file

@ -53,7 +53,8 @@ codeunit 53100 "WLD BlockCustomer Meth"
var
IsHandled: Boolean;
begin
if not ConfirmBlockCustomer(HideDialog) then exit;
if not ConfirmBlockCustomer(HideDialog) then
exit;
OnBeforeBlockCustomer(Cust, IsHandled);
DoBlockCustomer(Cust, IsHandled);
OnAfterBlockCustomer(Cust);
@ -77,7 +78,8 @@ codeunit 53100 "WLD BlockCustomer Meth"
begin
DefaultAnswer := true;
if HideDialog then exit(DefaultAnswer);
if HideDialog then
exit(DefaultAnswer);
exit(ConfirmManagement.GetResponseOrDefault(ConfirmQst, DefaultAnswer));
end;
@ -85,7 +87,8 @@ codeunit 53100 "WLD BlockCustomer Meth"
var
AcknowledgeMsg: Label 'You successfully executed "BlockCustomer"';
begin
if not GuiAllowed or HideDialog then exit;
if not GuiAllowed or HideDialog then
exit;
Message(AcknowledgeMsg);
end;
@ -126,7 +129,8 @@ codeunit 53100 "WLD BlockCustomer Meth"
var
IsHandled: Boolean;
begin
if not ConfirmBlockCustomer(HideDialog) then exit;
if not ConfirmBlockCustomer(HideDialog) then
exit;
...
AcknowledgeBlockCustomer(HideDialog)
end;
@ -140,7 +144,8 @@ codeunit 53100 "WLD BlockCustomer Meth"
begin
DefaultAnswer := true;
if HideDialog then exit(DefaultAnswer);
if HideDialog then
exit(DefaultAnswer);
exit(ConfirmManagement.GetResponseOrDefault(ConfirmQst, DefaultAnswer));
end;
@ -148,7 +153,8 @@ codeunit 53100 "WLD BlockCustomer Meth"
var
AcknowledgeMsg: Label 'You successfully executed "BlockCustomer"';
begin
if not GuiAllowed or HideDialog then exit;
if not GuiAllowed or HideDialog then
exit;
Message(AcknowledgeMsg);
end;
...

25
content/docs/patterns/template-method-pattern/index.md
View file

@ -57,16 +57,15 @@ We start with the template
```al
codeunit 50000 ExportTemplate
{
procedure ExportData(export: Interface IDataExport)
procedure ExportData(Export: Interface IDataExport)
begin
if not export.CheckData() then
if not Export.CheckData() then
exit;
if export.GetLinesToExport() then begin
if Export.GetLinesToExport() then
repeat
export.ExportLine();
until not export.NextLine();
end;
export.Finish();
Export.ExportLine();
until not Export.NextLine();
Export.Finish();
end;
}
```
@ -132,13 +131,13 @@ codeunit 50002 ExportOrders
{
procedure ExportOrder(DocType: Enum "Sales Document Type"; No: Code[10])
var
export: Codeunit ExportTemplate;
exportImpl: Codeunit SalesHeaderExport;
exportInt: Interface IDataExport;
Export: Codeunit ExportTemplate;
ExportImpl: Codeunit SalesHeaderExport;
ExportInt: Interface IDataExport;
begin
exportImpl.SetSalesHeader(DocType, No);
exportInt := exportImpl;
export.ExportData(exportInt);
ExportImpl.SetSalesHeader(DocType, No);
ExportInt := exportImpl;
Export.ExportData(exportInt);
end;
}
```