Table 5990 Service Shipment Header
- App
- Base Application
- Namespace
- Microsoft.Service.History
- Versions
- 17-28
Fields, 133Keys, 8Procedures, 10Events, 7Obsolete, 2
Versions171819202122232425262728
Source29
Source in 29
src/Layers/W1/BaseApp/Service/History/ServiceShipmentHeader.Table.al1084 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.History;
using Microsoft.Bank.BankAccount;
using Microsoft.Bank.Payment;
using Microsoft.CRM.Contact;
using Microsoft.CRM.Team;
using Microsoft.Finance.Currency;
using Microsoft.Finance.Dimension;
using Microsoft.Finance.GeneralLedger.Account;
using Microsoft.Finance.GeneralLedger.Journal;
using Microsoft.Finance.GeneralLedger.Setup;
using Microsoft.Finance.SalesTax;
using Microsoft.Finance.VAT.Setup;
using Microsoft.Foundation.Address;
using Microsoft.Foundation.AuditCodes;
using Microsoft.Foundation.Navigate;
using Microsoft.Foundation.NoSeries;
using Microsoft.Foundation.PaymentTerms;
using Microsoft.Foundation.Reporting;
using Microsoft.Foundation.Shipping;
using Microsoft.Inventory.Intrastat;
using Microsoft.Inventory.Journal;
using Microsoft.Inventory.Location;
using Microsoft.Pricing.Calculation;
using Microsoft.Projects.Resources.Journal;
using Microsoft.Projects.Resources.Resource;
using Microsoft.Sales.Customer;
using Microsoft.Sales.Pricing;
using Microsoft.Sales.Receivables;
using Microsoft.Service.Comment;
using Microsoft.Service.Contract;
using Microsoft.Service.Document;
using Microsoft.Service.Setup;
using Microsoft.Utilities;
using System.Email;
using System.Globalization;
using System.Reflection;
using System.Security.AccessControl;
using System.Security.User;
table 5990 "Service Shipment Header"
{
Caption = 'Service Shipment Header';
DataCaptionFields = "No.", Name;
DrillDownPageID = "Posted Service Shipments";
LookupPageID = "Posted Service Shipments";
DataClassification = CustomerContent;
fields
{
field(2; "Customer No."; Code[20])
{
Caption = 'Customer No.';
ToolTip = 'Specifies the number of the customer who owns the items on the service order.';
NotBlank = true;
TableRelation = Customer;
}
field(3; "No."; Code[20])
{
Caption = 'No.';
ToolTip = 'Specifies the number of the involved entry or record, according to the specified number series.';
}
field(4; "Bill-to Customer No."; Code[20])
{
Caption = 'Bill-to Customer No.';
ToolTip = 'Specifies the number of the customer that you send or sent the invoice or credit memo to.';
NotBlank = true;
TableRelation = Customer;
}
field(5; "Bill-to Name"; Text[100])
{
Caption = 'Bill-to Name';
ToolTip = 'Specifies the name of the customer that you send or sent the invoice or credit memo to.';
}
field(6; "Bill-to Name 2"; Text[50])
{
Caption = 'Bill-to Name 2';
ToolTip = 'Specifies an additional part of the name of the customer that you send or sent the invoice or credit memo to.';
}
field(7; "Bill-to Address"; Text[100])
{
Caption = 'Bill-to Address';
ToolTip = 'Specifies the address of the customer to whom you sent the invoice.';
}
field(8; "Bill-to Address 2"; Text[50])
{
Caption = 'Bill-to Address 2';
ToolTip = 'Specifies an additional line of the address.';
}
field(9; "Bill-to City"; Text[30])
{
Caption = 'Bill-to City';
ToolTip = 'Specifies the city of the address.';
TableRelation = "Post Code".City;
ValidateTableRelation = false;
}
field(10; "Bill-to Contact"; Text[100])
{
Caption = 'Bill-to Contact';
ToolTip = 'Specifies the name of the contact person at the customer''s billing address.';
}
field(11; "Your Reference"; Text[35])
{
Caption = 'Your Reference';
ToolTip = 'Specifies a reference to the customer.';
}
field(12; "Ship-to Code"; Code[10])
{
Caption = 'Ship-to Code';
ToolTip = 'Specifies a code for an alternate shipment address if you want to ship to another address than the one that has been entered automatically. This field is also used in case of drop shipment.';
TableRelation = "Ship-to Address".Code where("Customer No." = field("Customer No."));
}
field(13; "Ship-to Name"; Text[100])
{
Caption = 'Ship-to Name';
ToolTip = 'Specifies the name of the customer at the address that the items are shipped to.';
}
field(14; "Ship-to Name 2"; Text[50])
{
Caption = 'Ship-to Name 2';
ToolTip = 'Specifies an additional part of thethe name of the customer at the address that the items are shipped to.';
}
field(15; "Ship-to Address"; Text[100])
{
Caption = 'Ship-to Address';
ToolTip = 'Specifies the address that the items are shipped to.';
}
field(16; "Ship-to Address 2"; Text[50])
{
Caption = 'Ship-to Address 2';
ToolTip = 'Specifies an additional part of the ship-to address, in case it is a long address.';
}
field(17; "Ship-to City"; Text[30])
{
Caption = 'Ship-to City';
ToolTip = 'Specifies the city of the address that the items are shipped to.';
TableRelation = "Post Code".City;
ValidateTableRelation = false;
}
field(18; "Ship-to Contact"; Text[100])
{
Caption = 'Ship-to Contact';
ToolTip = 'Specifies the name of the contact person at the address that the items are shipped to.';
}
field(19; "Order Date"; Date)
{
Caption = 'Order Date';
ToolTip = 'Specifies the date when the related order was created.';
NotBlank = true;
}
field(20; "Posting Date"; Date)
{
Caption = 'Posting Date';
ToolTip = 'Specifies the date when the shipment was posted.';
}
field(22; "Posting Description"; Text[100])
{
Caption = 'Posting Description';
}
field(23; "Payment Terms Code"; Code[10])
{
Caption = 'Payment Terms Code';
TableRelation = "Payment Terms";
}
field(24; "Due Date"; Date)
{
Caption = 'Due Date';
}
field(25; "Payment Discount %"; Decimal)
{
AutoFormatType = 0;
Caption = 'Payment Discount %';
DecimalPlaces = 0 : 5;
MaxValue = 100;
MinValue = 0;
}
field(26; "Pmt. Discount Date"; Date)
{
Caption = 'Pmt. Discount Date';
}
#if not CLEAN28
#pragma warning disable AS0136
#endif
field(27; "Shipment Method Code"; Code[10])
#if not CLEAN28
#pragma warning restore AS0136
#endif
{
Caption = 'Shipment Method Code';
ToolTip = 'Specifies the code for the shipment method that is associated with the posted service shipment.';
TableRelation = "Shipment Method";
}
field(28; "Location Code"; Code[10])
{
Caption = 'Location Code';
ToolTip = 'Specifies the location, such as warehouse or distribution center, from where the items on the order were shipped.';
TableRelation = Location where("Use As In-Transit" = const(false));
}
field(29; "Shortcut Dimension 1 Code"; Code[20])
{
CaptionClass = '1,2,1';
Caption = 'Shortcut Dimension 1 Code';
ToolTip = 'Specifies the code for Shortcut Dimension 1, which is one of two global dimension codes that you set up in the General Ledger Setup window.';
TableRelation = "Dimension Value".Code where("Global Dimension No." = const(1));
}
field(30; "Shortcut Dimension 2 Code"; Code[20])
{
CaptionClass = '1,2,2';
Caption = 'Shortcut Dimension 2 Code';
ToolTip = 'Specifies the code for Shortcut Dimension 2, which is one of two global dimension codes that you set up in the General Ledger Setup window.';
TableRelation = "Dimension Value".Code where("Global Dimension No." = const(2));
}
field(31; "Customer Posting Group"; Code[20])
{
Caption = 'Customer Posting Group';
Editable = false;
TableRelation = "Customer Posting Group";
}
field(32; "Currency Code"; Code[10])
{
Caption = 'Currency Code';
ToolTip = 'Specifies the currency code for various amounts on the shipment.';
Editable = false;
TableRelation = Currency;
}
field(33; "Currency Factor"; Decimal)
{
AutoFormatType = 0;
Caption = 'Currency Factor';
DecimalPlaces = 0 : 15;
MinValue = 0;
}
field(34; "Customer Price Group"; Code[10])
{
Caption = 'Customer Price Group';
TableRelation = "Customer Price Group";
}
field(35; "Prices Including VAT"; Boolean)
{
Caption = 'Prices Including VAT';
}
field(37; "Invoice Disc. Code"; Code[20])
{
Caption = 'Invoice Disc. Code';
}
field(40; "Customer Disc. Group"; Code[20])
{
Caption = 'Customer Disc. Group';
TableRelation = "Customer Discount Group";
}
field(41; "Language Code"; Code[10])
{
Caption = 'Language Code';
TableRelation = Language;
}
field(42; "Format Region"; Text[80])
{
Caption = 'Format Region';
TableRelation = "Language Selection"."Language Tag";
}
field(43; "Salesperson Code"; Code[20])
{
Caption = 'Salesperson Code';
ToolTip = 'Specifies the code of the salesperson assigned to the service order.';
TableRelation = "Salesperson/Purchaser";
}
field(44; "Order No."; Code[20])
{
Caption = 'Order No.';
ToolTip = 'Specifies the number of the service order from which the shipment was created.';
}
field(46; Comment; Boolean)
{
CalcFormula = exist("Service Comment Line" where("Table Name" = const("Service Shipment Header"),
"No." = field("No."),
Type = const(General)));
Caption = 'Comment';
Editable = false;
FieldClass = FlowField;
}
field(47; "No. Printed"; Integer)
{
Caption = 'No. Printed';
ToolTip = 'Specifies how many times the document has been printed.';
Editable = false;
}
field(52; "Applies-to Doc. Type"; Enum "Gen. Journal Document Type")
{
Caption = 'Applies-to Doc. Type';
}
field(53; "Applies-to Doc. No."; Code[20])
{
Caption = 'Applies-to Doc. No.';
trigger OnLookup()
begin
CustLedgEntry.SetCurrentKey("Document No.");
CustLedgEntry.SetRange("Document Type", "Applies-to Doc. Type");
CustLedgEntry.SetRange("Document No.", "Applies-to Doc. No.");
OnLookupAppliestoDocNoOnAfterSetFilters(Rec, CustLedgEntry);
PAGE.Run(0, CustLedgEntry);
end;
}
field(55; "Bal. Account No."; Code[20])
{
Caption = 'Bal. Account No.';
TableRelation = if ("Bal. Account Type" = const("G/L Account")) "G/L Account"
else
if ("Bal. Account Type" = const("Bank Account")) "Bank Account";
}
field(70; "VAT Registration No."; Text[20])
{
Caption = 'VAT Registration No.';
}
field(73; "Reason Code"; Code[10])
{
Caption = 'Reason Code';
TableRelation = "Reason Code";
}
field(74; "Gen. Bus. Posting Group"; Code[20])
{
Caption = 'Gen. Bus. Posting Group';
TableRelation = "Gen. Business Posting Group";
}
field(75; "EU 3-Party Trade"; Boolean)
{
Caption = 'EU 3-Party Trade';
ToolTip = 'Specifies if the transaction is related to trade with a third party within the EU.';
}
field(76; "Transaction Type"; Code[10])
{
Caption = 'Transaction Type';
TableRelation = "Transaction Type";
}
field(77; "Transport Method"; Code[10])
{
Caption = 'Transport Method';
TableRelation = "Transport Method";
}
field(78; "VAT Country/Region Code"; Code[10])
{
Caption = 'VAT Country/Region Code';
TableRelation = "Country/Region";
}
field(79; Name; Text[100])
{
Caption = 'Name';
ToolTip = 'Specifies the name of the customer.';
}
field(80; "Name 2"; Text[50])
{
Caption = 'Name 2';
ToolTip = 'Specifies an additional part of the name of the customer on the posted service shipment.';
}
field(81; Address; Text[100])
{
Caption = 'Address';
ToolTip = 'Specifies the address of the customer of the posted service shipment.';
}
field(82; "Address 2"; Text[50])
{
Caption = 'Address 2';
ToolTip = 'Specifies additional address information.';
}
field(83; City; Text[30])
{
Caption = 'City';
ToolTip = 'Specifies the city of the address.';
TableRelation = "Post Code".City;
ValidateTableRelation = false;
}
field(84; "Contact Name"; Text[100])
{
Caption = 'Contact Name';
ToolTip = 'Specifies the name of the contact person at the customer company.';
}
field(85; "Bill-to Post Code"; Code[20])
{
Caption = 'Bill-to Post Code';
ToolTip = 'Specifies the postal code of the customer''s billing address.';
TableRelation = "Post Code";
ValidateTableRelation = false;
}
field(86; "Bill-to County"; Text[30])
{
CaptionClass = '5,3,' + "Bill-to Country/Region Code";
Caption = 'Bill-to County';
ToolTip = 'Specifies the state, province or county for the customer that the invoice is sent to.';
}
field(87; "Bill-to Country/Region Code"; Code[10])
{
Caption = 'Bill-to Country/Region Code';
ToolTip = 'Specifies the country/region code of the customer''s billing address.';
TableRelation = "Country/Region";
}
field(88; "Post Code"; Code[20])
{
Caption = 'Post Code';
ToolTip = 'Specifies the postal code.';
TableRelation = "Post Code";
ValidateTableRelation = false;
}
field(89; County; Text[30])
{
CaptionClass = '5,1,' + "Country/Region Code";
Caption = 'County';
ToolTip = 'Specifies the state, province or county related to the posted service shipment.';
}
field(90; "Country/Region Code"; Code[10])
{
Caption = 'Country/Region Code';
ToolTip = 'Specifies the country/region of the address.';
TableRelation = "Country/Region";
}
field(91; "Ship-to Post Code"; Code[20])
{
Caption = 'Ship-to Post Code';
ToolTip = 'Specifies the postal code of the address that the items are shipped to.';
TableRelation = "Post Code";
ValidateTableRelation = false;
}
field(92; "Ship-to County"; Text[30])
{
CaptionClass = '5,4,' + "Ship-to Country/Region Code";
Caption = 'Ship-to County';
}
field(93; "Ship-to Country/Region Code"; Code[10])
{
Caption = 'Ship-to Country/Region Code';
ToolTip = 'Specifies the country/region code of the address that the items are shipped to.';
TableRelation = "Country/Region";
}
field(94; "Bal. Account Type"; enum "Payment Balance Account Type")
{
Caption = 'Bal. Account Type';
}
field(97; "Exit Point"; Code[10])
{
Caption = 'Exit Point';
TableRelation = "Entry/Exit Point";
}
field(98; Correction; Boolean)
{
Caption = 'Correction';
}
field(99; "Document Date"; Date)
{
Caption = 'Document Date';
ToolTip = 'Specifies the date when the related document was created.';
}
field(100; "External Document No."; Code[35])
{
Caption = 'External Document No.';
ToolTip = 'Specifies the external document number that is entered on the service header that this line was posted from.';
}
field(101; "Area"; Code[10])
{
Caption = 'Area';
TableRelation = Area;
}
field(102; "Transaction Specification"; Code[10])
{
Caption = 'Transaction Specification';
TableRelation = "Transaction Specification";
}
field(104; "Payment Method Code"; Code[10])
{
Caption = 'Payment Method Code';
TableRelation = "Payment Method";
}
#pragma warning disable AS0136
field(105; "Shipping Agent Code"; Code[10])
#pragma warning restore AS0136
{
Caption = 'Shipping Agent Code';
ToolTip = 'Specifies the code of the shipping agent for the posted service shipment.';
TableRelation = "Shipping Agent";
}
field(109; "No. Series"; Code[20])
{
Caption = 'No. Series';
Editable = false;
TableRelation = "No. Series";
}
field(110; "Order No. Series"; Code[20])
{
Caption = 'Order No. Series';
TableRelation = "No. Series";
}
field(112; "User ID"; Code[50])
{
Caption = 'User ID';
DataClassification = EndUserIdentifiableInformation;
TableRelation = User."User Name";
}
field(113; "Source Code"; Code[10])
{
Caption = 'Source Code';
TableRelation = "Source Code";
}
field(114; "Tax Area Code"; Code[20])
{
Caption = 'Tax Area Code';
TableRelation = "Tax Area";
}
field(115; "Tax Liable"; Boolean)
{
Caption = 'Tax Liable';
}
field(116; "VAT Bus. Posting Group"; Code[20])
{
Caption = 'VAT Bus. Posting Group';
TableRelation = "VAT Business Posting Group";
}
field(119; "VAT Base Discount %"; Decimal)
{
AutoFormatType = 0;
Caption = 'VAT Base Discount %';
DecimalPlaces = 0 : 5;
MaxValue = 100;
MinValue = 0;
}
field(129; "Company Bank Account Code"; Code[20])
{
Caption = 'Company Bank Account Code';
TableRelation = "Bank Account" where("Currency Code" = field("Currency Code"));
}
field(200; "Work Description"; BLOB)
{
Caption = 'Work Description';
DataClassification = CustomerContent;
}
field(480; "Dimension Set ID"; Integer)
{
Caption = 'Dimension Set ID';
Editable = false;
TableRelation = "Dimension Set Entry";
trigger OnLookup()
begin
Rec.ShowDimensions();
end;
}
field(5052; "Contact No."; Code[20])
{
Caption = 'Contact No.';
ToolTip = 'Specifies the number of the contact person at the customer''s site.';
TableRelation = Contact;
}
field(5053; "Bill-to Contact No."; Code[20])
{
Caption = 'Bill-to Contact No.';
TableRelation = Contact;
}
field(5700; "Responsibility Center"; Code[10])
{
Caption = 'Responsibility Center';
ToolTip = 'Specifies the code of the responsibility center, such as a distribution hub, that is associated with the involved user, company, customer, or vendor.';
TableRelation = "Responsibility Center";
}
field(5794; "Shipping Agent Service Code"; Code[10])
{
Caption = 'Shipping Agent Service Code';
ToolTip = 'Specifies which shipping agent service is used to transport the items on the service document to the customer.';
TableRelation = "Shipping Agent Services".Code where("Shipping Agent Code" = field("Shipping Agent Code"));
}
field(5796; "Date Filter"; Date)
{
Caption = 'Date Filter';
FieldClass = FlowFilter;
}
field(5902; Description; Text[100])
{
Caption = 'Description';
ToolTip = 'Specifies a description of the order from which the shipment was posted.';
}
field(5904; "Service Order Type"; Code[10])
{
Caption = 'Service Order Type';
ToolTip = 'Specifies the type of the service order from which the shipment was created.';
TableRelation = "Service Order Type";
}
field(5905; "Link Service to Service Item"; Boolean)
{
Caption = 'Link Service to Service Item';
ToolTip = 'Specifies the value in this field from the Link Service to Service Item field on the service header.';
}
field(5907; Priority; Option)
{
Caption = 'Priority';
ToolTip = 'Specifies the priority of the posted service order.';
Editable = false;
OptionCaption = 'Low,Medium,High';
OptionMembers = Low,Medium,High;
}
field(5911; "Allocated Hours"; Decimal)
{
AutoFormatType = 0;
CalcFormula = sum("Service Order Allocation"."Allocated Hours" where("Document Type" = const(Order),
"Document No." = field("Order No."),
"Resource No." = field("Resource Filter"),
"Resource Group No." = field("Resource Group Filter"),
Status = filter(Active | Finished)));
Caption = 'Allocated Hours';
ToolTip = 'Specifies the number of hours allocated to the items within the posted service order.';
DecimalPlaces = 0 : 5;
Editable = false;
FieldClass = FlowField;
}
field(5915; "Phone No."; Text[30])
{
Caption = 'Phone No.';
ToolTip = 'Specifies the customer phone number.';
ExtendedDatatype = PhoneNo;
}
field(5916; "E-Mail"; Text[80])
{
Caption = 'Email';
ToolTip = 'Specifies the email address of the customer.';
ExtendedDatatype = EMail;
trigger OnValidate()
var
MailManagement: Codeunit "Mail Management";
begin
MailManagement.ValidateEmailAddressField("E-Mail");
end;
}
field(5917; "Phone No. 2"; Text[30])
{
Caption = 'Phone No. 2';
ToolTip = 'Specifies your customer''s alternate phone number.';
ExtendedDatatype = PhoneNo;
}
field(5918; "Fax No."; Text[30])
{
Caption = 'Fax No.';
}
field(5921; "No. of Unallocated Items"; Integer)
{
CalcFormula = count("Service Item Line" where("Document Type" = const(Order),
"Document No." = field("No."),
"No. of Active/Finished Allocs" = const(0)));
Caption = 'No. of Unallocated Items';
Editable = false;
FieldClass = FlowField;
}
field(5923; "Order Time"; Time)
{
Caption = 'Order Time';
ToolTip = 'Specifies the time when the service order was created.';
}
field(5924; "Default Response Time (Hours)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Default Response Time (Hours)';
DecimalPlaces = 0 : 5;
MinValue = 0;
}
field(5925; "Actual Response Time (Hours)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Actual Response Time (Hours)';
DecimalPlaces = 0 : 5;
Editable = false;
MinValue = 0;
}
field(5926; "Service Time (Hours)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Service Time (Hours)';
DecimalPlaces = 0 : 5;
Editable = false;
}
field(5927; "Response Date"; Date)
{
Caption = 'Response Date';
ToolTip = 'Specifies the approximate date when work on the service order started.';
Editable = false;
}
field(5928; "Response Time"; Time)
{
Caption = 'Response Time';
ToolTip = 'Specifies the approximate time when work on the service order started.';
Editable = false;
}
field(5929; "Starting Date"; Date)
{
Caption = 'Starting Date';
ToolTip = 'Specifies the starting date of the service on the shipment.';
}
field(5930; "Starting Time"; Time)
{
Caption = 'Starting Time';
ToolTip = 'Specifies the starting time of the service on the shipment.';
}
field(5931; "Finishing Date"; Date)
{
Caption = 'Finishing Date';
ToolTip = 'Specifies the date when the service is finished.';
}
field(5932; "Finishing Time"; Time)
{
Caption = 'Finishing Time';
ToolTip = 'Specifies the time when the service is finished.';
}
field(5933; "Contract Serv. Hours Exist"; Boolean)
{
CalcFormula = exist("Service Hour" where("Service Contract No." = field("Contract No.")));
Caption = 'Contract Serv. Hours Exist';
Editable = false;
FieldClass = FlowField;
}
field(5934; "Reallocation Needed"; Boolean)
{
CalcFormula = exist("Service Order Allocation" where(Status = const("Reallocation Needed"),
"Resource No." = field("Resource Filter"),
"Document Type" = const(Order),
"Document No." = field("No."),
"Resource Group No." = field("Resource Group Filter")));
Caption = 'Reallocation Needed';
Editable = false;
FieldClass = FlowField;
}
field(5936; "Notify Customer"; Option)
{
Caption = 'Notify Customer';
ToolTip = 'Specifies in what way the customer wants to receive notifications about the service completed.';
OptionCaption = 'No,By Phone 1,By Phone 2,By Fax,By Email';
OptionMembers = No,"By Phone 1","By Phone 2","By Fax","By Email";
}
field(5937; "Max. Labor Unit Price"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 2;
BlankZero = true;
Caption = 'Max. Labor Unit Price';
}
field(5938; "Warning Status"; Option)
{
Caption = 'Warning Status';
ToolTip = 'Specifies the warning status for the response time on the original service order.';
OptionCaption = ' ,First Warning,Second Warning,Third Warning';
OptionMembers = " ","First Warning","Second Warning","Third Warning";
}
field(5939; "No. of Allocations"; Integer)
{
CalcFormula = count("Service Order Allocation" where("Document Type" = const(Order),
"Document No." = field("No."),
"Resource No." = field("Resource Filter"),
"Resource Group No." = field("Resource Group Filter"),
Status = filter(Active | Finished)));
Caption = 'No. of Allocations';
Editable = false;
FieldClass = FlowField;
}
field(5940; "Contract No."; Code[20])
{
Caption = 'Contract No.';
ToolTip = 'Specifies the number of the contract associated with the service order.';
TableRelation = "Service Contract Header"."Contract No." where("Contract Type" = const(Contract),
"Customer No." = field("Customer No."),
"Ship-to Code" = field("Ship-to Code"),
"Bill-to Customer No." = field("Bill-to Customer No."));
}
field(5951; "Type Filter"; Option)
{
Caption = 'Type Filter';
FieldClass = FlowFilter;
OptionCaption = ' ,Resource,Item,Service Cost,Service Contract';
OptionMembers = " ",Resource,Item,"Service Cost","Service Contract";
}
field(5952; "Customer Filter"; Code[20])
{
Caption = 'Customer Filter';
FieldClass = FlowFilter;
TableRelation = Customer."No.";
}
field(5953; "Resource Filter"; Code[20])
{
Caption = 'Resource Filter';
FieldClass = FlowFilter;
TableRelation = Resource;
}
field(5954; "Contract Filter"; Code[20])
{
Caption = 'Contract Filter';
FieldClass = FlowFilter;
TableRelation = "Service Contract Header"."Contract No." where("Contract Type" = const(Contract));
}
field(5955; "Ship-to Fax No."; Text[30])
{
Caption = 'Ship-to Fax No.';
}
field(5956; "Ship-to E-Mail"; Text[80])
{
Caption = 'Ship-to Email';
ToolTip = 'Specifies the email address at the address that the items are shipped to.';
ExtendedDatatype = EMail;
trigger OnValidate()
var
MailManagement: Codeunit "Mail Management";
begin
MailManagement.ValidateEmailAddressField("Ship-to E-Mail");
end;
}
field(5957; "Resource Group Filter"; Code[20])
{
Caption = 'Resource Group Filter';
FieldClass = FlowFilter;
TableRelation = "Resource Group";
}
field(5958; "Ship-to Phone"; Text[30])
{
Caption = 'Ship-to Phone';
ToolTip = 'Specifies the customer phone number.';
ExtendedDatatype = PhoneNo;
}
field(5959; "Ship-to Phone 2"; Text[30])
{
Caption = 'Ship-to Phone 2';
ToolTip = 'Specifies an additional phone number at address that the items are shipped to.';
ExtendedDatatype = PhoneNo;
}
field(5966; "Service Zone Filter"; Code[10])
{
Caption = 'Service Zone Filter';
FieldClass = FlowFilter;
TableRelation = "Service Zone".Code;
}
field(5968; "Service Zone Code"; Code[10])
{
Caption = 'Service Zone Code';
ToolTip = 'Specifies the service zone code assigned to the customer.';
TableRelation = "Service Zone".Code;
}
field(5981; "Expected Finishing Date"; Date)
{
Caption = 'Expected Finishing Date';
ToolTip = 'Specifies the date when service on the order is expected to be finished.';
}
field(7000; "Price Calculation Method"; Enum "Price Calculation Method")
{
Caption = 'Price Calculation Method';
}
field(7001; "Allow Line Disc."; Boolean)
{
Caption = 'Allow Line Disc.';
}
field(9001; "Quote No."; Code[20])
{
Caption = 'Quote No.';
ToolTip = 'Specifies the number of the service quote document if a quote was used to start the service process.';
}
}
keys
{
key(Key1; "No.")
{
Clustered = true;
}
key(Key2; "Customer No.", "Posting Date")
{
}
key(Key3; "Order No.")
{
}
key(Key4; "Bill-to Customer No.")
{
}
key(Key5; "Customer No.", "No.")
{
}
key(Key6; "Contract No.", "Posting Date")
{
}
key(Key7; "Responsibility Center", "Posting Date")
{
}
key(Key8; "Posting Date")
{
}
}
fieldgroups
{
fieldgroup(DropDown; "No.", "Customer No.", "Contract No.", "Posting Date")
{
}
}
trigger OnDelete()
var
CertificateOfSupply: Record "Certificate of Supply";
begin
TestField("No. Printed");
LockTable();
ServShptItemLine.Reset();
ServShptItemLine.SetRange("No.", "No.");
ServShptItemLine.DeleteAll();
ServShptLine.Reset();
ServShptLine.SetRange("Document No.", "No.");
ServShptLine.DeleteAll();
ServCommentLine.Reset();
ServCommentLine.SetRange("Table Name", ServCommentLine."Table Name"::"Service Shipment Header");
ServCommentLine.SetRange("No.", "No.");
ServCommentLine.DeleteAll();
if CertificateOfSupply.Get(CertificateOfSupply."Document Type"::"Service Shipment", "No.") then
CertificateOfSupply.Delete(true);
end;
var
CustLedgEntry: Record "Cust. Ledger Entry";
ServCommentLine: Record "Service Comment Line";
ServShptItemLine: Record "Service Shipment Item Line";
ServShptHeader: Record "Service Shipment Header";
ServShptLine: Record "Service Shipment Line";
DimMgt: Codeunit DimensionManagement;
UserSetupMgt: Codeunit "User Setup Management";
procedure PrintRecords(ShowRequestForm: Boolean)
var
ReportSelection: Record "Report Selections";
IsHandled: Boolean;
begin
ServShptHeader.Copy(Rec);
IsHandled := false;
OnBeforePrintRecords(ServShptHeader, ShowRequestForm, IsHandled);
if IsHandled then
exit;
ReportSelection.PrintWithDialogForCust(
ReportSelection.Usage::"SM.Shipment", ServShptHeader, ShowRequestForm, ServShptHeader.FieldNo("Bill-to Customer No."));
end;
procedure Navigate()
var
NavigatePage: Page Navigate;
begin
NavigatePage.SetDoc("Posting Date", "No.");
NavigatePage.SetRec(Rec);
NavigatePage.Run();
end;
procedure ShowDimensions()
begin
DimMgt.ShowDimensionSet("Dimension Set ID", StrSubstNo('%1 %2', TableCaption(), "No."));
end;
procedure SetSecurityFilterOnRespCenter()
var
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeSetSecurityFilterOnRespCenter(Rec, IsHandled);
if IsHandled then
exit;
if UserSetupMgt.GetServiceFilter() <> '' then begin
FilterGroup(2);
SetRange("Responsibility Center", UserSetupMgt.GetServiceFilter());
FilterGroup(0);
end;
SetRange("Date Filter", 0D, WorkDate() - 1);
end;
#if not CLEAN27
[Obsolete('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.', '27.0')]
procedure OpenStatistics()
var
StatPageID: Integer;
begin
StatPageID := Page::"Service Shipment Statistics";
OnOpenStatisticsOnAfterSetStatPageID(Rec, StatPageID);
Page.RunModal(StatPageID, Rec);
end;
#endif
[IntegrationEvent(false, false)]
local procedure OnBeforeSetSecurityFilterOnRespCenter(var ServiceShipmentHeader: Record "Service Shipment Header"; var IsHandled: Boolean)
begin
end;
procedure CopyToItemJnlLine(var ItemJournalLine: Record "Item Journal Line")
begin
ItemJournalLine."Document Date" := Rec."Document Date";
ItemJournalLine."Order Date" := Rec."Order Date";
ItemJournalLine."Country/Region Code" := Rec."VAT Country/Region Code";
ItemJournalLine."Source Posting Group" := Rec."Customer Posting Group";
ItemJournalLine."Salespers./Purch. Code" := Rec."Salesperson Code";
ItemJournalLine."Reason Code" := Rec."Reason Code";
OnAfterCopyToItemJnlLine(ItemJournalLine, Rec);
end;
procedure CopyToResJournalLine(var ResJournalLine: Record "Res. Journal Line")
begin
ResJournalLine."Document Date" := ServShptHeader."Document Date";
ResJournalLine."Reason Code" := ServShptHeader."Reason Code";
ResJournalLine."Source Type" := ResJournalLine."Source Type"::Customer;
ResJournalLine."Source No." := ServShptHeader."Customer No.";
OnAfterCopyToResJournalLine(ResJournalLine, Rec);
end;
procedure InitCertificateOfSupply(var CertificateOfSupply: Record "Certificate of Supply")
begin
if not CertificateOfSupply.Get(CertificateOfSupply."Document Type"::"Service Shipment", Rec."No.") then begin
CertificateOfSupply.Init();
CertificateOfSupply."Document Type" := CertificateOfSupply."Document Type"::"Service Shipment";
CertificateOfSupply."Document No." := Rec."No.";
CertificateOfSupply."Customer/Vendor Name" := Rec."Ship-to Name";
CertificateOfSupply."Shipment Method Code" := '';
CertificateOfSupply."Shipment/Posting Date" := Rec."Posting Date";
CertificateOfSupply."Ship-to Country/Region Code" := Rec."Ship-to Country/Region Code";
CertificateOfSupply."Customer/Vendor No." := Rec."Bill-to Customer No.";
OnAfterInitCertificateOfSupply(CertificateOfSupply, Rec);
CertificateOfSupply.Insert(true);
end
end;
procedure IsCompletelyInvoiced(): Boolean
var
ServiceShipmentLine: Record "Service Shipment Line";
begin
ServiceShipmentLine.SetRange("Document No.", "No.");
ServiceShipmentLine.SetFilter("Qty. Shipped Not Invoiced", '<>0');
exit(ServiceShipmentLine.IsEmpty());
end;
procedure GetWorkDescription(): Text
var
TypeHelper: Codeunit "Type Helper";
InStream: InStream;
begin
CalcFields("Work Description");
"Work Description".CreateInStream(InStream, TEXTENCODING::UTF8);
exit(TypeHelper.TryReadAsTextWithSepAndFieldErrMsg(InStream, TypeHelper.LFSeparator(), FieldName("Work Description")));
end;
[IntegrationEvent(false, false)]
local procedure OnAfterCopyToItemJnlLine(var ItemJournalLine: Record "Item Journal Line"; ServiceShipmentHeader: Record "Service Shipment Header")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnAfterCopyToResJournalLine(var ResJournalLine: Record "Res. Journal Line"; ServiceShipmentHeader: Record "Service Shipment Header")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnAfterInitCertificateOfSupply(var CertificateOfSupply: Record "Certificate of Supply"; ServiceShipmentHeader: Record "Service Shipment Header")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforePrintRecords(var ServiceShipmentHeader: Record "Service Shipment Header"; ShowRequestForm: Boolean; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnLookupAppliestoDocNoOnAfterSetFilters(ServiceShipmentHeader: Record "Service Shipment Header"; var CustLedgerEntry: Record "Cust. Ledger Entry")
begin
end;
#if not CLEAN27
[Obsolete('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.', '27.0')]
[IntegrationEvent(false, false)]
local procedure OnOpenStatisticsOnAfterSetStatPageID(var ServiceShipmentHeader: Record "Service Shipment Header"; var StatPageID: Integer);
begin
end;
#endif
}