Table 6012 Service Line Archive, source in 29
Source29
src/Layers/W1/BaseApp/Service/Archive/ServiceLineArchive.Table.al1077 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.Archive;
using Microsoft.Finance.Currency;
using Microsoft.Finance.Dimension;
using Microsoft.Finance.GeneralLedger.Account;
using Microsoft.Finance.GeneralLedger.Setup;
using Microsoft.Finance.SalesTax;
using Microsoft.Finance.VAT.Clause;
using Microsoft.Finance.VAT.Setup;
using Microsoft.Foundation.AuditCodes;
using Microsoft.Foundation.Enums;
using Microsoft.Foundation.Shipping;
using Microsoft.Foundation.UOM;
using Microsoft.Inventory.Intrastat;
using Microsoft.Inventory.Item;
using Microsoft.Inventory.Item.Catalog;
using Microsoft.Inventory.Location;
using Microsoft.Inventory.Tracking;
using Microsoft.Pricing.Calculation;
using Microsoft.Projects.Project.Job;
using Microsoft.Projects.Resources.Resource;
using Microsoft.Projects.TimeSheet;
using Microsoft.Sales.Customer;
using Microsoft.Sales.Pricing;
using Microsoft.Service.Contract;
using Microsoft.Service.Document;
using Microsoft.Service.Item;
using Microsoft.Service.Maintenance;
using Microsoft.Service.Pricing;
using Microsoft.Utilities;
using Microsoft.Warehouse.Structure;
using System.Reflection;
table 6012 "Service Line Archive"
{
Caption = 'Service Line Archive';
PasteIsValid = false;
DataClassification = CustomerContent;
fields
{
field(1; "Document Type"; Enum "Service Document Type")
{
Caption = 'Document Type';
}
field(2; "Customer No."; Code[20])
{
Caption = 'Customer No.';
Editable = false;
TableRelation = Customer;
}
field(3; "Document No."; Code[20])
{
Caption = 'Document No.';
TableRelation = "Service Header Archive"."No." where("Document Type" = field("Document Type"),
"Doc. No. Occurrence" = field("Doc. No. Occurrence"),
"Version No." = field("Version No."));
}
field(4; "Line No."; Integer)
{
Caption = 'Line No.';
}
field(5; Type; Enum "Service Line Type")
{
Caption = 'Type';
ToolTip = 'Specifies the type of the service line.';
}
field(6; "No."; Code[20])
{
Caption = 'No.';
ToolTip = 'Specifies the number of the involved entry or record, according to the specified number series.';
TableRelation = if (Type = const(" ")) "Standard Text"
else
if (Type = const("G/L Account")) "G/L Account"
else
if (Type = const(Item)) Item
else
if (Type = const(Resource)) Resource
else
if (Type = const(Cost)) "Service Cost";
}
field(7; "Location Code"; Code[10])
{
Caption = 'Location Code';
ToolTip = 'Specifies the inventory location from where the items on the line should be taken and where they should be registered.';
TableRelation = Location;
}
field(8; "Posting Group"; Code[20])
{
Caption = 'Posting Group';
ToolTip = 'Specifies the inventory posting group assigned to the item.';
Editable = false;
TableRelation = if (Type = const(Item)) "Inventory Posting Group";
}
field(11; Description; Text[100])
{
Caption = 'Description';
ToolTip = 'Specifies the description of an item, resource, cost, or a standard text on the line.';
}
field(12; "Description 2"; Text[50])
{
Caption = 'Description 2';
ToolTip = 'Specifies an additional description of the item, resource, or cost.';
}
field(13; "Unit of Measure"; Text[50])
{
Caption = 'Unit of Measure';
}
field(15; Quantity; Decimal)
{
AutoFormatType = 0;
Caption = 'Quantity';
ToolTip = 'Specifies the number of item units, resource hours, cost on the service line.';
DecimalPlaces = 0 : 5;
}
field(16; "Outstanding Quantity"; Decimal)
{
AutoFormatType = 0;
Caption = 'Outstanding Quantity';
DecimalPlaces = 0 : 5;
Editable = false;
}
field(17; "Qty. to Invoice"; Decimal)
{
AutoFormatType = 0;
Caption = 'Qty. to Invoice';
DecimalPlaces = 0 : 5;
}
field(18; "Qty. to Ship"; Decimal)
{
AutoFormatType = 0;
Caption = 'Qty. to Ship';
DecimalPlaces = 0 : 5;
}
field(22; "Unit Price"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 2;
CaptionClass = GetCaptionClass(FieldNo("Unit Price"));
Caption = 'Unit Price';
ToolTip = 'Specifies the price of one unit of the item or resource. You can enter a price manually or have it entered according to the Price/Profit Calculation field on the related card.';
}
field(23; "Unit Cost (LCY)"; Decimal)
{
AutoFormatExpression = '';
AutoFormatType = 2;
Caption = 'Unit Cost (LCY)';
}
field(25; "VAT %"; Decimal)
{
AutoFormatType = 0;
Caption = 'VAT %';
ToolTip = 'Specifies the VAT percentage used to calculate Amount Including VAT on this line.';
DecimalPlaces = 0 : 5;
Editable = false;
}
field(27; "Line Discount %"; Decimal)
{
AutoFormatType = 0;
Caption = 'Line Discount %';
ToolTip = 'Specifies the discount percentage that is granted for the item on the line.';
DecimalPlaces = 0 : 5;
MaxValue = 100;
MinValue = 0;
}
field(28; "Line Discount Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Line Discount Amount';
ToolTip = 'Specifies the discount amount that is granted for the item on the line.';
}
field(29; Amount; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Amount';
Editable = false;
}
field(30; "Amount Including VAT"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Amount Including VAT';
ToolTip = 'Specifies the net amount, including VAT, for this line.';
Editable = false;
}
field(32; "Allow Invoice Disc."; Boolean)
{
Caption = 'Allow Invoice Disc.';
ToolTip = 'Specifies if the invoice line is included when the invoice discount is calculated.';
InitValue = true;
}
field(34; "Gross Weight"; Decimal)
{
AutoFormatType = 0;
Caption = 'Gross Weight';
DecimalPlaces = 0 : 5;
}
field(35; "Net Weight"; Decimal)
{
AutoFormatType = 0;
Caption = 'Net Weight';
DecimalPlaces = 0 : 5;
}
field(36; "Units per Parcel"; Decimal)
{
AutoFormatType = 0;
Caption = 'Units per Parcel';
DecimalPlaces = 0 : 5;
}
field(37; "Unit Volume"; Decimal)
{
AutoFormatType = 0;
Caption = 'Unit Volume';
DecimalPlaces = 0 : 5;
}
field(38; "Appl.-to Item Entry"; Integer)
{
AccessByPermission = TableData Item = R;
Caption = 'Appl.-to Item Entry';
}
field(40; "Shortcut Dimension 1 Code"; Code[20])
{
CaptionClass = '1,2,1';
Caption = 'Shortcut Dimension 1 Code';
TableRelation = "Dimension Value".Code where("Global Dimension No." = const(1));
}
field(41; "Shortcut Dimension 2 Code"; Code[20])
{
CaptionClass = '1,2,2';
Caption = 'Shortcut Dimension 2 Code';
TableRelation = "Dimension Value".Code where("Global Dimension No." = const(2));
}
field(42; "Customer Price Group"; Code[10])
{
Caption = 'Customer Price Group';
Editable = false;
TableRelation = "Customer Price Group";
}
field(45; "Job No."; Code[20])
{
Caption = 'Project No.';
TableRelation = Job."No.";
}
field(46; "Job Task No."; Code[20])
{
Caption = 'Project Task No.';
TableRelation = "Job Task"."Job Task No." where("Job No." = field("Job No."));
}
field(47; "Job Line Type"; Enum "Job Line Type")
{
Caption = 'Project Line Type';
}
field(52; "Work Type Code"; Code[10])
{
Caption = 'Work Type Code';
ToolTip = 'Specifies a code for the type of work performed by the resource registered on this line.';
TableRelation = "Work Type";
}
field(57; "Outstanding Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Outstanding Amount';
Editable = false;
}
field(58; "Qty. Shipped Not Invoiced"; Decimal)
{
AutoFormatType = 0;
Caption = 'Qty. Shipped Not Invoiced';
DecimalPlaces = 0 : 5;
Editable = false;
}
field(59; "Shipped Not Invoiced"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Shipped Not Invoiced';
Editable = false;
}
field(60; "Quantity Shipped"; Decimal)
{
AutoFormatType = 0;
Caption = 'Quantity Shipped';
DecimalPlaces = 0 : 5;
Editable = false;
}
field(61; "Quantity Invoiced"; Decimal)
{
AutoFormatType = 0;
Caption = 'Quantity Invoiced';
DecimalPlaces = 0 : 5;
Editable = false;
}
field(63; "Shipment No."; Code[20])
{
Caption = 'Shipment No.';
}
field(64; "Shipment Line No."; Integer)
{
Caption = 'Shipment Line No.';
Editable = false;
}
field(65; "Order No."; Code[20])
{
Caption = 'Order No.';
}
field(68; "Bill-to Customer No."; Code[20])
{
Caption = 'Bill-to Customer No.';
Editable = false;
TableRelation = Customer;
}
field(69; "Inv. Discount Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Inv. Discount Amount';
ToolTip = 'Specifies the total calculated invoice discount amount for the line.';
Editable = false;
}
field(74; "Gen. Bus. Posting Group"; Code[20])
{
Caption = 'Gen. Bus. Posting Group';
ToolTip = 'Specifies the vendor''s or customer''s trade type to link transactions made for this business partner with the appropriate general ledger account according to the general posting setup.';
TableRelation = "Gen. Business Posting Group";
}
field(75; "Gen. Prod. Posting Group"; Code[20])
{
Caption = 'Gen. Prod. Posting Group';
ToolTip = 'Specifies the item''s product type to link transactions made for this item with the appropriate general ledger account according to the general posting setup.';
TableRelation = "Gen. Product Posting Group";
}
field(77; "VAT Calculation Type"; Enum "Tax Calculation Type")
{
Caption = 'VAT Calculation Type';
Editable = false;
}
field(78; "Transaction Type"; Code[10])
{
Caption = 'Transaction Type';
TableRelation = "Transaction Type";
}
field(79; "Transport Method"; Code[10])
{
Caption = 'Transport Method';
TableRelation = "Transport Method";
}
field(80; "Attached to Line No."; Integer)
{
Caption = 'Attached to Line No.';
Editable = false;
TableRelation = "Service Line Archive"."Line No." where("Document Type" = field("Document Type"),
"Document No." = field("Document No."),
"Doc. No. Occurrence" = field("Doc. No. Occurrence"),
"Version No." = field("Version No."));
}
field(81; "Exit Point"; Code[10])
{
Caption = 'Exit Point';
TableRelation = "Entry/Exit Point";
}
field(82; "Area"; Code[10])
{
Caption = 'Area';
TableRelation = Area;
}
field(83; "Transaction Specification"; Code[10])
{
Caption = 'Transaction Specification';
TableRelation = "Transaction Specification";
}
field(85; "Tax Area Code"; Code[20])
{
Caption = 'Tax Area Code';
TableRelation = "Tax Area";
}
field(86; "Tax Liable"; Boolean)
{
Caption = 'Tax Liable';
}
field(87; "Tax Group Code"; Code[20])
{
Caption = 'Tax Group Code';
TableRelation = "Tax Group";
}
field(88; "VAT Clause Code"; Code[20])
{
Caption = 'VAT Clause Code';
TableRelation = "VAT Clause";
}
field(89; "VAT Bus. Posting Group"; Code[20])
{
Caption = 'VAT Bus. Posting Group';
TableRelation = "VAT Business Posting Group";
}
field(90; "VAT Prod. Posting Group"; Code[20])
{
Caption = 'VAT Prod. Posting Group';
TableRelation = "VAT Product Posting Group";
}
field(91; "Currency Code"; Code[10])
{
Caption = 'Currency Code';
Editable = false;
TableRelation = Currency;
}
field(92; "Outstanding Amount (LCY)"; Decimal)
{
AutoFormatExpression = '';
AutoFormatType = 1;
Caption = 'Outstanding Amount (LCY)';
Editable = false;
}
field(93; "Shipped Not Invoiced (LCY)"; Decimal)
{
AutoFormatExpression = '';
AutoFormatType = 1;
Caption = 'Shipped Not Invoiced (LCY)';
Editable = false;
}
field(96; Reserve; Enum "Reserve Method")
{
Caption = 'Reserve';
}
field(99; "VAT Base Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'VAT Base Amount';
ToolTip = 'Specifies the amount that serves as a base for calculating the Amount Including VAT field.';
Editable = false;
}
field(100; "Unit Cost"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 2;
Caption = 'Unit Cost';
Editable = false;
}
field(101; "System-Created Entry"; Boolean)
{
Caption = 'System-Created Entry';
Editable = false;
}
field(103; "Line Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
CaptionClass = GetCaptionClass(FieldNo("Line Amount"));
Caption = 'Line Amount';
ToolTip = 'Specifies the net amount, excluding any invoice discount amount, that must be paid for products on the line.';
}
field(104; "VAT Difference"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'VAT Difference';
Editable = false;
}
field(105; "Inv. Disc. Amount to Invoice"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Inv. Disc. Amount to Invoice';
Editable = false;
}
field(106; "VAT Identifier"; Code[20])
{
Caption = 'VAT Identifier';
Editable = false;
}
field(145; "Pmt. Discount Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Pmt. Discount Amount';
}
field(480; "Dimension Set ID"; Integer)
{
Caption = 'Dimension Set ID';
Editable = false;
TableRelation = "Dimension Set Entry";
trigger OnLookup()
begin
Rec.ShowDimensions();
end;
}
field(950; "Time Sheet No."; Code[20])
{
Caption = 'Time Sheet No.';
TableRelation = "Time Sheet Header";
}
field(951; "Time Sheet Line No."; Integer)
{
Caption = 'Time Sheet Line No.';
TableRelation = "Time Sheet Line"."Line No." where("Time Sheet No." = field("Time Sheet No."));
}
field(952; "Time Sheet Date"; Date)
{
Caption = 'Time Sheet Date';
TableRelation = "Time Sheet Detail".Date where("Time Sheet No." = field("Time Sheet No."),
"Time Sheet Line No." = field("Time Sheet Line No."));
}
field(1019; "Job Planning Line No."; Integer)
{
AccessByPermission = TableData Job = R;
BlankZero = true;
Caption = 'Project Planning Line No.';
}
field(1030; "Job Remaining Qty."; Decimal)
{
AutoFormatType = 0;
AccessByPermission = TableData Job = R;
Caption = 'Project Remaining Qty.';
DecimalPlaces = 0 : 5;
}
field(1031; "Job Remaining Qty. (Base)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Project Remaining Qty. (Base)';
}
field(1032; "Job Remaining Total Cost"; Decimal)
{
AccessByPermission = TableData Job = R;
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Project Remaining Total Cost';
Editable = false;
}
field(1033; "Job Remaining Total Cost (LCY)"; Decimal)
{
AccessByPermission = TableData Job = R;
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Project Remaining Total Cost (LCY)';
Editable = false;
}
field(1034; "Job Remaining Line Amount"; Decimal)
{
AccessByPermission = TableData Job = R;
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Project Remaining Line Amount';
Editable = false;
}
field(5047; "Version No."; Integer)
{
Caption = 'Version No.';
}
field(5048; "Doc. No. Occurrence"; Integer)
{
Caption = 'Doc. No. Occurrence';
}
field(5402; "Variant Code"; Code[10])
{
Caption = 'Variant Code';
ToolTip = 'Specifies the variant of the item on the line.';
TableRelation = if (Type = const(Item)) "Item Variant".Code where("Item No." = field("No."));
}
field(5403; "Bin Code"; Code[20])
{
Caption = 'Bin Code';
TableRelation = Bin.Code where("Location Code" = field("Location Code"));
}
field(5404; "Qty. per Unit of Measure"; Decimal)
{
AutoFormatType = 0;
Caption = 'Qty. per Unit of Measure';
DecimalPlaces = 0 : 5;
Editable = false;
InitValue = 1;
}
field(5405; Planned; Boolean)
{
Caption = 'Planned';
Editable = false;
}
field(5407; "Unit of Measure Code"; Code[10])
{
Caption = 'Unit of Measure Code';
ToolTip = 'Specifies how each unit of the item or resource is measured, such as in pieces or hours. By default, the value in the Base Unit of Measure field on the item or resource card is inserted.';
TableRelation = if (Type = const(Item)) "Item Unit of Measure".Code where("Item No." = field("No."))
else
if (Type = const(Resource)) "Resource Unit of Measure".Code where("Resource No." = field("No."))
else
"Unit of Measure";
}
field(5408; "Qty. Rounding Precision"; Decimal)
{
AutoFormatType = 0;
Caption = 'Qty. Rounding Precision';
InitValue = 0;
DecimalPlaces = 0 : 5;
MinValue = 0;
MaxValue = 1;
Editable = false;
}
field(5409; "Qty. Rounding Precision (Base)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Qty. Rounding Precision (Base)';
InitValue = 0;
DecimalPlaces = 0 : 5;
MinValue = 0;
MaxValue = 1;
Editable = false;
}
field(5415; "Quantity (Base)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Quantity (Base)';
DecimalPlaces = 0 : 5;
}
field(5416; "Outstanding Qty. (Base)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Outstanding Qty. (Base)';
DecimalPlaces = 0 : 5;
Editable = false;
}
field(5417; "Qty. to Invoice (Base)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Qty. to Invoice (Base)';
DecimalPlaces = 0 : 5;
}
field(5418; "Qty. to Ship (Base)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Qty. to Ship (Base)';
DecimalPlaces = 0 : 5;
}
field(5458; "Qty. Shipped Not Invd. (Base)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Qty. Shipped Not Invd. (Base)';
DecimalPlaces = 0 : 5;
Editable = false;
}
field(5460; "Qty. Shipped (Base)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Qty. Shipped (Base)';
DecimalPlaces = 0 : 5;
Editable = false;
}
field(5461; "Qty. Invoiced (Base)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Qty. Invoiced (Base)';
DecimalPlaces = 0 : 5;
Editable = false;
}
field(5700; "Responsibility Center"; Code[10])
{
Caption = 'Responsibility Center';
Editable = false;
TableRelation = "Responsibility Center";
}
field(5709; "Item Category Code"; Code[20])
{
Caption = 'Item Category Code';
TableRelation = "Item Category";
}
field(5710; Nonstock; Boolean)
{
Caption = 'Catalog';
ToolTip = 'Specifies that the item is a catalog item.';
Editable = false;
}
field(5725; "Item Reference No."; Code[50])
{
AccessByPermission = TableData "Item Reference" = R;
Caption = 'Item Reference No.';
ExtendedDatatype = Barcode;
}
field(5726; "Item Reference Unit of Measure"; Code[10])
{
AccessByPermission = TableData "Item Reference" = R;
Caption = 'Reference Unit of Measure';
TableRelation = if (Type = const(Item)) "Item Unit of Measure".Code where("Item No." = field("No."));
}
field(5727; "Item Reference Type"; Enum "Item Reference Type")
{
Caption = 'Item Reference Type';
}
field(5728; "Item Reference Type No."; Code[30])
{
Caption = 'Item Reference Type No.';
}
field(5752; "Completely Shipped"; Boolean)
{
Caption = 'Completely Shipped';
Editable = false;
}
field(5790; "Requested Delivery Date"; Date)
{
Caption = 'Requested Delivery Date';
}
field(5791; "Promised Delivery Date"; Date)
{
Caption = 'Promised Delivery Date';
}
field(5792; "Shipping Time"; DateFormula)
{
AccessByPermission = TableData "Shipping Agent Services" = R;
Caption = 'Shipping Time';
}
field(5794; "Planned Delivery Date"; Date)
{
Caption = 'Planned Delivery Date';
}
field(5796; "Shipping Agent Code"; Code[10])
{
AccessByPermission = TableData "Shipping Agent Services" = R;
Caption = 'Shipping Agent Code';
TableRelation = "Shipping Agent";
}
field(5797; "Shipping Agent Service Code"; Code[10])
{
Caption = 'Shipping Agent Service Code';
TableRelation = "Shipping Agent Services".Code where("Shipping Agent Code" = field("Shipping Agent Code"));
}
field(5811; "Appl.-from Item Entry"; Integer)
{
AccessByPermission = TableData Item = R;
Caption = 'Appl.-from Item Entry';
MinValue = 0;
}
field(5902; "Service Item No."; Code[20])
{
Caption = 'Service Item No.';
ToolTip = 'Specifies the service item number linked to this service line.';
TableRelation = "Service Item"."No.";
}
field(5903; "Appl.-to Service Entry"; Integer)
{
AccessByPermission = TableData Item = R;
Caption = 'Appl.-to Service Entry';
Editable = false;
}
field(5904; "Service Item Line No."; Integer)
{
Caption = 'Service Item Line No.';
ToolTip = 'Specifies the service item line number linked to this service line.';
TableRelation = "Service Item Line Archive"."Line No." where("Document Type" = field("Document Type"),
"Document No." = field("Document No."),
"Doc. No. Occurrence" = field("Doc. No. Occurrence"),
"Version No." = field("Version No."));
}
field(5905; "Service Item Serial No."; Code[50])
{
Caption = 'Service Item Serial No.';
ToolTip = 'Specifies the service item serial number linked to this line.';
}
field(5906; "Service Item Line Description"; Text[100])
{
Caption = 'Service Item Line Description';
ToolTip = 'Specifies the description of the service item line in the service order.';
Editable = false;
}
field(5907; "Serv. Price Adjmt. Gr. Code"; Code[10])
{
Caption = 'Serv. Price Adjmt. Gr. Code';
ToolTip = 'Specifies the service price adjustment group code that applies to this line.';
Editable = false;
TableRelation = "Service Price Adjustment Group";
}
field(5908; "Posting Date"; Date)
{
Caption = 'Posting Date';
ToolTip = 'Specifies the date when the service line should be posted.';
}
field(5909; "Order Date"; Date)
{
Caption = 'Order Date';
Editable = false;
}
field(5910; "Needed by Date"; Date)
{
Caption = 'Needed by Date';
}
field(5916; "Ship-to Code"; Code[10])
{
Caption = 'Ship-to Code';
Editable = false;
TableRelation = "Ship-to Address".Code where("Customer No." = field("Customer No."));
}
field(5917; "Qty. to Consume"; Decimal)
{
AutoFormatType = 0;
BlankZero = true;
Caption = 'Qty. to Consume';
DecimalPlaces = 0 : 5;
}
field(5918; "Quantity Consumed"; Decimal)
{
AutoFormatType = 0;
Caption = 'Quantity Consumed';
DecimalPlaces = 0 : 5;
Editable = false;
}
field(5919; "Qty. to Consume (Base)"; Decimal)
{
AutoFormatType = 0;
BlankZero = true;
Caption = 'Qty. to Consume (Base)';
DecimalPlaces = 0 : 5;
}
field(5920; "Qty. Consumed (Base)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Qty. Consumed (Base)';
DecimalPlaces = 0 : 5;
Editable = false;
}
field(5928; "Service Price Group Code"; Code[10])
{
Caption = 'Service Price Group Code';
TableRelation = "Service Price Group";
}
field(5929; "Fault Area Code"; Code[10])
{
Caption = 'Fault Area Code';
ToolTip = 'Specifies the code of the fault area associated with this line.';
TableRelation = "Fault Area";
}
field(5930; "Symptom Code"; Code[10])
{
Caption = 'Symptom Code';
ToolTip = 'Specifies the code of the symptom associated with this line.';
TableRelation = "Symptom Code";
}
field(5931; "Fault Code"; Code[10])
{
Caption = 'Fault Code';
ToolTip = 'Specifies the code of the fault associated with this line.';
TableRelation = "Fault Code".Code where("Fault Area Code" = field("Fault Area Code"),
"Symptom Code" = field("Symptom Code"));
}
field(5932; "Resolution Code"; Code[10])
{
Caption = 'Resolution Code';
ToolTip = 'Specifies the code of the resolution associated with this line.';
TableRelation = "Resolution Code";
}
field(5933; "Exclude Warranty"; Boolean)
{
Caption = 'Exclude Warranty';
ToolTip = 'Specifies that the warranty discount is excluded on this line.';
Editable = true;
}
field(5934; Warranty; Boolean)
{
Caption = 'Warranty';
ToolTip = 'Specifies that a warranty discount is available on this line of type Item or Resource.';
Editable = false;
}
field(5936; "Contract No."; Code[20])
{
Caption = 'Contract No.';
ToolTip = 'Specifies the number of the contract, if the service quote originated from a service contract.';
TableRelation = "Service Contract Header"."Contract No." where("Contract Type" = const(Contract));
}
field(5938; "Contract Disc. %"; Decimal)
{
AutoFormatType = 0;
Caption = 'Contract Disc. %';
ToolTip = 'Specifies the contract discount percentage that is valid for the items, resources, and costs on this line.';
DecimalPlaces = 0 : 5;
Editable = false;
MaxValue = 100;
MinValue = 0;
}
field(5939; "Warranty Disc. %"; Decimal)
{
AutoFormatType = 0;
Caption = 'Warranty Disc. %';
ToolTip = 'Specifies the percentage of the warranty discount that is valid for the items or resources on this line.';
DecimalPlaces = 0 : 5;
Editable = false;
MaxValue = 100;
MinValue = 0;
}
field(5965; "Component Line No."; Integer)
{
Caption = 'Component Line No.';
}
field(5966; "Spare Part Action"; Option)
{
Caption = 'Spare Part Action';
OptionCaption = ' ,Permanent,Temporary,Component Replaced,Component Installed';
OptionMembers = " ",Permanent,"Temporary","Component Replaced","Component Installed";
}
field(5967; "Fault Reason Code"; Code[10])
{
Caption = 'Fault Reason Code';
ToolTip = 'Specifies the code of the fault reason for this service line.';
TableRelation = "Fault Reason Code";
}
field(5968; "Replaced Item No."; Code[20])
{
Caption = 'Replaced Item No.';
TableRelation = if ("Replaced Item Type" = const(Item)) Item
else
if ("Replaced Item Type" = const("Service Item")) "Service Item";
}
field(5969; "Exclude Contract Discount"; Boolean)
{
Caption = 'Exclude Contract Discount';
ToolTip = 'Specifies that the contract discount is excluded for the item, resource, or cost on this line.';
Editable = true;
}
field(5970; "Replaced Item Type"; Enum "Replaced Service Item Component Type")
{
Caption = 'Replaced Item Type';
}
field(5994; "Price Adjmt. Status"; Option)
{
Caption = 'Price Adjmt. Status';
Editable = false;
OptionCaption = ' ,Adjusted,Modified';
OptionMembers = " ",Adjusted,Modified;
}
field(5997; "Line Discount Type"; Option)
{
Caption = 'Line Discount Type';
ToolTip = 'Specifies the type of the line discount assigned to this line.';
Editable = false;
OptionCaption = ' ,Warranty Disc.,Contract Disc.,Line Disc.,Manual';
OptionMembers = " ","Warranty Disc.","Contract Disc.","Line Disc.",Manual;
}
field(5999; "Copy Components From"; Option)
{
Caption = 'Copy Components From';
OptionCaption = 'None,Item BOM,Old Service Item,Old Serv.Item w/o Serial No.';
OptionMembers = "None","Item BOM","Old Service Item","Old Serv.Item w/o Serial No.";
}
field(6608; "Return Reason Code"; Code[10])
{
Caption = 'Return Reason Code';
TableRelation = "Return Reason";
}
field(7000; "Price Calculation Method"; Enum "Price Calculation Method")
{
Caption = 'Price Calculation Method';
}
field(7001; "Allow Line Disc."; Boolean)
{
Caption = 'Allow Line Disc.';
InitValue = true;
}
field(7002; "Customer Disc. Group"; Code[20])
{
Caption = 'Customer Disc. Group';
TableRelation = "Customer Discount Group";
}
field(7300; "Qty. Picked"; Decimal)
{
AutoFormatType = 0;
Caption = 'Qty. Picked';
DecimalPlaces = 0 : 5;
Editable = false;
}
field(7301; "Qty. Picked (Base)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Qty. Picked (Base)';
DecimalPlaces = 0 : 5;
Editable = false;
}
field(7302; "Completely Picked"; Boolean)
{
Caption = 'Completely Picked';
Editable = false;
}
field(7303; "Pick Qty. (Base)"; Decimal)
{
AutoFormatType = 0;
Caption = 'Pick Qty. (Base)';
DecimalPlaces = 0 : 5;
Editable = false;
}
}
keys
{
key(Key1; "Document Type", "Document No.", "Doc. No. Occurrence", "Version No.", "Line No.")
{
Clustered = true;
}
key(Key2; "Document Type", "Document No.", "Line No.", "Doc. No. Occurrence", "Version No.")
{
}
key(Key3; "Customer No.")
{
}
key(Key4; "Bill-to Customer No.")
{
}
key(Key5; Type, "No.")
{
}
key(Key6; "Document No.", "Document Type", "Doc. No. Occurrence", "Version No.")
{
MaintainSqlIndex = false;
SumIndexFields = Amount, "Amount Including VAT", "Outstanding Amount", "Shipped Not Invoiced", "Outstanding Amount (LCY)", "Shipped Not Invoiced (LCY)";
}
}
fieldgroups
{
fieldgroup(DropDown; Type, "No.", "Version No.", Description, Quantity, "Unit of Measure Code", "Line Amount")
{
}
}
trigger OnDelete()
var
ServiceLineArchive: Record "Service Line Archive";
ServCatalogItemMgt: Codeunit "Serv. Catalog Item Mgt.";
begin
if Rec.Nonstock then
ServCatalogItemMgt.DelNonStockServiceArch(ServiceLineArchive);
end;
procedure ShowLineComments()
var
ServiceCommentLineArchive: Record "Service Comment Line Archive";
ServiceArchiveCommentSheet: Page "Service Archive Comment Sheet";
begin
ServiceCommentLineArchive.SetRange("No.", "Document No.");
ServiceCommentLineArchive.SetRange("Table Line No.", "Line No.");
ServiceCommentLineArchive.SetRange("Doc. No. Occurrence", "Doc. No. Occurrence");
ServiceCommentLineArchive.SetRange("Version No.", "Version No.");
Clear(ServiceArchiveCommentSheet);
ServiceArchiveCommentSheet.SetTableView(ServiceCommentLineArchive);
ServiceArchiveCommentSheet.RunModal();
end;
procedure ShowDimensions()
var
DimensionManagement: Codeunit DimensionManagement;
begin
DimensionManagement.ShowDimensionSet("Dimension Set ID", StrSubstNo('%1 %2', "Document Type", "Document No."));
end;
procedure GetCaptionClass(FieldNumber: Integer): Text[80]
var
ServiceHeaderArchive: Record "Service Header Archive";
begin
if not ServiceHeaderArchive.Get("Document Type", "Document No.", "Doc. No. Occurrence", "Version No.") then begin
ServiceHeaderArchive."No." := '';
ServiceHeaderArchive.Init();
end;
if ServiceHeaderArchive."Prices Including VAT" then
exit(CopyStr('2,1,' + GetFieldCaption(FieldNumber), 1, 80));
exit(CopyStr('2,0,' + GetFieldCaption(FieldNumber), 1, 80));
end;
local procedure GetFieldCaption(FieldNumber: Integer): Text[100]
var
"Field": Record "Field";
begin
Field.Get(DATABASE::"Service Line Archive", FieldNumber);
exit(Field."Field Caption");
end;
}