From ca05a274ec3f8ae24c75ec838447b86d15cb4cf1 Mon Sep 17 00:00:00 2001 From: JH-PV Date: Fri, 26 Jun 2026 15:00:57 +0200 Subject: [PATCH] Thursday Report 2506 --- Prototyping/Thirsday25App/.vscode/launch.json | 19 ++++++ Prototyping/app.json | 14 ++--- Prototyping/src/THRThursday25Cases.Report.al | 57 ++++++++++++++++++ Prototyping/src/THRThursday25Cases.docx | Bin 0 -> 1291 bytes .../src/THRThursday25Install.Codeunit.al | 8 +++ 5 files changed, 91 insertions(+), 7 deletions(-) create mode 100644 Prototyping/Thirsday25App/.vscode/launch.json create mode 100644 Prototyping/src/THRThursday25Cases.Report.al create mode 100644 Prototyping/src/THRThursday25Cases.docx create mode 100644 Prototyping/src/THRThursday25Install.Codeunit.al 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 0000000000000000000000000000000000000000..e79aaf3c34204510a6dd9927c30c9dc7ca274701 GIT binary patch literal 1291 zcmWIWW@Zs#U|`^2IFNWFCQ94){Rbd#10w^2Fp!RR&d)1J%`1rysVqn>j@7Hk&8ZFW z_B(7Ku(!)JdWuC!qkz{X)+wqRG}t9>PCjzTzVgncdA+RekGL#yUoweKGk(AN``3>* z^~%q6>8hF?EH8*PS2(eHL9e`ZMXY_;b_I*Y*E5=z^L;zA;mz%@c0%2YzTP=FrFhTe zNmpI?cJfWEacr9)^Q>rDpj$}3#iSUMv%Mh)(?9JzwVD0PTV~!J8za}0J*|B+@q|&w zZ{@;suNacIxFzcCxKs64d#RP`71zoKA5xU!MVU@?a~gjtKj8U2rp?oBa>c%Qr7M%W5J_xig`)r zb}`dJ(dD{NuUdTY*u%to_gHJNe%YG;-_tGs{rhuj+xu;)%oSM|p8m1AS-|GEIP;F- z^Yu>;U$spanPR-kmECfF!;ftz+%f~ci^U`uADAdp9M^uqQ_$qF?fGiTyzlR91b#49e0;)N zvF*6arqTxYH8|8^GhAN=spUPLb*gLYS)Z1&`_K8VII80( zE6-ZC73gRkV6<}sX^6YQZtXp9&3DLvhwZ^?mwTC9%uXvZ#aph3PGxrKob6`9uln%f zX2SxNbq;K7T@n(x|NrUOzwckQbLPYt1DCft&8dM*j@omsgc(|t{XWX(;d95!&Z?V7 zt>?m(tBmgRK6%M(=~t09Gm;4U6z#QG;=+dri+(fzDsdkFojhGtdVVpAu~VPUYV&7) zrk1JNeBqSpguG8b`rrPFFKLMo~7y#0``vCv| literal 0 HcmV?d00001 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; +}