Page 900 Assembly Order
- App
- Base Application
- Namespace
- Microsoft.Assembly.Document
- Versions
- 17-28
- Source table
- 900
Versions171819202122232425262728
Source29
Source in 29
src/Layers/W1/BaseApp/Assembly/Document/AssemblyOrder.Page.al1033 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.History;
using Microsoft.Assembly.Posting;
using Microsoft.Finance.Dimension;
using Microsoft.Foundation.Reporting;
using Microsoft.Inventory.Availability;
using Microsoft.Inventory.Item;
using Microsoft.Inventory.Ledger;
using Microsoft.Inventory.Location;
using Microsoft.Projects.Resources.Ledger;
using Microsoft.Sales.Document;
using Microsoft.Warehouse.Activity;
using Microsoft.Warehouse.Activity.History;
using Microsoft.Warehouse.Document;
using Microsoft.Warehouse.InventoryDocument;
using Microsoft.Warehouse.Ledger;
using Microsoft.Warehouse.Structure;
page 900 "Assembly Order"
{
Caption = 'Assembly Order';
PageType = Document;
RefreshOnActivate = true;
SourceTable = "Assembly Header";
SourceTableView = sorting("Document Type", "No.")
order(ascending)
where("Document Type" = const(Order));
layout
{
area(content)
{
group(Control2)
{
Caption = 'General';
field("No."; Rec."No.")
{
ApplicationArea = Assembly;
AssistEdit = true;
trigger OnAssistEdit()
begin
if Rec.AssistEdit(xRec) then
CurrPage.Update();
end;
}
field("Item No."; Rec."Item No.")
{
ApplicationArea = Basic, Suite;
Editable = IsAsmToOrderEditable;
Importance = Promoted;
ShowMandatory = true;
TableRelation = Item."No." where("Assembly BOM" = const(true));
trigger OnValidate()
begin
CurrPage.Update();
end;
}
field(Description; Rec.Description)
{
ApplicationArea = Assembly;
}
field("Description 2"; Rec."Description 2")
{
ApplicationArea = Assembly;
Visible = false;
}
group(Control33)
{
ShowCaption = false;
field(Quantity; Rec.Quantity)
{
ApplicationArea = Assembly;
Editable = IsAsmToOrderEditable;
Importance = Promoted;
BlankZero = true;
ShowMandatory = true;
trigger OnValidate()
begin
CurrPage.SaveRecord();
end;
}
field("Quantity to Assemble"; Rec."Quantity to Assemble")
{
ApplicationArea = Assembly;
Importance = Promoted;
trigger OnValidate()
begin
CurrPage.SaveRecord();
end;
}
field("Unit of Measure Code"; Rec."Unit of Measure Code")
{
ApplicationArea = Assembly;
Editable = IsAsmToOrderEditable;
trigger OnValidate()
begin
CurrPage.SaveRecord();
end;
}
}
field("Posting Date"; Rec."Posting Date")
{
ApplicationArea = Assembly;
Importance = Promoted;
}
field("Due Date"; Rec."Due Date")
{
ApplicationArea = Assembly;
Editable = IsAsmToOrderEditable;
Importance = Promoted;
trigger OnValidate()
begin
CurrPage.SaveRecord();
end;
}
field("Starting Date"; Rec."Starting Date")
{
ApplicationArea = Assembly;
}
field("Ending Date"; Rec."Ending Date")
{
ApplicationArea = Assembly;
}
field("Remaining Quantity"; Rec."Remaining Quantity")
{
ApplicationArea = Assembly;
}
field("Assembled Quantity"; Rec."Assembled Quantity")
{
ApplicationArea = Assembly;
}
field("Reserved Quantity"; Rec."Reserved Quantity")
{
ApplicationArea = Reservation;
Editable = false;
Visible = false;
}
field("Assemble to Order"; Rec."Assemble to Order")
{
ApplicationArea = Assembly;
trigger OnDrillDown()
begin
Rec.ShowAsmToOrder();
end;
}
field(Status; Rec.Status)
{
ApplicationArea = Assembly;
}
}
part(Lines; "Assembly Order Subform")
{
ApplicationArea = Assembly;
Caption = 'Lines';
SubPageLink = "Document Type" = field("Document Type"),
"Document No." = field("No.");
UpdatePropagation = Both;
}
group(Posting)
{
Caption = 'Posting';
field("Variant Code"; Rec."Variant Code")
{
ApplicationArea = Planning;
Editable = IsAsmToOrderEditable;
Importance = Promoted;
ShowMandatory = VariantCodeMandatory;
trigger OnValidate()
begin
CurrPage.SaveRecord();
end;
}
field("Location Code"; Rec."Location Code")
{
ApplicationArea = Location;
Editable = IsAsmToOrderEditable;
Importance = Promoted;
trigger OnValidate()
begin
CurrPage.SaveRecord();
end;
}
field("Bin Code"; Rec."Bin Code")
{
ApplicationArea = Warehouse;
Editable = IsAsmToOrderEditable;
trigger OnValidate()
begin
CurrPage.SaveRecord();
end;
}
field("Indirect Cost %"; Rec."Indirect Cost %")
{
ApplicationArea = Assembly;
Visible = false;
}
field("Overhead Rate"; Rec."Overhead Rate")
{
ApplicationArea = Assembly;
Visible = false;
}
field("Unit Cost"; Rec."Unit Cost")
{
ApplicationArea = Assembly;
Editable = IsUnitCostEditable;
}
field("Cost Amount"; Rec."Cost Amount")
{
ApplicationArea = Assembly;
}
field("Assigned User ID"; Rec."Assigned User ID")
{
ApplicationArea = Assembly;
Visible = false;
}
field("Planning Flexibility"; Rec."Planning Flexibility")
{
ApplicationArea = Planning;
Visible = false;
}
field("Shortcut Dimension 1 Code"; Rec."Shortcut Dimension 1 Code")
{
ApplicationArea = Assembly;
}
field("Shortcut Dimension 2 Code"; Rec."Shortcut Dimension 2 Code")
{
ApplicationArea = Assembly;
}
field("Gen. Bus. Posting Group"; Rec."Gen. Bus. Posting Group")
{
ApplicationArea = Assembly;
}
}
}
area(factboxes)
{
part(Control11; "Assembly Item - Details")
{
ApplicationArea = Assembly;
SubPageLink = "No." = field("Item No.");
}
part(Control44; "Component - Item FactBox")
{
ApplicationArea = Assembly;
Provider = Lines;
SubPageLink = "Document Type" = field("Document Type"),
"Document No." = field("Document No."),
"Line No." = field("Line No.");
}
part(Control43; "Component - Resource Details")
{
ApplicationArea = Assembly;
Provider = Lines;
SubPageLink = "No." = field("No.");
}
systempart(Control8; Links)
{
ApplicationArea = RecordLinks;
}
systempart(Control9; Notes)
{
ApplicationArea = Notes;
}
}
}
actions
{
area(navigation)
{
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("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;
}
}
group(General)
{
Caption = 'General';
Image = AssemblyBOM;
action("Assembly BOM")
{
ApplicationArea = Assembly;
Caption = 'Assembly BOM';
Image = AssemblyBOM;
ToolTip = 'View or edit the bill of material that specifies which items and resources are required to assemble the assembly item.';
trigger OnAction()
begin
Rec.ShowAssemblyList();
end;
}
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("Item Tracking Lines")
{
ApplicationArea = ItemTracking;
Caption = 'Item &Tracking Lines';
Image = ItemTrackingLines;
ShortCutKey = 'Ctrl+Alt+I';
ToolTip = 'View or edit serial, lot and package numbers that are assigned to the item on the document or journal line.';
trigger OnAction()
begin
Rec.OpenItemTrackingLines();
end;
}
action("Co&mments")
{
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.';
}
}
group(Statistics)
{
Caption = 'Statistics';
Image = Statistics;
action(Action14)
{
ApplicationArea = Assembly;
Caption = 'Statistics';
Image = Statistics;
ShortCutKey = 'F7';
ToolTip = 'View statistical information, such as the value of posted entries, for the record.';
RunObject = Page "Assembly Order Statistics";
RunPageOnRec = true;
}
}
group(Warehouse)
{
Caption = 'Warehouse';
Image = Warehouse;
action("Pick Lines/Movement Lines")
{
ApplicationArea = Warehouse;
Caption = 'Pick Lines/Movement Lines';
Image = PickLines;
RunObject = Page "Warehouse Activity Lines";
RunPageLink = "Source Type" = const(901),
"Source Subtype" = const("1"),
"Source No." = field("No.");
RunPageView = sorting("Source Type", "Source Subtype", "Source No.", "Source Line No.", "Source Subline No.", "Unit of Measure Code", "Action Type", "Breakbulk No.", "Original Breakbulk");
ToolTip = 'View the related picks or movements.';
}
action("Registered P&ick Lines")
{
ApplicationArea = Warehouse;
Caption = 'Registered P&ick Lines';
Image = RegisteredDocs;
RunObject = Page "Registered Whse. Act.-Lines";
RunPageLink = "Source Type" = const(901),
"Source Subtype" = const("1"),
"Source No." = field("No.");
RunPageView = sorting("Source Type", "Source Subtype", "Source No.", "Source Line No.", "Source Subline No.");
ToolTip = 'View the list of warehouse picks that have been made for the order.';
}
action("Registered Invt. Movement Lines")
{
ApplicationArea = Warehouse;
Caption = 'Registered Invt. Movement Lines';
Image = RegisteredDocs;
RunObject = Page "Reg. Invt. Movement Lines";
RunPageLink = "Source Type" = const(901),
"Source Subtype" = const("1"),
"Source No." = field("No.");
RunPageView = sorting("Source Type", "Source Subtype", "Source No.", "Source Line No.", "Source Subline No.");
ToolTip = 'View the list of inventory movements that have been made for the order.';
}
action("Asm.-to-Order Whse. Shpt. Line")
{
ApplicationArea = Warehouse;
Caption = 'Asm.-to-Order Whse. Shpt. Line';
Enabled = not IsAsmToOrderEditable;
Image = ShipmentLines;
ToolTip = 'View the list of warehouse shipment lines that exist for sales orders that are linked to this assembly order as assemble-to-order links. ';
trigger OnAction()
var
ATOLink: Record "Assemble-to-Order Link";
WhseShptLine: Record "Warehouse Shipment Line";
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeAsmToOrderWhseShptLine(Rec, IsHandled);
if IsHandled then
exit;
Rec.TestField("Assemble to Order", true);
ATOLink.Get(Rec."Document Type", Rec."No.");
WhseShptLine.SetCurrentKey("Source Type", "Source Subtype", "Source No.", "Source Line No.", "Assemble to Order");
WhseShptLine.SetRange("Source Type", Database::"Sales Line");
WhseShptLine.SetRange("Source Subtype", ATOLink."Document Type");
WhseShptLine.SetRange("Source No.", ATOLink."Document No.");
WhseShptLine.SetRange("Source Line No.", ATOLink."Document Line No.");
WhseShptLine.SetRange("Assemble to Order", true);
PAGE.RunModal(PAGE::"Asm.-to-Order Whse. Shpt. Line", WhseShptLine);
end;
}
}
group(History)
{
Caption = 'History';
Image = History;
group(Entries)
{
Caption = 'Entries';
Image = Entries;
action("Item Ledger Entries")
{
ApplicationArea = Basic, Suite;
Caption = 'Item Ledger Entries';
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 = 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 completed warehouse activities related to the document.';
}
action("Reservation Entries")
{
AccessByPermission = TableData Item = R;
ApplicationArea = Reservation;
Caption = 'Reservation Entries';
Image = ReservationLedger;
ToolTip = 'View the entries for every reservation that is made, either manually or automatically.';
trigger OnAction()
begin
Rec.ShowReservationEntries(true);
end;
}
}
action("Posted Assembly Orders")
{
ApplicationArea = Assembly;
Caption = 'Posted Assembly Orders';
Image = PostedOrder;
RunObject = Page "Posted Assembly Orders";
RunPageLink = "Order No." = field("No.");
RunPageView = sorting("Order No.");
ToolTip = 'View completed assembly orders.';
}
}
separator(Action52)
{
}
}
area(processing)
{
group(Release)
{
Caption = 'Release';
Image = ReleaseDoc;
separator(Action49)
{
}
action("Re&lease")
{
ApplicationArea = Assembly;
Caption = 'Re&lease';
Enabled = Rec.Status <> Rec.Status::Released;
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()
begin
Rec.PerformManualRelease();
end;
}
action("Re&open")
{
ApplicationArea = Assembly;
Caption = 'Re&open';
Enabled = Rec.Status <> Rec.Status::Open;
Image = ReOpen;
ToolTip = 'Reopen the document for additional warehouse activity.';
trigger OnAction()
var
ReleaseAssemblyDoc: Codeunit "Release Assembly Document";
begin
ReleaseAssemblyDoc.Reopen(Rec);
end;
}
}
group("F&unctions")
{
Caption = 'F&unctions';
Image = "Action";
action(ShowAvailability)
{
ApplicationArea = Assembly;
Caption = 'Show Availability';
Image = ItemAvailbyLoc;
ToolTip = 'View how many of the assembly order quantity can be assembled by the due date based on availability of the required components. This is shown in the Able to Assemble field. ';
trigger OnAction()
begin
Rec.ShowAvailability();
end;
}
action("Refresh availability warnings")
{
ApplicationArea = Assembly;
Caption = 'Refresh Availability';
Image = RefreshLines;
ToolTip = 'Check items availability and refresh warnings';
trigger OnAction()
begin
Rec.UpdateWarningOnLines();
end;
}
action("Update Unit Cost")
{
ApplicationArea = Basic, Suite;
Caption = 'Update Unit Cost';
Enabled = IsUnitCostEditable;
Image = UpdateUnitCost;
ToolTip = 'Update the cost of the parent item per changes to the assembly BOM.';
trigger OnAction()
begin
Rec.UpdateUnitCost();
end;
}
action("Refresh Lines")
{
ApplicationArea = Assembly;
Caption = 'Refresh Lines';
Image = RefreshLines;
ToolTip = 'Update information on the lines according to changes that you made on the header.';
trigger OnAction()
begin
Rec.TestStatusOpen();
Rec.RefreshBOM();
CurrPage.Update();
end;
}
action("&Reserve")
{
ApplicationArea = Reservation;
Caption = '&Reserve';
Ellipsis = true;
Image = Reserve;
ToolTip = 'Reserve the quantity that is required on the document line that you opened this window for.';
trigger OnAction()
begin
Rec.ShowReservation();
end;
}
action("Copy Document")
{
ApplicationArea = Assembly;
Caption = 'Copy Document';
Image = CopyDocument;
ToolTip = 'Copy document lines and header information from another sales document to this document. You can copy a posted sales invoice into a new sales invoice to quickly create a similar document.';
trigger OnAction()
var
CopyAssemblyDocument: Report "Copy Assembly Document";
begin
CopyAssemblyDocument.SetAssemblyHeader(Rec);
CopyAssemblyDocument.RunModal();
if Rec.Get(Rec."Document Type", Rec."No.") then;
end;
}
separator(Action53)
{
}
}
group(Action80)
{
Caption = 'Warehouse';
Image = Warehouse;
action("Create Inventor&y Movement")
{
ApplicationArea = Warehouse;
Caption = 'Create Inventor&y Movement';
Ellipsis = true;
Image = CreatePutAway;
ToolTip = 'Create an inventory movement to handle items on the document according to a basic warehouse configuration.';
trigger OnAction()
var
ATOMovementsCreated: Integer;
TotalATOMovementsToBeCreated: Integer;
begin
Rec.PerformManualRelease();
Rec.CreateInvtMovement(false, false, false, ATOMovementsCreated, TotalATOMovementsToBeCreated);
end;
}
action("Create Warehouse Pick")
{
AccessByPermission = TableData "Bin Content" = R;
ApplicationArea = Warehouse;
Caption = 'Create Warehouse Pick';
Image = CreateWarehousePick;
ToolTip = 'Create warehouse pick documents for the assembly order lines.';
trigger OnAction()
begin
Rec.PerformManualRelease();
Rec.CreatePick(true, UserId, 0, false, false, false);
end;
}
action("Order &Tracking")
{
ApplicationArea = Planning;
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()
begin
Rec.ShowTracking();
end;
}
}
group("P&osting")
{
Caption = 'P&osting';
Image = Post;
action("P&ost")
{
ApplicationArea = Assembly;
Caption = 'P&ost';
Ellipsis = true;
Enabled = IsAsmToOrderEditable;
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(PreviewPosting)
{
ApplicationArea = Assembly;
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;
}
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;
}
}
group(Print)
{
Caption = 'Print';
Image = Print;
action("Order")
{
ApplicationArea = Assembly;
Caption = 'Order';
Ellipsis = true;
Image = Print;
ToolTip = 'Print the assembly order.';
trigger OnAction()
var
DocPrint: Codeunit "Document-Print";
begin
DocPrint.PrintAsmHeader(Rec);
end;
}
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process', Comment = 'Generated from the PromotedActionCategories property index 1.';
group(Category_Category6)
{
Caption = 'Posting', Comment = 'Generated from the PromotedActionCategories property index 5.';
ShowAs = SplitButton;
actionref("P&ost_Promoted"; "P&ost")
{
}
actionref(PreviewPosting_Promoted; PreviewPosting)
{
}
}
group(Category_Category4)
{
Caption = 'Release', Comment = 'Generated from the PromotedActionCategories property index 3.';
ShowAs = SplitButton;
actionref("Re&lease_Promoted"; "Re&lease")
{
}
actionref("Re&open_Promoted"; "Re&open")
{
}
}
actionref(ShowAvailability_Promoted; ShowAvailability)
{
}
}
group(Category_Prepare)
{
Caption = 'Prepare';
actionref("Update Unit Cost_Promoted"; "Update Unit Cost")
{
}
actionref("Refresh Lines_Promoted"; "Refresh Lines")
{
}
actionref("Copy Document_Promoted"; "Copy Document")
{
}
actionref("Refresh availability warnings_Promoted"; "Refresh availability warnings")
{
}
actionref("&Reserve_Promoted"; "&Reserve")
{
}
}
group(Category_Category7)
{
Caption = 'Print', Comment = 'Generated from the PromotedActionCategories property index 6.';
actionref(Order_Promoted; Order)
{
}
}
group(Category_Category5)
{
Caption = 'Warehouse', Comment = 'Generated from the PromotedActionCategories property index 4.';
actionref("Create Warehouse Pick_Promoted"; "Create Warehouse Pick")
{
}
actionref("Create Inventor&y Movement_Promoted"; "Create Inventor&y Movement")
{
}
}
group(Category_Category9)
{
Caption = 'Order', Comment = 'Generated from the PromotedActionCategories property index 8.';
actionref(Dimensions_Promoted; Dimensions)
{
}
actionref(Action14_Promoted; Action14)
{
}
actionref("Co&mments_Promoted"; "Co&mments")
{
}
separator(Navigate_Separator)
{
}
actionref("Item Tracking Lines_Promoted"; "Item Tracking Lines")
{
}
actionref("Assembly BOM_Promoted"; "Assembly BOM")
{
}
actionref("Order &Tracking_Promoted"; "Order &Tracking")
{
}
group("Category_Item Availability by")
{
Caption = 'Item Availability by';
actionref("BOM Level_Promoted"; "BOM Level")
{
}
actionref(Event_Promoted; "Event")
{
}
actionref(Location_Promoted; Location)
{
}
actionref(Variant_Promoted; Variant)
{
}
actionref(Period_Promoted; Period)
{
}
actionref(Lot_Promoted; Lot)
{
}
}
}
group(Category_Category8)
{
Caption = 'Navigate', Comment = 'Generated from the PromotedActionCategories property index 7.';
}
group(Category_Report)
{
Caption = 'Report', Comment = 'Generated from the PromotedActionCategories property index 2.';
}
}
}
trigger OnAfterGetRecord()
var
Item: Record "Item";
begin
IsUnitCostEditable := not Rec.IsStandardCostItem();
IsAsmToOrderEditable := not Rec.IsAsmToOrder();
if Rec."Variant Code" = '' then
VariantCodeMandatory := Item.IsVariantMandatory(true, Rec."Item No.");
end;
trigger OnDeleteRecord(): Boolean
var
AssemblyHeaderReserve: Codeunit "Assembly Header-Reserve";
begin
OnBeforeDeleteRecord(Rec);
Rec.TestField("Assemble to Order", false);
if (Rec.Quantity <> 0) and Rec.ItemExists(Rec."Item No.") then begin
Commit();
if not AssemblyHeaderReserve.DeleteLineConfirm(Rec) then
exit(false);
AssemblyHeaderReserve.DeleteLine(Rec);
end;
end;
trigger OnOpenPage()
begin
IsUnitCostEditable := true;
IsAsmToOrderEditable := true;
end;
var
AssemblyAvailabilityMgt: Codeunit "Assembly Availability Mgt.";
VariantCodeMandatory: Boolean;
protected var
IsUnitCostEditable: Boolean;
IsAsmToOrderEditable: Boolean;
local procedure ShowPreview()
var
AssemblyPostYesNo: Codeunit "Assembly-Post (Yes/No)";
begin
AssemblyPostYesNo.Preview(Rec);
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeDeleteRecord(var AssemblyHeader: Record "Assembly Header")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeAsmToOrderWhseShptLine(var AssemblyHeader: Record "Assembly Header"; var IsHandled: Boolean)
begin
end;
}