Cold Storage & Perishable Logistics: Catch-Weight & Multi-Zone Temperature Management

codeunit 50270 "Cold Storage WMS Validator"
{
    Access = Public;
    Subtype = Normal;

    [EventSubscriber(ObjectType::Table, Database::"Warehouse Activity Line", 'OnBeforePutAwayRegister', '', false, false)]
    local procedure ValidateTemperatureZone(var WarehouseActivityLine: Record "Warehouse Activity Line"; var IsHandled: Boolean)
    var
        Bin: Record Bin;
        Item: Record Item;
    begin
        if WarehouseActivityLine."Action Type" <> WarehouseActivityLine."Action Type"::Place then
            exit;

        Bin.Get(WarehouseActivityLine."Location Code", WarehouseActivityLine."Bin Code");
        Item.Get(WarehouseActivityLine."Item No.");

        // Check Temperature Zone Compatibility (Deep Freeze -25C, Chilled +2C, Ambient)
        if (Item."Storage Zone Required" <> Bin."Temperature Zone") then begin
            Error('Cold Chain Violation: Item %1 requires %2 zone, but target Bin %3 is %4.',
                Item."No.",
                Item."Storage Zone Required",
                Bin."Code",
                Bin."Temperature Zone");
        end;
    end;

    procedure LogIoTExcursionAlert(LocationCode: Code[10]; BinCode: Code[20]; MeasuredTemp: Decimal)
    var
        Bin: Record Bin;
        LotInfo: Record "Lot No. Information";
    begin
        if Bin.Get(LocationCode, BinCode) then begin
            if MeasuredTemp > Bin."Max Safe Temperature" then begin
                // Lock all Lots in this Bin from shipment
                LotInfo.SetRange("Location Code", LocationCode);
                LotInfo.SetRange("Bin Code", BinCode);
                if LotInfo.FindSet() then begin
                    repeat
                        LotInfo.Blocked := true;
                        LotInfo.Modify(true);
                    until LotInfo.Next() = 0;
                end;

                Message('CRITICAL ALERT: Temperature Excursion detected in Bin %1 (%2 C). Locked all contained lots from shipment.', BinCode, MeasuredTemp);
            end;
        end;
    end;
}