diff --git a/src/Apps/W1/Subscription Billing/App/Customer Contracts/Codeunits/ExtendSubContractMgt.Codeunit.al b/src/Apps/W1/Subscription Billing/App/Customer Contracts/Codeunits/ExtendSubContractMgt.Codeunit.al
index 4c60dd8caa..8755a8e4de 100644
--- a/src/Apps/W1/Subscription Billing/App/Customer Contracts/Codeunits/ExtendSubContractMgt.Codeunit.al	
+++ b/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";
diff --git a/src/Apps/W1/Subscription Billing/App/Service Objects/Tables/SubscriptionHeader.Table.al b/src/Apps/W1/Subscription Billing/App/Service Objects/Tables/SubscriptionHeader.Table.al
index a00cd1c6fa..4f14b6fe4b 100644
--- a/src/Apps/W1/Subscription Billing/App/Service Objects/Tables/SubscriptionHeader.Table.al	
+++ b/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";
diff --git a/src/Apps/W1/Subscription Billing/App/Usage Based Billing/Enums/UsageBasedPricing.Enum.al b/src/Apps/W1/Subscription Billing/App/Usage Based Billing/Enums/UsageBasedPricing.Enum.al
index 4d053b0bbf..889a93fb9d 100644
--- a/src/Apps/W1/Subscription Billing/App/Usage Based Billing/Enums/UsageBasedPricing.Enum.al	
+++ b/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)
     {