diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterCard.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterCard.PageExt.al index cfcd353b6c..eb88582ca5 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterCard.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterCard.PageExt.al @@ -5,6 +5,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.WorkCenter; +using Microsoft.Purchases.Document; pageextension 99001506 "Subc. Work Center Card" extends "Work Center Card" { @@ -48,12 +49,24 @@ pageextension 99001506 "Subc. Work Center Card" extends "Work Center Card" RunPageLink = "Work Center No." = field("No."); ToolTip = 'View the Subcontracting WIP Entries that track work-in-progress quantities at this work center''s subcontracting location.'; } + action("Subcontractor Dispatch List") + { + ApplicationArea = Subcontracting; + Caption = 'Subcontractor - Dispatch List'; + Enabled = IsSubcontractingWorkCenter; + Image = Print; + ToolTip = 'Print the dispatching list for the subcontractor assigned to this work center.'; + + trigger OnAction() + var + PurchaseHeader: Record "Purchase Header"; + begin + PurchaseHeader.SetRange("Buy-from Vendor No.", Rec."Subcontractor No."); + Report.Run(Report::"Subc. Dispatching List", true, false, PurchaseHeader); + end; + } } } - modify("Subcontractor - Dispatch List") - { - Enabled = IsSubcontractingWorkCenter; - } } trigger OnOpenPage() diff --git a/src/Apps/W1/Subcontracting/Test/Tests/SubcSubcontractingUITest.Codeunit.al b/src/Apps/W1/Subcontracting/Test/Tests/SubcSubcontractingUITest.Codeunit.al index 30760b8511..848b6ed559 100644 --- a/src/Apps/W1/Subcontracting/Test/Tests/SubcSubcontractingUITest.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/Tests/SubcSubcontractingUITest.Codeunit.al @@ -294,7 +294,7 @@ codeunit 139990 "Subc. Subcontracting UI Test" WorkCenterCard.GotoRecord(WorkCenter); // [THEN] Subcontractor - Dispatch List action is not enabled - Assert.IsFalse(WorkCenterCard."Subcontractor - Dispatch List".Enabled(), SubcontractingActionsEnabledErr); + Assert.IsFalse(WorkCenterCard."Subcontractor Dispatch List".Enabled(), SubcontractingActionsEnabledErr); WorkCenterCard.Close(); end; @@ -317,7 +317,7 @@ codeunit 139990 "Subc. Subcontracting UI Test" WorkCenterCard.GotoRecord(WorkCenter); // [THEN] Subcontractor - Dispatch List action is enabled - Assert.IsTrue(WorkCenterCard."Subcontractor - Dispatch List".Enabled(), SubcontractingActionsNotEnabledErr); + Assert.IsTrue(WorkCenterCard."Subcontractor Dispatch List".Enabled(), SubcontractingActionsNotEnabledErr); WorkCenterCard.Close(); end;