#125 Partner center

CCMS/src/Customer/D4PBCCustomer.table.al

@@ -3,6 +3,7 @@ namespace D4P.CCMS.Customer;
 using D4P.CCMS.Environment;
 using D4P.CCMS.Setup;
 using D4P.CCMS.Tenant;
+using D4P.CCMS.PartnerCenter;
 using Microsoft.Foundation.Address;
 using Microsoft.Foundation.NoSeries;
 using System.EMail;
@@ -146,6 +147,25 @@ table 62000 "D4P BC Customer"
             FieldClass = FlowField;
             ToolTip = 'Number of active sandbox environments for this customer';
         }
+        field(24; "Partner Center Code"; Code[20])
+        {
+            Caption = 'Partner Center';
+            TableRelation = "D4P BC Partner Center".Code;
+            ToolTip = 'Unique code to identify the Partner Center';
+            ValidateTableRelation = true;
+
+            trigger OnValidate()
+            var
+                D4PBCTenant: Record "D4P BC Tenant";
+            begin
+                D4PBCTenant.SetRange("Customer No.", "No.");
+                if D4PBCTenant.FindSet() then
+                    repeat
+                        D4PBCTenant.Validate("Partner Center Code", "Partner Center Code");
+                        D4PBCTenant.Modify();
+                    until D4PBCTenant.Next() = 0;
+            end;
+        }
     }
 
     keys
@@ -154,6 +174,10 @@ table 62000 "D4P BC Customer"
         {
             Clustered = true;
         }
+        key(Key2; "Partner Center Code")
+        {
+            Clustered = false;
+        }
     }
 
     trigger OnInsert()

CCMS/src/Customer/D4PBCCustomerCard.page.al

@@ -36,6 +36,9 @@ page 62001 "D4P BC Customer Card"
                 {
                     Importance = Promoted;
                 }
+                field("Partner Center Code"; Rec."Partner Center Code")
+                {
+                }
             }
             group("Address & Contact")
             {

CCMS/src/Customer/D4PBCCustomersList.page.al

@@ -25,6 +25,9 @@ page 62000 "D4P BC Customers List"
                 field(Name; Rec.Name)
                 {
                 }
+                field("Partner Center Code"; Rec."Partner Center Code")
+                {
+                }
                 field(City; Rec.City)
                 {
                 }

CCMS/src/PartnerCenter/D4PBCPartnerCenter.Table.al

@@ -0,0 +1,31 @@
+namespace D4P.CCMS.PartnerCenter;
+
+table 62006 "D4P BC Partner Center"
+{
+    Caption = 'Partner Center';
+    DataClassification = CustomerContent;
+    DrillDownPageId = "D4P BC Partner Center List";
+    LookupPageId = "D4P BC Partner Center List";
+
+    fields
+    {
+        field(1; "Code"; Code[20])
+        {
+            Caption = 'Code';
+            NotBlank = true;
+            ToolTip = 'Unique code to identify the Partner Center';
+        }
+        field(2; Description; Text[100])
+        {
+            Caption = 'Description';
+            ToolTip = 'Partner Center description';
+        }
+    }
+    keys
+    {
+        key(PK; "Code")
+        {
+            Clustered = true;
+        }
+    }
+}

CCMS/src/PartnerCenter/D4PBCPartnerCenterCard.Page.al

@@ -0,0 +1,27 @@
+namespace D4P.CCMS.PartnerCenter;
+
+page 62033 "D4P BC Partner Center Card"
+{
+    ApplicationArea = All;
+    Caption = 'Partner Center Card';
+    PageType = Card;
+    SourceTable = "D4P BC Partner Center";
+
+    layout
+    {
+        area(Content)
+        {
+            group(General)
+            {
+                Caption = 'General';
+
+                field("Code"; Rec."Code")
+                {
+                }
+                field(Description; Rec.Description)
+                {
+                }
+            }
+        }
+    }
+}

CCMS/src/PartnerCenter/D4PBCPartnerCenterList.Page.al

@@ -0,0 +1,28 @@
+namespace D4P.CCMS.PartnerCenter;
+
+page 62032 "D4P BC Partner Center List"
+{
+    ApplicationArea = All;
+    Caption = 'Partner Center List';
+    CardPageId = "D4P BC Partner Center Card";
+    Editable = false;
+    PageType = List;
+    SourceTable = "D4P BC Partner Center";
+    UsageCategory = Lists;
+
+    layout
+    {
+        area(Content)
+        {
+            repeater(General)
+            {
+                field("Code"; Rec."Code")
+                {
+                }
+                field(Description; Rec.Description)
+                {
+                }
+            }
+        }
+    }
+}

CCMS/src/Permissions/D4PBCAdmin.permissionset.al

@@ -7,6 +7,7 @@ using D4P.CCMS.Customer;
 using D4P.CCMS.Environment;
 using D4P.CCMS.Extension;
 using D4P.CCMS.Features;
+using D4P.CCMS.PartnerCenter;
 using D4P.CCMS.General;
 using D4P.CCMS.Operations;
 using D4P.CCMS.Session;
@@ -40,6 +41,7 @@ permissionset 62000 "D4P BC ADMIN"
         tabledata "D4P BC Admin Center Cue" = RIMD,
         tabledata "D4P PTE Object Range" = RIMD,
         tabledata "D4P BC Environment Operation" = RIMD,
+        tabledata "D4P BC Partner Center" = RIMD,
 
         // Table Objects
         table "D4P BC Customer" = X,
@@ -62,6 +64,7 @@ permissionset 62000 "D4P BC ADMIN"
         table "D4P BC Admin Center Cue" = X,
         table "D4P PTE Object Range" = X,
         table "D4P BC Environment Operation" = X,
+        table "D4P BC Partner Center" = X,
 
         // Pages
         page "D4P BC Customers List" = X,
@@ -98,6 +101,8 @@ permissionset 62000 "D4P BC ADMIN"
         page "D4P BC Customer FactBox" = X,
         page "D4P BC Admin Headline" = X,
         page "D4P BC Capacity List" = X,
+        page "D4P BC Partner Center Card" = X,
+        page "D4P BC Partner Center List" = X,
 
         // Codeunits
         codeunit "D4P BC Environment Mgt" = X,

CCMS/src/Permissions/D4PBCAdminRead.permissionset.al

@@ -6,6 +6,7 @@ using D4P.CCMS.Customer;
 using D4P.CCMS.Environment;
 using D4P.CCMS.Extension;
 using D4P.CCMS.Features;
+using D4P.CCMS.PartnerCenter;
 using D4P.CCMS.Operations;
 using D4P.CCMS.General;
 using D4P.CCMS.Session;
@@ -37,6 +38,7 @@ permissionset 62001 "D4P BC ADMIN READ"
         tabledata "D4P AppInsights Connection" = R,
         tabledata "D4P PTE Object Range" = R,
         tabledata "D4P BC Environment Operation" = R,
+        tabledata "D4P BC Partner Center" = R,
 
         // Table Objects
         table "D4P BC Customer" = X,
@@ -57,6 +59,7 @@ permissionset 62001 "D4P BC ADMIN READ"
         table "D4P AppInsights Connection" = X,
         table "D4P PTE Object Range" = X,
         table "D4P BC Environment Operation" = X,
+        table "D4P BC Partner Center" = X,
 
         // Pages - List and Card pages for viewing
         page "D4P BC Customers List" = X,
@@ -85,6 +88,8 @@ permissionset 62001 "D4P BC ADMIN READ"
         page "D4P BC Customer FactBox" = X,
         page "D4P BC Admin Headline" = X,
         page "D4P BC Capacity List" = X,
+        page "D4P BC Partner Center Card" = X,
+        page "D4P BC Partner Center List" = X,
 
         // Codeunit for reading data
         codeunit "D4P BC Environment Mgt" = X,

CCMS/src/Tenant/D4PBCTenant.table.al

@@ -2,6 +2,7 @@ namespace D4P.CCMS.Tenant;
 
 using D4P.CCMS.Auth;
 using D4P.CCMS.Customer;
+using D4P.CCMS.PartnerCenter;
 
 table 62001 "D4P BC Tenant"
 {
@@ -92,6 +93,13 @@ table 62001 "D4P BC Tenant"
             FieldClass = FlowField;
             ToolTip = 'Specifies the name of the customer associated with this tenant.';
         }
+        field(12; "Partner Center Code"; Code[20])
+        {
+            Caption = 'Partner Center';
+            ToolTip = 'Unique code to identify the Partner Center';
+            TableRelation = "D4P BC Partner Center".Code;
+            ValidateTableRelation = true;
+        }
     }
 
     keys
@@ -102,6 +110,16 @@ table 62001 "D4P BC Tenant"
         }
     }
 
+    trigger OnInsert()
+    var
+        D4PBCCustomer: Record "D4P BC Customer";
+    begin
+        if "Customer No." <> '' then begin
+            D4PBCCustomer.Get("Customer No.");
+            "Partner Center Code" := D4PBCCustomer."Partner Center Code";
+        end;
+
+    end;
     /// <summary>
     /// Gets the client secret from isolated storage for this tenant's configured Client ID.
     /// If the Client ID is a null GUID, or a secret has not been set for this Client ID then an empty SecretText will be returned.

CCMS/src/Tenant/D4PBCTenantCard.page.al

@@ -32,6 +32,9 @@ page 62011 "D4P BC Tenant Card"
                 field("Tenant Name"; Rec."Tenant Name")
                 {
                 }
+                field("Partner Center Code"; Rec."Partner Center Code")
+                {
+                }
             }
             group(Authentication)
             {

CCMS/src/Tenant/D4PBCTenantList.page.al

@@ -34,6 +34,9 @@ page 62002 "D4P BC Tenant List"
                 field("Tenant Name"; Rec."Tenant Name")
                 {
                 }
+                field("Partner Center Code"; Rec."Partner Center Code")
+                {
+                }
             }
         }
         area(FactBoxes)