[Subscription Billing]: Page 8069 "Serv. Comm. WO Cust. Contract" expose internal procedure SetCustomerContractNo (#6169)

<!-- Thank you for submitting a Pull Request. If you're new to
contributing to BCApps please read our pull request guideline below
* https://github.com/microsoft/BCApps/Contributing.md
-->
#### Summary <!-- Provide a general summary of your changes -->

This commit exposes (makes public) procedure SetCustomerContractNo from
Page 8069 "Serv. Comm. WO Cust. Contract".

#### Work Item(s) <!-- Add the issue number here after the #. The issue
needs to be open and approved. Submitting PRs with no linked issues or
unapproved issues is highly discouraged. -->
Fixes #6146

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

Author: anjajanic

src/Apps/W1/Subscription Billing/App/Customer Contracts/Pages/ServCommWOCustContract.Page.al

@@ -191,7 +191,7 @@ page 8069 "Serv. Comm. WO Cust. Contract"
         ShipToStyleExpr: Text;
         CustomerContractNo: Code[20];
 
-    internal procedure SetCustomerContractNo(NewCustomerContractNo: Code[20])
+    procedure SetCustomerContractNo(NewCustomerContractNo: Code[20])
     begin
         CustomerContractNo := NewCustomerContractNo;
     end;