2293 add page for upgrade tags (#2301)

#### Summary It would be very welcome to add a page to the upgrade tags table so in that case you can see what kind of upgrade tags there are executed for troubleshooting. #### Work Item(s) Fixes #2293 Fixes [AB#556569](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/556569) --------- Co-authored-by: Jesper Schulz-Wedde <[email protected]> Co-authored-by: Jesper Schulz-Wedde <[email protected]>
microsoft · Nov 18, 2024 · 3bcb2bd · 3bcb2bd
1 parent 1b3b184
commit 3bcb2bd
Show file tree

Hide file tree

Showing 3 changed files with 42 additions and 0 deletions.
diff --git a/src/System Application/App/Upgrade Tags/app.json b/src/System Application/App/Upgrade Tags/app.json
@@ -14,6 +14,10 @@
   "screenshots": [],
   "platform": "26.0.0.0",
   "idRanges": [
+    {
+      "from": 9985,
+      "to": 9985
+    },
     {
       "from": 9992,
       "to": 9994

diff --git a/src/System Application/App/Upgrade Tags/src/UpgradeTags.Page.al b/src/System Application/App/Upgrade Tags/src/UpgradeTags.Page.al
@@ -0,0 +1,34 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+
+namespace System.Upgrade;
+page 9985 "Upgrade Tags"
+{
+    PageType = List;
+    ApplicationArea = All;
+    Caption = 'Upgrade Tags';
+    Extensible = false;
+    UsageCategory = Lists;
+    SourceTable = "Upgrade Tags";
+    InsertAllowed = false;
+    DeleteAllowed = false;
+    ModifyAllowed = false;
+    InherentEntitlements = X;
+    InherentPermissions = X;
+
+    layout
+    {
+        area(Content)
+        {
+            repeater(GroupName)
+            {
+                field(Tag; Rec.Tag) { }
+                field("Tag Timestamp"; Rec."Tag Timestamp") { }
+                field(Company; Rec.Company) { }
+                field("Skipped Upgrade"; Rec."Skipped Upgrade") { }
+            }
+        }
+    }
+}
diff --git a/src/System Application/App/Upgrade Tags/src/UpgradeTags.Table.al b/src/System Application/App/Upgrade Tags/src/UpgradeTags.Table.al
@@ -20,22 +20,26 @@ table 9999 "Upgrade Tags"
         {
             Caption = 'Tag';
             DataClassification = SystemMetadata;
+            ToolTip = 'Specifies the tag that is used to identify the upgrade.';
         }
         field(2; "Tag Timestamp"; DateTime)
         {
             Caption = 'Tag Timestamp';
             DataClassification = SystemMetadata;
+            ToolTip = 'Specifies the date and time when the upgrade is executed.';
         }
         field(3; Company; Code[30])
         {
             Caption = 'Company';
             DataClassification = SystemMetadata;
+            ToolTip = 'Specifies the company where the upgrade is executed.';
         }
 
         field(4; "Skipped Upgrade"; Boolean)
         {
             Caption = 'Skipped Upgrade';
             DataClassification = SystemMetadata;
+            ToolTip = 'Specifies whether the upgrade is skipped.';
         }
     }