Skip to content
Draft
Show file tree
Hide file tree
Changes from all commits
Commits
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
Original file line number Diff line number Diff line change
Expand Up @@ -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"
{
Expand Down Expand Up @@ -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()
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -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;

Expand All @@ -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;

Expand Down
Loading