Page 15 Location List

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

using Microsoft.Finance.Dimension;
#if not CLEAN28
using Microsoft.Inventory.Reports;
#else
using Microsoft.Inventory.Item;
#endif
using Microsoft.Inventory.Transfer;
using Microsoft.Warehouse.Structure;
using System.Text;

page 15 "Location List"
{
    AdditionalSearchTerms = 'warehouse setup,inventory setup';
    ApplicationArea = Location;
    Caption = 'Locations';
    CardPageID = "Location Card";
    Editable = false;
    PageType = List;
    AboutTitle = 'About Locations';
    AboutText = 'Set up and manage warehouses and other storage locations, configure inventory policies and bin settings, and track item availability and transfers between locations.';
    SourceTable = Location;
    UsageCategory = Administration;

    layout
    {
        area(content)
        {
            repeater(Control1)
            {
                ShowCaption = false;
                field("Code"; Rec.Code)
                {
                    ApplicationArea = Location;
                }
                field(Name; Rec.Name)
                {
                    ApplicationArea = Location;
                }
            }
        }
        area(factboxes)
        {
            systempart(Control1900383207; Links)
            {
                ApplicationArea = RecordLinks;
                Visible = false;
            }
            systempart(Control1905767507; Notes)
            {
                ApplicationArea = Notes;
                Visible = false;
            }
        }
    }

    actions
    {
        area(navigation)
        {
            group("&Location")
            {
                Caption = '&Location';
                Image = Warehouse;
                action("&Zones")
                {
                    ApplicationArea = Warehouse;
                    Caption = '&Zones';
                    Image = Zones;
                    RunObject = Page Zones;
                    RunPageLink = "Location Code" = field(Code);
                    ToolTip = 'View or edit information about zones that you use in your warehouse to structure your bins under zones.';
                }
                action("&Bins")
                {
                    ApplicationArea = Warehouse;
                    Caption = '&Bins';
                    Image = Bins;
                    RunObject = Page Bins;
                    RunPageLink = "Location Code" = field(Code);
                    ToolTip = 'View or edit information about zones that you use in your warehouse to hold items.';
                }
            }
            group(Dimensions)
            {
                Caption = 'Dimensions';
                Image = Dimensions;
                action(DimensionsSingle)
                {
                    ApplicationArea = Dimensions;
                    Caption = 'Dimensions-Single';
                    Image = Dimensions;
                    RunObject = Page "Default Dimensions";
                    RunPageLink = "Table ID" = const(14),
                                  "No." = field(Code);
                    ShortCutKey = 'Alt+D';
                    ToolTip = 'View or edit the single set of dimensions that are set up for the selected record.';
                }
                action(DimensionsMultiple)
                {
                    AccessByPermission = TableData Dimension = R;
                    ApplicationArea = Dimensions;
                    Caption = 'Dimensions-&Multiple';
                    Image = DimensionSets;
                    ToolTip = 'View or edit dimensions for a group of records. You can assign dimension codes to transactions to distribute costs and analyze historical information.';

                    trigger OnAction()
                    var
                        Location: Record Location;
                        DefaultDimMultiple: Page "Default Dimensions-Multiple";
                    begin
                        CurrPage.SetSelectionFilter(Location);
                        DefaultDimMultiple.SetMultiRecord(Location, Rec.FieldNo(Code));
                        DefaultDimMultiple.RunModal();
                    end;
                }
            }
        }
        area(creation)
        {
            action("Transfer Order")
            {
                ApplicationArea = Location;
                Caption = 'Transfer Order';
                Image = Document;
                RunObject = Page "Transfer Order";
                RunPageMode = Create;
                ToolTip = 'Prepare to transfer items to another location.';
            }
        }
        area(processing)
        {
            action("Create Warehouse location")
            {
                ApplicationArea = Warehouse;
                Caption = 'Convert to Warehouse location';
                Image = NewWarehouse;
                RunObject = Report "Create Warehouse Location";
            }
            action(CopyLocation)
            {
                AccessByPermission = TableData Location = I;
                ApplicationArea = Location;
                Caption = 'Copy Location';
                Image = Copy;
                ToolTip = 'Create a copy of the current location with all related information.';
                RunObject = Codeunit "Copy Location";
            }

        }
        area(reporting)
        {
            action("Inventory - Inbound Transfer")
            {
                ApplicationArea = Location;
                Caption = 'Inventory - Inbound Transfer';
                Image = "Report";
                RunObject = Report "Inventory - Inbound Transfer";
            }
            action(Action1907283206)
            {
                ApplicationArea = Location;
                Caption = 'Transfer Order';
                Image = Document;
                RunObject = Report "Transfer Order";
            }
            action("Transfer Shipment")
            {
                ApplicationArea = Location;
                Caption = 'Transfer Shipment';
                Image = "Report";
                //The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true'
                //PromotedCategory = "Report";
                RunObject = Report "Transfer Shipment";
            }
            action("Transfer Receipt")
            {
                ApplicationArea = Location;
                Caption = 'Transfer Receipt';
                Image = "Report";
                //The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true'
                //PromotedCategory = "Report";
                RunObject = Report "Transfer Receipt";
            }
#if not CLEAN28
            action("Items with Negative Inventory")
            {
                ApplicationArea = Location;
                Caption = 'Items with Negative Inventory (Obsolete)';
                Image = "Report";
                ObsoleteState = Pending;
                ObsoleteReason = 'This report has been replaced by a filter view on the Item List page. This report will be removed in a future release.';
                ObsoleteTag = '28.0';
                ToolTip = 'View a list of items with negative inventory.';

                trigger OnAction()
                var
                    ItemsWithNegativeInventory: Report "Items with Negative Inventory";
                begin
                    ItemsWithNegativeInventory.InitializeRequest(Rec.Code);
                    ItemsWithNegativeInventory.Run();
                end;
            }
#else
            action("Items with Negative Inventory")
            {
                ApplicationArea = Location;
                Caption = 'Items with Negative Inventory';
                Image = "Report";
                ToolTip = 'View a list of items with negative inventory.';

                trigger OnAction()
                var
                    Item: Record Item;
                begin
                    Item.FilterGroup(2);
                    Item.SetRange("Location Filter", Rec.Code);
                    Item.SetFilter(Inventory, '<%1', 0);
                    Item.FilterGroup(0);
                    Page.Run(Page::"Item List", Item);
                end;
            }
#endif
        }
        area(Promoted)
        {
            group(Category_New)
            {
                Caption = 'New', Comment = 'Generated from the PromotedActionCategories property index 0.';
            }
            group(Category_Process)
            {
                Caption = 'Process', Comment = 'Generated from the PromotedActionCategories property index 1.';

                actionref("Create Warehouse location_Promoted"; "Create Warehouse location")
                {
                }
                actionref(CopyLocation_Promoted; CopyLocation)
                {
                }

            }
            group(Category_Location)
            {
                Caption = 'Location';

                group(Category_Dimensions)
                {
                    Caption = 'Dimensions';
                    ShowAs = SplitButton;

                    actionref(DimensionsMultiple_Promoted; DimensionsMultiple)
                    {
                    }
                    actionref(DimensionsSingle_Promoted; DimensionsSingle)
                    {
                    }
                }
                actionref("&Zones_Promoted"; "&Zones")
                {
                }
                actionref("&Bins_Promoted"; "&Bins")
                {
                }
            }
            group(Category_Category4)
            {
                Caption = 'Navigate', Comment = 'Generated from the PromotedActionCategories property index 3.';

            }
            group(Category_Report)
            {
                Caption = 'Report', Comment = 'Generated from the PromotedActionCategories property index 2.';
#if not CLEAN28
                actionref("Items with Negative Inventory_Promoted"; "Items with Negative Inventory")
                {
                    ObsoleteState = Pending;
                    ObsoleteReason = 'This report has been replaced by a filter view on the Item List page. This report will be removed in a future release.';
                    ObsoleteTag = '28.0';
                }
#endif

                actionref("Inventory - Inbound Transfer_Promoted"; "Inventory - Inbound Transfer")
                {
                }
                actionref(Action1907283206_Promoted; Action1907283206)
                {
                }
            }
        }
    }

    procedure GetSelectionFilter(): Text
    var
        Loc: Record Location;
        SelectionFilterManagement: Codeunit SelectionFilterManagement;
    begin
        CurrPage.SetSelectionFilter(Loc);
        exit(SelectionFilterManagement.GetSelectionFilterForLocation(Loc));
    end;
}