Page 99000916 Machine Center Task List, source in 29
Source29
src/Layers/W1/BaseApp/Manufacturing/MachineCenter/MachineCenterTaskList.Page.al279 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Manufacturing.MachineCenter;
using Microsoft.Foundation.Navigate;
using Microsoft.Manufacturing.Capacity;
using Microsoft.Manufacturing.Comment;
using Microsoft.Manufacturing.Document;
page 99000916 "Machine Center Task List"
{
Caption = 'Machine Center Task List';
DataCaptionFields = "No.";
DeleteAllowed = false;
InsertAllowed = false;
PageType = List;
SourceTable = "Prod. Order Routing Line";
layout
{
area(content)
{
repeater(Control1)
{
ShowCaption = false;
field(Status; Rec.Status)
{
ApplicationArea = Manufacturing;
}
field("Prod. Order No."; Rec."Prod. Order No.")
{
ApplicationArea = Manufacturing;
}
field("Operation No."; Rec."Operation No.")
{
ApplicationArea = Manufacturing;
}
field(Description; Rec.Description)
{
ApplicationArea = Manufacturing;
}
field("Description 2"; Rec."Description 2")
{
ApplicationArea = Manufacturing;
Visible = false;
}
field("Setup Time"; Rec."Setup Time")
{
ApplicationArea = Manufacturing;
}
field("Setup Time Unit of Meas. Code"; Rec."Setup Time Unit of Meas. Code")
{
ApplicationArea = Manufacturing;
Visible = false;
}
field("Run Time"; Rec."Run Time")
{
ApplicationArea = Manufacturing;
}
field("Run Time Unit of Meas. Code"; Rec."Run Time Unit of Meas. Code")
{
ApplicationArea = Manufacturing;
Visible = false;
}
field("Wait Time"; Rec."Wait Time")
{
ApplicationArea = Manufacturing;
}
field("Wait Time Unit of Meas. Code"; Rec."Wait Time Unit of Meas. Code")
{
ApplicationArea = Manufacturing;
ToolTip = 'Specifies the wait time unit of measure.';
Visible = false;
}
field("Move Time"; Rec."Move Time")
{
ApplicationArea = Manufacturing;
}
field("Move Time Unit of Meas. Code"; Rec."Move Time Unit of Meas. Code")
{
ApplicationArea = Manufacturing;
ToolTip = 'Specifies the move time unit of measure.';
Visible = false;
}
field("Starting Time"; Rec."Starting Time")
{
ApplicationArea = Manufacturing;
}
field("Starting Date"; Rec."Starting Date")
{
ApplicationArea = Manufacturing;
}
field("Ending Time"; Rec."Ending Time")
{
ApplicationArea = Manufacturing;
}
field("Ending Date"; Rec."Ending Date")
{
ApplicationArea = Manufacturing;
}
field("Fixed Scrap Quantity"; Rec."Fixed Scrap Quantity")
{
ApplicationArea = Manufacturing;
Visible = false;
}
field("Lot Size"; Rec."Lot Size")
{
ApplicationArea = Manufacturing;
Visible = false;
}
field("Scrap Factor %"; Rec."Scrap Factor %")
{
ApplicationArea = Manufacturing;
Visible = false;
}
field("Concurrent Capacities"; Rec."Concurrent Capacities")
{
ApplicationArea = Manufacturing;
}
field("Send-Ahead Quantity"; Rec."Send-Ahead Quantity")
{
ApplicationArea = Manufacturing;
Visible = false;
}
field("Routing Link Code"; Rec."Routing Link Code")
{
ApplicationArea = Manufacturing;
Visible = false;
}
field("Unit Cost per"; Rec."Unit Cost per")
{
ApplicationArea = Manufacturing;
ToolTip = 'Specifies the unit cost for this operation if it is different than the unit cost on the work center or machine center card.';
Visible = false;
}
}
}
area(factboxes)
{
systempart(Control1900383207; Links)
{
ApplicationArea = RecordLinks;
Visible = false;
}
systempart(Control1905767507; Notes)
{
ApplicationArea = Notes;
Visible = false;
}
}
}
actions
{
area(navigation)
{
group("&Mach. Ctr.")
{
Caption = '&Mach. Ctr.';
Image = MachineCenter;
action("Capacity Ledger E&ntries")
{
ApplicationArea = Manufacturing;
Caption = 'Capacity Ledger E&ntries';
Image = CapacityLedger;
RunObject = Page "Capacity Ledger Entries";
RunPageLink = Type = const("Machine Center"),
"No." = field("No.");
RunPageView = sorting(Type, "No.", "Item No.", "Posting Date");
ShortCutKey = 'Ctrl+F7';
ToolTip = 'View the capacity ledger entries of the involved production order. Capacity is recorded either as time (run time, stop time, or setup time) or as quantity (scrap quantity or output quantity).';
}
action("Co&mments")
{
ApplicationArea = Manufacturing;
Caption = 'Co&mments';
Image = ViewComments;
RunObject = Page "Manufacturing Comment Sheet";
RunPageLink = "No." = field("No.");
RunPageView = where("Table Name" = const("Machine Center"));
ToolTip = 'View or add comments for the record.';
}
action("Lo&ad")
{
ApplicationArea = Manufacturing;
Caption = 'Lo&ad';
Image = WorkCenterLoad;
RunObject = Page "Machine Center Load";
RunPageLink = "No." = field("No.");
ToolTip = 'View the availability of the machine or work center, including its the capacity, the allocated quantity, availability after orders, and the load in percent of its total capacity.';
}
action(Statistics)
{
ApplicationArea = Manufacturing;
Caption = 'Statistics';
Image = Statistics;
RunObject = Page "Machine Center Statistics";
RunPageLink = "No." = field("No.");
ShortCutKey = 'F7';
ToolTip = 'View statistical information, such as the value of posted entries, for the record.';
}
}
}
area(processing)
{
group("F&unctions")
{
Caption = 'F&unctions';
Image = "Action";
action("&Move")
{
ApplicationArea = Manufacturing;
Caption = '&Move';
Ellipsis = true;
Image = Change;
ToolTip = 'Move the selected task to another machine center. ';
trigger OnAction()
var
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
CalculateProdOrder: Codeunit "Calculate Prod. Order";
begin
if Rec."Prod. Order No." = '' then
exit;
ProdOrderRoutingLine.Copy(Rec);
CalculateProdOrder.AssignProdOrderLineBinCodeFromProdRtngLineMachineCenter(ProdOrderRoutingLine);
CurrPage.Update();
end;
}
action("Order &Tracking")
{
ApplicationArea = Manufacturing;
Caption = 'Order &Tracking';
Image = OrderTracking;
ToolTip = 'Tracks the connection of a supply to its corresponding demand. This can help you find the original demand that created a specific production order or purchase order.';
trigger OnAction()
var
ProdOrderLine: Record "Prod. Order Line";
OrderTracking: Page "Order Tracking";
begin
ProdOrderLine.SetRange(Status, Rec.Status);
ProdOrderLine.SetRange("Prod. Order No.", Rec."Prod. Order No.");
ProdOrderLine.SetRange("Routing No.", Rec."Routing No.");
if ProdOrderLine.FindFirst() then begin
OrderTracking.SetVariantRec(
ProdOrderLine, ProdOrderLine."Item No.", ProdOrderLine."Remaining Qty. (Base)",
ProdOrderLine."Starting Date", ProdOrderLine."Ending Date");
OrderTracking.RunModal();
end;
end;
}
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process';
actionref("&Move_Promoted"; "&Move")
{
}
actionref("Order &Tracking_Promoted"; "Order &Tracking")
{
}
actionref(Statistics_Promoted; Statistics)
{
}
}
}
}
}