Page 902 Assembly Orders
- App
- Base Application
- Namespace
- Microsoft.Assembly.Document
- Versions
- 17-28
- Source table
- 900
Versions171819202122232425262728
Source29
Source in 29
src/Layers/W1/BaseApp/Assembly/Document/AssemblyOrders.Page.al510 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.Assembly.Document;
using Microsoft.Assembly.Comment;
using Microsoft.Assembly.Posting;
using Microsoft.Finance.Dimension;
using Microsoft.Inventory.Availability;
using Microsoft.Inventory.BOM;
using Microsoft.Inventory.Ledger;
using Microsoft.Inventory.Location;
using Microsoft.Projects.Resources.Ledger;
using Microsoft.Warehouse.Ledger;
page 902 "Assembly Orders"
{
AdditionalSearchTerms = 'kitting order,kit sale,asm order';
ApplicationArea = Assembly;
Caption = 'Assembly Orders';
CardPageID = "Assembly Order";
DataCaptionFields = "No.";
Editable = false;
PageType = List;
AboutTitle = 'About Assembly Orders';
AboutText = 'Manage and track assembly orders to connect sales demand with assembly supply, specifying items to assemble, required quantities, and component availability based on the assembly BOM, with options for partial output posting and direct linkage to sales orders.';
RefreshOnActivate = true;
SourceTable = "Assembly Header";
SourceTableView = where("Document Type" = filter(Order));
UsageCategory = Lists;
layout
{
area(content)
{
repeater(Control1)
{
ShowCaption = false;
field("Document Type"; Rec."Document Type")
{
ApplicationArea = Assembly;
}
field("No."; Rec."No.")
{
ApplicationArea = Assembly;
}
field(Description; Rec.Description)
{
ApplicationArea = Assembly;
}
field("Description 2"; Rec."Description 2")
{
ApplicationArea = Assembly;
Visible = false;
}
field("Due Date"; Rec."Due Date")
{
ApplicationArea = Assembly;
}
field("Starting Date"; Rec."Starting Date")
{
ApplicationArea = Assembly;
}
field("Ending Date"; Rec."Ending Date")
{
ApplicationArea = Assembly;
}
field("Assemble to Order"; Rec."Assemble to Order")
{
ApplicationArea = Assembly;
}
field("Item No."; Rec."Item No.")
{
ApplicationArea = Basic, Suite;
}
field(Quantity; Rec.Quantity)
{
ApplicationArea = Assembly;
}
field("Unit Cost"; Rec."Unit Cost")
{
ApplicationArea = Assembly;
}
field("Location Code"; Rec."Location Code")
{
ApplicationArea = Location;
}
field("Variant Code"; Rec."Variant Code")
{
ApplicationArea = Planning;
}
field("Bin Code"; Rec."Bin Code")
{
ApplicationArea = Warehouse;
}
field("Remaining Quantity"; Rec."Remaining Quantity")
{
ApplicationArea = Assembly;
}
}
}
area(factboxes)
{
systempart(RecordLinks; Links)
{
ApplicationArea = RecordLinks;
Caption = 'RecordLinks';
Visible = false;
}
systempart(Control1905767507; Notes)
{
ApplicationArea = Notes;
Visible = false;
}
}
}
actions
{
area(navigation)
{
group(Line)
{
Caption = 'Line';
Image = Line;
group(Entries)
{
Caption = 'Entries';
Image = Entries;
action("Item Ledger Entries")
{
ApplicationArea = Basic, Suite;
Caption = 'Item Ledger E&ntries';
Image = ItemLedger;
RunObject = Page "Item Ledger Entries";
RunPageLink = "Order Type" = const(Assembly),
"Order No." = field("No.");
RunPageView = sorting("Order Type", "Order No.");
ShortCutKey = 'Ctrl+F7';
ToolTip = 'View the item ledger entries of the item on the document or journal line.';
}
action("Capacity Ledger Entries")
{
ApplicationArea = Manufacturing;
Caption = 'Capacity Ledger Entries';
Image = CapacityLedger;
RunObject = Page Microsoft.Manufacturing.Capacity."Capacity Ledger Entries";
RunPageLink = "Order Type" = const(Assembly),
"Order No." = field("No.");
RunPageView = sorting("Order Type", "Order No.");
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("Resource Ledger Entries")
{
ApplicationArea = Jobs;
Caption = 'Resource Ledger Entries';
Image = ResourceLedger;
RunObject = Page "Resource Ledger Entries";
RunPageLink = "Order Type" = const(Assembly),
"Order No." = field("No.");
RunPageView = sorting("Order Type", "Order No.");
ToolTip = 'View the ledger entries for the resource.';
}
action("Value Entries")
{
ApplicationArea = Basic, Suite;
Caption = 'Value Entries';
Image = ValueLedger;
RunObject = Page "Value Entries";
RunPageLink = "Order Type" = const(Assembly),
"Order No." = field("No.");
RunPageView = sorting("Order Type", "Order No.");
ToolTip = 'View the value entries of the item on the document or journal line.';
}
action("Warehouse Entries")
{
ApplicationArea = Warehouse;
Caption = '&Warehouse Entries';
Image = BinLedger;
RunObject = Page "Warehouse Entries";
RunPageLink = "Source Type" = filter(83 | 901),
"Source Subtype" = filter("1" | "6"),
"Source No." = field("No.");
RunPageView = sorting("Source Type", "Source Subtype", "Source No.");
ToolTip = 'View the history of quantities that are registered for the item in warehouse activities. ';
}
}
action("Show Order")
{
ApplicationArea = Assembly;
Caption = 'Show Order';
Image = ViewOrder;
RunObject = Page "Assembly Order";
RunPageLink = "Document Type" = field("Document Type"),
"No." = field("No.");
ShortCutKey = 'Shift+F7';
ToolTip = 'View the selected assembly order.';
}
group("Item Availability by")
{
Caption = 'Item Availability by';
Image = ItemAvailability;
action("Event")
{
ApplicationArea = Assembly;
Caption = 'Event';
Image = "Event";
ToolTip = 'View how the actual and the projected available balance of an item will develop over time according to supply and demand events.';
trigger OnAction()
begin
AssemblyAvailabilityMgt.ShowItemAvailabilityFromAsmHeader(Rec, "Item Availability Type"::"Event");
end;
}
action(Period)
{
ApplicationArea = Assembly;
Caption = 'Period';
Image = Period;
ToolTip = 'View the projected quantity of the item over time according to time periods, such as day, week, or month.';
trigger OnAction()
begin
AssemblyAvailabilityMgt.ShowItemAvailabilityFromAsmHeader(Rec, "Item Availability Type"::Period);
end;
}
action(Variant)
{
ApplicationArea = Planning;
Caption = 'Variant';
Image = ItemVariant;
ToolTip = 'View or edit the item''s variants. Instead of setting up each color of an item as a separate item, you can set up the various colors as variants of the item.';
trigger OnAction()
begin
AssemblyAvailabilityMgt.ShowItemAvailabilityFromAsmHeader(Rec, "Item Availability Type"::Variant);
end;
}
action(Location)
{
AccessByPermission = TableData Location = R;
ApplicationArea = Location;
Caption = 'Location';
Image = Warehouse;
ToolTip = 'View the actual and projected quantity of the item per location.';
trigger OnAction()
begin
AssemblyAvailabilityMgt.ShowItemAvailabilityFromAsmHeader(Rec, "Item Availability Type"::Location);
end;
}
action(Lot)
{
ApplicationArea = ItemTracking;
Caption = 'Lot';
Image = LotInfo;
RunObject = Page "Item Availability by Lot No.";
RunPageLink = "No." = field("Item No."),
"Location Filter" = field("Location Code"),
"Variant Filter" = field("Variant Code");
ToolTip = 'View the current and projected quantity of the item in each lot.';
}
action("BOM Level")
{
ApplicationArea = Assembly;
Caption = 'BOM Level';
Image = BOMLevel;
ToolTip = 'View availability figures for items on bills of materials that show how many units of a parent item you can make based on the availability of child items.';
trigger OnAction()
begin
AssemblyAvailabilityMgt.ShowItemAvailabilityFromAsmHeader(Rec, "Item Availability Type"::BOM);
end;
}
}
action(Statistics)
{
ApplicationArea = Assembly;
Caption = 'Statistics';
Image = Statistics;
RunObject = Page "Assembly Order Statistics";
RunPageOnRec = true;
ShortCutKey = 'F7';
ToolTip = 'View statistical information, such as the value of posted entries, for the record.';
}
action(Dimensions)
{
AccessByPermission = TableData Dimension = R;
ApplicationArea = Dimensions;
Caption = 'Dimensions';
Image = Dimensions;
ShortCutKey = 'Alt+D';
ToolTip = 'View or edit dimensions, such as area, project, or department, that you can assign to sales and purchase documents to distribute costs and analyze transaction history.';
trigger OnAction()
begin
Rec.ShowDimensions();
end;
}
action("Assembly BOM")
{
ApplicationArea = Assembly;
Caption = 'Assembly BOM';
Image = AssemblyBOM;
RunObject = Page "Assembly BOM";
RunPageLink = "Parent Item No." = field("Item No.");
ToolTip = 'View or edit the bill of material that specifies which items and resources are required to assemble the assembly item.';
}
action(Comments)
{
ApplicationArea = Comments;
Caption = 'Co&mments';
Image = ViewComments;
RunObject = Page "Assembly Comment Sheet";
RunPageLink = "Document Type" = field("Document Type"),
"Document No." = field("No."),
"Document Line No." = const(0);
ToolTip = 'View or add comments for the record.';
}
}
}
area(processing)
{
group("F&unctions")
{
Caption = 'F&unctions';
Image = "Action";
action(Release)
{
ApplicationArea = Assembly;
Caption = 'Re&lease';
Image = ReleaseDoc;
ShortCutKey = 'Ctrl+F9';
ToolTip = 'Release the document to the next stage of processing. You must reopen the document before you can make changes to it.';
trigger OnAction()
var
AssemblyHeader: Record "Assembly Header";
begin
AssemblyHeader := Rec;
AssemblyHeader.Find();
CODEUNIT.Run(CODEUNIT::"Release Assembly Document", AssemblyHeader);
end;
}
action(Reopen)
{
ApplicationArea = Assembly;
Caption = 'Re&open';
Image = ReOpen;
ToolTip = 'Reopen the document for additional warehouse activity.';
trigger OnAction()
var
AssemblyHeader: Record "Assembly Header";
ReleaseAssemblyDoc: Codeunit "Release Assembly Document";
begin
AssemblyHeader := Rec;
AssemblyHeader.Find();
ReleaseAssemblyDoc.Reopen(AssemblyHeader);
end;
}
}
group("P&osting")
{
Caption = 'P&osting';
Image = Post;
action("P&ost")
{
ApplicationArea = Assembly;
Caption = 'P&ost';
Ellipsis = true;
Image = PostOrder;
ShortCutKey = 'F9';
ToolTip = 'Finalize the document or journal by posting the amounts and quantities to the related accounts in your company books.';
trigger OnAction()
begin
CODEUNIT.Run(CODEUNIT::"Assembly-Post (Yes/No)", Rec);
end;
}
action("Post &Batch")
{
ApplicationArea = Assembly;
Caption = 'Post &Batch';
Ellipsis = true;
Image = PostBatch;
ToolTip = 'Post several documents at once. A report request window opens where you can specify which documents to post.';
trigger OnAction()
begin
REPORT.RunModal(REPORT::"Batch Post Assembly Orders", true, true, Rec);
CurrPage.Update(false);
end;
}
action("Preview Posting")
{
ApplicationArea = Basic, Suite;
Caption = 'Preview Posting';
Image = ViewPostedOrder;
ShortCutKey = 'Ctrl+Alt+F9';
ToolTip = 'Review the different types of entries that will be created when you post the document or journal.';
trigger OnAction()
begin
ShowPreview();
CurrPage.Update(false);
end;
}
}
}
area(Promoted)
{
group(Category_Release)
{
Caption = 'Release';
ShowAs = SplitButton;
actionref(Release_Promoted; Release)
{
}
actionref(Reopen_Promoted; Reopen)
{
}
}
group(Category_Category4)
{
Caption = 'Posting', Comment = 'Generated from the PromotedActionCategories property index 3.';
ShowAs = SplitButton;
actionref("P&ost_Promoted"; "P&ost")
{
}
actionref("Post &Batch_Promoted"; "Post &Batch")
{
}
actionref("Preview Posting_Promoted"; "Preview Posting")
{
}
}
group(Category_Category5)
{
Caption = 'Line', Comment = 'Generated from the PromotedActionCategories property index 4.';
}
group(Category_Order)
{
Caption = 'Order';
actionref(Dimensions_Promoted; Dimensions)
{
}
actionref(Statistics_Promoted; Statistics)
{
}
actionref(Comments_Promoted; Comments)
{
}
actionref("Show Order_Promoted"; "Show Order")
{
}
actionref("Assembly BOM_Promoted"; "Assembly BOM")
{
}
}
group("Category_Item Availability by")
{
Caption = 'Item Availability by';
actionref("BOM Level_Promoted"; "BOM Level")
{
}
actionref(Event_Promoted; "Event")
{
}
actionref(Location_Promoted; Location)
{
}
actionref(Period_Promoted; Period)
{
}
actionref(Variant_Promoted; Variant)
{
}
actionref(Lot_Promoted; Lot)
{
}
}
group(Category_Report)
{
Caption = 'Report', Comment = 'Generated from the PromotedActionCategories property index 2.';
}
}
}
var
AssemblyAvailabilityMgt: Codeunit "Assembly Availability Mgt.";
local procedure ShowPreview()
var
SelectedAssemblyHeader: Record "Assembly Header";
AssemblyPostYesNo: Codeunit "Assembly-Post (Yes/No)";
begin
CurrPage.SetSelectionFilter(SelectedAssemblyHeader);
AssemblyPostYesNo.MessageIfPostingPreviewMultipleDocuments(SelectedAssemblyHeader, Rec."No.");
AssemblyPostYesNo.Preview(Rec);
end;
}