Table 5883 Phys. Invt. Comment Line

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Inventory.Counting.Comment;

using Microsoft.Inventory.Counting.Document;
using Microsoft.Inventory.Counting.History;
using Microsoft.Inventory.Counting.Recording;

table 5883 "Phys. Invt. Comment Line"
{
    Caption = 'Phys. Invt. Comment Line';
    DrillDownPageID = "Phys. Inventory Comment List";
    LookupPageID = "Phys. Inventory Comment List";
    DataClassification = CustomerContent;

    fields
    {
        field(1; "Document Type"; Option)
        {
            Caption = 'Document Type';
            OptionCaption = 'Order,Recording,Posted Order,Posted Recording';
            OptionMembers = "Order",Recording,"Posted Order","Posted Recording";
        }
        field(2; "Order No."; Code[20])
        {
            Caption = 'Order No.';
            ToolTip = 'Specifies the document number of the physical inventory order to which the comment applies.';
            TableRelation = if ("Document Type" = const(Order)) "Phys. Invt. Order Header"
            else
            if ("Document Type" = const(Recording)) "Phys. Invt. Record Header"."Order No."
            else
            if ("Document Type" = const("Posted Order")) "Pstd. Phys. Invt. Order Hdr"
            else
            if ("Document Type" = const("Posted Recording")) "Pstd. Phys. Invt. Record Hdr"."Order No.";
        }
        field(3; "Recording No."; Integer)
        {
            Caption = 'Recording No.';
            ToolTip = 'Specifies the document number of the physical inventory recording to which the comment applies.';
            TableRelation = if ("Document Type" = const(Recording)) "Phys. Invt. Record Header"."Recording No." where("Order No." = field("Order No."))
            else
            if ("Document Type" = const("Posted Recording")) "Pstd. Phys. Invt. Record Hdr"."Recording No." where("Order No." = field("Order No."));
        }
        field(4; "Line No."; Integer)
        {
            Caption = 'Line No.';
        }
        field(10; Date; Date)
        {
            Caption = 'Date';
            ToolTip = 'Specifies the date when the comment was created.';
        }
        field(11; "Code"; Code[10])
        {
            Caption = 'Code';
            ToolTip = 'Specifies a code for the comment.';
        }
        field(12; Comment; Text[80])
        {
            Caption = 'Comment';
            ToolTip = 'Specifies the comment itself.';
        }
    }

    keys
    {
        key(Key1; "Document Type", "Order No.", "Recording No.", "Line No.")
        {
            Clustered = true;
        }
    }

    fieldgroups
    {
    }

    trigger OnInsert()
    begin
        if "Document Type" in ["Document Type"::Order, "Document Type"::"Posted Order"] then
            TestField("Recording No.", 0);
    end;

    procedure SetUpNewLine()
    var
        PhysInvtCommentLine: Record "Phys. Invt. Comment Line";
    begin
        PhysInvtCommentLine.SetRange("Document Type", "Document Type");
        PhysInvtCommentLine.SetRange("Order No.", "Order No.");
        PhysInvtCommentLine.SetRange("Recording No.", "Recording No.");
        if not PhysInvtCommentLine.FindFirst() then
            Date := WorkDate();

        OnAfterSetUpNewLine(Rec, PhysInvtCommentLine);
    end;

    [IntegrationEvent(false, false)]
    local procedure OnAfterSetUpNewLine(var PhysInvtCommentLineRec: Record "Phys. Invt. Comment Line"; var PhysInvtCommentLineFilter: Record "Phys. Invt. Comment Line")
    begin
    end;
}