...
IF Location."Require Pick" THEN
QtyReservedOnPickShip :=
CreatePick.CalcReservQtyOnPicksShips("Location Code","Item No.","Variant Code") + QtyReservedOnPickShip;
QtyAssgndOnWkshBase := WMSMgt.CalcQtyAssgndOnWksh(Rec,TRUE,FALSE);
// Delete the following line.
AvailQtyBase := WMSMgt.CalcInvtAvailQty(Item2,Location,"Variant Code");
END;
AvailableQty := AvailQtyBase - QtyAssgndOnWkshBase + AssignedQtyOnReservedLines;
END;
...
...
IF Location."Require Pick" THEN
QtyReservedOnPickShip :=
CreatePick.CalcReservQtyOnPicksShips("Location Code","Item No.","Variant Code") + QtyReservedOnPickShip;
QtyAssgndOnWkshBase := WMSMgt.CalcQtyAssgndOnWksh(Rec,TRUE,FALSE);
// Add the following line.
AvailQtyBase := WMSMgt.CalcInvtAvailQty(Item2,Location,"Variant Code") + QtyReservedOnPickShip;
END;
AvailableQty := AvailQtyBase - QtyAssgndOnWkshBase + AssignedQtyOnReservedLines;
END;
...