Page 223 Resource Statistics, source in 29
Source29
src/Layers/W1/BaseApp/Projects/Resources/Resource/ResourceStatistics.Page.al621 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.Foundation.Period;
page 223 "Resource Statistics"
{
Caption = 'Resource Statistics';
Editable = false;
LinksAllowed = false;
PageType = Card;
SourceTable = Resource;
layout
{
area(content)
{
group(Usage)
{
Caption = 'Usage';
fixed(Control1903895201)
{
ShowCaption = false;
group("This Period")
{
Caption = 'This Period';
field("ResDateName[1]"; ResDateName[1])
{
ApplicationArea = Jobs;
ShowCaption = false;
}
field("ResCapacity[1]"; ResCapacity[1])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Capacity';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the scheduled capacity of the resource. The amount is the sum of values in the Quantity field on project planning lines for the resource.';
}
field("UnusedCapacity[1]"; UnusedCapacity[1])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Unused Capacity';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the difference between the capacity and the capacity used. It is calculated as follows: Unused Capacity = Capacity - Charg. Usage + Not Charg. Usage.';
}
field(Text000; Text000)
{
ApplicationArea = Jobs;
Caption = 'Not Chargeable Usage';
ToolTip = 'Specifies the nonchargeable usage, which is displayed in units of measure. Nonchargeable usage can be posted in the resource journal and the project journal.';
Visible = false;
}
field("ResUsageUnits[1][1]"; ResUsageUnits[1] [1])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Units';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the usage, displayed in the specified unit of measure.';
}
field("ResUsagePrice[1][1]"; ResUsagePrice[1] [1])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Price';
ToolTip = 'Specifies the price amounts.';
}
field("Chargeable Usage"; Text000)
{
ApplicationArea = Jobs;
Caption = 'Chargeable Usage';
ToolTip = 'Specifies the chargeable usage. Chargeable usage can be posted in the resource group journal and the project journal.';
Visible = false;
}
field("ResUsageUnits[1][2]"; ResUsageUnits[1] [2])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Units';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the usage, displayed in the specified unit of measure.';
}
field("ResUsagePrice[1][2]"; ResUsagePrice[1] [2])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Price';
ToolTip = 'Specifies the price amounts.';
}
field("ChargeablePct[1]"; ChargeablePct[1])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Chargeable % (Units)';
DecimalPlaces = 1 : 1;
ToolTip = 'Specifies the percentage of usage that applies to chargeable units. It is calculated as follows: Chargeable % = (Chargeable Units + Nonchargeable Units) x 100.';
}
}
group("This Year")
{
Caption = 'This Year';
field(Placeholder2; Text000)
{
ApplicationArea = Jobs;
Visible = false;
}
field("ResCapacity[2]"; ResCapacity[2])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Capacity';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the scheduled capacity of the resource. The amount is the sum of values in the Quantity field on project planning lines for the resource.';
}
field("UnusedCapacity[2]"; UnusedCapacity[2])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Unused Capacity';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the difference between the capacity and the capacity used. It is calculated as follows: Unused Capacity = Capacity - Charg. Usage + Not Charg. Usage.';
}
field(Placeholder3; Text000)
{
ApplicationArea = Jobs;
Visible = false;
}
field("ResUsageUnits[2][1]"; ResUsageUnits[2] [1])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Units';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the usage, displayed in the specified unit of measure.';
}
field("ResUsagePrice[2][1]"; ResUsagePrice[2] [1])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Price';
ToolTip = 'Specifies the price amounts.';
}
field(Placeholder4; Text000)
{
ApplicationArea = Jobs;
Visible = false;
}
field("ResUsageUnits[2][2]"; ResUsageUnits[2] [2])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Units';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the usage, displayed in the specified unit of measure.';
}
field("ResUsagePrice[2][2]"; ResUsagePrice[2] [2])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Price';
ToolTip = 'Specifies the price amounts.';
}
field("ChargeablePct[2]"; ChargeablePct[2])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Chargeable % (Units)';
DecimalPlaces = 1 : 1;
ToolTip = 'Specifies the percentage of usage that applies to chargeable units. It is calculated as follows: Chargeable % = (Chargeable Units + Nonchargeable Units) x 100.';
}
}
group("Last Year")
{
Caption = 'Last Year';
field(Placeholder5; Text000)
{
ApplicationArea = Jobs;
Visible = false;
}
field("ResCapacity[3]"; ResCapacity[3])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Capacity';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the scheduled capacity of the resource. The amount is the sum of values in the Quantity field on project planning lines for the resource.';
}
field("UnusedCapacity[3]"; UnusedCapacity[3])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Unused Capacity';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the difference between the capacity and the capacity used. It is calculated as follows: Unused Capacity = Capacity - Charg. Usage + Not Charg. Usage.';
}
field(Placeholder6; Text000)
{
ApplicationArea = Jobs;
Visible = false;
}
field("ResUsageUnits[3][1]"; ResUsageUnits[3] [1])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Units';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the usage, displayed in the specified unit of measure.';
}
field("ResUsagePrice[3][1]"; ResUsagePrice[3] [1])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Price';
ToolTip = 'Specifies the price amounts.';
}
field(Placeholder7; Text000)
{
ApplicationArea = Jobs;
Visible = false;
}
field("ResUsageUnits[3][2]"; ResUsageUnits[3] [2])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Units';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the usage, displayed in the specified unit of measure.';
}
field("ResUsagePrice[3][2]"; ResUsagePrice[3] [2])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Price';
ToolTip = 'Specifies the price amounts.';
}
field("ChargeablePct[3]"; ChargeablePct[3])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Chargeable % (Units)';
DecimalPlaces = 1 : 1;
ToolTip = 'Specifies the percentage of usage that applies to chargeable units. It is calculated as follows: Chargeable % = (Chargeable Units + Nonchargeable Units) x 100.';
}
}
group(Total)
{
Caption = 'Total';
field(Placeholder8; Text000)
{
ApplicationArea = Jobs;
Visible = false;
}
field("ResCapacity[4]"; ResCapacity[4])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Capacity';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the scheduled capacity of the resource. The amount is the sum of values in the Quantity field on project planning lines for the resource.';
}
field("UnusedCapacity[4]"; UnusedCapacity[4])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Unused Capacity';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the difference between the capacity and the capacity used. It is calculated as follows: Unused Capacity = Capacity - Charg. Usage + Not Charg. Usage.';
}
field(Placeholder9; Text000)
{
ApplicationArea = Jobs;
Visible = false;
}
field("ResUsageUnits[4][1]"; ResUsageUnits[4] [1])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Units';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the usage, displayed in the specified unit of measure.';
}
field("ResUsagePrice[4][1]"; ResUsagePrice[4] [1])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Price';
ToolTip = 'Specifies the price amounts.';
}
field(Placeholder11; Text000)
{
ApplicationArea = Jobs;
Visible = false;
}
field("ResUsageUnits[4][2]"; ResUsageUnits[4] [2])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Units';
DecimalPlaces = 0 : 5;
ToolTip = 'Specifies the usage, displayed in the specified unit of measure.';
}
field("ResUsagePrice[4][2]"; ResUsagePrice[4] [2])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Price';
ToolTip = 'Specifies the price amounts.';
}
field("ChargeablePct[4]"; ChargeablePct[4])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Chargeable % (Units)';
DecimalPlaces = 1 : 1;
ToolTip = 'Specifies the percentage of usage that applies to chargeable units. It is calculated as follows: Chargeable % = (Chargeable Units + Nonchargeable Units) x 100.';
}
}
}
}
group(Sale)
{
Caption = 'Sale';
fixed(Control1904230701)
{
ShowCaption = false;
group(Control1900724101)
{
Caption = 'This Period';
field(Control3; ResDateName[1])
{
ApplicationArea = Jobs;
ShowCaption = false;
}
field("UnitPrice[1]"; UnitPrice[1])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Invoiced';
ToolTip = 'Specifies the unit prices of postings of the type sale. Sales can be posted in the resource group journal and the sales lines.';
}
field("InvoicedPct[1]"; InvoicedPct[1])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Invoiced %';
DecimalPlaces = 1 : 1;
ToolTip = 'Specifies the percentage of invoiced amounts in unit prices. It is calculated as follows: Invoiced % = (Invoiced (LCY) / Usage(Unit Price)) x 100.';
}
field("ResUsageCost[1]"; ResUsageCost[1])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Usage (Cost)';
ToolTip = 'Specifies values for project usage based on cost. Specifies, based on cost, how much the resources has been used.';
}
field("Profit[1]"; Profit[1])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Profit';
ToolTip = 'Specifies the profit amounts.';
}
field("ResProfitPct[1]"; ResProfitPct[1])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Profit %';
DecimalPlaces = 1 : 1;
ToolTip = 'Specifies the profit percentages.';
}
}
group(Control1900724401)
{
Caption = 'This Year';
field(Placeholder12; Text000)
{
ApplicationArea = Jobs;
Visible = false;
}
field("UnitPrice[2]"; UnitPrice[2])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Invoiced';
ToolTip = 'Specifies the unit prices of postings of the type sale. Sales can be posted in the resource group journal and the sales lines.';
}
field("InvoicedPct[2]"; InvoicedPct[2])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Invoiced %';
DecimalPlaces = 1 : 1;
ToolTip = 'Specifies the percentage of invoiced amounts in unit prices. It is calculated as follows: Invoiced % = (Invoiced (LCY) / Usage(Unit Price)) x 100.';
}
field("ResUsageCost[2]"; ResUsageCost[2])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Usage (Cost)';
ToolTip = 'Specifies values for project usage based on cost. Specifies, based on cost, how much the resources has been used.';
}
field("Profit[2]"; Profit[2])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Profit';
ToolTip = 'Specifies the profit amounts.';
}
field("ResProfitPct[2]"; ResProfitPct[2])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Profit %';
DecimalPlaces = 1 : 1;
ToolTip = 'Specifies the profit percentages.';
}
}
group(Control1900724301)
{
Caption = 'Last Year';
field(Placeholder14; Text000)
{
ApplicationArea = Jobs;
Visible = false;
}
field("UnitPrice[3]"; UnitPrice[3])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Invoiced';
ToolTip = 'Specifies the unit prices of postings of the type sale. Sales can be posted in the resource group journal and the sales lines.';
}
field("InvoicedPct[3]"; InvoicedPct[3])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Invoiced %';
DecimalPlaces = 1 : 1;
ToolTip = 'Specifies the percentage of invoiced amounts in unit prices. It is calculated as follows: Invoiced % = (Invoiced (LCY) / Usage(Unit Price)) x 100.';
}
field("ResUsageCost[3]"; ResUsageCost[3])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Usage (Cost)';
ToolTip = 'Specifies values for project usage based on cost. Specifies, based on cost, how much the resources has been used.';
}
field("Profit[3]"; Profit[3])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Profit';
ToolTip = 'Specifies the profit amounts.';
}
field("ResProfitPct[3]"; ResProfitPct[3])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Profit %';
DecimalPlaces = 1 : 1;
ToolTip = 'Specifies the profit percentages.';
}
}
group(Control1900724201)
{
Caption = 'Total';
field(placehodler15; Text000)
{
ApplicationArea = Jobs;
Visible = false;
}
field("UnitPrice[4]"; UnitPrice[4])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Invoiced';
ToolTip = 'Specifies the unit prices of postings of the type sale. Sales can be posted in the resource group journal and the sales lines.';
}
field("InvoicedPct[4]"; InvoicedPct[4])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Invoiced %';
DecimalPlaces = 1 : 1;
ToolTip = 'Specifies the percentage of invoiced amounts in unit prices. It is calculated as follows: Invoiced % = (Invoiced (LCY) / Usage(Unit Price)) x 100.';
}
field("ResUsageCost[4]"; ResUsageCost[4])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Usage (Cost)';
ToolTip = 'Specifies values for project usage based on cost. Specifies, based on cost, how much the resources has been used.';
}
field("Profit[4]"; Profit[4])
{
ApplicationArea = Jobs;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Profit';
ToolTip = 'Specifies the profit amounts.';
}
field("ResProfitPct[4]"; ResProfitPct[4])
{
ApplicationArea = Jobs;
AutoFormatType = 0;
Caption = 'Profit %';
DecimalPlaces = 1 : 1;
ToolTip = 'Specifies the profit percentages.';
}
}
}
}
}
}
actions
{
}
trigger OnAfterGetRecord()
begin
if CurrentDate <> WorkDate() then begin
CurrentDate := WorkDate();
DateFilterCalc.CreateAccountingPeriodFilter(ResDateFilter[1], ResDateName[1], CurrentDate, 0);
DateFilterCalc.CreateFiscalYearFilter(ResDateFilter[2], ResDateName[2], CurrentDate, 0);
DateFilterCalc.CreateFiscalYearFilter(ResDateFilter[3], ResDateName[3], CurrentDate, -1);
end;
Clear(TotalUsageUnits);
for i := 1 to 4 do begin
Rec.SetFilter("Date Filter", ResDateFilter[i]);
Rec.SetRange("Chargeable Filter");
Rec.CalcFields(Capacity, "Usage (Cost)", "Sales (Price)");
ResCapacity[i] := Rec.Capacity;
ResUsageCost[i] := Rec."Usage (Cost)";
UnitPrice[i] := Rec."Sales (Price)";
for j := 1 to 2 do begin
if j = 1 then
Chargeable := false
else
Chargeable := true;
Rec.SetRange("Chargeable Filter", Chargeable);
Rec.CalcFields("Usage (Qty.)", "Usage (Price)");
ResUsageUnits[i] [j] := Rec."Usage (Qty.)";
ResUsagePrice[i] [j] := Rec."Usage (Price)";
TotalUsageUnits[i] := TotalUsageUnits[i] + Rec."Usage (Qty.)";
end;
UnusedCapacity[i] := ResCapacity[i] - TotalUsageUnits[i];
ChargeablePct[i] := CalcPercentage(ResUsageUnits[i] [2], TotalUsageUnits[i]);
InvoicedPct[i] := CalcPercentage(UnitPrice[i], ResUsagePrice[i] [2]);
Profit[i] := UnitPrice[i] - ResUsageCost[i];
ResProfitPct[i] := CalcPercentage(Profit[i], UnitPrice[i]);
end;
Rec.SetRange("Date Filter");
Rec.SetRange("Chargeable Filter");
end;
var
DateFilterCalc: Codeunit "DateFilter-Calc";
i: Integer;
j: Integer;
Chargeable: Boolean;
CurrentDate: Date;
#pragma warning disable AA0074
Text000: Label 'Placeholder';
#pragma warning restore AA0074
protected var
ResDateFilter: array[4] of Text[30];
ResDateName: array[4] of Text[30];
ResCapacity: array[4] of Decimal;
ResUsageCost: array[4] of Decimal;
UnitPrice: array[4] of Decimal;
TotalUsageUnits: array[4] of Decimal;
UnusedCapacity: array[4] of Decimal;
ResUsageUnits: array[4, 2] of Decimal;
ResUsagePrice: array[4, 2] of Decimal;
ChargeablePct: array[4] of Decimal;
InvoicedPct: array[4] of Decimal;
Profit: array[4] of Decimal;
ResProfitPct: array[4] of Decimal;
local procedure CalcPercentage(PartAmount: Decimal; Base: Decimal): Decimal
begin
if Base <> 0 then
exit(100 * PartAmount / Base);
exit(0);
end;
}