Skip to content

[Quality Management] [28.x] Replace "Qlty. Routing Line Lookup" page #7186

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
JakovljevicDusan wants to merge 2 commits into
base: releases/28.x
Choose a base branch
from
+15 −15
Open

[Quality Management] [28.x] Replace "Qlty. Routing Line Lookup" page #7186

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
d3f1123
Changes
JakovljevicDusan Mar 17, 2026
d063c4b
Fix position
JakovljevicDusan Mar 17, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
5 changes: 5 additions & 0 deletions ...uality Management/app/src/Integration/Manufacturing/Routing/QltyRoutingLineLookup.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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.
Expand All @@ -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
{
Expand Down Expand Up @@ -121,3 +125,4 @@ page 20463 "Qlty. Routing Line Lookup"
}
#pragma warning restore AA0218
}
#endif
2 changes: 0 additions & 2 deletions src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntObjects.PermissionSet.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down Expand Up @@ -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,
Expand Down
14 changes: 6 additions & 8 deletions src/Apps/W1/Quality Management/app/src/Utilities/QltyFilterHelpers.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down Expand Up @@ -599,25 +598,24 @@ 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);

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;
Expand Down
9 changes: 4 additions & 5 deletions src/Apps/W1/Quality Management/test/src/QltyTestsFilterHelpers.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down Expand Up @@ -2337,13 +2336,13 @@ codeunit 139962 "Qlty. Tests - Filter Helpers"
end;

/// <summary>
/// Handles the Qlty. Routing Line Lookup TestPage, returning the first record
/// Handles the Routing Line List TestPage, returning the first record
/// </summary>
/// <param name="QltyRoutingLineLookup"></param>
/// <param name="RoutingLineList"></param>
[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;

/// <summary>
Expand Down
Loading