Page 5986 Service Item Component List, source in 29

// ------------------------------------------------------------------------------------------------
// 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.Item;

page 5986 "Service Item Component List"
{
    Caption = 'Service Item Component List';
    DataCaptionFields = "Parent Service Item No.", "Line No.";
    DelayedInsert = true;
    PageType = List;
    SourceTable = "Service Item Component";

    layout
    {
        area(content)
        {
            repeater(Control1)
            {
                ShowCaption = false;
                field("Parent Service Item No."; Rec."Parent Service Item No.")
                {
                    ApplicationArea = Service;
                    Visible = false;
                }
                field("Line No."; Rec."Line No.")
                {
                    ApplicationArea = Service;
                    Visible = false;
                }
                field(Active; Rec.Active)
                {
                    ApplicationArea = Service;
                    Visible = false;
                }
                field(Type; Rec.Type)
                {
                    ApplicationArea = Service;
                }
                field("No."; Rec."No.")
                {
                    ApplicationArea = Service;
                }
                field("Variant Code"; Rec."Variant Code")
                {
                    ApplicationArea = Planning;
                }
                field(Description; Rec.Description)
                {
                    ApplicationArea = Service;
                }
                field("Serial No."; Rec."Serial No.")
                {
                    ApplicationArea = ItemTracking;

                    trigger OnAssistEdit()
                    begin
                        Rec.AssistEditSerialNo();
                    end;
                }
                field("Date Installed"; Rec."Date Installed")
                {
                    ApplicationArea = Service;
                }
                field("From Line No."; Rec."From Line No.")
                {
                    ApplicationArea = Service;
                    Visible = false;
                }
                field("Last Date Modified"; Rec."Last Date Modified")
                {
                    ApplicationArea = Service;
                    Visible = false;
                }
            }
        }
        area(factboxes)
        {
            systempart(Control1900383207; Links)
            {
                ApplicationArea = RecordLinks;
                Visible = false;
            }
            systempart(Control1905767507; Notes)
            {
                ApplicationArea = Notes;
                Visible = false;
            }
        }
    }

    actions
    {
        area(navigation)
        {
            group("Com&ponent")
            {
                Caption = 'Com&ponent';
                Image = Components;
                action("&Copy from BOM")
                {
                    ApplicationArea = Service;
                    Caption = '&Copy from Assembly BOM';
                    Image = CopyFromBOM;
                    ToolTip = 'Insert the service item components of the service item''s bill of material. ';

                    trigger OnAction()
                    begin
                        ServItem.Get(Rec."Parent Service Item No.");
                        CODEUNIT.Run(CODEUNIT::"ServComponent-Copy from BOM", ServItem);
                    end;
                }
                group("&Replaced List")
                {
                    Caption = '&Replaced List';
                    Image = ItemSubstitution;
                    action(ThisLine)
                    {
                        ApplicationArea = Service;
                        Caption = 'This Line';
                        Image = Line;
                        RunObject = Page "Replaced Component List";
                        RunPageLink = Active = const(false),
                                      "Parent Service Item No." = field("Parent Service Item No."),
                                      "From Line No." = field("Line No.");
                        RunPageView = sorting(Active, "Parent Service Item No.", "From Line No.");
                        ToolTip = 'View or edit the list of service item components that have been replaced for the selected service item component.';
                    }
                    action(AllLines)
                    {
                        ApplicationArea = Service;
                        Caption = 'All Lines';
                        Image = AllLines;
                        RunObject = Page "Replaced Component List";
                        RunPageLink = Active = const(false),
                                      "Parent Service Item No." = field("Parent Service Item No.");
                        RunPageView = sorting(Active, "Parent Service Item No.", "From Line No.");
                        ToolTip = 'View or edit the list of all service item components that have been replaced.';
                    }
                }
            }
        }
    }

    trigger OnInsertRecord(BelowxRec: Boolean): Boolean
    begin
        Rec."Line No." := Rec.SplitLineNo(xRec, BelowxRec);
    end;

    var
        ServItem: Record "Service Item";
}