Codeunit 335 Req. Wksh.-Show Card, source in 29

Source29

src/Layers/W1/BaseApp/Inventory/Requisition/ReqWkshShowCard.Codeunit.al47 lines, Copyright (c) Microsoft Corporation. MIT

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

using Microsoft.Finance.GeneralLedger.Account;
using Microsoft.Inventory.Item;

codeunit 335 "Req. Wksh.-Show Card"
{
    TableNo = "Requisition Line";

    trigger OnRun()
    var
        IsHandled: Boolean;
    begin
        IsHandled := false;
        OnBeforeOnRun(Rec, Item, GLAcc, IsHandled);
        if IsHandled then
            exit;

        case Rec.Type of
            Rec.Type::"G/L Account":
                begin
                    GLAcc."No." := Rec."No.";
                    PAGE.Run(PAGE::"G/L Account Card", GLAcc);
                end;
            Rec.Type::Item:
                begin
                    Item."No." := Rec."No.";
                    PAGE.Run(PAGE::"Item Card", Item);
                end;
        end;
    end;

    var
        GLAcc: Record "G/L Account";
        Item: Record Item;

    [IntegrationEvent(false, false)]
    local procedure OnBeforeOnRun(var RequisitionLine: Record "Requisition Line"; var Item: Record Item; var GLAcc: Record "G/L Account"; var IsHandled: Boolean)
    begin
    end;
}