Table 99000763 Routing Header

// ------------------------------------------------------------------------------------------------
// 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.Foundation.NoSeries;
using Microsoft.Inventory.Item;
using Microsoft.Manufacturing.Comment;
using Microsoft.Manufacturing.Setup;

table 99000763 "Routing Header"
{
    Caption = 'Routing Header';
    DataCaptionFields = "No.", Description;
    DrillDownPageID = "Routing List";
    LookupPageID = "Routing List";
    DataClassification = CustomerContent;

    fields
    {
        field(1; "No."; Code[20])
        {
            Caption = 'No.';
            ToolTip = 'Specifies the number of the involved entry or record, according to the specified number series.';
        }
        field(2; Description; Text[100])
        {
            Caption = 'Description';
            ToolTip = 'Specifies a description for the routing header.';

            trigger OnValidate()
            begin
                "Search Description" := Description;
            end;
        }
        field(3; "Description 2"; Text[50])
        {
            Caption = 'Description 2';
        }
        field(4; "Search Description"; Code[100])
        {
            Caption = 'Search Description';
            ToolTip = 'Specifies a search description.';
        }
        field(10; "Last Date Modified"; Date)
        {
            Caption = 'Last Date Modified';
            ToolTip = 'Specifies when the routing card was last modified.';
            Editable = false;
        }
        field(12; Comment; Boolean)
        {
            CalcFormula = exist("Manufacturing Comment Line" where("Table Name" = const("Routing Header"),
                                                                    "No." = field("No.")));
            Caption = 'Comment';
            Editable = false;
            FieldClass = FlowField;
        }
        field(20; Status; Enum "Routing Status")
        {
            Caption = 'Status';
            ToolTip = 'Specifies the status of this routing.';

            trigger OnValidate()
            begin
                if (Status <> xRec.Status) and (Status = Status::Certified) then
                    CheckRouting.Calculate(Rec, '');

                if Status = Status::Closed then
                    if Confirm(
                         Text001, false)
                    then begin
                        RtngVersion.SetRange("Routing No.", "No.");
                        RtngVersion.ModifyAll(Status, RtngVersion.Status::Closed);
                    end else
                        Status := xRec.Status;
            end;
        }
        field(21; Type; Option)
        {
            Caption = 'Type';
            ToolTip = 'Specifies in which order operations in the routing are performed.';
            OptionCaption = 'Serial,Parallel';
            OptionMembers = Serial,Parallel;

            trigger OnValidate()
            begin
                if Status = Status::Certified then
                    FieldError(Status);
            end;
        }
        field(50; "Version Nos."; Code[20])
        {
            Caption = 'Version Nos.';
            ToolTip = 'Specifies the number series you want to use to create a new version of this routing.';
            TableRelation = "No. Series";
        }
        field(51; "No. Series"; Code[20])
        {
            Caption = 'No. Series';
            Editable = false;
            TableRelation = "No. Series";
        }
    }

    keys
    {
        key(Key1; "No.")
        {
            Clustered = true;
        }
        key(Key2; "Search Description")
        {
        }
        key(Key3; Description)
        {
        }
        key(Key4; Status)
        {
        }
    }

    fieldgroups
    {
        fieldgroup(DropDown; "No.", Description, Status)
        {
        }
    }

    trigger OnDelete()
    var
        Item: Record Item;
        RtngLine: Record "Routing Line";
        MfgComment: Record "Manufacturing Comment Line";
    begin
        MfgComment.SetRange("Table Name", MfgComment."Table Name"::"Routing Header");
        MfgComment.SetRange("No.", "No.");
        MfgComment.DeleteAll();

        RtngLine.LockTable();
        RtngLine.SetRange("Routing No.", "No.");
        RtngLine.DeleteAll(true);

        RtngVersion.SetRange("Routing No.", "No.");
        RtngVersion.DeleteAll();

        Item.SetRange("Routing No.", "No.");
        if not Item.IsEmpty() then
            Error(Text000);
    end;

    trigger OnInsert()
    var
        NoSeries: Codeunit "No. Series";
    begin
        MfgSetup.Get();
        if "No." = '' then begin
            MfgSetup.TestField("Routing Nos.");
                "No. Series" := MfgSetup."Routing Nos.";
                if NoSeries.AreRelated("No. Series", xRec."No. Series") then
                    "No. Series" := xRec."No. Series";
                "No." := NoSeries.GetNextNo("No. Series");

        end;
    end;

    trigger OnModify()
    begin
        "Last Date Modified" := Today;
    end;

    trigger OnRename()
    begin
        if Status = Status::Certified then
            Error(Text002, TableCaption(), FieldCaption(Status), Format(Status));
    end;

    var
        MfgSetup: Record "Manufacturing Setup";
        RoutingHeader: Record "Routing Header";
        RtngVersion: Record "Routing Version";
        CheckRouting: Codeunit "Check Routing Lines";
#pragma warning disable AA0074
        Text000: Label 'This Routing is being used on Items.';
        Text001: Label 'All versions attached to the routing will be closed. Close routing?';
#pragma warning disable AA0470
        Text002: Label 'You cannot rename the %1 when %2 is %3.';
#pragma warning restore AA0470
#pragma warning restore AA0074

    procedure AssistEdit(OldRtngHeader: Record "Routing Header"): Boolean
    var
        NoSeries: Codeunit "No. Series";
    begin
        RoutingHeader := Rec;
        MfgSetup.Get();
        MfgSetup.TestField("Routing Nos.");
        if NoSeries.LookupRelatedNoSeries(MfgSetup."Routing Nos.", OldRtngHeader."No. Series", RoutingHeader."No. Series") then begin
            RoutingHeader."No." := NoSeries.GetNextNo(RoutingHeader."No. Series");
            Rec := RoutingHeader;
            exit(true);
        end;
    end;

    procedure RoutingLinesExist(): Boolean
    var
        RoutingLine: Record "Routing Line";
    begin
        RoutingLine.SetRange("Routing No.", Rec."No.");
        RoutingLine.SetRange("Version Code", '');
        exit(not RoutingLine.IsEmpty());
    end;
}