diff --git a/Prototyping/Thirsday25App/.vscode/launch.json b/Prototyping/Thirsday25App/.vscode/launch.json new file mode 100644 index 0000000..3b915c2 --- /dev/null +++ b/Prototyping/Thirsday25App/.vscode/launch.json @@ -0,0 +1,19 @@ +{ + "version": "0.2.0", + "configurations": [ + { + "name": "Microsoft cloud sandbox", + "request": "launch", + "type": "al", + "environmentType": "Sandbox", + "environmentName": "JH-Test", + "tenant": "2384b7c3-109e-4c22-8731-4394fb3aa627", + "startupObjectId": 22, + "startupObjectType": "Page", + "breakOnError": "All", + "launchBrowser": true, + "enableLongRunningSqlStatements": true, + "enableSqlInformationDebugger": true + } + ] +} \ No newline at end of file diff --git a/Prototyping/app.json b/Prototyping/app.json index 1e78a2d..af62134 100644 --- a/Prototyping/app.json +++ b/Prototyping/app.json @@ -1,6 +1,6 @@ { - "id": "b7d23e82-11ae-4172-9289-6e9584df4759", - "name": "Prototyping", + "id": "2d9f26a9-f8e2-4695-9dc7-16f8ad2b28fe", + "name": "Thirsday25", "publisher": "PrintVis", "version": "1.0.0.0", "brief": "", @@ -15,16 +15,16 @@ "id": "5452f323-059e-499a-9753-5d2c07eef904", "name": "PrintVis", "publisher": "PrintVis A/S", - "version": "28.0.0.0" + "version": "28.0.0.1" } ], "screenshots": [], - "platform": "1.0.0.0", + "platform": "28.0.0.0", "application": "28.0.0.0", "idRanges": [ { - "from": 50100, - "to": 50999 + "from": 51000, + "to": 51999 } ], "resourceExposurePolicy": { @@ -36,4 +36,4 @@ "features": [ "NoImplicitWith" ] -} +} \ No newline at end of file diff --git a/Prototyping/src/THRThursday25Cases.Report.al b/Prototyping/src/THRThursday25Cases.Report.al new file mode 100644 index 0000000..90d136d --- /dev/null +++ b/Prototyping/src/THRThursday25Cases.Report.al @@ -0,0 +1,57 @@ +report 51001 "THR Thursday25 Cases" +{ + ApplicationArea = All; + Caption = 'Thursday25 Cases'; + UsageCategory = ReportsAndAnalysis; + DefaultLayout = Word; + WordLayout = 'src/THRThursday25Cases.docx'; + + dataset + { + dataitem("PVS Case"; "PVS Case") + { + RequestFilterFields = "Order No.", Archived, "Creation Date"; + + column(OrderNo; "PVS Case"."Order No.") + { + Caption = 'Order No.'; + } + column(JobName; "PVS Case"."Job Name") + { + Caption = 'Job Name'; + } + column(StatusCode; "PVS Case"."Status Code") + { + Caption = 'Status Code'; + } + + trigger OnPreDataItem() + begin + if GetFilter("Order No.") = '' then + SetFilter("Order No.", '<>%1', ''); + if GetFilter(Archived) = '' then + SetRange(Archived, true); + if GetFilter("Creation Date") = '' then + SetFilter("Creation Date", '>=%1', CalcDate('<-2M>', Today)); + end; + + trigger OnAfterGetRecord() + begin + TotalCases += 1; + end; + } + + dataitem(SummaryLine; Integer) + { + DataItemTableView = where(Number = const(1)); + + column(TotalCases; TotalCases) + { + Caption = 'Total Cases'; + } + } + } + + var + TotalCases: Integer; +} diff --git a/Prototyping/src/THRThursday25Cases.docx b/Prototyping/src/THRThursday25Cases.docx new file mode 100644 index 0000000..e79aaf3 Binary files /dev/null and b/Prototyping/src/THRThursday25Cases.docx differ diff --git a/Prototyping/src/THRThursday25Install.Codeunit.al b/Prototyping/src/THRThursday25Install.Codeunit.al new file mode 100644 index 0000000..ddb51b9 --- /dev/null +++ b/Prototyping/src/THRThursday25Install.Codeunit.al @@ -0,0 +1,8 @@ +codeunit 51002 "THR Thursday25 Install" +{ + Subtype = Install; + + trigger OnInstallAppPerCompany() + begin + end; +}