Page 9057 Service Dispatcher Activities, source in 29

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Service.RoleCenters;

using Microsoft.Service.Contract;
using Microsoft.Service.Document;
using Microsoft.Service.Item;
using System.Visualization;

page 9057 "Service Dispatcher Activities"
{
    Caption = 'Activities';
    PageType = CardPart;
    RefreshOnActivate = true;
    SourceTable = "Service Cue";

    layout
    {
        area(content)
        {
            cuegroup("Service Orders")
            {
                Caption = 'Service Orders';
                field("Service Orders - Today"; Rec."Service Orders - Today")
                {
                    ApplicationArea = Service;
                    DrillDownPageID = "Service Orders";
                }
                field("Service Orders - in Process"; Rec."Service Orders - in Process")
                {
                    ApplicationArea = Service;
                    DrillDownPageID = "Service Orders";
                }
                field("Service Orders - Finished"; Rec."Service Orders - Finished")
                {
                    ApplicationArea = Service;
                    DrillDownPageID = "Service Orders";
                }
                field("Service Orders - Inactive"; Rec."Service Orders - Inactive")
                {
                    ApplicationArea = Service;
                    DrillDownPageID = "Service Orders";
                }

                actions
                {
                    action("New Service Order")
                    {
                        ApplicationArea = Service;
                        Caption = 'New Service Order';
                        RunObject = Page "Service Order";
                        RunPageMode = Create;
                        ToolTip = 'Create an order for specific service work to be performed on a customer''s item. ';
                    }
                    action("New Service Item")
                    {
                        ApplicationArea = Service;
                        Caption = 'New Service Item';
                        RunObject = Page "Service Item Card";
                        RunPageMode = Create;
                        ToolTip = 'Set up an item that represents a customer''s machine that you perform service on.';
                    }
                    action("Edit Dispatch Board")
                    {
                        ApplicationArea = Service;
                        Caption = 'Edit Dispatch Board';
                        RunObject = Page "Dispatch Board";
                        ToolTip = 'View or edit the service response date, response time, priority, order number, customer number, contract number, service zone code, number of allocations, and order date.';
                    }
                    action("Edit Service Tasks")
                    {
                        ApplicationArea = Service;
                        Caption = 'Edit Service Tasks';
                        RunObject = Page "Service Tasks";
                        ToolTip = 'View or edit information on service items in service orders, for example, repair status, response time and service shelf number.';
                    }
                }
            }
            cuegroup("Service Quotes")
            {
                Caption = 'Service Quotes';
                field("Open Service Quotes"; Rec."Open Service Quotes")
                {
                    ApplicationArea = Service;
                    DrillDownPageID = "Service Quotes";
                }

                actions
                {
                    action("New Service Quote")
                    {
                        ApplicationArea = Service;
                        Caption = 'New Service Quote';
                        RunObject = Page "Service Quote";
                        RunPageMode = Create;
                        ToolTip = 'Create an to offer to a customer to perform specific service work on a customer''s item. ';
                    }
                    action(Action17)
                    {
                        ApplicationArea = Service;
                        Caption = 'New Service Order';
                        RunObject = Page "Service Order";
                        RunPageMode = Create;
                        ToolTip = 'Create an order for specific service work to be performed on a customer''s item. ';
                    }
                }
            }
            cuegroup("Service Contracts")
            {
                Caption = 'Service Contracts';
                field("Open Service Contract Quotes"; Rec."Open Service Contract Quotes")
                {
                    ApplicationArea = Service;
                    DrillDownPageID = "Service Contract Quotes";
                }
                field("Service Contracts to Expire"; Rec."Service Contracts to Expire")
                {
                    ApplicationArea = Service;
                    DrillDownPageID = "Service Contracts";
                }

                actions
                {
                    action("New Service Contract Quote")
                    {
                        ApplicationArea = Service;
                        Caption = 'New Service Contract Quote';
                        RunObject = Page "Service Contract Quote";
                        RunPageMode = Create;
                        ToolTip = 'Offer an agreement with a customer to perform service on the customer''s item. ';
                    }
                    action("New Service Contract")
                    {
                        ApplicationArea = Service;
                        Caption = 'New Service Contract';
                        RunObject = Page "Service Contract";
                        RunPageMode = Create;
                        ToolTip = 'Create an agreement with a customer to perform service on the customer''s item. ';
                    }
                }
            }
        }
    }

    actions
    {
        area(processing)
        {
            action("Set Up Cues")
            {
                ApplicationArea = Basic, Suite;
                Caption = 'Set Up Cues';
                Image = Setup;
                ToolTip = 'Set up the cues (status tiles) related to the role.';

                trigger OnAction()
                var
                    CueRecordRef: RecordRef;
                begin
                    CueRecordRef.GetTable(Rec);
                    CuesAndKpis.OpenCustomizePageForCurrentUser(CueRecordRef.Number);
                end;
            }
        }
    }

    trigger OnOpenPage()
    begin
        Rec.Reset();
        if not Rec.Get() then begin
            Rec.Init();
            Rec.Insert();
        end;

        Rec.SetRespCenterFilter();
        Rec.SetRange("Date Filter", 0D, WorkDate());
        Rec.SetRange("User ID Filter", UserId());
    end;

    var
        CuesAndKpis: Codeunit "Cues And KPIs";
}