Codeunit 5919 Serv Reg.-Show WarrLdgEntries

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

codeunit 5919 "Serv Reg.-Show WarrLdgEntries"
{
    TableNo = "Service Register";

    trigger OnRun()
    begin
        WarrLedgEntry.Reset();
        WarrLedgEntry.SetRange("Entry No.", Rec."From Warranty Entry No.", Rec."To Warranty Entry No.");
        WarrLedgEntry.SetFilter("Service Register No.", '0|%1', Rec."No.");
        Page.Run(Page::"Warranty Ledger Entries", WarrLedgEntry);
    end;

    var
        WarrLedgEntry: Record "Warranty Ledger Entry";
}