Thursday Report 2506

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
+    }
+  ]
+}

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"
   ]
-}
+}

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;
+}

Prototyping/src/THRThursday25Install.Codeunit.al

@@ -0,0 +1,8 @@
+codeunit 51002 "THR Thursday25 Install"
+{
+    Subtype = Install;
+
+    trigger OnInstallAppPerCompany()
+    begin
+    end;
+}