Page 5832 Capacity Ledger Entries, source in 29
Source29
src/Layers/W1/BaseApp/Inventory/Capacity/CapacityLedgerEntries.Page.al320 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.Capacity;
using Microsoft.Finance.Dimension;
using Microsoft.Foundation.Navigate;
using Microsoft.Inventory.Ledger;
page 5832 "Capacity Ledger Entries"
{
ApplicationArea = Suite;
Caption = 'Capacity Ledger Entries';
Editable = false;
PageType = List;
AboutTitle = 'About Capacity Ledger Entries';
AboutText = 'Track and analyze posted capacity usage for work centers and machine centers, including labor and machine time, quantities, output, scrap, run time, setup time, and costs, to monitor activities such as maintenance and non-production tasks.';
SourceTable = "Capacity Ledger Entry";
SourceTableView = sorting("Entry No.")
order(descending);
UsageCategory = History;
layout
{
area(content)
{
repeater(Control1)
{
ShowCaption = false;
field("Posting Date"; Rec."Posting Date")
{
ApplicationArea = Suite;
}
field("Order Type"; Rec."Order Type")
{
ApplicationArea = Assembly, Manufacturing;
}
field("Order No."; Rec."Order No.")
{
ApplicationArea = Assembly, Manufacturing;
}
field("Order Line No."; Rec."Order Line No.")
{
ApplicationArea = Manufacturing;
Visible = false;
}
field(Type; Rec.Type)
{
ApplicationArea = Suite;
}
field("No."; Rec."No.")
{
ApplicationArea = Suite;
}
field("Document No."; Rec."Document No.")
{
ApplicationArea = Suite;
Visible = false;
}
field("Item No."; Rec."Item No.")
{
ApplicationArea = Suite;
}
field("Variant Code"; Rec."Variant Code")
{
ApplicationArea = Planning;
Visible = false;
}
field(Description; Rec.Description)
{
ApplicationArea = Suite;
}
field(Quantity; Rec.Quantity)
{
ApplicationArea = Suite;
}
field("Direct Cost"; Rec."Direct Cost")
{
ApplicationArea = Suite;
}
field("Overhead Cost"; Rec."Overhead Cost")
{
ApplicationArea = Suite;
}
field("Direct Cost (ACY)"; Rec."Direct Cost (ACY)")
{
ApplicationArea = Suite;
ToolTip = 'Specifies the direct cost in the additional reporting currency.';
Visible = false;
}
field("Overhead Cost (ACY)"; Rec."Overhead Cost (ACY)")
{
ApplicationArea = Suite;
ToolTip = 'Specifies the overhead cost in the additional reporting currency.';
Visible = false;
}
field(Reversed; Rec.Reversed)
{
ApplicationArea = Basic, Suite;
Editable = false;
Visible = false;
}
field("Reversed by Entry No."; Rec."Reversed by Entry No.")
{
ApplicationArea = Basic, Suite;
Editable = false;
Visible = false;
}
field("Reversed Entry No."; Rec."Reversed Entry No.")
{
ApplicationArea = Basic, Suite;
Editable = false;
Visible = false;
}
field("Global Dimension 1 Code"; Rec."Global Dimension 1 Code")
{
ApplicationArea = Dimensions;
Visible = Dim1Visible;
}
field("Global Dimension 2 Code"; Rec."Global Dimension 2 Code")
{
ApplicationArea = Dimensions;
Visible = Dim2Visible;
}
field("Completely Invoiced"; Rec."Completely Invoiced")
{
ApplicationArea = Assembly, Manufacturing;
Visible = false;
}
field("Entry No."; Rec."Entry No.")
{
ApplicationArea = Assembly, Manufacturing;
}
field("Dimension Set ID"; Rec."Dimension Set ID")
{
ApplicationArea = Dimensions;
Visible = false;
}
field("Shortcut Dimension 3 Code"; Rec."Shortcut Dimension 3 Code")
{
ApplicationArea = Dimensions;
Editable = false;
Visible = Dim3Visible;
}
field("Shortcut Dimension 4 Code"; Rec."Shortcut Dimension 4 Code")
{
ApplicationArea = Dimensions;
Editable = false;
Visible = Dim4Visible;
}
field("Shortcut Dimension 5 Code"; Rec."Shortcut Dimension 5 Code")
{
ApplicationArea = Dimensions;
Editable = false;
Visible = Dim5Visible;
}
field("Shortcut Dimension 6 Code"; Rec."Shortcut Dimension 6 Code")
{
ApplicationArea = Dimensions;
Editable = false;
Visible = Dim6Visible;
}
field("Shortcut Dimension 7 Code"; Rec."Shortcut Dimension 7 Code")
{
ApplicationArea = Dimensions;
Editable = false;
Visible = Dim7Visible;
}
field("Shortcut Dimension 8 Code"; Rec."Shortcut Dimension 8 Code")
{
ApplicationArea = Dimensions;
Editable = false;
Visible = Dim8Visible;
}
field("Cap. Unit of Measure Code"; Rec."Cap. Unit of Measure Code")
{
ApplicationArea = Suite;
Visible = false;
}
}
}
area(factboxes)
{
systempart(Control1900383207; Links)
{
ApplicationArea = RecordLinks;
Visible = false;
}
systempart(Control1905767507; Notes)
{
ApplicationArea = Notes;
Visible = false;
}
}
}
actions
{
area(navigation)
{
group("Ent&ry")
{
Caption = 'Ent&ry';
Image = Entry;
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(SetDimensionFilter)
{
ApplicationArea = Dimensions;
Caption = 'Set Dimension Filter';
Ellipsis = true;
Image = "Filter";
ToolTip = 'Limit the entries according to the dimension filters that you specify. NOTE: If you use a high number of dimension combinations, this function may not work and can result in a message that the SQL server only supports a maximum of 2100 parameters.';
trigger OnAction()
begin
Rec.SetFilter("Dimension Set ID", DimensionSetIDFilter.LookupFilter());
end;
}
action("&Value Entries")
{
ApplicationArea = Manufacturing;
Caption = '&Value Entries';
Image = ValueLedger;
RunObject = Page "Value Entries";
RunPageLink = "Capacity Ledger Entry No." = field("Entry No.");
RunPageView = sorting("Capacity Ledger Entry No.", "Entry Type");
ShortCutKey = 'Ctrl+F7';
ToolTip = 'View the history of posted amounts that affect the value of the item. Value entries are created for every transaction with the item.';
}
}
}
area(processing)
{
action("&Navigate")
{
ApplicationArea = Manufacturing;
Caption = 'Find entries...';
Image = Navigate;
ShortCutKey = 'Ctrl+Alt+Q';
ToolTip = 'Find entries and documents that exist for the document number and posting date on the selected document. (Formerly this action was named Navigate.)';
trigger OnAction()
var
Navigate: Page Navigate;
begin
if Rec."Order Type" = Rec."Order Type"::Production then
Navigate.SetDoc(Rec."Posting Date", Rec."Order No.")
else
Navigate.SetDoc(Rec."Posting Date", '');
Navigate.Run();
end;
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process';
actionref("&Navigate_Promoted"; "&Navigate")
{
}
group(Category_Entry)
{
Caption = 'Entry';
actionref(Dimensions_Promoted; Dimensions)
{
}
actionref(SetDimensionFilter_Promoted; SetDimensionFilter)
{
}
actionref("&Value Entries_Promoted"; "&Value Entries")
{
}
}
}
}
}
trigger OnOpenPage()
begin
SetDimVisibility();
end;
var
DimensionSetIDFilter: Page "Dimension Set ID Filter";
protected var
Dim1Visible: Boolean;
Dim2Visible: Boolean;
Dim3Visible: Boolean;
Dim4Visible: Boolean;
Dim5Visible: Boolean;
Dim6Visible: Boolean;
Dim7Visible: Boolean;
Dim8Visible: Boolean;
local procedure SetDimVisibility()
var
DimensionManagement: Codeunit DimensionManagement;
begin
DimensionManagement.UseShortcutDims(Dim1Visible, Dim2Visible, Dim3Visible, Dim4Visible, Dim5Visible, Dim6Visible, Dim7Visible, Dim8Visible);
end;
}