bcquality/microsoft/knowledge/scm/use-date-aware-availability-for-promising.good.al

namespace BCQuality.SCM.Samples;

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

codeunit 50115 "SCM Additional Promise Good"
{
    procedure CanPromiseAdditionalDemand(ItemNo: Code[20]; LocationCode: Code[10]; VariantCode: Code[10]; ShipmentDate: Date; RequestedAdditionalQuantityBase: Decimal; LookaheadDateFormula: DateFormula): Boolean
    var
        Item: Record Item;
        AvailableToPromise: Codeunit "Available to Promise";
        GrossRequirement: Decimal;
        ScheduledReceipt: Decimal;
        PromisableQuantityBase: Decimal;
    begin
        if (ShipmentDate = 0D) or (RequestedAdditionalQuantityBase <= 0) then
            Error(DemandInputErr);
        Item.Get(ItemNo);
        Item.TestField(Type, Item.Type::Inventory);
        Item.SetRange("Location Filter", LocationCode);
        Item.SetRange("Variant Filter", VariantCode);
        Item.SetRange("Date Filter", 0D, ShipmentDate);

        PromisableQuantityBase := AvailableToPromise.CalcQtyAvailableToPromise(
            Item, GrossRequirement, ScheduledReceipt, ShipmentDate,
            Enum::"Analysis Period Type"::Day, LookaheadDateFormula);
        exit(PromisableQuantityBase >= RequestedAdditionalQuantityBase);
    end;

    var
        DemandInputErr: Label 'Enter a shipment date and a positive additional base quantity.';
}