PTE Apps and Nuget for getting versions

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';
@@ -56,4 +57,15 @@ 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."PTE Name";
+        Rec."Range From" := PTEApp."Range From";
+        Rec."Range To" := PTEApp."Range To";
+    end;
 }

CCMS/src/Extension/D4PPTEObjectRangeList.page.al

@@ -1,4 +1,6 @@
 namespace D4P.CCMS.Extension;
+
+using D4P.CCMS.PTEApps;
 page 62009 "D4P PTE Object Ranges"
 {
     PageType = List;
@@ -28,6 +30,13 @@ page 62009 "D4P PTE Object Ranges"
                 {
                     ApplicationArea = All;
                     ToolTip = 'Specifies the Per Tenant Extension''s ID.';
+                    TableRelation = "D4P BC PTE App"."PTE ID";
+
+                    trigger OnValidate()
+                    begin
+                        if not IsNullGuid(Rec."PTE ID") then
+                            Rec.CopyValuesFromApp(Rec."PTE ID");
+                    end;
                 }
                 field("PTE Name"; Rec."PTE Name")
                 {

CCMS/src/PTEApps/D4PBCDevOpsOrgList.Page.al

@@ -0,0 +1,47 @@
+namespace D4P.CCMS.PTEApps;
+
+page 62030 "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(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 begin
+                        IsolatedStorage.Set(Rec.ID, InputToken.GetToken())
+                    end;
+                end;
+            }
+        }
+    }
+}

CCMS/src/PTEApps/D4PBCDevOpsOrganization.Table.al

@@ -0,0 +1,37 @@
+namespace D4P.CCMS.PTEApps;
+table 62006 "D4P BC DevOps Organization"
+{
+    DataClassification = CustomerContent;
+    Caption = 'D365BC DevOps Organization';
+
+    fields
+    {
+        field(1; ID; Code[20])
+        {
+            Caption = 'ID';
+            ToolTip = 'Specifies the unique identifier for the DevOps organization.';
+        }
+        field(2; Name; Text[100])
+        {
+            Caption = 'Name';
+            ToolTip = 'Specifies the name of the DevOps organization.';
+        }
+    }
+
+    keys
+    {
+        key(PK; ID)
+        {
+            Clustered = true;
+        }
+    }
+
+    trigger OnDelete()
+    begin
+        if IsolatedStorage.Contains(Rec.ID) then
+            IsolatedStorage.Delete(Rec.ID);
+    end;
+
+
+
+}

CCMS/src/PTEApps/D4PBCInputToken.Page.al

@@ -0,0 +1,32 @@
+namespace D4P.CCMS.PTEApps;
+
+page 62031 "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(): Text
+    begin
+        exit(Token);
+    end;
+}

CCMS/src/PTEApps/D4PBCPTEApp.Table.al

@@ -0,0 +1,85 @@
+namespace D4P.CCMS.PTEApps;
+
+using D4P.CCMS.Nuget;
+table 62007 "D4P BC PTE App"
+{
+    DataClassification = CustomerContent;
+    Caption = 'D365BC PTE App';
+    drilldownpageid = "D4P BC PTE Apps List";
+    LookupPageId = "D4P BC PTE Apps List";
+
+    fields
+    {
+        field(1; "PTE ID"; Guid)
+        {
+            Caption = 'PTE ID';
+        }
+        field(2; "PTE Name"; Text[100])
+        {
+            Caption = 'PTE Name';
+        }
+        field(4; "Range From"; Integer)
+        {
+            Caption = 'Range From';
+        }
+        field(5; "Range To"; Integer)
+        {
+            Caption = 'Range To';
+        }
+        field(6; "Latest App Version"; Text[50])
+        {
+            Caption = 'App Version';
+            ToolTip = 'Specifies the latest version of the PTE app.';
+        }
+        field(7; DevOps; enum "D4P BC DevOps Environments")
+        {
+            Caption = 'DevOps Environment';
+            ToolTip = 'Specifies the DevOps environment associated with the PTE app.';
+        }
+        field(8; "DevOps Organization"; Text[100])
+        {
+            Caption = 'Organization';
+            ToolTip = 'Specifies the organization associated with the PTE app.';
+            TableRelation = "D4P BC DevOps Organization".ID;
+        }
+        field(9; "DevOps Package"; Text[100])
+        {
+            Caption = 'Repository';
+            ToolTip = 'Specifies the repository associated with the PTE app.';
+        }
+        field(10; "DevOps Feed"; Text[100])
+        {
+            Caption = 'Feed';
+            ToolTip = 'Specifies the feed associated with the PTE app.';
+        }
+        field(11; "NuGet Package Name"; Text[250])
+        {
+            Caption = 'NuGet Package Name';
+            ToolTip = 'Specifies the NuGet package name of the PTE app.';
+        }
+    }
+
+    keys
+    {
+        key(PK; "PTE ID")
+        {
+            Clustered = true;
+        }
+    }
+
+    fieldgroups
+    {
+        fieldgroup(DropDown; "PTE ID", "PTE Name")
+        { }
+        fieldgroup(Brick; "PTE ID", "PTE Name")
+        { }
+    }
+    trigger OnDelete()
+    var
+        PTEAppVersion: Record "D4P BC PTE App Version";
+    begin
+        PTEAppVersion.SetRange("PTE ID", Rec."PTE ID");
+        if not PTEAppVersion.IsEmpty() then
+            PTEAppVersion.DeleteAll();
+    end;
+}

CCMS/src/PTEApps/D4PBCPTEAppCard.Page.al

@@ -0,0 +1,87 @@
+namespace D4P.CCMS.PTEApps;
+page 62028 "D4P BC PTE App Card"
+{
+    ApplicationArea = All;
+    Caption = 'D365BC PTE Apps Card';
+    PageType = Card;
+    SourceTable = "D4P BC PTE App";
+
+    layout
+    {
+        area(Content)
+        {
+            group(General)
+            {
+                Caption = 'General';
+
+                field("PTE ID"; Rec."PTE ID")
+                {
+                }
+                field("PTE Name"; Rec."PTE Name")
+                {
+                }
+                field("App Version"; Rec."Latest App Version")
+                {
+                }
+            }
+            group(DevOpsGroup)
+            {
+                Caption = 'DevOps';
+
+                field("Range From"; Rec."Range From")
+                {
+                }
+                field("Range To"; Rec."Range To")
+                {
+                }
+                field(DevOps; Rec.DevOps)
+                {
+                }
+                field("DevOps Organization"; Rec."DevOps Organization")
+                {
+                }
+                field("DevOps Package"; Rec."DevOps Package")
+                {
+                    Visible = DevOpsPackageVisible;
+                }
+                field("DevOps Feed"; Rec."DevOps Feed")
+                {
+                    Visible = DevopsFeedVisible;
+                }
+                field("NuGet Package Name"; Rec."NuGet Package Name")
+                {
+                }
+            }
+        }
+
+        area(FactBoxes)
+        {
+            part(PTEAppVersionsFactBox; "D4P PTE App Versions FactBox")
+            {
+                Caption = 'Versions';
+                ApplicationArea = All;
+                SubPageLink = "PTE ID" = field("PTE ID");
+            }
+        }
+    }
+
+    trigger OnAfterGetRecord()
+    begin
+        SetVisibleFields();
+    end;
+
+    local procedure SetVisibleFields()
+    begin
+        if Rec.DevOps = Rec.DevOps::Azure then begin
+            DevOpsPackageVisible := true;
+            DevopsFeedVisible := true;
+        end else begin
+            DevOpsPackageVisible := false;
+            DevopsFeedVisible := false;
+        end;
+    end;
+
+    var
+        DevOpsPackageVisible: Boolean;
+        DevopsFeedVisible: Boolean;
+}