Page 913 Assembly Availability Check

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Assembly.Document;

using Microsoft.Foundation.UOM;
using Microsoft.Inventory.Availability;
using Microsoft.Inventory.Item;

page 913 "Assembly Availability Check"
{
    Caption = 'Assembly Availability Check';
    Editable = false;
    InsertAllowed = false;
    ModifyAllowed = false;
    DeleteAllowed = false;
    DelayedInsert = false;
    LinksAllowed = false;
    MultipleNewLines = false;
    PopulateAllFields = false;
    SaveValues = false;
    ShowFilter = true;
    SourceTable = "Assembly Header";
    SourceTableTemporary = true;

    layout
    {

        area(content)
        {
            label(Control2)
            {
                ApplicationArea = Basic, Suite;
                CaptionClass = Heading;
                ShowCaption = false;
                Style = Unfavorable;
                StyleExpr = QtyAvailTooLow;
            }
            group(AssemblyHeaderDetails)
            {
                ShowCaption = false;
                Visible = AssemblyHeaderDetailsVisible;
                field("No."; Rec."No.")
                {
                    ApplicationArea = Assembly;
                    ToolTip = 'Specifies the number assigned to the assembly order from the number series that you set up in the Assembly Setup window.';
                }
            }
            group(Details)
            {
                Caption = 'Details';

                group(DetailsItem)
                {
                    ShowCaption = false;
                    field("Item No."; Rec."Item No.")
                    {
                        ApplicationArea = Basic, Suite;
                    }
                    field(Description; Rec.Description)
                    {
                        ApplicationArea = Assembly;
                    }
                    field("Unit of Measure Code"; Rec."Unit of Measure Code")
                    {
                        ApplicationArea = Assembly;
                        ToolTip = 'Specifies the unit of measure code of the assembly item.';
                    }
                    field("Variant Code"; Rec."Variant Code")
                    {
                        ApplicationArea = Planning;
                        ToolTip = 'Specifies the code of the item variant of the item that is being assembled.';
                    }
                    field("Location Code"; Rec."Location Code")
                    {
                        ApplicationArea = Location;
                    }
                    field("Current Quantity"; Rec."Remaining Quantity")
                    {
                        ApplicationArea = Assembly;
                        Caption = 'Current Quantity';
                    }
                    field("Reserved Quantity"; Rec."Reserved Quantity")
                    {
                        ApplicationArea = Reservation;
                    }
                }
                group(DetailsQty)
                {
                    ShowCaption = false;

                    field(Inventory; Inventory)
                    {
                        ApplicationArea = Assembly;
                        AutoFormatType = 0;
                        Caption = 'Inventory';
                        DecimalPlaces = 0 : 5;
                        ToolTip = 'Specifies how many units of the assembly item are in inventory.';

                        trigger OnDrillDown()
                        var
                            Item: Record Item;
                            ItemAvailFormsMgt: Codeunit "Item Availability Forms Mgt";
                        begin
                            Item.Get(Rec."Item No.");
                            Rec.SetItemFilter(Item);
                            ItemAvailFormsMgt.ShowItemLedgerEntries(Item, false);
                        end;
                    }
                    field(GrossRequirement; GrossRequirement)
                    {
                        ApplicationArea = Assembly;
                        AutoFormatType = 0;
                        Caption = 'Gross Requirement';
                        DecimalPlaces = 0 : 5;
                        ToolTip = 'Specifies the total demand for the assembly item.';
                    }
                    field(AbleToAssemble; QtyAvailToMake)
                    {
                        ApplicationArea = Assembly;
                        AutoFormatType = 0;
                        Caption = 'Able to Assemble';
                        DecimalPlaces = 0 : 5;
                        Style = Unfavorable;
                        StyleExpr = QtyAvailTooLow;
                        ToolTip = 'Specifies how many units of the assembly item can be assembled, based on the availability of components on the assembly order lines.';
                    }
                    field(EarliestAvailableDate; EarliestAvailableDate)
                    {
                        ApplicationArea = Assembly;
                        Caption = 'Earliest Available Date';
                        ToolTip = 'Specifies the late arrival date of an inbound supply order that can cover the needed quantity of the assembly item.';
                    }

                    field(ReservedRequirement; ReservedRequirement)
                    {
                        ApplicationArea = Planning;
                        AutoFormatType = 0;
                        Caption = 'Reserved Requirement';
                        DecimalPlaces = 0 : 5;
                    }
                    field(ScheduledReceipts; ScheduledReceipts)
                    {
                        ApplicationArea = Assembly;
                        AutoFormatType = 0;
                        Caption = 'Scheduled Receipts';
                        DecimalPlaces = 0 : 5;
                        ToolTip = 'Specifies how many units of the assembly item are inbound on orders.';
                    }
                    field(ReservedReceipts; ReservedReceipts)
                    {
                        ApplicationArea = Planning;
                        AutoFormatType = 0;
                        Caption = 'Reserved Receipts';
                        DecimalPlaces = 0 : 5;
                    }
                }

            }
            part(AssemblyLineAvail; "Assembly Line Avail.")
            {
                ApplicationArea = Assembly;
                SubPageLink = "Document Type" = field("Document Type"),
                                  "Document No." = field("No.");
            }
        }
    }

    trigger OnOpenPage()
    begin
        AssemblyHeaderDetailsVisible := Rec."No." <> '';
    end;

    var
        Inventory: Decimal;
        GrossRequirement: Decimal;
        ReservedRequirement: Decimal;
        ScheduledReceipts: Decimal;
        ReservedReceipts: Decimal;
        EarliestAvailableDate: Date;
        QtyAvailToMake: Decimal;
        QtyAvailTooLow: Boolean;
        AssemblyHeaderDetailsVisible: Boolean;
        Heading: Text;

    procedure SetHeading(Value: Text)
    begin
        Heading := Value;
    end;

    procedure SetAssemblyHeader(var TempAssemblyHeader2: Record "Assembly Header" temporary)
    begin
        Rec.Init();
        Rec := TempAssemblyHeader2;
        Rec.Insert();
        Rec.SetRange("No.", Rec."No.");
        CurrPage.AssemblyLineAvail.PAGE.SetHeader(TempAssemblyHeader2);
    end;

    procedure SetAssemblyLines(var TempAssemblyLine2: Record "Assembly Line" temporary)
    var
        TempAssemblyLine: Record "Assembly Line" temporary;
    begin
        TempAssemblyLine.Copy(TempAssemblyLine2, true);
        CurrPage.AssemblyLineAvail.PAGE.SetLinesRecord(TempAssemblyLine);
    end;

    procedure SetHeaderInventoryData(Inventory2: Decimal; GrossRequirement2: Decimal; ReservedRequirement2: Decimal; ScheduledReceipts2: Decimal; ReservedReceipts2: Decimal; EarliestAvailableDate2: Date; QtyAvailToMake2: Decimal; QtyAvailTooLow2: Boolean)
    begin
        Inventory := Inventory2;
        GrossRequirement := GrossRequirement2;
        ReservedRequirement := ReservedRequirement2;
        ScheduledReceipts := ScheduledReceipts2;
        ReservedReceipts := ReservedReceipts2;
        EarliestAvailableDate := EarliestAvailableDate2;
        QtyAvailToMake := QtyAvailToMake2;
        QtyAvailTooLow := QtyAvailTooLow2;
    end;

    procedure PopulateDataOnNotification(var AssemblyAvailabilityCheckNotification: Notification; var AssemblyHeader: Record "Assembly Header")
    begin
        AssemblyAvailabilityCheckNotification.SetData('AssemblyType', Format(AssemblyHeader."Document Type".AsInteger()));
        AssemblyAvailabilityCheckNotification.SetData('AssemblyNo', AssemblyHeader."No.");

        AssemblyAvailabilityCheckNotification.SetData('ItemNo', AssemblyHeader."Item No.");
        AssemblyAvailabilityCheckNotification.SetData('ItemDescription', AssemblyHeader.Description);
        AssemblyAvailabilityCheckNotification.SetData('VariantCode', AssemblyHeader."Variant Code");
        AssemblyAvailabilityCheckNotification.SetData('UnitOfMeasureCode', AssemblyHeader."Unit of Measure Code");
        AssemblyAvailabilityCheckNotification.SetData('QtyPerUnitOfMeasureCode', Format(AssemblyHeader."Qty. per Unit of Measure"));
        AssemblyAvailabilityCheckNotification.SetData('LocationCode', AssemblyHeader."Location Code");
        AssemblyAvailabilityCheckNotification.SetData('BinCode', AssemblyHeader."Bin Code");
        AssemblyAvailabilityCheckNotification.SetData('DueDate', Format(AssemblyHeader."Due Date"));
        AssemblyAvailabilityCheckNotification.SetData('Quantity', Format(AssemblyHeader.Quantity));

        OnAfterPopulateDataOnNotification(AssemblyAvailabilityCheckNotification, AssemblyHeader);
    end;

    procedure InitializeFromNotification(AssemblyAvailabilityCheckNotification: Notification; var AssemblyHeader: Record "Assembly Header"; var ExisitngDocument: Boolean)
    var
        InDbAssemblyHeader: Record "Assembly Header";
        Item: Record Item;
        UnitofMeasureManagement: Codeunit "Unit of Measure Management";
    begin
        AssemblyHeader.Reset();
        Evaluate(AssemblyHeader."Document Type", AssemblyAvailabilityCheckNotification.GetData('AssemblyType'));
        AssemblyHeader."No." := AssemblyAvailabilityCheckNotification.GetData('AssemblyNo');

        ExisitngDocument := InDbAssemblyHeader.Get(AssemblyHeader."Document Type", AssemblyHeader."No.")
            and (InDbAssemblyHeader."Item No." <> '')
            and (InDbAssemblyHeader.Quantity <> 0);
        if ExisitngDocument then
            AssemblyHeader.Copy(InDbAssemblyHeader);

        AssemblyHeader."Item No." := AssemblyAvailabilityCheckNotification.GetData('ItemNo');
        AssemblyHeader.Description := AssemblyAvailabilityCheckNotification.GetData('ItemDescription');
        if AssemblyHeader.Description = '' then begin
            Item.Get(AssemblyHeader."Item No.");
            AssemblyHeader.Description := Item.Description;
        end;

        if AssemblyAvailabilityCheckNotification.GetData('VariantCode') <> '' then
            AssemblyHeader."Variant Code" := AssemblyAvailabilityCheckNotification.GetData('VariantCode');
        if AssemblyAvailabilityCheckNotification.GetData('UnitOfMeasureCode') <> '' then
            AssemblyHeader."Unit of Measure Code" := AssemblyAvailabilityCheckNotification.GetData('UnitOfMeasureCode');
        if AssemblyAvailabilityCheckNotification.GetData('QtyPerUnitOfMeasureCode') <> '' then
            Evaluate(AssemblyHeader."Qty. per Unit of Measure", AssemblyAvailabilityCheckNotification.GetData('QtyPerUnitOfMeasureCode'))
        else
            AssemblyHeader."Qty. per Unit of Measure" := 1;
        AssemblyHeader."Location Code" := AssemblyAvailabilityCheckNotification.GetData('LocationCode');
        if AssemblyAvailabilityCheckNotification.GetData('BinCode') <> '' then
            AssemblyHeader."Bin Code" := AssemblyAvailabilityCheckNotification.GetData('BinCode');
        if AssemblyAvailabilityCheckNotification.GetData('DueDate') <> '' then
            Evaluate(AssemblyHeader."Due Date", AssemblyAvailabilityCheckNotification.GetData('DueDate'))
        else
            AssemblyHeader."Due Date" := WorkDate();
        AssemblyHeader.ValidateDates(AssemblyHeader.FieldNo("Due Date"), true);
        Evaluate(AssemblyHeader.Quantity, AssemblyAvailabilityCheckNotification.GetData('Quantity'));
        AssemblyHeader."Quantity (Base)" := UnitofMeasureManagement.RoundQty(AssemblyHeader.Quantity * AssemblyHeader."Qty. per Unit of Measure", AssemblyHeader."Qty. Rounding Precision (Base)");
        AssemblyHeader.InitRemainingQty();

        OnAfterInitializeFromNotification(AssemblyAvailabilityCheckNotification, AssemblyHeader);
    end;

    [IntegrationEvent(false, false)]
    procedure OnAfterPopulateDataOnNotification(var AssemblyAvailabilityCheckNotification: Notification; var AssemblyHeader: Record "Assembly Header")
    begin
    end;

    [IntegrationEvent(false, false)]
    procedure OnAfterInitializeFromNotification(var AssemblyAvailabilityCheckNotification: Notification; var AssemblyHeader: Record "Assembly Header")
    begin
    end;
}