Codeunit 99000767 Mfg. Whse. Worksheet Line

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

using Microsoft.Manufacturing.Document;

codeunit 99000767 "Mfg. Whse. Worksheet Line"
{
    [EventSubscriber(ObjectType::Table, Database::"Whse. Worksheet Line", 'OnUpdateQtyHandledForProdOrderOutput', '', true, false)]
    local procedure OnUpdateQtyHandledForProdOrderOutput(var WhseWorksheetLine: Record "Whse. Worksheet Line")
    var
        ProdOrderLine: Record "Prod. Order Line";
    begin
        ProdOrderLine.Get(WhseWorksheetLine."Source Subtype", WhseWorksheetLine."Source No.", WhseWorksheetLine."Source Line No.");
        ProdOrderLine.CalcFields("Put-away Qty. (Base)");

        if ProdOrderLine."Finished Quantity" = WhseWorksheetLine."Qty. Handled" then
            WhseWorksheetLine.Validate("Qty. Outstanding", 0)
        else
            WhseWorksheetLine.Validate("Qty. Outstanding", ProdOrderLine."Finished Qty. (Base)" - (ProdOrderLine."Qty. Put Away (Base)" + ProdOrderLine."Put-away Qty. (Base)"));
    end;
}