Exercise - Add tables and pages for master data

  • 12 minutes

Scenario

You're a developer working for CRONUS International Ltd. You've been asked to extend the example setup extension. The requirement is to add a corresponding master and supplemental table and all appropriate pages and design patterns.

Tasks

  • Add two new tables to the Example Application extension.

  • Create pages for the Example and Example Type tables.

  • Apply the No. Series Design Pattern.

Steps

  1. In VS Code, in your extension, add a new folder named: MasterData. All new files are to be added in this new folder.

  2. Create a new file, named: Example.Table.al.

  3. Create a new table in this file by using code snippets. Enter ttable and then press the Tab key.

  4. Change the ID to 50125 and the name to Example.

  5. Set the DataClassification property to CustomerContent and set the Caption property to Example.

  6. Remove the MyField field.

  7. Create the following fields. You can use the tfield snippet.

    Field No. Field name Data type Length
    1 No. Code 20
    2 Description Text 50
    3 Example Type Code Code 10
    4 No. Series Code 20

  8. Set the DataClassification property for each field in the table to CustomerContent.

  9. Set the Caption property for each field in the table.

  10. Set the Primary Key to No.

  11. Remove the global var section.

  12. Remove the table triggers.

  13. Your code should now resemble this:

     table 50125 Example
 {
     DataClassification = CustomerContent;
     Caption = 'Example';

     fields
     {
         field(1; "No."; Code[20])
         {
             DataClassification = CustomerContent;
             Caption = 'No.';
         }
         field(2; "Description"; Text[50])
         {
             DataClassification = CustomerContent;
             Caption = 'Description';
         }
         field(3; "Example Type Code"; Code[10])
         {
             DataClassification = CustomerContent;
             Caption = 'Example Type Code';
         }
         field(4; "No. Series"; Code[20])
         {
             DataClassification = CustomerContent;
             Caption = 'No.';
         }
     }

     keys
     {
         key(Pk; "No.")
         {
             Clustered = true;
         }
     }
 }

  14. Create a new file named: ExampleType.Table.al.

  15. Create a new table in this file by using code snippets. Enter ttable and then press the Tab key.

  16. Change the ID to 50126 and the name to ExampleType.

  17. Set the DataClassification property to CustomerContent and set the Caption property to Example Type.

  18. Remove the MyField field.

  19. Create the following fields. You can use the tfield snippet.

    Field No. Field name Data type Length
    1 Code Code 10
    2 Description Text 50

  20. Set the DataClassification property for each field in the table to CustomerContent.

  21. Set the Caption property for each field in the table.

  22. Set the Primary Key to Code.

  23. Remove the global var section.

  24. Remove the table triggers.

  25. Your code should now resemble this:

     table 50126 ExampleType
 {
     DataClassification = CustomerContent;
     Caption = 'Example Type';

     fields
     {
         field(1; Code; code[10])
         {
             DataClassification = CustomerContent;
             Caption = 'Code';
         }
         field(2; Description; Text[50])
         {
             DataClassification = CustomerContent;
             Caption = 'Description';
         }
     }

     keys
     {
         key(Pk; Code)
         {
             Clustered = true;
         }
     }
 }

  26. Open the Example.Table.al file and set the TableRelation property of the Example Type Code field to the Example Type table.

     field(3; "Example Type Code"; Code[10])
         {
             DataClassification = CustomerContent;
             Caption = 'Example Type Code';
             TableRelation = ExampleType;
         }

  27. If you don't have a table named: Example Setup in your project, then create one. (filename: ExampleSetup.Table.al)

  28. The code should be as follows:

    
 table 50124 "Example Setup"
 {
     Caption = 'Example Setup';
     DataClassification = CustomerContent;

     fields
     {
         field(1; "Primary Key"; Code[10])
         {
             Caption = 'Primary Key';
         }
         field(2; "Example Nos."; Code[20])
         {
             Caption = 'Example Nos.';
             TableRelation = "No. Series";
         }
     }
     keys
     {
         key(Key1; "Primary Key")
         {
             Clustered = true;
         }
     }
 }

  29. If you don't have a page Example Setup Card in your project, then create one (filename: ExampleSetupCard.Page.al):

    page 50101 ExampleSetupCard
{
    ApplicationArea = All;
    Caption = 'Example Setup Card';
    PageType = Card;
    SourceTable = "Example Setup";
    UsageCategory = Administration;
    DeleteAllowed = false;
    InsertAllowed = false;

    layout
    {
        area(content)
        {
            group(General)
            {
                Caption = 'General';

                field("Example Nos."; Rec."Example Nos.")
                {
                    ToolTip = 'Specifies the value of the Example Nos. field.';
                }
            }
        }
    }
    trigger OnOpenPage()
    begin
        if not rec.get() then
            rec.Insert();
    end;
}

  30. Create two global variables in the Example table object.

    
 var
     NoSeriesManagement: Codeunit NoSeriesManagement;
     ExampleSetup: Record "Example Setup";

  31. Write code in the OnInsert trigger of the Example table to initialize the number series.

    
 trigger OnInsert();
 begin
     if "No." = '' then begin
         ExampleSetup.Get();
         ExampleSetup.TestField("Example Nos.");
         NoSeriesManagement.InitSeries(ExampleSetup."Example Nos.",
                                     xRec."No. Series",
                                     0D,
                                     "No.",
                                     "No. Series");
     end;
 end;

  32. Create an AssistEdit trigger and write code to enable selection by using the number series.

     procedure AssistEdit(OldExample: Record Example): Boolean
     var
         Example: Record Example;
     begin
         Example := Rec;
         ExampleSetup.Get();
         ExampleSetup.TestField("Example Nos.");
         if NoSeriesManagement.SelectSeries(ExampleSetup."Example Nos.",
                                         OldExample."No. Series",
                                         Example."No. Series") then begin
             NoSeriesManagement.SetSeries(Example."No.");
             Rec := Example;
             exit(true);
         end;
     end;

  33. The Example table should now resemble this:

     table 50125 Example
 {
     DataClassification = CustomerContent;
     Caption = 'Example';

     fields
     {
         field(1; "No."; Code[20])
         {
             DataClassification = CustomerContent;
             Caption = 'No.';
         }
         field(2; "Description"; Text[50])
         {
             DataClassification = CustomerContent;
             Caption = 'Description';
         }
         field(3; "Example Type Code"; Code[10])
         {
             DataClassification = CustomerContent;
             Caption = 'Example Type Code';
             TableRelation = ExampleType;
         }
         field(4; "No. Series"; Code[20])
         {
             DataClassification = CustomerContent;
             Caption = 'No.';
         }
     }

     keys
     {
         key(Pk; "No.")
         {
             Clustered = true;
         }
     }
     var
         ExampleSetup: Record "Example Setup";
         NoSeriesManagement: Codeunit NoSeriesManagement;

     trigger OnInsert();
     begin
         if "No." = '' then begin
             ExampleSetup.Get();
             ExampleSetup.TestField("Example Nos.");
             NoSeriesManagement.InitSeries(ExampleSetup."Example Nos.",
                                         xRec."No. Series",
                                         0D,
                                         "No.",
                                         "No. Series");
         end;
     end;

     procedure AssistEdit(OldExample: Record Example): Boolean
     var
         Example: Record Example;
     begin
         Example := Rec;
         ExampleSetup.Get();
         ExampleSetup.TestField("Example Nos.");
         if NoSeriesManagement.SelectSeries(ExampleSetup."Example Nos.",
                                         OldExample."No. Series",
                                         Example."No. Series") then begin
             NoSeriesManagement.SetSeries(Example."No.");
             Rec := Example;
             exit(true);
         end;
     end;
 }

  34. Create a new file named: ExampleCard.Page.al.

  35. Create a new page in this file by using code snippets. Enter tpage and then press the Tab key.

  36. Change the ID to 50125 and the name to Example Card.

  37. Set the SourceTable property to Example and set the Caption property to Example Card.

  38. Set the PageType property to Card and set the UsageCategory property to None. Remove the ApplicationArea property.

  39. Verify that a content area is created in the layout section. If not, create an area called content.

  40. Change the name of the first group to General. Set the Caption property of the group to General.

  41. Add all fields to the General group, except the No. Series field.

  42. Verify that the ApplicationArea property is set to All for all fields on the page.

  43. Add meaningful tooltips for every field.

  44. Add an OnAssistEdit trigger for the No. field.

  45. In the OnAssistEdit trigger of the No. field, write code to run the AssistEdit function on the table level.

     page 50125 "Example Card"
 {
     PageType = Card;
     UsageCategory = None;
     SourceTable = Example;
     Caption = 'Example Card';


     layout
     {
         area(Content)
         {
             group(General)
             {
                 Caption = 'General';

                 field("No."; Rec."No.")
                 {
                     ApplicationArea = All;
                     ToolTip = 'Specifies the value of the No. field.';
                     trigger OnAssistEdit()
                     begin
                         if Rec.AssistEdit(xRec) then
                             CurrPage.Update();
                     end;
                 }
                 field(Description; Rec.Description)
                 {
                     ApplicationArea = All;
                     ToolTip = 'Specifies the value of the Description field.';
                 }
                 field("Example Type Code"; Rec."Example Type Code")
                 {
                     ApplicationArea = All;
                     ToolTip = 'Specifies the value of the Example Type Code field.';
                 }
             }
         }
     }
 }

  46. Add a new file, named: ExampleList.Page.al.

  47. Create a new page in this file by using code snippets. Enter tpage and then press the Tab key.

  48. Change the ID to 50126 and the name to Example List.

  49. Set the SourceTable property to Example and set the Caption property to Example List.

  50. Set the PageType property to List and set the UsageCategory property to Lists. Verify that the ApplicationArea property is set to All.

  51. Set the Editable property to false and set the CardPageID property to Example Card.

  52. Verify that a content area is created in the layout section. If not, create an area called content.

  53. Make sure there's a repeater with the name General.

  54. Add all fields within the repeater, except the No. Series field.

  55. Verify that the ApplicationArea property is set to All for all fields on the page.

  56. Add meaningful tooltips for every field in the page.

  57. Remove the actions area from the page.

  58. Remove the factbox area from the page.

  59. The code should now resemble this:

     page 50126 "Example List"
 {
     PageType = List;
     ApplicationArea = All;
     UsageCategory = Lists;
     SourceTable = Example;
     Caption = 'Example List';

     layout
     {
         area(Content)
         {
             repeater(General)
             {

                 field("No."; Rec."No.")
                 {
                     ToolTip = 'Specifies the value of the No. field.';
                 }
                 field(Description; Rec.Description)
                 {
                     ToolTip = 'Specifies the value of the Description field.';
                 }
                 field("Example Type Code"; Rec."Example Type Code")
                 {
                     ToolTip = 'Specifies the value of the Example Type Code field.';
                 }
             }
         }
     }
 }

  60. Add a new file, named: ExampleTypes.Page.al.

  61. Create a new page in this file by using code snippets. Enter tpage and then press the Tab key.

  62. Change the ID to 50124 and the name to Example Types.

  63. Set the SourceTable property to Example Type and set the Caption property to Example Types.

  64. Set the PageType property to List and set the UsageCategory property to Lists. Verify that the ApplicationArea property is set to All.

  65. Set the Editable property to true.

  66. Verify that a content area is created in the layout section. If not, create an area called content.

  67. Make sure there's a repeater with the name General.

  68. Add all fields within the repeater.

  69. Verify that the ApplicationArea property is set to All for all fields on the page.

  70. Add meaningful tooltips to all fields.

  71. Remove the actions area from the page.

  72. Remove the factbox area from the page.

  73. The code now resembles this:

     page 50124 "Example Types"
 {
     PageType = List;
     ApplicationArea = All;
     UsageCategory = Lists;
     SourceTable = ExampleType;
     Caption = 'Example Types';
     Editable = true;

     layout
     {
         area(Content)
         {
             repeater(General)
             {

                 field("Code"; Rec."Code")
                 {
                     ToolTip = 'Specifies the value of the Code field.';
                 }
                 field(Description; Rec.Description)
                 {
                     ToolTip = 'Specifies the value of the Description field.';
                 }
             }
         }
     }
 }

  74. Open the Example.Table.al file and set the LookupPageID and DrillDownPageID properties to Example List.

  75. Open the ExampleType.Table.al file and set the LookupPageID and DrillDownPageID properties to Example Types.

  76. Open the Example List page, and set the CardPageId property to Example Card and Editable to false.

  77. Open the launch.json file in the .vscode folder. Set the startupObjectId setting to 50126 and the startupObjectType to Page.

  78. Publish your extension to the sandbox. Select View > Command Palette... (Ctrl+Shift+P).

  79. Enter AL: Publish in the search box (or press the F5 key) and then select the command from the list.

  80. Verify that the Dynamics 365 Business Central application launches and that the Example List page appears. You can add new examples to the list by using the Example Card and add Example Types if you want to test your extension.

  81. You can also test the No. Series functionality. For each new example that you add, a new number should be generated automatically, if you set a number series for examples in the Example Setup Card.