From d3f11230a694b2fe578cf9c81287b84e69f3af5a Mon Sep 17 00:00:00 2001 From: Dusan Jakovljevic <134404137+JakovljevicDusan@users.noreply.github.com> Date: Tue, 17 Mar 2026 10:19:35 +0100 Subject: [PATCH 1/2] Changes --- .../Routing/QltyRoutingLineLookup.Page.al | 5 +++++ .../Permissions/QltyMngmntObjects.PermissionSet.al | 2 -- .../src/Utilities/QltyFilterHelpers.Codeunit.al | 14 ++++++-------- .../test/src/QltyTestsFilterHelpers.Codeunit.al | 9 ++++----- 4 files changed, 15 insertions(+), 15 deletions(-) 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..ac359b2003 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 @@ -2,6 +2,7 @@ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ +#if not CLEAN28 namespace Microsoft.QualityManagement.Integration.Manufacturing.Routing; using Microsoft.Manufacturing.Routing; @@ -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; /// From d063c4bccbc235c95598162f3bd8db8ff36287f9 Mon Sep 17 00:00:00 2001 From: Dusan Jakovljevic <134404137+JakovljevicDusan@users.noreply.github.com> Date: Tue, 17 Mar 2026 10:53:41 +0100 Subject: [PATCH 2/2] Fix position --- .../Manufacturing/Routing/QltyRoutingLineLookup.Page.al | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 ac359b2003..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,8 +1,8 @@ +#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. // ------------------------------------------------------------------------------------------------ -#if not CLEAN28 namespace Microsoft.QualityManagement.Integration.Manufacturing.Routing; using Microsoft.Manufacturing.Routing;