diff --git a/src/Apps/W1/Quality Management/app/src/Integration/Manufacturing/Routing/QltyRoutingLineLookup.Page.al b/src/Apps/W1/Quality Management/app/src/Integration/Manufacturing/Routing/QltyRoutingLineLookup.Page.al
index fa40461ea6..4905ea2def 100644
--- a/src/Apps/W1/Quality Management/app/src/Integration/Manufacturing/Routing/QltyRoutingLineLookup.Page.al
+++ b/src/Apps/W1/Quality Management/app/src/Integration/Manufacturing/Routing/QltyRoutingLineLookup.Page.al
@@ -1,3 +1,4 @@
+#if not CLEAN28
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
@@ -13,6 +14,9 @@ page 20463 "Qlty. Routing Line Lookup"
SourceTable = "Routing Line";
UsageCategory = None;
ApplicationArea = Manufacturing;
+ ObsoleteReason = 'Unused and replaced with "Routing Line List" page.';
+ ObsoleteState = Pending;
+ ObsoleteTag = '28.0';
layout
{
@@ -121,3 +125,4 @@ page 20463 "Qlty. Routing Line Lookup"
}
#pragma warning restore AA0218
}
+#endif
\ No newline at end of file
diff --git a/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntObjects.PermissionSet.al b/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntObjects.PermissionSet.al
index e50387bcf0..740b825745 100644
--- a/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntObjects.PermissionSet.al
+++ b/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntObjects.PermissionSet.al
@@ -28,7 +28,6 @@ using Microsoft.QualityManagement.Integration.Foundation.Navigate;
using Microsoft.QualityManagement.Integration.Inventory;
using Microsoft.QualityManagement.Integration.Inventory.Transfer;
using Microsoft.QualityManagement.Integration.Manufacturing;
-using Microsoft.QualityManagement.Integration.Manufacturing.Routing;
using Microsoft.QualityManagement.Integration.Receiving;
using Microsoft.QualityManagement.Integration.Utilities;
using Microsoft.QualityManagement.Integration.Warehouse;
@@ -117,7 +116,6 @@ permissionset 20406 "QltyMngmnt - Objects"
page "Qlty. Rec. Gen. Rule S. Guide" = X,
page "Qlty. Related Transfer Orders" = X,
page "Qlty. Report Selection - QM" = X,
- page "Qlty. Routing Line Lookup" = X,
page "Qlty. Inspection Template List" = X,
page "Qlty. Inspection Template Subf" = X,
page "Qlty. Inspection Template" = X,
diff --git a/src/Apps/W1/Quality Management/app/src/Utilities/QltyFilterHelpers.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Utilities/QltyFilterHelpers.Codeunit.al
index e575598503..ade71b0f06 100644
--- a/src/Apps/W1/Quality Management/app/src/Utilities/QltyFilterHelpers.Codeunit.al
+++ b/src/Apps/W1/Quality Management/app/src/Utilities/QltyFilterHelpers.Codeunit.al
@@ -15,7 +15,6 @@ using Microsoft.Manufacturing.Routing;
using Microsoft.Manufacturing.WorkCenter;
using Microsoft.Purchases.Vendor;
using Microsoft.QualityManagement.Configuration.Template;
-using Microsoft.QualityManagement.Integration.Manufacturing.Routing;
using Microsoft.Sales.Customer;
using Microsoft.Warehouse.Structure;
using System.IO;
@@ -599,10 +598,9 @@ codeunit 20403 "Qlty. Filter Helpers"
internal procedure AssistEditRoutingOperation(InRoutingNoFilter: Code[20]; var OperationNoFilter: Code[20]): Boolean
var
RoutingLine: Record "Routing Line";
- QltyRoutingLineLookup: Page "Qlty. Routing Line Lookup";
-
+ RoutingLineList: Page "Routing Line List";
begin
- QltyRoutingLineLookup.LookupMode(true);
+ RoutingLineList.LookupMode(true);
if InRoutingNoFilter <> '' then
RoutingLine.SetFilter("Routing No.", InRoutingNoFilter);
@@ -610,14 +608,14 @@ codeunit 20403 "Qlty. Filter Helpers"
if OperationNoFilter <> '' then begin
RoutingLine.SetFilter("Operation No.", OperationNoFilter);
if RoutingLine.FindSet() then
- QltyRoutingLineLookup.SetRecord(RoutingLine);
+ RoutingLineList.SetRecord(RoutingLine);
RoutingLine.SetRange("Operation No.");
end;
- QltyRoutingLineLookup.SetTableView(RoutingLine);
+ RoutingLineList.SetTableView(RoutingLine);
- if QltyRoutingLineLookup.RunModal() in [Action::LookupOK, Action::OK] then begin
- QltyRoutingLineLookup.GetRecord(RoutingLine);
+ if RoutingLineList.RunModal() in [Action::LookupOK, Action::OK] then begin
+ RoutingLineList.GetRecord(RoutingLine);
OperationNoFilter := RoutingLine."Operation No.";
exit(true);
end;
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsFilterHelpers.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsFilterHelpers.Codeunit.al
index bb6f1a275a..328e465084 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsFilterHelpers.Codeunit.al
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsFilterHelpers.Codeunit.al
@@ -16,7 +16,6 @@ using Microsoft.Manufacturing.Routing;
using Microsoft.Manufacturing.WorkCenter;
using Microsoft.Purchases.Vendor;
using Microsoft.QualityManagement.Configuration.Template;
-using Microsoft.QualityManagement.Integration.Manufacturing.Routing;
using Microsoft.QualityManagement.Setup;
using Microsoft.Sales.Customer;
using Microsoft.Test.QualityManagement.TestLibraries;
@@ -2337,13 +2336,13 @@ codeunit 139962 "Qlty. Tests - Filter Helpers"
end;
///
- /// Handles the Qlty. Routing Line Lookup TestPage, returning the first record
+ /// Handles the Routing Line List TestPage, returning the first record
///
- ///
+ ///
[ModalPageHandler]
- procedure LookupQltyRoutingLineHandler(var QltyRoutingLineLookup: TestPage "Qlty. Routing Line Lookup")
+ procedure LookupQltyRoutingLineHandler(var RoutingLineList: TestPage "Routing Line List")
begin
- QltyRoutingLineLookup.OK().Invoke();
+ RoutingLineList.OK().Invoke();
end;
///