Move subcon tests from base app to app

src/Apps/W1/Subcontracting/App/src/Install/SubcontractingCompInit.Codeunit.al

@@ -85,4 +85,4 @@ codeunit 99001503 "Subcontracting Comp. Init."
     begin
         exit(DefaultCompTransferLeadTimeLbl);
     end;
-}
+}

src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcCalcSubcontractsExt.Codeunit.al

@@ -6,7 +6,6 @@ namespace Microsoft.Manufacturing.Subcontracting;
 
 using Microsoft.Inventory.Requisition;
 using Microsoft.Manufacturing.Document;
-using Microsoft.Manufacturing.Planning;
 using Microsoft.Manufacturing.WorkCenter;
 
 codeunit 99001529 "Subc. Calc Subcontracts Ext."

src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcSubcontractingWorksheet.Page.al

@@ -8,7 +8,6 @@ using Microsoft.Finance.Currency;
 using Microsoft.Finance.Dimension;
 using Microsoft.Inventory.Item;
 using Microsoft.Inventory.Requisition;
-using Microsoft.Manufacturing.Planning;
 using System.Security.User;
 
 page 99001504 "Subc. Subcontracting Worksheet"

src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcManagementLibrary.Codeunit.al

@@ -23,6 +23,10 @@ codeunit 139983 "Subc. Management Library"
         CreateSubcontractingManagementSetup();
     end;
 
+    var
+        LibraryPurchase: Codeunit "Library - Purchase";
+        LibraryWarehouse: Codeunit "Library - Warehouse";
+
     procedure CreateSubcontractingManagementSetup()
     var
         ManufacturingSetup: Record "Manufacturing Setup";
@@ -33,6 +37,27 @@ codeunit 139983 "Subc. Management Library"
         end;
     end;
 
+    procedure CreateSubcontractorWithCurrency(CurrencyCode: Code[10]): Code[20]
+    var
+        Vendor: Record Vendor;
+    begin
+        // Create a Subcontractor Vendor.
+        CreateSubcontractor(Vendor);
+        Vendor.Validate("Currency Code", CurrencyCode);
+        Vendor.Modify(true);
+        exit(Vendor."No.");
+    end;
+
+    procedure CreateSubcontractor(var Vendor: Record Vendor)
+    var
+        Location: Record Location;
+    begin
+        LibraryPurchase.CreateSubcontractor(Vendor);
+        LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location);
+        Vendor."Subc. Location Code" := Location.Code;
+        Vendor.Modify();
+    end;
+
     procedure CreateSubContractingPrice(var SubcontractorPrices: Record "Subcontractor Price"; WorkCenterNo: Code[20]; VendorNo: Code[20]; ItemNo: Code[20]; StandardTaskCode: Code[10]; VariantCode: Code[10]; StartDate: Date; UnitOfMeasureCode: Code[10]; MinimumQuantity: Decimal; CurrencyCode: Code[10])
     begin
         SubcontractorPrices.Init();
@@ -96,7 +121,6 @@ codeunit 139983 "Subc. Management Library"
     var
         Location: Record Location;
         ProdOrderComp: Record "Prod. Order Component";
-        LibraryWarehouse: Codeunit "Library - Warehouse";
     begin
         ProdOrderComp.SetRange("Prod. Order No.", ProdOrderNo);
 #pragma warning disable AA0210
@@ -112,7 +136,6 @@ codeunit 139983 "Subc. Management Library"
     var
         Location: Record Location;
         Vendor: Record Vendor;
-        LibraryWarehouse: Codeunit "Library - Warehouse";
     begin
         LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location);
         Vendor.Get(WorkCenter."Subcontractor No.");
@@ -175,7 +198,6 @@ codeunit 139983 "Subc. Management Library"
         ProdOrderComp: Record "Prod. Order Component";
         TransferRoute: Record "Transfer Route";
         Vendor: Record Vendor;
-        LibraryWarehouse: Codeunit "Library - Warehouse";
     begin
         Vendor.Get(WorkCenter."Subcontractor No.");
         ProdOrderComp.SetRange(Status, ProductionOrder.Status);
@@ -192,7 +214,6 @@ codeunit 139983 "Subc. Management Library"
     var
         Location: Record Location;
         ManufacturingSetup: Record "Manufacturing Setup";
-        LibraryWarehouse: Codeunit "Library - Warehouse";
     begin
         LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location);
         ManufacturingSetup.Get();
@@ -245,4 +266,64 @@ codeunit 139983 "Subc. Management Library"
         WIPLedgerEntry."Unit of Measure Code" := ProdOrderLine."Unit of Measure Code";
         WIPLedgerEntry.Insert();
     end;
+
+    procedure CalculateSubcontractOrder(var WorkCenter: Record "Work Center")
+    var
+        ManufacturingSetup: Record "Manufacturing Setup";
+        RequisitionLine: Record "Requisition Line";
+        SubcCalculateSubcontracts: Report "Subc. Calculate Subcontracts";
+    begin
+        ManufacturingSetup.Get();
+        RequisitionLine."Worksheet Template Name" := ManufacturingSetup."Subcontracting Template Name";
+        RequisitionLine."Journal Batch Name" := ManufacturingSetup."Subcontracting Batch Name";
+
+        RequisitionLineForSubcontractOrder(RequisitionLine);
+        SubcCalculateSubcontracts.SetWkShLine(RequisitionLine);
+        SubcCalculateSubcontracts.SetTableView(WorkCenter);
+        SubcCalculateSubcontracts.UseRequestPage(false);
+        SubcCalculateSubcontracts.RunModal();
+    end;
+
+    procedure CalculateSubcontractOrderWithProdOrderRoutingLine(var ProdOrderRoutingLine: Record "Prod. Order Routing Line")
+    var
+        ManufacturingSetup: Record "Manufacturing Setup";
+        RequisitionLine: Record "Requisition Line";
+        TmpProdOrderRoutingLine: Record "Prod. Order Routing Line";
+        SubcCalculateSubcontracts: Report "Subc. Calculate Subcontracts";
+        UseWithFilterOnlyErr: Label 'Prod. Order Routing Line must have filter to be used in this method.';
+    begin
+        ManufacturingSetup.Get();
+        if ProdOrderRoutingLine.HasFilter then
+            TmpProdOrderRoutingLine.CopyFilters(ProdOrderRoutingLine)
+        else
+            Error(UseWithFilterOnlyErr);
+
+        RequisitionLine."Worksheet Template Name" := ManufacturingSetup."Subcontracting Template Name";
+        RequisitionLine."Journal Batch Name" := ManufacturingSetup."Subcontracting Batch Name";
+        RequisitionLineForSubcontractOrder(RequisitionLine);
+        SubcCalculateSubcontracts.SetWkShLine(RequisitionLine);
+        SubcCalculateSubcontracts.SetTableView(TmpProdOrderRoutingLine);
+        SubcCalculateSubcontracts.UseRequestPage(false);
+        SubcCalculateSubcontracts.RunModal();
+    end;
+
+    local procedure RequisitionLineForSubcontractOrder(var RequisitionLine: Record "Requisition Line")
+    var
+        ReqJnlManagement: Codeunit ReqJnlManagement;
+        JnlSelected: Boolean;
+        Handled: Boolean;
+    begin
+        ReqJnlManagement.WkshTemplateSelection(Page::"Subc. Subcontracting Worksheet", false, "Req. Worksheet Template Type"::Subcontracting, RequisitionLine, JnlSelected);
+        if not JnlSelected then
+            Error('');
+        OnBeforeOpenJournal(RequisitionLine, Handled);
+        if Handled then
+            exit;
+        ReqJnlManagement.OpenJnl(RequisitionLine."Journal Batch Name", RequisitionLine);
+    end;
+
+    [IntegrationEvent(false, false)]
+    local procedure OnBeforeOpenJournal(var RequisitionLine: Record "Requisition Line"; var Handled: Boolean)
+    begin
+    end;
 }

src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcWarehouseLibrary.Codeunit.al

@@ -14,7 +14,6 @@ using Microsoft.Inventory.Transfer;
 using Microsoft.Manufacturing.Capacity;
 using Microsoft.Manufacturing.Document;
 using Microsoft.Manufacturing.MachineCenter;
-using Microsoft.Manufacturing.Planning;
 using Microsoft.Manufacturing.ProductionBOM;
 using Microsoft.Manufacturing.Routing;
 using Microsoft.Manufacturing.Setup;