[Extensibility][MultiObjects][SubscriptionBilling] Extensibility (microsoft#7297)

- Improve accessibility for ExtendContract() and
InsertFromItemNoAndCustomerContract() procedures, to allow using default
procedures to extend and manage subscription contracts
microsoft#7125
- Add missing `SetHideDialog()` procedure, to control `HideDialog`
variable
- Enable extensibility for "Usage Based Pricing" enum, to allow
implementation of additional pricing method

- Fixes microsoft#7125
- Fixes microsoft#7126

[AB#626916](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/626916)

---------

Co-authored-by: Christoph Krieg <christoph.krieg@365businessdev.com>

Author: sirhc101

src/Apps/W1/Subscription Billing/App/Customer Contracts/Codeunits/ExtendSubContractMgt.Codeunit.al

@@ -6,7 +6,12 @@ codeunit 8075 "Extend Sub. Contract Mgt."
         HideDialog: Boolean;
         ExtensionCompletedMsg: Label 'Contract Extension completed.';
 
-    internal procedure ExtendContract(var ServiceObject: Record "Subscription Header"; var TempServiceCommitmentPackage: Record "Subscription Package" temporary; ExtendCustomerContract: Boolean; var CustomerContract: Record "Customer Subscription Contract"; ExtendVendorContract: Boolean; var VendorContract: Record "Vendor Subscription Contract"; UsageBasedBillingPackageLinesOnly: Boolean; SupplierReferenceEntryNo: Integer)
+    procedure SetHideDialog(Hide: Boolean)
+    begin
+        HideDialog := Hide;
+    end;
+
+    procedure ExtendContract(var ServiceObject: Record "Subscription Header"; var TempServiceCommitmentPackage: Record "Subscription Package" temporary; ExtendCustomerContract: Boolean; var CustomerContract: Record "Customer Subscription Contract"; ExtendVendorContract: Boolean; var VendorContract: Record "Vendor Subscription Contract"; UsageBasedBillingPackageLinesOnly: Boolean; SupplierReferenceEntryNo: Integer)
     var
         ServiceCommitment: Record "Subscription Line";
         CustomerContractLine: Record "Cust. Sub. Contract Line";

src/Apps/W1/Subscription Billing/App/Service Objects/Tables/SubscriptionHeader.Table.al

@@ -2081,7 +2081,7 @@ table 8057 "Subscription Header"
         SetRange("Source No.", ItemNo);
     end;
 
-    internal procedure InsertFromItemNoAndCustomerContract(var ServiceObject: Record "Subscription Header"; ItemNo: Code[20]; SourceQuantity: Decimal; ProvisionStartDate: Date; CustomerContract: Record "Customer Subscription Contract")
+    procedure InsertFromItemNoAndCustomerContract(var ServiceObject: Record "Subscription Header"; ItemNo: Code[20]; VariantCode: Code[10]; SourceQuantity: Decimal; ProvisionStartDate: Date; CustomerContract: Record "Customer Subscription Contract")
     var
         Item: Record Item;
         ContractsItemManagement: Codeunit "Sub. Contracts Item Management";

src/Apps/W1/Subscription Billing/App/Usage Based Billing/Enums/UsageBasedPricing.Enum.al

@@ -2,7 +2,7 @@ namespace Microsoft.SubscriptionBilling;
 
 enum 8007 "Usage Based Pricing"
 {
-    Extensible = false;
+    Extensible = true;
 
     value(0; None)
     {