diff --git a/.vscode/launch.json b/.vscode/launch.json index 0cc2d13..d39b796 100644 --- a/.vscode/launch.json +++ b/.vscode/launch.json @@ -9,8 +9,8 @@ "server": "http://localhost:8080/BC210/", "serverInstance": "BC210", "authentication": "Windows", - "startupObjectId": 50106, - "startupObjectType": "Query", + "startupObjectId": 22, + "startupObjectType": "Page", "breakOnError": "All", "launchBrowser": true, "enableLongRunningSqlStatements": true, diff --git a/Default Publisher_ALM_1.0.0.0.app b/Default Publisher_ALM_1.0.0.0.app index c0ac0c2..c0cf86c 100644 Binary files a/Default Publisher_ALM_1.0.0.0.app and b/Default Publisher_ALM_1.0.0.0.app differ diff --git a/HelloWorld.al b/HelloWorld.al index 792416e..aafcf9f 100644 --- a/HelloWorld.al +++ b/HelloWorld.al @@ -6,6 +6,6 @@ pageextension 50100 CustomerListExt extends "Customer List" { trigger OnOpenPage(); begin - Message('App published: Enock first Al programming '); + Message('Enock first Al programming Learning in Coretec LTD '); end; } \ No newline at end of file diff --git a/Que50106.ListofAttachees.al b/Que50106.ListofAttachees.al new file mode 100644 index 0000000..6e9feba --- /dev/null +++ b/Que50106.ListofAttachees.al @@ -0,0 +1,45 @@ +query 50106 "List of Attachees" +{ + Caption = 'List of Attachees'; + QueryType = Normal; + QueryCategory = 'Customer List'; + + elements + { + dataitem(Customer; Customer) + { + column(Address; Address) + { + } + column(Amount; Amount) + { + } + column(Balance; Balance) + { + } + column(City; City) + { + } + column(Contact; Contact) + { + } + column(Comment; Comment) + { + } + column(County; County) + { + } + column(EMail; "E-Mail") + { + } + column(Name; Name) + { + } + } + } + + trigger OnBeforeOpen() + begin + + end; +} diff --git a/QueryTop 5 Consumers.al b/QueryTop 5 Consumers.al new file mode 100644 index 0000000..f9e71c0 --- /dev/null +++ b/QueryTop 5 Consumers.al @@ -0,0 +1,41 @@ +query 50107 "Top 5 Consumers" +{ + QueryType = Normal; //This is a normal query + Caption = 'Top 5 Consumers'; //Obvious, the caption + OrderBy = descending(Sales__LCY_); //Query is sorted in the descending order + TopNumberOfRows = 5; //This now returns the top 5 rows + QueryCategory = 'Customer List'; //This will add this query in the CustomerList dropdown + + elements + { + dataitem(Cust__Ledger_Entry; "Cust. Ledger Entry") //This is defining a data item whereby the query will retrieve data from + { + filter(Posting_Date; "Posting Date") //This filter is not actually doing anything, but it acts a s a placeholder for a filter for Posting field + { + + } + //Columns below are defined and therefore inculded in the query result + + column(Customer_No_; "Customer No.") + { + + } + column(Customer_Name; "Customer Name") + { + + } + column(Sales__LCY_; "Sales (LCY)") + { + Method = Average; //This specifies that the sales(LCY) column should be calculated using the average method + } + } + } + + var + myInt: Integer; + + trigger OnBeforeOpen() + begin + + end; +} \ No newline at end of file