Table 99000805 Routing Quality Measure, source in 29
Source29
src/Layers/W1/BaseApp/Manufacturing/Routing/RoutingQualityMeasure.Table.al114 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.Manufacturing.Routing;
using Microsoft.Manufacturing.Setup;
table 99000805 "Routing Quality Measure"
{
Caption = 'Routing Quality Measure';
DataClassification = CustomerContent;
fields
{
field(1; "Routing No."; Code[20])
{
Caption = 'Routing No.';
NotBlank = true;
TableRelation = "Routing Header";
}
field(2; "Line No."; Integer)
{
Caption = 'Line No.';
}
field(9; "Qlty Measure Code"; Code[10])
{
Caption = 'Qlty Measure Code';
ToolTip = 'Specifies the quality measure code.';
TableRelation = "Quality Measure";
trigger OnValidate()
begin
if "Qlty Measure Code" = '' then
exit;
QltyMeasure.Get("Qlty Measure Code");
Description := QltyMeasure.Description;
end;
}
field(10; Description; Text[100])
{
Caption = 'Description';
ToolTip = 'Specifies a description of the quality measure.';
}
field(11; "Min. Value"; Decimal)
{
AutoFormatType = 0;
Caption = 'Min. Value';
ToolTip = 'Specifies the minimum value that must be met.';
DecimalPlaces = 0 : 5;
}
field(12; "Max. Value"; Decimal)
{
AutoFormatType = 0;
Caption = 'Max. Value';
ToolTip = 'Specifies the maximum value that may be achieved.';
DecimalPlaces = 0 : 5;
}
field(13; "Mean Tolerance"; Decimal)
{
AutoFormatType = 0;
Caption = 'Mean Tolerance';
ToolTip = 'Specifies the acceptable mean tolerance.';
DecimalPlaces = 0 : 5;
}
field(20; "Version Code"; Code[20])
{
Caption = 'Version Code';
TableRelation = "Routing Version"."Version Code" where("Routing No." = field("Routing No."));
}
field(21; "Operation No."; Code[10])
{
Caption = 'Operation No.';
NotBlank = true;
TableRelation = "Routing Line"."Operation No." where("Routing No." = field("Routing No."),
"Version Code" = field("Version Code"));
}
}
keys
{
key(Key1; "Routing No.", "Version Code", "Operation No.", "Line No.")
{
Clustered = true;
}
}
fieldgroups
{
}
var
QltyMeasure: Record "Quality Measure";
procedure Caption(): Text
var
RtngHeader: Record "Routing Header";
begin
if GetFilters = '' then
exit('');
if "Routing No." = '' then
exit('');
RtngHeader.Get("Routing No.");
exit(
StrSubstNo('%1 %2 %3',
"Routing No.", RtngHeader.Description, "Operation No."));
end;
}