Page 5816 Inventory Adjmt. Entry Orders, 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.Inventory.Costing;

page 5816 "Inventory Adjmt. Entry Orders"
{
    PageType = List;
    ApplicationArea = Basic, Suite;
    SourceTable = "Inventory Adjmt. Entry (Order)";
    Caption = 'Inventory Adjmt. Entry Orders';
    Editable = false;

    layout
    {
        area(Content)
        {
            repeater(GroupName)
            {
                field("Order Type"; Rec."Order Type")
                {
                    Caption = 'Order Type';
                }
                field("Order No."; Rec."Order No.")
                {
                    Caption = 'Order No.';
                }
                field("Order Line No."; Rec."Order Line No.")
                {
                    Caption = 'Order Line No.';
                }
                field("Item No."; Rec."Item No.")
                {
                    Caption = 'Item No.';
                }
                field("Is Finished"; Rec."Is Finished")
                {
                    Caption = 'Is Finished';
                }
                field("Completely Invoiced"; Rec."Completely Invoiced")
                {
                    Caption = 'Completely Invoiced';
                }
                field("Cost is Adjusted"; Rec."Cost is Adjusted")
                {
                    Caption = 'Cost is Adjusted';
                }
            }
        }
    }

    actions
    {
        area(Processing)
        {
            action(Run)
            {
                Caption = 'Adjust cost for selected orders';
                Image = Start;
                ToolTip = 'Run the cost adjustment for the selected production and assembly orders.';

                trigger OnAction()
                var
                    InventoryAdjmtEntryOrder: Record "Inventory Adjmt. Entry (Order)";
                begin
                    CurrPage.SetSelectionFilter(InventoryAdjmtEntryOrder);
                    Rec.RunCostAdjustment(InventoryAdjmtEntryOrder);
                end;
            }
        }
        area(Promoted)
        {
            actionref("Run_Promoted"; Run) { }
        }
    }
}