[Quality Management] Item Tracking navigation filtering (#6888)

#### Summary <!-- Provide a general summary of your changes -->
Filtering on exact item tracing variation

#### Work Item(s) <!-- Add the issue number here after the #. The issue
needs to be open and approved. Submitting PRs with no linked issues or
unapproved issues is highly discouraged. -->
Fixes
[AB#618917](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/618917)

Author: JakovljevicDusan

src/Apps/W1/Quality Management/app/src/Integration/Inventory/Tracking/QltyItemTracing.PageExt.al

@@ -20,30 +20,14 @@ pageextension 20428 "Qlty. Item Tracing" extends "Item Tracing"
                 Caption = 'Quality Inspections';
                 Image = TaskQualityMeasure;
                 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;
 }

src/Apps/W1/Quality Management/app/src/Integration/Inventory/Tracking/QltyItemTrackingEntries.PageExt.al

@@ -20,30 +20,14 @@ pageextension 20429 "Qlty. Item Tracking Entries" extends "Item Tracking Entries
                 Caption = 'Quality Inspections';
                 Image = TaskQualityMeasure;
                 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;
 }