变更令选择窗口，输入数量与可用数量，判断突然失效

Forms/BGLSelectFrm.pas

@@ -314,8 +314,8 @@ begin
     begin
       fCur := QuantityRoundTo(StrToFloatDef(zgBGL.Cells[5, zgBGL.CurRow].Text, 0));
       fValid := StrToFloatDef(zgBGL.Cells[4, zgBGL.CurRow].Text, 0);
-      if ((fValid >= 0) and (fCur <= fValid)) or
-         ((fValid < 0) and (fCur >= fValid)) then
+      if ((fValid >= 0) and (QuantityRoundTo(fValid - fCur) >= 0))) or
+         ((fValid < 0) and (QuantityRoundTo(fCur - fValid) >= 0))) then
         zgBGL.Cells[5, zgBGL.CurRow].Text := FloatToStr(fCur)
       else
       begin