PTE Apps and Nuget for getting versions

CCMS/src/Environment/D4PBCEnvironmentMgt.codeunit.al

@@ -251,7 +251,7 @@ codeunit 62000 "D4P BC Environment Mgt"
                     case LowerCase(JsonValue.AsText()) of
                         'global':
                             InstalledApp."App Type" := Enum::"D4P App Type"::Global;
-                        'pte', 'tenant':
+                        'tenant':
                             InstalledApp."App Type" := Enum::"D4P App Type"::PTE;
                         'dev':
                             InstalledApp."App Type" := Enum::"D4P App Type"::DEV;

CCMS/src/Extension/D4PPTEObjectRange.table.al

@@ -2,6 +2,7 @@ namespace D4P.CCMS.Extension;
 
 using D4P.CCMS.Customer;
 using D4P.CCMS.Tenant;
+using D4P.CCMS.PTEApps;
 table 62004 "D4P PTE Object Range"
 {
     Caption = 'PTE Object Range';
@@ -27,12 +28,14 @@ table 62004 "D4P PTE Object Range"
         {
             DataClassification = SystemMetadata;
             Caption = 'Entry No.';
+            ToolTip = 'Specifies the entry number.';
             AutoIncrement = true;
         }
         field(4; "PTE ID"; Guid)
         {
             Caption = 'PTE ID';
             ToolTip = 'Specifies the Per Tenant Extension''s ID.';
+            TableRelation = "D4P BC PTE App"."ID";
         }
         field(5; "PTE Name"; Text[100])
         {
@@ -41,11 +44,15 @@ table 62004 "D4P PTE Object Range"
         }
         field(6; "Range From"; Integer)
         {
+            ObsoleteReason = 'Added new table to make it possible to have several object ranges on same app';
+            ObsoleteState = Pending;
             Caption = 'Range From';
             ToolTip = 'Specifies the starting range.';
         }
         field(7; "Range To"; Integer)
         {
+            ObsoleteReason = 'Added new table to make it possible to have several object ranges on same app';
+            ObsoleteState = Pending;
             Caption = 'Range To';
             ToolTip = 'Specifies the ending range.';
         }
@@ -58,4 +65,13 @@ table 62004 "D4P PTE Object Range"
             Clustered = true;
         }
     }
+
+    procedure CopyValuesFromApp(PTEID: Guid)
+    var
+        PTEApp: Record "D4P BC PTE App";
+    begin
+        if not PTEApp.Get(PTEID) then
+            exit;
+        Rec."PTE Name" := PTEApp."Name";
+    end;
 }

CCMS/src/Extension/D4PPTEObjectRanges.page.al

@@ -1,4 +1,6 @@
 namespace D4P.CCMS.Extension;
+
+using D4P.CCMS.PTEApps;
 page 62009 "D4P PTE Object Ranges"
 {
     PageType = List;
@@ -22,16 +24,54 @@ page 62009 "D4P PTE Object Ranges"
                 }
                 field("PTE ID"; Rec."PTE ID")
                 {
+                    TableRelation = "D4P BC PTE App"."ID";
+
+                    trigger OnValidate()
+                    begin
+                        if IsNullGuid(Rec."PTE ID") then
+                            exit;
+
+                        Rec.CopyValuesFromApp(Rec."PTE ID");
+                    end;
                 }
                 field("PTE Name"; Rec."PTE Name")
                 {
                 }
-                field("Range From"; Rec."Range From")
-                {
-                }
-                field("Range To"; Rec."Range To")
-                {
-                }
+            }
+        }
+
+        area(FactBoxes)
+        {
+            part(PTEAppPObjectRangeFactBox; "D4P BC PTE Obj. Ranges FactBox")
+            {
+                Caption = 'Object Range';
+                SubPageLink = "PTE ID" = field("PTE ID");
+            }
+            part(PTEAppVersionsFactBox; "D4P PTE App Versions FactBox")
+            {
+                Caption = 'Versions';
+                SubPageLink = "PTE ID" = field("PTE ID");
+            }
+        }
+    }
+
+    actions
+    {
+        area(Navigation)
+        {
+            action(OpenPteApp)
+            {
+                Caption = 'Pte App';
+                ApplicationArea = All;
+                Image = Open;
+                trigger OnAction()
+                var
+                    PTEApp: Record "D4P BC PTE App";
+                begin
+                    if PTEApp.Get(Rec."PTE ID") then
+                        Page.Run(Page::"D4P BC PTE App Card", PTEApp);
+                end;
+
             }
         }
     }

CCMS/src/PTEApps/D4PBCDevOpsOrgList.Page.al

@@ -0,0 +1,49 @@
+namespace D4P.CCMS.PTEApps;
+
+page 62036 "D4P BC DevOps Org. List"
+{
+    ApplicationArea = All;
+    Caption = 'D365BC DevOps Organization List';
+    PageType = List;
+    SourceTable = "D4P BC DevOps Organization";
+    UsageCategory = Administration;
+
+    layout
+    {
+        area(Content)
+        {
+            repeater(General)
+            {
+                field(DevOps; Rec."DevOps Environment")
+                {
+                }
+                field(ID; Rec.ID)
+                {
+                }
+                field(Name; Rec.Name)
+                {
+                }
+            }
+        }
+    }
+
+    actions
+    {
+        area(Processing)
+        {
+            action(ImportToken)
+            {
+                Caption = 'Import Token';
+                ApplicationArea = All;
+                Image = CodesList;
+                trigger OnAction()
+                var
+                    InputToken: Page "D4P BC Input Token";
+                begin
+                    if InputToken.RunModal() = Action::OK then
+                        IsolatedStorage.Set(StrSubstNo('%1-%2', Rec."DevOps Environment", Rec.ID), InputToken.GetToken());
+                end;
+            }
+        }
+    }
+}

CCMS/src/PTEApps/D4PBCDevOpsOrganization.Table.al

@@ -0,0 +1,46 @@
+namespace D4P.CCMS.PTEApps;
+
+using D4P.CCMS.Nuget;
+table 62006 "D4P BC DevOps Organization"
+{
+    DataClassification = CustomerContent;
+    Caption = 'D365BC DevOps Organization';
+    LookupPageId = "D4P BC DevOps Org. List";
+    DrillDownPageId = "D4P BC DevOps Org. List";
+
+    fields
+    {
+        field(1; "DevOps Environment"; Enum "D4P BC DevOps Environment")
+        {
+            Caption = 'DevOps Environment';
+            ToolTip = 'Specifies the environment for the DevOps organization.';
+        }
+        field(2; ID; Code[20])
+        {
+            Caption = 'ID';
+            ToolTip = 'Specifies the unique identifier for the DevOps organization.';
+        }
+        field(3; Name; Text[128])
+        {
+            Caption = 'Name';
+            ToolTip = 'Specifies the name of the DevOps organization.';
+        }
+    }
+
+    keys
+    {
+        key(PK; "DevOps Environment", ID)
+        {
+            Clustered = true;
+        }
+    }
+
+    trigger OnDelete()
+    var
+        TokenKey: Text;
+    begin
+        TokenKey := StrSubstNo('%1-%2', Format(Rec."DevOps Environment"), Rec.ID);
+        if IsolatedStorage.Contains(TokenKey) then
+            IsolatedStorage.Delete(TokenKey);
+    end;
+}

CCMS/src/PTEApps/D4PBCInputToken.Page.al

@@ -0,0 +1,32 @@
+namespace D4P.CCMS.PTEApps;
+
+page 62050 "D4P BC Input Token"
+{
+    ApplicationArea = All;
+    Caption = 'D365BC Input Token';
+    PageType = StandardDialog;
+
+    layout
+    {
+        area(Content)
+        {
+            group(General)
+            {
+                field(Token; Token)
+                {
+                    Caption = 'Personal Access Token';
+                    ToolTip = 'Specifies the Personal Access Token for DevOps organization access.';
+                    MultiLine = true;
+                }
+            }
+        }
+    }
+
+    var
+        Token: Text[250];
+
+    procedure GetToken(): SecretText
+    begin
+        exit(Token);
+    end;
+}

CCMS/src/PTEApps/D4PBCPTEApp.Table.al

@@ -0,0 +1,99 @@
+namespace D4P.CCMS.PTEApps;
+
+using D4P.CCMS.Nuget;
+table 62007 "D4P BC PTE App"
+{
+    DataClassification = CustomerContent;
+    Caption = 'D365BC PTE App';
+    DrillDownPageId = "D4P BC PTE App List";
+    LookupPageId = "D4P BC PTE App List";
+
+    fields
+    {
+        field(1; "ID"; Guid)
+        {
+            Caption = 'ID';
+            ToolTip = 'Specifies the ID of the Per Tenant Extension.';
+        }
+        field(2; "Name"; Text[100])
+        {
+            Caption = 'Name';
+            ToolTip = 'Specifies the name of the Per Tenant Extension.';
+        }
+        field(3; "Latest App Version"; Text[50])
+        {
+            Caption = 'App Version';
+            ToolTip = 'Specifies the latest version of the PTE app.';
+        }
+        field(4; "DevOps Environment"; Enum "D4P BC DevOps Environment")
+        {
+            Caption = 'DevOps Environment';
+            ToolTip = 'Specifies the DevOps environment associated with the PTE app.';
+            trigger OnValidate()
+            begin
+                if Rec."DevOps Environment" <> xRec."DevOps Environment" then
+                    ClearFieldsOnDevOpsChange();
+            end;
+        }
+        field(5; "DevOps Organization"; Text[100])
+        {
+            Caption = 'Organization';
+            ToolTip = 'Specifies the organization associated with the PTE app.';
+            trigger OnLookup()
+            var
+                DevOpsOrganization: Record "D4P BC DevOps Organization";
+            begin
+                DevOpsOrganization.SetRange("DevOps Environment", Rec."DevOps Environment");
+                if Page.RunModal(Page::"D4P BC DevOps Org. List", DevOpsOrganization) = Action::LookupOK then
+                    Rec."DevOps Organization" := DevOpsOrganization.ID;
+            end;
+        }
+        field(6; "DevOps Package"; Text[100])
+        {
+            Caption = 'Package';
+            ToolTip = 'Specifies the package associated with the PTE app.';
+        }
+        field(7; "DevOps Feed"; Text[100])
+        {
+            Caption = 'Feed';
+            ToolTip = 'Specifies the feed associated with the PTE app.';
+        }
+        field(8; "NuGet Package Name"; Text[250])
+        {
+            Caption = 'NuGet Package Name';
+            ToolTip = 'Specifies the NuGet package name of the PTE app.';
+        }
+    }
+
+    keys
+    {
+        key(PK; "ID")
+        {
+            Clustered = true;
+        }
+    }
+
+    fieldgroups
+    {
+        fieldgroup(DropDown; "ID", "Name")
+        { }
+        fieldgroup(Brick; "ID", "Name")
+        { }
+    }
+    trigger OnDelete()
+    var
+        PTEAppVersion: Record "D4P BC PTE App Version";
+    begin
+        PTEAppVersion.SetRange("PTE ID", Rec."ID");
+        if not PTEAppVersion.IsEmpty() then
+            PTEAppVersion.DeleteAll(true);
+    end;
+
+    local procedure ClearFieldsOnDevOpsChange()
+    begin
+        Rec."DevOps Organization" := '';
+        Rec."DevOps Feed" := '';
+        Rec."DevOps Package" := '';
+        Rec."NuGet Package Name" := '';
+    end;
+}