Page 9125 Item Application FactBox, 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.Item;

page 9125 "Item Application FactBox"
{
    Caption = 'Item Application';
    Editable = false;
    PageType = CardPart;
    SourceTable = "Item Ledger Entry";

    layout
    {
        area(content)
        {
            field("Entry No."; Rec."Entry No.")
            {
                ApplicationArea = Basic, Suite;
            }
            field("Item No."; Rec."Item No.")
            {
                ApplicationArea = Basic, Suite;
            }
#pragma warning disable AA0100
            field("Item.""Costing Method"""; Item."Costing Method")
#pragma warning restore AA0100
            {
                ApplicationArea = Basic, Suite;
                Caption = 'Costing Method';
                ToolTip = 'Specifies which costing method applies to the item number.';
            }
            field("Posting Date"; Rec."Posting Date")
            {
                ApplicationArea = Basic, Suite;
            }
            field("Entry Type"; Rec."Entry Type")
            {
                ApplicationArea = Basic, Suite;
            }
            field(Quantity; Rec.Quantity)
            {
                ApplicationArea = Basic, Suite;
            }
            field("Reserved Quantity"; Rec."Reserved Quantity")
            {
                ApplicationArea = Reservation;
            }
            field("Remaining Quantity"; Rec."Remaining Quantity")
            {
                ApplicationArea = Basic, Suite;
            }
            field(Available; Available)
            {
                ApplicationArea = Basic, Suite;
                AutoFormatType = 0;
                Caption = 'Available';
                DecimalPlaces = 0 : 5;
                ToolTip = 'Specifies the number available for the relevant entry.';
            }
            field(Applied; Applied)
            {
                ApplicationArea = Basic, Suite;
                AutoFormatType = 0;
                Caption = 'Applied';
                DecimalPlaces = 0 : 5;
                ToolTip = 'Specifies the number applied to the relevant entry.';
            }
        }
    }

    actions
    {
    }

    trigger OnAfterGetRecord()
    begin
        Rec.CalcFields("Reserved Quantity");
        Available := Rec.Quantity - Rec."Reserved Quantity";
        Applied := ItemApplnEntry.OutboundApplied(Rec."Entry No.", false) - ItemApplnEntry.InboundApplied(Rec."Entry No.", false);

        if not Item.Get(Rec."Item No.") then
            Item.Reset();
    end;

    trigger OnFindRecord(Which: Text): Boolean
    begin
        Available := 0;
        Applied := 0;
        Clear(Item);

        exit(Rec.Find(Which));
    end;

    var
        Item: Record Item;
        ItemApplnEntry: Record "Item Application Entry";
        Available: Decimal;
        Applied: Decimal;
}