Codeunit 390 Item Reg.-Show Inventory Ledg., 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.Ledger;

using Microsoft.Inventory.Counting.Journal;

codeunit 390 "Item Reg.-Show Inventory Ledg."
{
    TableNo = "Item Register";

    trigger OnRun()
    begin
        PhysInvtLedgEntry.SetRange("Entry No.", Rec."From Phys. Inventory Entry No.", Rec."To Phys. Inventory Entry No.");
        PhysInvtLedgEntry.SetFilter("Item Register No.", '0|%1', Rec."No.");
        PAGE.Run(PAGE::"Phys. Inventory Ledger Entries", PhysInvtLedgEntry);
    end;

    var
        PhysInvtLedgEntry: Record "Phys. Inventory Ledger Entry";
}