Page 1004 Job Task List, source in 29
Source29
src/Layers/W1/BaseApp/Projects/Project/Job/JobTaskList.Page.al300 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.Project.Job;
using Microsoft.Finance.Dimension;
using Microsoft.Projects.Project.Planning;
using Microsoft.Projects.Project.Reports;
page 1004 "Job Task List"
{
Caption = 'Project Task List';
CardPageID = "Job Task Card";
DataCaptionFields = "Job No.";
Editable = false;
PageType = List;
SourceTable = "Job Task";
layout
{
area(content)
{
repeater(Control1)
{
ShowCaption = false;
field("Job No."; Rec."Job No.")
{
ApplicationArea = Jobs;
Style = Strong;
StyleExpr = StyleIsStrong;
}
field("Job Task No."; Rec."Job Task No.")
{
ApplicationArea = Jobs;
Style = Strong;
StyleExpr = StyleIsStrong;
}
field(Description; Rec.Description)
{
ApplicationArea = Jobs;
}
field("Job Task Type"; Rec."Job Task Type")
{
ApplicationArea = Jobs;
}
field("WIP-Total"; Rec."WIP-Total")
{
ApplicationArea = Jobs;
}
field(Totaling; Rec.Totaling)
{
ApplicationArea = Jobs;
}
field("Job Posting Group"; Rec."Job Posting Group")
{
ApplicationArea = Jobs;
}
}
}
area(factboxes)
{
systempart(Control1900383207; Links)
{
ApplicationArea = RecordLinks;
Visible = false;
}
systempart(Control1905767507; Notes)
{
ApplicationArea = Notes;
Visible = false;
}
}
}
actions
{
area(navigation)
{
group("&Job Task")
{
Caption = '&Project Task';
Image = Task;
group(Dimensions)
{
Caption = 'Dimensions';
Image = Dimensions;
action("Dimensions-Single")
{
ApplicationArea = Dimensions;
Caption = 'Dimensions-Single';
Image = Dimensions;
RunObject = Page "Job Task Dimensions";
RunPageLink = "Job No." = field("Job No."),
"Job Task No." = field("Job Task 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
JobTask: Record "Job Task";
JobTaskDimensionsMultiple: Page "Job Task Dimensions Multiple";
begin
CurrPage.SetSelectionFilter(JobTask);
JobTaskDimensionsMultiple.SetMultiJobTask(JobTask);
JobTaskDimensionsMultiple.RunModal();
end;
}
}
action(JobTaskStatistics)
{
ApplicationArea = Jobs;
Caption = 'Statistics';
Image = StatisticsDocument;
RunObject = Page "Job Task Statistics";
RunPageLink = "Job No." = field("Job No."),
"Job Task No." = field("Job Task No.");
ToolTip = 'View statistics for the project task.';
}
action("Assigned Resources")
{
ApplicationArea = Jobs;
Caption = 'Assigned Resources';
Image = Users;
ToolTip = 'View or edit the additional resources that are explicitly assigned to this project task. Project-level assignments are managed from the project and are not shown on the project tasks.';
trigger OnAction()
var
JobAssignedResourcesPage: Page "Job Assigned Resources";
begin
if JobAssignedResourcesPage.SetJobTaskContext(Rec) then
JobAssignedResourcesPage.Run();
end;
}
}
}
area(processing)
{
action("Split Planning Lines")
{
ApplicationArea = Jobs;
Caption = 'Split Planning Lines';
Image = Splitlines;
RunObject = Report "Job Split Planning Line";
}
action("Change Planning Line Dates")
{
ApplicationArea = Jobs;
Caption = 'Change Planning Line Dates';
Image = ChangeDates;
//The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true'
//PromotedCategory = Process;
RunObject = Report "Change Job Dates";
}
action("Copy Job Task From")
{
ApplicationArea = Jobs;
Caption = 'Copy Project Task From';
Ellipsis = true;
Image = CopyFromTask;
ToolTip = 'Use a batch job to help you copy project task lines and project planning lines from one project task to another. You can copy from a project task within the project you are working with or from a project task linked to a different project.';
trigger OnAction()
var
Job: Record Job;
CopyJobTasks: Page "Copy Job Tasks";
begin
if Job.Get(Rec."Job No.") then begin
CopyJobTasks.SetToJob(Job);
CopyJobTasks.RunModal();
end;
end;
}
action("Copy Job Task To")
{
ApplicationArea = Jobs;
Caption = 'Copy Project Task To';
Ellipsis = true;
Image = CopyToTask;
ToolTip = 'Use a batch job to help you copy project task lines and project planning lines from one project task to another. You can copy from a project task within the project you are working with or from a project task linked to a different project.';
trigger OnAction()
var
Job: Record Job;
CopyJobTasks: Page "Copy Job Tasks";
begin
if Job.Get(Rec."Job No.") then begin
CopyJobTasks.SetFromJob(Job);
CopyJobTasks.RunModal();
end;
end;
}
}
area(reporting)
{
action("Job Actual to Budget")
{
ApplicationArea = Jobs;
Caption = 'Project Actual to Budget';
Image = "Report";
RunObject = Report "Job Actual To Budget";
}
action("Job Analysis")
{
ApplicationArea = Jobs;
Caption = 'Project Analysis';
Image = "Report";
RunObject = Report "Job Analysis";
}
action("Job - Planning Lines")
{
ApplicationArea = Jobs;
Caption = 'Project - Planning Lines';
Image = "Report";
RunObject = Report "Job - Planning Lines";
}
action("Job - Suggested Billing")
{
ApplicationArea = Jobs;
Caption = 'Project - Suggested Billing';
Image = "Report";
RunObject = Report "Job Suggested Billing";
}
action("Jobs - Transaction Detail")
{
ApplicationArea = Jobs;
Caption = 'Projects - Transaction Detail';
Image = "Report";
//The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true'
//PromotedCategory = "Report";
RunObject = Report "Job - Transaction Detail";
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process';
actionref("Copy Job Task From_Promoted"; "Copy Job Task From")
{
}
actionref("Copy Job Task To_Promoted"; "Copy Job Task To")
{
}
group(Category_Dimensions)
{
Caption = 'Dimensions';
actionref("Dimensions-Multiple_Promoted"; "Dimensions-Multiple")
{
}
actionref("Dimensions-Single_Promoted"; "Dimensions-Single")
{
}
}
actionref("Split Planning Lines_Promoted"; "Split Planning Lines")
{
}
actionref("Assigned Resources_Promoted"; "Assigned Resources")
{
}
group(Category_Report)
{
Caption = 'Reports';
actionref("Job Actual to Budget_Promoted"; "Job Actual to Budget")
{
}
actionref("Job Analysis_Promoted"; "Job Analysis")
{
}
actionref("Job - Planning Lines_Promoted"; "Job - Planning Lines")
{
}
actionref("Job - Suggested Billing_Promoted"; "Job - Suggested Billing")
{
}
}
}
}
}
trigger OnAfterGetRecord()
begin
StyleIsStrong := Rec."Job Task Type" <> Rec."Job Task Type"::Posting;
end;
var
StyleIsStrong: Boolean;
}