[Bug] [Subscription Billing]: Subscription lines cannot be open from sales line for27.x (#5386)

<!-- 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 -->

#### 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 #5286 
Fixes
[AB#612606](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/612606)

Author: samra-singhammer

src/Apps/W1/Subscription Billing/App/Sales Service Commitments/Tables/SalesSubscriptionLine.Table.al

@@ -83,7 +83,7 @@ table 8068 "Sales Subscription Line"
             MinValue = 0;
             BlankZero = true;
             AutoFormatType = 1;
-            AutoFormatExpression = GetCurrency();
+            AutoFormatExpression = Rec."Currency Code";
 
             trigger OnValidate()
             begin
@@ -111,7 +111,7 @@ table 8068 "Sales Subscription Line"
             Editable = false;
             BlankZero = true;
             AutoFormatType = 2;
-            AutoFormatExpression = GetCurrency();
+            AutoFormatExpression = Rec."Currency Code";
 
             trigger OnValidate()
             var
@@ -144,7 +144,7 @@ table 8068 "Sales Subscription Line"
             MinValue = 0;
             BlankZero = true;
             AutoFormatType = 1;
-            AutoFormatExpression = GetCurrency();
+            AutoFormatExpression = Rec."Currency Code";
 
             trigger OnValidate()
             begin
@@ -156,7 +156,7 @@ table 8068 "Sales Subscription Line"
             Caption = 'Amount';
             BlankZero = true;
             AutoFormatType = 1;
-            AutoFormatExpression = GetCurrency();
+            AutoFormatExpression = Rec."Currency Code";
 
             trigger OnValidate()
             begin
@@ -319,7 +319,7 @@ table 8068 "Sales Subscription Line"
             Caption = 'Unit Cost';
             Editable = false;
             AutoFormatType = 2;
-            AutoFormatExpression = GetCurrency();
+            AutoFormatExpression = Rec."Currency Code";
         }
         field(101; "Unit Cost (LCY)"; Decimal)
         {
@@ -338,6 +338,13 @@ table 8068 "Sales Subscription Line"
                     "Unit Cost" := "Unit Cost (LCY)";
             end;
         }
+        field(102; "Currency Code"; Code[10])
+        {
+            Caption = 'Currency Code';
+            Editable = false;
+            FieldClass = FlowField;
+            CalcFormula = lookup("Sales Header"."Currency Code" where("Document Type" = field("Document Type"), "No." = field("Document No.")));
+        }
         field(8000; "Usage Based Billing"; Boolean)
         {
             Caption = 'Usage Based Billing';
@@ -815,14 +822,6 @@ table 8068 "Sales Subscription Line"
         GetSalesLine(Rec, SalesLine2);
     end;
 
-    local procedure GetCurrency(): Code[10]
-    var
-        SalesHeader: Record "Sales Header";
-    begin
-        GetSalesHeader(SalesHeader);
-        exit(SalesHeader."Currency Code");
-    end;
-
     local procedure GetSalesLine(SalesSubscriptionLine: Record "Sales Subscription Line"; var SalesLine2: Record "Sales Line")
     begin
         if (SalesLine."Document Type" <> SalesSubscriptionLine."Document Type")