Page 5964 Service Quote, source in 29
Source29
src/Layers/W1/BaseApp/Service/Document/ServiceQuote.Page.al1058 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.Document;
using Microsoft.Finance.Currency;
using Microsoft.Finance.Dimension;
using Microsoft.Foundation.Address;
using Microsoft.Foundation.Attachment;
using Microsoft.Foundation.Reporting;
using Microsoft.Sales.Customer;
using Microsoft.Service.Archive;
using Microsoft.Service.Comment;
using Microsoft.Utilities;
using System.Security.User;
page 5964 "Service Quote"
{
Caption = 'Service Quote';
PageType = Document;
RefreshOnActivate = true;
SourceTable = "Service Header";
SourceTableView = where("Document Type" = filter(Quote));
layout
{
area(content)
{
group(General)
{
Caption = 'General';
field("No."; Rec."No.")
{
ApplicationArea = Service;
Importance = Promoted;
Visible = DocNoVisible;
trigger OnAssistEdit()
begin
if Rec.AssistEdit(xRec) then
CurrPage.Update();
end;
}
field(Description; Rec.Description)
{
ApplicationArea = Service;
}
field("Customer No."; Rec."Customer No.")
{
ApplicationArea = Service;
Importance = Promoted;
trigger OnValidate()
begin
CustomerNoOnAfterValidate();
end;
}
field("Contact No."; Rec."Contact No.")
{
ApplicationArea = Service;
trigger OnValidate()
begin
if Rec.GetFilter("Contact No.") = xRec."Contact No." then
if Rec."Contact No." <> xRec."Contact No." then
Rec.SetRange("Contact No.");
end;
}
field("External Document No."; Rec."External Document No.")
{
ApplicationArea = Basic, Suite;
}
group("Sell-to")
{
Caption = 'Sell-to';
field(Name; Rec.Name)
{
ApplicationArea = Service;
}
field("Name 2"; Rec."Name 2")
{
ApplicationArea = Service;
QuickEntry = false;
Visible = false;
}
field(Address; Rec.Address)
{
ApplicationArea = Service;
QuickEntry = false;
}
field("Address 2"; Rec."Address 2")
{
ApplicationArea = Service;
QuickEntry = false;
}
field(City; Rec.City)
{
ApplicationArea = Service;
QuickEntry = false;
}
group(Control9)
{
ShowCaption = false;
Visible = IsSellToCountyVisible;
field(County; Rec.County)
{
ApplicationArea = Service;
QuickEntry = false;
ToolTip = 'Specifies the state, province or county of the address.';
}
}
field("Post Code"; Rec."Post Code")
{
ApplicationArea = Service;
QuickEntry = false;
}
field("Country/Region Code"; Rec."Country/Region Code")
{
ApplicationArea = Service;
QuickEntry = false;
trigger OnValidate()
var
FormatAddress: Codeunit "Format Address";
begin
IsSellToCountyVisible := FormatAddress.UseCounty(Rec."Country/Region Code");
end;
}
field("Contact Name"; Rec."Contact Name")
{
ApplicationArea = Service;
}
field("No. of Archived Versions"; Rec."No. of Archived Versions")
{
ApplicationArea = Service;
Importance = Additional;
trigger OnDrillDown()
var
ServiceHeaderArchive: Record "Service Header Archive";
begin
CurrPage.SaveRecord();
Commit();
ServiceHeaderArchive.SetRange("Document Type", Rec."Document Type"::Quote);
ServiceHeaderArchive.SetRange("No.", Rec."No.");
ServiceHeaderArchive.SetRange("Doc. No. Occurrence", Rec."Doc. No. Occurrence");
Page.RunModal(Page::"Service List Archive", ServiceHeaderArchive);
CurrPage.Update(false);
end;
}
}
field("Phone No."; Rec."Phone No.")
{
ApplicationArea = Service;
}
field("E-Mail"; Rec."E-Mail")
{
ApplicationArea = Service;
ExtendedDatatype = EMail;
}
field("Phone No. 2"; Rec."Phone No. 2")
{
ApplicationArea = Service;
}
field("Notify Customer"; Rec."Notify Customer")
{
ApplicationArea = Service;
}
field("Service Order Type"; Rec."Service Order Type")
{
ApplicationArea = Service;
}
field("Contract No."; Rec."Contract No.")
{
ApplicationArea = Service;
}
field("Response Date"; Rec."Response Date")
{
ApplicationArea = Service;
Importance = Promoted;
}
field("Response Time"; Rec."Response Time")
{
ApplicationArea = Service;
}
field(Priority; Rec.Priority)
{
ApplicationArea = Service;
Importance = Promoted;
}
field(Status; Rec.Status)
{
ApplicationArea = Service;
}
field("Responsibility Center"; Rec."Responsibility Center")
{
ApplicationArea = Service;
}
field("Assigned User ID"; Rec."Assigned User ID")
{
ApplicationArea = Service;
}
group("Work Description")
{
Caption = 'Work Description';
field(WorkDescription; WorkDescription)
{
ApplicationArea = Basic, Suite;
Importance = Additional;
MultiLine = true;
ShowCaption = false;
ToolTip = 'Specifies the products or service being offered';
trigger OnValidate()
begin
Rec.SetWorkDescription(WorkDescription);
end;
}
}
}
part(ServItemLine; "Service Quote Subform")
{
ApplicationArea = Service;
Editable = IsServiceLinesEditable;
Enabled = IsServiceLinesEditable;
SubPageLink = "Document No." = field("No.");
}
group(Invoicing)
{
Caption = 'Invoicing';
field("Bill-to Customer No."; Rec."Bill-to Customer No.")
{
ApplicationArea = Service;
Importance = Promoted;
trigger OnValidate()
begin
BilltoCustomerNoOnAfterValidat();
end;
}
field("Bill-to Contact No."; Rec."Bill-to Contact No.")
{
ApplicationArea = Service;
}
group("Bill-to")
{
Caption = 'Bill-to';
field("Bill-to Name"; Rec."Bill-to Name")
{
ApplicationArea = Service;
Caption = 'Name';
}
field("Bill-to Name 2"; Rec."Bill-to Name 2")
{
ApplicationArea = Service;
Caption = 'Name 2';
Importance = Additional;
QuickEntry = false;
Visible = false;
}
field("Bill-to Address"; Rec."Bill-to Address")
{
ApplicationArea = Service;
Caption = 'Address';
QuickEntry = false;
}
field("Bill-to Address 2"; Rec."Bill-to Address 2")
{
ApplicationArea = Service;
Caption = 'Address 2';
QuickEntry = false;
}
field("Bill-to City"; Rec."Bill-to City")
{
ApplicationArea = Service;
Caption = 'City';
QuickEntry = false;
}
group(Control14)
{
ShowCaption = false;
Visible = IsBillToCountyVisible;
field("Bill-to County"; Rec."Bill-to County")
{
ApplicationArea = Service;
CaptionClass = '5,1,' + Rec."Bill-to Country/Region Code";
QuickEntry = false;
ToolTip = 'Specifies the state, province or county of the address.';
}
}
field("Bill-to Post Code"; Rec."Bill-to Post Code")
{
ApplicationArea = Service;
Caption = 'Post Code';
QuickEntry = false;
}
field("Bill-to Country/Region Code"; Rec."Bill-to Country/Region Code")
{
ApplicationArea = Service;
Caption = 'Country/Region';
QuickEntry = false;
trigger OnValidate()
var
FormatAddress: Codeunit "Format Address";
begin
IsBillToCountyVisible := FormatAddress.UseCounty(Rec."Bill-to Country/Region Code");
end;
}
field("Bill-to Contact"; Rec."Bill-to Contact")
{
ApplicationArea = Service;
Caption = 'Contact';
}
}
field("Your Reference"; Rec."Your Reference")
{
ApplicationArea = Service;
}
field("Salesperson Code"; Rec."Salesperson Code")
{
ApplicationArea = Service;
}
field("Max. Labor Unit Price"; Rec."Max. Labor Unit Price")
{
ApplicationArea = Service;
}
field("Document Date"; Rec."Document Date")
{
ApplicationArea = Service;
}
field("Shortcut Dimension 1 Code"; Rec."Shortcut Dimension 1 Code")
{
ApplicationArea = Dimensions;
}
field("Shortcut Dimension 2 Code"; Rec."Shortcut Dimension 2 Code")
{
ApplicationArea = Dimensions;
}
field("Payment Terms Code"; Rec."Payment Terms Code")
{
ApplicationArea = Service;
Importance = Promoted;
}
field("Due Date"; Rec."Due Date")
{
ApplicationArea = Service;
Importance = Promoted;
ToolTip = 'Specifies when the related invoice must be paid.';
}
field("Payment Discount %"; Rec."Payment Discount %")
{
ApplicationArea = Service;
}
field("Pmt. Discount Date"; Rec."Pmt. Discount Date")
{
ApplicationArea = Service;
}
field("Payment Method Code"; Rec."Payment Method Code")
{
ApplicationArea = Service;
}
field("Prices Including VAT"; Rec."Prices Including VAT")
{
ApplicationArea = VAT;
trigger OnValidate()
begin
PricesIncludingVATOnAfterValid();
end;
}
field("VAT Bus. Posting Group"; Rec."VAT Bus. Posting Group")
{
ApplicationArea = Basic, Suite;
}
field("Tax Area Code"; Rec."Tax Area Code")
{
ApplicationArea = SalesTax;
}
field("Tax Liable"; Rec."Tax Liable")
{
ApplicationArea = SalesTax;
}
}
group(Shipping)
{
Caption = 'Shipping';
field("Ship-to Code"; Rec."Ship-to Code")
{
ApplicationArea = Service;
Importance = Promoted;
trigger OnValidate()
begin
ShiptoCodeOnAfterValidate();
end;
}
group("Ship-to")
{
Caption = 'Ship-to';
field("Ship-to Name"; Rec."Ship-to Name")
{
ApplicationArea = Service;
Caption = 'Name';
}
field("Ship-to Name 2"; Rec."Ship-to Name 2")
{
ApplicationArea = Service;
Caption = 'Name 2';
Importance = Additional;
Visible = false;
}
field("Ship-to Address"; Rec."Ship-to Address")
{
ApplicationArea = Service;
Caption = 'Address';
QuickEntry = false;
}
field("Ship-to Address 2"; Rec."Ship-to Address 2")
{
ApplicationArea = Service;
Caption = 'Address 2';
QuickEntry = false;
}
field("Ship-to City"; Rec."Ship-to City")
{
ApplicationArea = Service;
Caption = 'City';
QuickEntry = false;
}
group(Control20)
{
ShowCaption = false;
Visible = IsShipToCountyVisible;
field("Ship-to County"; Rec."Ship-to County")
{
ApplicationArea = Service;
CaptionClass = '5,1,' + Rec."Ship-to Country/Region Code";
QuickEntry = false;
ToolTip = 'Specifies the state, province or county of the address.';
}
}
field("Ship-to Post Code"; Rec."Ship-to Post Code")
{
ApplicationArea = Service;
Caption = 'Post Code';
Importance = Promoted;
QuickEntry = false;
}
field("Ship-to Country/Region Code"; Rec."Ship-to Country/Region Code")
{
ApplicationArea = Service;
Caption = 'Country/Region';
QuickEntry = false;
trigger OnValidate()
var
FormatAddress: Codeunit "Format Address";
begin
IsShipToCountyVisible := FormatAddress.UseCounty(Rec."Ship-to Country/Region Code");
end;
}
field("Ship-to Contact"; Rec."Ship-to Contact")
{
ApplicationArea = Service;
Caption = 'Contact';
Importance = Promoted;
}
}
field("Ship-to Phone"; Rec."Ship-to Phone")
{
ApplicationArea = Service;
Caption = 'Ship-to Phone/Phone 2';
ToolTip = 'Specifies the phone number of the address where the service items in the order are located.';
}
field("Ship-to Phone 2"; Rec."Ship-to Phone 2")
{
ApplicationArea = Service;
}
field("Ship-to E-Mail"; Rec."Ship-to E-Mail")
{
ApplicationArea = Service;
}
field("Location Code"; Rec."Location Code")
{
ApplicationArea = Location;
}
field("Shipment Method Code"; Rec."Shipment Method Code")
{
ApplicationArea = Service;
Visible = false;
}
field("Shipping Agent Code"; Rec."Shipping Agent Code")
{
ApplicationArea = Service;
Visible = false;
}
field("Shipping Agent Service Code"; Rec."Shipping Agent Service Code")
{
ApplicationArea = Service;
Visible = false;
}
}
group(Details)
{
Caption = 'Details';
field("Warning Status"; Rec."Warning Status")
{
ApplicationArea = Service;
Importance = Promoted;
}
field("Link Service to Service Item"; Rec."Link Service to Service Item")
{
ApplicationArea = Service;
}
field("Allocated Hours"; Rec."Allocated Hours")
{
ApplicationArea = Service;
}
field("No. of Allocations"; Rec."No. of Allocations")
{
ApplicationArea = Service;
}
field("No. of Unallocated Items"; Rec."No. of Unallocated Items")
{
ApplicationArea = Service;
}
field("Service Zone Code"; Rec."Service Zone Code")
{
ApplicationArea = Service;
}
field("Order Date"; Rec."Order Date")
{
ApplicationArea = Service;
trigger OnValidate()
begin
OrderDateOnAfterValidate();
end;
}
field("Order Time"; Rec."Order Time")
{
ApplicationArea = Service;
trigger OnValidate()
begin
OrderTimeOnAfterValidate();
end;
}
field("Starting Date"; Rec."Starting Date")
{
ApplicationArea = Service;
Importance = Promoted;
}
field("Starting Time"; Rec."Starting Time")
{
ApplicationArea = Service;
}
field("Actual Response Time (Hours)"; Rec."Actual Response Time (Hours)")
{
ApplicationArea = Service;
ToolTip = 'Specifies the number of hours from order creation, to when the service order status changes from Pending, to In Process.';
}
field("Finishing Date"; Rec."Finishing Date")
{
ApplicationArea = Service;
}
field("Finishing Time"; Rec."Finishing Time")
{
ApplicationArea = Service;
trigger OnValidate()
begin
FinishingTimeOnAfterValidate();
end;
}
}
group(" Foreign Trade")
{
Caption = ' Foreign Trade';
field("Currency Code"; Rec."Currency Code")
{
ApplicationArea = Service;
Importance = Promoted;
trigger OnAssistEdit()
begin
Clear(ChangeExchangeRate);
ChangeExchangeRate.SetParameter(Rec."Currency Code", Rec."Currency Factor", Rec."Posting Date");
if ChangeExchangeRate.RunModal() = ACTION::OK then begin
Rec.Validate("Currency Factor", ChangeExchangeRate.GetParameter());
CurrPage.Update();
end;
Clear(ChangeExchangeRate);
end;
}
field("Company Bank Account Code"; Rec."Company Bank Account Code")
{
ApplicationArea = Service;
Importance = Promoted;
}
field("EU 3-Party Trade"; Rec."EU 3-Party Trade")
{
ApplicationArea = BasicEU, BasicNO;
}
field("Transaction Type"; Rec."Transaction Type")
{
ApplicationArea = BasicEU, BasicNO;
}
field("Transaction Specification"; Rec."Transaction Specification")
{
ApplicationArea = BasicEU, BasicNO;
}
field("Transport Method"; Rec."Transport Method")
{
ApplicationArea = BasicEU, BasicNO;
}
field("Exit Point"; Rec."Exit Point")
{
ApplicationArea = BasicEU, BasicNO;
}
field("Area"; Rec.Area)
{
ApplicationArea = BasicEU, BasicNO;
}
}
}
area(factboxes)
{
part("Attached Documents List"; "Doc. Attachment List Factbox")
{
ApplicationArea = Service;
Caption = 'Documents';
UpdatePropagation = Both;
SubPageLink = "Table ID" = const(Database::"Service Header"),
"No." = field("No."),
"Document Type" = field("Document Type");
}
part(Control1902018507; "Customer Statistics FactBox")
{
ApplicationArea = Service;
SubPageLink = "No." = field("Bill-to Customer No."),
"Date Filter" = field("Date Filter");
Visible = false;
}
part(Control1900316107; "Customer Details FactBox")
{
ApplicationArea = Service;
SubPageLink = "No." = field("Customer No."),
"Date Filter" = field("Date Filter");
Visible = false;
}
part(Control1907829707; "Service Hist. Sell-to FactBox")
{
ApplicationArea = Service;
SubPageLink = "No." = field("Customer No."),
"Date Filter" = field("Date Filter");
Visible = true;
}
part(Control1902613707; "Service Hist. Bill-to FactBox")
{
ApplicationArea = Service;
SubPageLink = "No." = field("Bill-to Customer No."),
"Date Filter" = field("Date Filter");
Visible = false;
}
part(Control1906530507; "Service Item Line FactBox")
{
ApplicationArea = Service;
Provider = ServItemLine;
SubPageLink = "Document Type" = field("Document Type"),
"Document No." = field("Document No."),
"Line No." = field("Line No.");
Visible = true;
}
systempart(Control1900383207; Links)
{
ApplicationArea = RecordLinks;
Visible = false;
}
systempart(Control1905767507; Notes)
{
ApplicationArea = Notes;
Visible = true;
}
}
}
actions
{
area(navigation)
{
group("&Quote")
{
Caption = '&Quote';
Image = Quote;
action("&Dimensions")
{
AccessByPermission = TableData Dimension = R;
ApplicationArea = Dimensions;
Caption = '&Dimensions';
Enabled = Rec."No." <> '';
Image = Dimensions;
ShortCutKey = 'Alt+D';
ToolTip = 'View or edit dimensions, such as area, project, or department, that you can assign to journal lines to distribute costs and analyze transaction history.';
trigger OnAction()
begin
Rec.ShowDocDim();
CurrPage.SaveRecord();
end;
}
action("Co&mments")
{
ApplicationArea = Comments;
Caption = 'Co&mments';
Image = ViewComments;
RunObject = Page "Service Comment Sheet";
RunPageLink = "Table Name" = const("Service Header"),
"Table Subtype" = field("Document Type"),
"No." = field("No."),
Type = const(General);
ToolTip = 'View or add comments for the record.';
}
#if not CLEAN27
action(Statistics)
{
ApplicationArea = Service;
Caption = 'Statistics';
Image = Statistics;
ShortCutKey = 'F7';
ToolTip = 'View statistical information, such as the value of posted entries, for the record.';
ObsoleteReason = 'The statistics action will be replaced with the ServiceStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.';
ObsoleteState = Pending;
ObsoleteTag = '27.0';
trigger OnAction()
begin
Rec.OpenStatistics();
end;
}
#endif
action(ServiceStatistics)
{
ApplicationArea = Service;
Caption = 'Statistics';
Image = Statistics;
ShortCutKey = 'F7';
ToolTip = 'View statistical information, such as the value of posted entries, for the record.';
#if CLEAN27
Visible = true;
#else
Visible = false;
#endif
RunObject = Page "Service Statistics";
RunPageOnRec = true;
}
action("Customer Card")
{
ApplicationArea = Service;
Caption = 'Customer Card';
Image = Customer;
RunObject = Page "Customer Card";
RunPageLink = "No." = field("Customer No.");
ShortCutKey = 'Shift+F7';
ToolTip = 'View or edit detailed information for the customer.';
}
action(DocAttach)
{
ApplicationArea = Service;
Caption = 'Attachments';
Image = Attach;
ToolTip = 'Add a file as an attachment. You can attach images as well as documents.';
trigger OnAction()
var
DocumentAttachmentDetails: Page "Document Attachment Details";
RecRef: RecordRef;
begin
RecRef.GetTable(Rec);
DocumentAttachmentDetails.OpenForRecRef(RecRef);
DocumentAttachmentDetails.RunModal();
end;
}
action("Service Document Lo&g")
{
ApplicationArea = Service;
Caption = 'Service Document Lo&g';
Image = Log;
ToolTip = 'View a list of the service document changes that have been logged. The program creates entries in the window when, for example, the response time or service order status changed, a resource was allocated, a service order was shipped or invoiced, and so on. Each line in this window identifies the event that occurred to the service document. The line contains the information about the field that was changed, its old and new value, the date and time when the change took place, and the ID of the user who actually made the changes.';
trigger OnAction()
var
ServDocLog: Record "Service Document Log";
begin
ServDocLog.ShowServDocLog(Rec);
end;
}
}
}
area(processing)
{
group("F&unctions")
{
Caption = 'F&unctions';
Image = "Action";
action("&Create Customer")
{
ApplicationArea = Service;
Caption = '&Create Customer';
Image = NewCustomer;
ToolTip = 'Create a new customer card for the customer on the service document.';
trigger OnAction()
var
ServOrderMgt: Codeunit ServOrderManagement;
begin
ServOrderMgt.CreateNewCustomer(Rec);
CurrPage.Update(true);
end;
}
action("Archive Document")
{
ApplicationArea = Service;
Caption = 'Archi&ve Document';
Image = Archive;
ToolTip = 'Send the document to the archive, for example because it is too soon to delete it. Later, you delete or reprocess the archived document.';
trigger OnAction()
var
ServiceDocumentArchiveMgmt: Codeunit "Service Document Archive Mgmt.";
begin
ServiceDocumentArchiveMgmt.ArchiveServiceDocument(Rec);
CurrPage.Update(false);
end;
}
}
action("Make &Order")
{
ApplicationArea = Service;
Caption = 'Make &Order';
Image = MakeOrder;
ToolTip = 'Convert the service quote to a service order. The service order will contain the service quote number.';
trigger OnAction()
begin
CurrPage.Update();
Codeunit.Run(Codeunit::"Serv-Quote to Order (Yes/No)", Rec);
end;
}
action("&Print")
{
ApplicationArea = Service;
Caption = '&Print';
Ellipsis = true;
Image = Print;
ToolTip = 'Prepare to print the document. A report request window for the document opens where you can specify what to include on the print-out.';
trigger OnAction()
var
ServDocumentPrint: Codeunit "Serv. Document Print";
begin
CurrPage.Update(true);
ServDocumentPrint.PrintServiceHeader(Rec);
end;
}
action(AttachAsPDF)
{
ApplicationArea = Service;
Caption = 'Attach as PDF';
Ellipsis = true;
Image = PrintAttachment;
ToolTip = 'Create a PDF file and attach it to the document.';
trigger OnAction()
var
ServiceHeader: Record "Service Header";
ServDocumentPrint: Codeunit "Serv. Document Print";
begin
ServiceHeader := Rec;
ServiceHeader.SetRecFilter();
ServDocumentPrint.PrintServiceHeaderToDocumentAttachment(ServiceHeader);
end;
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process', Comment = 'Generated from the PromotedActionCategories property index 1.';
actionref("Make &Order_Promoted"; "Make &Order")
{
}
group(Category_CategoryPrint)
{
ShowAs = SplitButton;
actionref("&Print_Promoted"; "&Print")
{
}
actionref(AttachAsPDF_Promoted; AttachAsPDF)
{
}
}
actionref("&Create Customer_Promoted"; "&Create Customer")
{
}
actionref("Archive Document_Promoted"; "Archive Document")
{
}
}
group(Category_Category4)
{
Caption = 'Print/Send', Comment = 'Generated from the PromotedActionCategories property index 3.';
}
group(Category_Category5)
{
Caption = 'Quote', Comment = 'Generated from the PromotedActionCategories property index 4.';
actionref("&Dimensions_Promoted"; "&Dimensions")
{
}
#if not CLEAN27
actionref(Statistics_Promoted; Statistics)
{
ObsoleteReason = 'The statistics action will be replaced with the ServiceStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.';
ObsoleteState = Pending;
ObsoleteTag = '27.0';
}
#else
actionref(ServiceStatistics_Promoted; ServiceStatistics)
{
}
#endif
actionref("Co&mments_Promoted"; "Co&mments")
{
}
actionref(DocAttach_Promoted; DocAttach)
{
}
actionref("Service Document Lo&g_Promoted"; "Service Document Lo&g")
{
}
actionref("Customer Card_Promoted"; "Customer Card")
{
}
}
group(Category_Report)
{
Caption = 'Report', Comment = 'Generated from the PromotedActionCategories property index 2.';
}
}
}
trigger OnAfterGetCurrRecord()
begin
ActivateFields();
WorkDescription := Rec.GetWorkDescription();
end;
trigger OnDeleteRecord(): Boolean
begin
CurrPage.SaveRecord();
exit(Rec.ConfirmDeletion());
end;
trigger OnInsertRecord(BelowxRec: Boolean): Boolean
begin
if DocNoVisible then
Rec.CheckCreditMaxBeforeInsert(false);
end;
trigger OnNewRecord(BelowxRec: Boolean)
var
UserMgt: Codeunit "User Setup Management";
begin
Rec."Document Type" := Rec."Document Type"::Quote;
Rec."Responsibility Center" := UserMgt.GetServiceFilter();
if (not DocNoVisible) and (Rec."No." = '') then
Rec.SetCustomerFromFilter();
end;
trigger OnOpenPage()
begin
Rec.SetSecurityFilterOnRespCenter();
SetDocNoVisible();
end;
var
ChangeExchangeRate: Page "Change Exchange Rate";
WorkDescription: Text;
IsBillToCountyVisible: Boolean;
IsSellToCountyVisible: Boolean;
IsShipToCountyVisible: Boolean;
IsServiceLinesEditable: Boolean;
DocNoVisible: Boolean;
local procedure ActivateFields()
var
FormatAddress: Codeunit "Format Address";
begin
IsSellToCountyVisible := FormatAddress.UseCounty(Rec."Country/Region Code");
IsBillToCountyVisible := FormatAddress.UseCounty(Rec."Bill-to Country/Region Code");
IsShipToCountyVisible := FormatAddress.UseCounty(Rec."Ship-to Country/Region Code");
IsServiceLinesEditable := Rec.ServiceLinesEditable();
end;
local procedure SetDocNoVisible()
var
ServDocumentNoVisibility: Codeunit "Serv. Document No. Visibility";
DocType: Option Quote,"Order",Invoice,"Credit Memo",Contract;
begin
DocNoVisible := ServDocumentNoVisibility.ServiceDocumentNoIsVisible(DocType::Quote, Rec."No.");
end;
local procedure CustomerNoOnAfterValidate()
begin
if Rec.GetFilter("Customer No.") = xRec."Customer No." then
if Rec."Customer No." <> xRec."Customer No." then
Rec.SetRange("Customer No.");
IsServiceLinesEditable := Rec.ServiceLinesEditable();
CurrPage.Update();
end;
local procedure BilltoCustomerNoOnAfterValidat()
begin
CurrPage.Update();
end;
local procedure PricesIncludingVATOnAfterValid()
begin
CurrPage.Update();
end;
local procedure ShiptoCodeOnAfterValidate()
begin
CurrPage.Update();
end;
local procedure OrderTimeOnAfterValidate()
begin
Rec.UpdateResponseDateTime();
CurrPage.Update();
end;
local procedure OrderDateOnAfterValidate()
begin
Rec.UpdateResponseDateTime();
CurrPage.Update();
end;
local procedure FinishingTimeOnAfterValidate()
begin
CurrPage.Update(true);
end;
}