Skip to content

[Quality Management] [28.0] Item Tracking navigation filtering #6913

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

Merged
JakovljevicDusan merged 1 commit into from
Mar 2, 2026
Merged

[Quality Management] [28.0] Item Tracking navigation filtering #6913

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
30 changes: 7 additions & 23 deletions ...s/W1/Quality Management/app/src/Integration/Inventory/Tracking/QltyItemTracing.PageExt.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -20,30 +20,14 @@ pageextension 20428 "Qlty. Item Tracing" extends "Item Tracing"
Caption = 'Quality Inspections';
Image = CheckList;
ToolTip = 'View quality inspections filtered by the selected item, variant, location, and tracking details.';

trigger OnAction()
begin
ShowQualityInspections();
end;
RunObject = Page "Qlty. Inspection List";
RunPageLink = "Source Item No." = field("Item No."),
"Source Variant Code" = field("Variant Code"),
"Source Lot No." = field("Lot No."),
"Source Serial No." = field("Serial No."),
"Source Package No." = field("Package No.");
RunPageView = sorting("Source Item No.", "Source Variant Code", "Source Lot No.", "Source Serial No.", "Source Package No.");
}
}
}

local procedure ShowQualityInspections()
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
begin
QltyInspectionHeader.SetFilter("Source Item No.", ItemNoFilter);
if VariantFilter <> '' then
QltyInspectionHeader.SetFilter("Source Variant Code", VariantFilter);
if LotNoFilter <> '' then
QltyInspectionHeader.SetFilter("Source Lot No.", LotNoFilter);
if SerialNoFilter <> '' then
QltyInspectionHeader.SetFilter("Source Serial No.", SerialNoFilter);
if PackageNoFilter <> '' then
QltyInspectionHeader.SetFilter("Source Package No.", PackageNoFilter);
if Rec."Location Code" <> '' then
QltyInspectionHeader.SetRange("Location Code", Rec."Location Code");
Page.Run(Page::"Qlty. Inspection List", QltyInspectionHeader);
end;
}
30 changes: 7 additions & 23 deletions ...lity Management/app/src/Integration/Inventory/Tracking/QltyItemTrackingEntries.PageExt.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -20,30 +20,14 @@ pageextension 20429 "Qlty. Item Tracking Entries" extends "Item Tracking Entries
Caption = 'Quality Inspections';
Image = CheckList;
ToolTip = 'View quality inspections filtered by the selected item, variant, location, and tracking details.';

trigger OnAction()
begin
ShowQualityInspections();
end;
RunObject = Page "Qlty. Inspection List";
RunPageLink = "Source Item No." = field("Item No."),
"Source Variant Code" = field("Variant Code"),
"Source Lot No." = field("Lot No."),
"Source Serial No." = field("Serial No."),
"Source Package No." = field("Package No.");
RunPageView = sorting("Source Item No.", "Source Variant Code", "Source Lot No.", "Source Serial No.", "Source Package No.");
}
}
}

local procedure ShowQualityInspections()
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
begin
QltyInspectionHeader.SetRange("Source Item No.", Rec."Item No.");
if Rec."Variant Code" <> '' then
QltyInspectionHeader.SetRange("Source Variant Code", Rec."Variant Code");
if Rec."Lot No." <> '' then
QltyInspectionHeader.SetRange("Source Lot No.", Rec."Lot No.");
if Rec."Serial No." <> '' then
QltyInspectionHeader.SetRange("Source Serial No.", Rec."Serial No.");
if Rec."Package No." <> '' then
QltyInspectionHeader.SetRange("Source Package No.", Rec."Package No.");
if Rec."Location Code" <> '' then
QltyInspectionHeader.SetRange("Location Code", Rec."Location Code");
Page.Run(Page::"Qlty. Inspection List", QltyInspectionHeader);
end;
}
Loading