Page 72 Resource Groups, source in 29
Source29
src/Layers/W1/BaseApp/Projects/Resources/Resource/ResourceGroups.Page.al301 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.Projects.Resources.Resource;
using Microsoft.Finance.Dimension;
using Microsoft.Foundation.Comment;
using Microsoft.Pricing.Calculation;
using Microsoft.Pricing.PriceList;
using Microsoft.Projects.Project.Analysis;
using Microsoft.Projects.Resources.Analysis;
using Microsoft.Projects.Resources.Pricing;
page 72 "Resource Groups"
{
ApplicationArea = Jobs;
Caption = 'Resource Groups';
PageType = List;
SourceTable = "Resource Group";
UsageCategory = Lists;
layout
{
area(content)
{
repeater(Control1)
{
ShowCaption = false;
field("No."; Rec."No.")
{
ApplicationArea = Jobs;
}
field(Name; Rec.Name)
{
ApplicationArea = Jobs;
}
}
}
area(factboxes)
{
systempart(Control1900383207; Links)
{
ApplicationArea = RecordLinks;
Visible = false;
}
systempart(Control1905767507; Notes)
{
ApplicationArea = Notes;
Visible = false;
}
}
}
actions
{
area(navigation)
{
group("Res. &Group")
{
Caption = 'Res. &Group';
Image = Group;
action(Statistics)
{
ApplicationArea = Jobs;
Caption = 'Statistics';
Image = Statistics;
RunObject = Page "Res. Gr. Statistics";
RunPageLink = "No." = field("No."),
"Date Filter" = field("Date Filter"),
"Unit of Measure Filter" = field("Unit of Measure Filter"),
"Chargeable Filter" = field("Chargeable Filter");
ShortCutKey = 'F7';
ToolTip = 'View statistical information, such as the value of posted entries, for the record.';
}
action("Co&mments")
{
ApplicationArea = Comments;
Caption = 'Co&mments';
Image = ViewComments;
RunObject = Page "Comment Sheet";
RunPageLink = "Table Name" = const("Resource Group"),
"No." = field("No.");
ToolTip = 'View or add comments for the record.';
}
group(Dimensions)
{
Caption = 'Dimensions';
Image = Dimensions;
action("Dimensions-Single")
{
ApplicationArea = Dimensions;
Caption = 'Dimensions-Single';
Image = Dimensions;
RunObject = Page "Default Dimensions";
RunPageLink = "Table ID" = const(152),
"No." = field("No.");
ShortCutKey = 'Alt+D';
ToolTip = 'View or edit the single set of dimensions that are set up for the selected record.';
}
action("Dimensions-&Multiple")
{
AccessByPermission = TableData Dimension = R;
ApplicationArea = Dimensions;
Caption = 'Dimensions-&Multiple';
Image = DimensionSets;
ToolTip = 'View or edit dimensions for a group of records. You can assign dimension codes to transactions to distribute costs and analyze historical information.';
trigger OnAction()
var
ResGr: Record "Resource Group";
DefaultDimMultiple: Page "Default Dimensions-Multiple";
begin
CurrPage.SetSelectionFilter(ResGr);
DefaultDimMultiple.SetMultiRecord(ResGr, Rec.FieldNo("No."));
DefaultDimMultiple.RunModal();
end;
}
}
}
group("&Prices")
{
Caption = '&Prices';
Image = Price;
action(Costs)
{
ApplicationArea = Jobs;
Caption = 'Costs';
Image = ResourceCosts;
RunObject = Page "Resource Costs";
RunPageLink = Type = const("Group(Resource)"),
Code = field("No.");
Visible = not ExtendedPriceEnabled;
ToolTip = 'View or change detailed information about costs for the resource.';
}
action(Prices)
{
ApplicationArea = Jobs;
Caption = 'Prices';
Image = Price;
RunObject = Page "Resource Prices";
RunPageLink = Type = const("Group(Resource)"),
Code = field("No.");
Visible = not ExtendedPriceEnabled;
ToolTip = 'View or edit prices for the resource.';
}
action(PurchPriceLists)
{
ApplicationArea = Jobs;
Caption = 'Purchase Prices';
Image = ResourceCosts;
Visible = ExtendedPriceEnabled;
ToolTip = 'View or change detailed information about costs for the resource group.';
trigger OnAction()
var
AmountType: Enum "Price Amount Type";
PriceType: Enum "Price Type";
begin
Rec.ShowPriceListLines(PriceType::Purchase, AmountType::Any);
end;
}
action(SalesPriceLists)
{
ApplicationArea = Jobs;
Caption = 'Sales Prices';
Image = Price;
Visible = ExtendedPriceEnabled;
ToolTip = 'View or edit prices for the resource group.';
trigger OnAction()
var
AmountType: Enum "Price Amount Type";
PriceType: Enum "Price Type";
begin
Rec.ShowPriceListLines(PriceType::Sale, AmountType::Any);
end;
}
}
group("Plan&ning")
{
Caption = 'Plan&ning';
Image = Planning;
action(ResGroupCapacity)
{
ApplicationArea = Jobs;
Caption = 'Res. Group &Capacity';
Image = Capacity;
RunObject = Page "Res. Group Capacity";
RunPageOnRec = true;
ToolTip = 'View the capacity of the resource group.';
}
action("Res. Group All&ocated per Job")
{
ApplicationArea = Jobs;
Caption = 'Res. Group All&ocated per Project';
Image = ViewJob;
RunObject = Page "Res. Gr. Allocated per Job";
RunPageLink = "Resource Gr. Filter" = field("No.");
ToolTip = 'View the project allocations of the resource group.';
}
action("Res. Group Availa&bility")
{
ApplicationArea = Jobs;
Caption = 'Res. Group Availa&bility';
Image = Calendar;
RunObject = Page "Res. Group Availability";
RunPageLink = "No." = field("No."),
"Unit of Measure Filter" = field("Unit of Measure Filter"),
"Chargeable Filter" = field("Chargeable Filter");
ToolTip = 'View a summary of resource group capacities, the quantity of resource hours allocated to projects on order, the quantity allocated to service orders, the capacity assigned to projects on quote, and the resource group availability.';
}
}
}
area(creation)
{
action("New Resource")
{
ApplicationArea = Jobs;
Caption = 'New Resource';
Image = NewResource;
RunObject = Page "Resource Card";
RunPageLink = "Resource Group No." = field("No.");
RunPageMode = Create;
ToolTip = 'Create a new resource.';
}
}
area(Promoted)
{
group(Category_New)
{
Caption = 'New', Comment = 'Generated from the PromotedActionCategories property index 0.';
actionref("New Resource_Promoted"; "New Resource")
{
}
}
group(Category_Process)
{
Caption = 'Process', Comment = 'Generated from the PromotedActionCategories property index 1.';
}
group(Category_Group)
{
Caption = 'Group';
group(Category_Dimensions)
{
Caption = 'Dimensions';
ShowAs = SplitButton;
actionref("Dimensions-&Multiple_Promoted"; "Dimensions-&Multiple")
{
}
actionref("Dimensions-Single_Promoted"; "Dimensions-Single")
{
}
}
actionref(Statistics_Promoted; Statistics)
{
}
actionref("Co&mments_Promoted"; "Co&mments")
{
}
}
group(Category_Report)
{
Caption = 'Report', Comment = 'Generated from the PromotedActionCategories property index 2.';
}
group(Category_Category4)
{
Caption = 'Prices & Discounts', Comment = 'Generated from the PromotedActionCategories property index 3.';
actionref(PurchPriceLists_Promoted; PurchPriceLists)
{
}
actionref(SalesPriceLists_Promoted; SalesPriceLists)
{
}
actionref(Costs_Promoted; Costs)
{
}
actionref(Prices_Promoted; Prices)
{
}
}
}
}
trigger OnOpenPage()
var
PriceCalculationMgt: Codeunit "Price Calculation Mgt.";
begin
ExtendedPriceEnabled := PriceCalculationMgt.IsExtendedPriceCalculationEnabled();
end;
var
ExtendedPriceEnabled: Boolean;
}