Page 5919 Service Mgt. Setup, source in 29
Source29
src/Layers/W1/BaseApp/Service/Setup/ServiceMgtSetup.Page.al390 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.Service.Setup;
using Microsoft.Finance.GeneralLedger.Setup;
using Microsoft.Foundation.Calendar;
page 5919 "Service Mgt. Setup"
{
ApplicationArea = Service;
Caption = 'Service Management Setup';
DeleteAllowed = false;
InsertAllowed = false;
PageType = Card;
SourceTable = "Service Mgt. Setup";
UsageCategory = Administration;
layout
{
area(content)
{
group(General)
{
Caption = 'General';
field("First Warning Within (Hours)"; Rec."First Warning Within (Hours)")
{
ApplicationArea = Service;
ToolTip = 'Specifies the number of hours before the program sends the first warning about the response time approaching for a service order. The working calendar and the default service hours are used to calculate when to send the warnings within the general service hours of your company.';
}
field("Send First Warning To"; Rec."Send First Warning To")
{
ApplicationArea = Service;
}
field("Second Warning Within (Hours)"; Rec."Second Warning Within (Hours)")
{
ApplicationArea = Service;
ToolTip = 'Specifies the number of hours before the program sends the second warning about the response time approaching for a service order.';
}
field("Send Second Warning To"; Rec."Send Second Warning To")
{
ApplicationArea = Service;
}
field("Third Warning Within (Hours)"; Rec."Third Warning Within (Hours)")
{
ApplicationArea = Service;
ToolTip = 'Specifies the number of hours before the program sends the third warning about the response time approaching for a service order.';
}
field("Send Third Warning To"; Rec."Send Third Warning To")
{
ApplicationArea = Service;
}
field("Serv. Job Responsibility Code"; Rec."Serv. Job Responsibility Code")
{
ApplicationArea = Service;
}
field("Next Service Calc. Method"; Rec."Next Service Calc. Method")
{
ApplicationArea = Service;
}
field("Service Order Starting Fee"; Rec."Service Order Starting Fee")
{
ApplicationArea = Service;
}
field("Shipment on Invoice"; Rec."Shipment on Invoice")
{
ApplicationArea = Service;
}
field("One Service Item Line/Order"; Rec."One Service Item Line/Order")
{
ApplicationArea = Service;
}
field("Link Service to Service Item"; Rec."Link Service to Service Item")
{
ApplicationArea = Service;
}
field("Resource Skills Option"; Rec."Resource Skills Option")
{
ApplicationArea = Service;
}
field("Service Zones Option"; Rec."Service Zones Option")
{
ApplicationArea = Service;
}
field("Fault Reporting Level"; Rec."Fault Reporting Level")
{
ApplicationArea = Service;
}
field("Base Calendar Code"; Rec."Base Calendar Code")
{
ApplicationArea = Service;
DrillDown = true;
trigger OnDrillDown()
var
CalendarManagement: Codeunit "Calendar Management";
begin
CurrPage.SaveRecord();
Rec.TestField("Base Calendar Code");
CalendarManagement.ShowCustomizedCalendar(Rec);
end;
}
field("Copy Comments Order to Invoice"; Rec."Copy Comments Order to Invoice")
{
ApplicationArea = Comments;
}
field("Copy Comments Order to Shpt."; Rec."Copy Comments Order to Shpt.")
{
ApplicationArea = Comments;
}
field("Logo Position on Documents"; Rec."Logo Position on Documents")
{
ApplicationArea = Service;
Importance = Additional;
}
field("Copy Time Sheet to Order"; Rec."Copy Time Sheet to Order")
{
ApplicationArea = Service;
}
field("Skip Manual Reservation"; Rec."Skip Manual Reservation")
{
ApplicationArea = Service;
}
field("Copy Line Descr. to G/L Entry"; Rec."Copy Line Descr. to G/L Entry")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Allow Multiple Posting Groups"; Rec."Allow Multiple Posting Groups")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Check Multiple Posting Groups"; Rec."Check Multiple Posting Groups")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Enable Concurrent Posting"; Rec."Enable Concurrent Posting")
{
ApplicationArea = Service;
}
}
group("Mandatory Fields")
{
Caption = 'Mandatory Fields';
field("Service Order Type Mandatory"; Rec."Service Order Type Mandatory")
{
ApplicationArea = Service;
}
field("Service Order Start Mandatory"; Rec."Service Order Start Mandatory")
{
ApplicationArea = Service;
}
field("Service Order Finish Mandatory"; Rec."Service Order Finish Mandatory")
{
ApplicationArea = Service;
}
field("Contract Rsp. Time Mandatory"; Rec."Contract Rsp. Time Mandatory")
{
ApplicationArea = Service;
}
field("Unit of Measure Mandatory"; Rec."Unit of Measure Mandatory")
{
ApplicationArea = Service;
}
field("Fault Reason Code Mandatory"; Rec."Fault Reason Code Mandatory")
{
ApplicationArea = Service;
}
field("Work Type Code Mandatory"; Rec."Work Type Code Mandatory")
{
ApplicationArea = Service;
}
field("Salesperson Mandatory"; Rec."Salesperson Mandatory")
{
ApplicationArea = Service;
}
field("Ext. Doc. No. Mandatory"; Rec."Ext. Doc. No. Mandatory")
{
ApplicationArea = Service;
Importance = Additional;
}
}
group(Defaults)
{
Caption = 'Defaults';
field("Default Response Time (Hours)"; Rec."Default Response Time (Hours)")
{
ApplicationArea = Service;
ToolTip = 'Specifies the default response time, in hours, required to start service, either on a service order or on a service item line.';
}
field("Warranty Disc. % (Parts)"; Rec."Warranty Disc. % (Parts)")
{
ApplicationArea = Service;
ToolTip = 'Specifies the default warranty discount percentage on spare parts. The program uses this value to set warranty discounts on parts on service item lines.';
}
field("Warranty Disc. % (Labor)"; Rec."Warranty Disc. % (Labor)")
{
ApplicationArea = Service;
ToolTip = 'Specifies the default warranty discount percentage on labor. The program uses this value to set warranty discounts on labor on service item lines.';
}
field("Default Warranty Duration"; Rec."Default Warranty Duration")
{
ApplicationArea = Service;
}
}
group(Contracts)
{
Caption = 'Contracts';
field("Contract Serv. Ord. Max. Days"; Rec."Contract Serv. Ord. Max. Days")
{
ApplicationArea = Service;
}
field("Use Contract Cancel Reason"; Rec."Use Contract Cancel Reason")
{
ApplicationArea = Service;
}
field("Register Contract Changes"; Rec."Register Contract Changes")
{
ApplicationArea = Service;
}
field("Contract Inv. Line Text Code"; Rec."Contract Inv. Line Text Code")
{
ApplicationArea = Service;
}
field("Contract Line Inv. Text Code"; Rec."Contract Line Inv. Text Code")
{
ApplicationArea = Service;
}
field("Contract Inv. Period Text Code"; Rec."Contract Inv. Period Text Code")
{
ApplicationArea = Service;
}
field("Contract Credit Line Text Code"; Rec."Contract Credit Line Text Code")
{
ApplicationArea = Service;
}
field("Contract Value Calc. Method"; Rec."Contract Value Calc. Method")
{
ApplicationArea = Service;
}
field("Contract Value %"; Rec."Contract Value %")
{
ApplicationArea = Service;
}
field("Del. Filed Cont. w. main Cont."; Rec."Del. Filed Cont. w. main Cont.")
{
ApplicationArea = Service;
}
}
group(Numbering)
{
Caption = 'Numbering';
field("Service Item Nos."; Rec."Service Item Nos.")
{
ApplicationArea = Service;
}
field("Service Quote Nos."; Rec."Service Quote Nos.")
{
ApplicationArea = Service;
}
field("Service Order Nos."; Rec."Service Order Nos.")
{
ApplicationArea = Service;
}
field("Service Invoice Nos."; Rec."Service Invoice Nos.")
{
ApplicationArea = Service;
ToolTip = 'Specifies the number series code that will be used to assign numbers to invoices.';
}
field("Posted Service Invoice Nos."; Rec."Posted Service Invoice Nos.")
{
ApplicationArea = Service;
}
field("Service Credit Memo Nos."; Rec."Service Credit Memo Nos.")
{
ApplicationArea = Service;
}
field("Posted Serv. Credit Memo Nos."; Rec."Posted Serv. Credit Memo Nos.")
{
ApplicationArea = Service;
}
field("Posted Service Shipment Nos."; Rec."Posted Service Shipment Nos.")
{
ApplicationArea = Service;
}
field("Loaner Nos."; Rec."Loaner Nos.")
{
ApplicationArea = Service;
}
field("Troubleshooting Nos."; Rec."Troubleshooting Nos.")
{
ApplicationArea = Service;
}
field("Service Contract Nos."; Rec."Service Contract Nos.")
{
ApplicationArea = Service;
}
field("Contract Template Nos."; Rec."Contract Template Nos.")
{
ApplicationArea = Service;
}
field("Contract Invoice Nos."; Rec."Contract Invoice Nos.")
{
ApplicationArea = Service;
}
field("Contract Credit Memo Nos."; Rec."Contract Credit Memo Nos.")
{
ApplicationArea = Service;
}
field("Prepaid Posting Document Nos."; Rec."Prepaid Posting Document Nos.")
{
ApplicationArea = Service;
}
}
group(Archiving)
{
Caption = 'Archiving';
field("Archive Quotes"; Rec."Archive Quotes")
{
ApplicationArea = Service;
}
field("Archive Orders"; Rec."Archive Orders")
{
ApplicationArea = Service;
}
}
group("Journal Templates")
{
Caption = 'Journal Templates';
Visible = JnlTemplateNameVisible;
field("Serv. Inv. Template Name"; Rec."Serv. Inv. Template Name")
{
ApplicationArea = Service;
}
field("Serv. Cr. Memo Templ. Name"; Rec."Serv. Cr. Memo Templ. Name")
{
ApplicationArea = Service;
}
field("Serv. Contr. Inv. Templ. Name"; Rec."Serv. Contr. Inv. Templ. Name")
{
ApplicationArea = Service;
}
field("Serv. Contr. Cr.M. Templ. Name"; Rec."Serv. Contr. Cr.M. Templ. Name")
{
ApplicationArea = Service;
}
}
}
area(factboxes)
{
systempart(Control1900383207; Links)
{
ApplicationArea = RecordLinks;
Visible = false;
}
systempart(Control1905767507; Notes)
{
ApplicationArea = Notes;
Visible = false;
}
}
}
actions
{
}
trigger OnOpenPage()
var
GeneralLedgerSetup: Record "General Ledger Setup";
begin
Rec.Reset();
if not Rec.Get() then begin
Rec.Init();
Rec.Insert();
end;
GeneralLedgerSetup.Get();
JnlTemplateNameVisible := GeneralLedgerSetup."Journal Templ. Name Mandatory";
end;
var
JnlTemplateNameVisible: Boolean;
}