Dynamics Community Forum Thread Details

Incorrect Bin Content

When registering a movement I am getting the following Error.

If i check the bin contents for the item / variant there is in fact this in the bin content

(Enough). Why is it struggling to find the correct amount. It error's in the Bin Contents table.

CheckDecreaseBinContent(Qty : Decimal;VAR QtyBase : Decimal;DecreaseQtyBase : Decimal)
IF "Block Movement" IN ["Block Movement"::Outbound,"Block Movement"::All] THEN
FIELDERROR("Block Movement");

GetLocation("Location Code");
IF "Bin Code" = Location."Adjustment Bin Code" THEN
EXIT;

WhseActivLine.SETCURRENTKEY(
"Item No.","Bin Code","Location Code","Action Type",
"Variant Code","Unit of Measure Code","Breakbulk No.",
"Activity Type","Lot No.","Serial No.","Original Breakbulk");
WhseActivLine.SETRANGE("Item No.","Item No.");
WhseActivLine.SETRANGE("Bin Code","Bin Code");
WhseActivLine.SETRANGE("Location Code","Location Code");
WhseActivLine.SETRANGE("Unit of Measure Code","Unit of Measure Code");
WhseActivLine.SETRANGE("Variant Code","Variant Code");

IF Location."Allow Breakbulk" THEN BEGIN
WhseActivLine.SETRANGE("Action Type",WhseActivLine."Action Type"::Take);
WhseActivLine.SETRANGE("Original Breakbulk",TRUE);
WhseActivLine.SETRANGE("Breakbulk No.",0);
WhseActivLine.CALCSUMS("Qty. (Base)");
DecreaseQtyBase := DecreaseQtyBase + WhseActivLine."Qty. (Base)";
END;

"Lot No. Filter" := WhseActivLine."Lot No.";

QtyAvailToPickBase := CalcQtyAvailToTake(DecreaseQtyBase); <--- This is returning 0
IF QtyAvailToPickBase < QtyBase THEN BEGIN
GetItem("Item No.");
QtyAvailToPick := ROUND(QtyAvailToPickBase / UOMMgt.GetQtyPerUnitOfMeasure(Item,"Unit of Measure Code"),0.00001);
IF QtyAvailToPick = Qty THEN
QtyBase := QtyAvailToPickBase // rounding issue- qty is same, but not qty (base)
ELSE BEGIN
FIELDERROR("Quantity (Base)",STRSUBSTNO(Text006,ABS(QtyBase))); <-- This Error
END;
END;