|
|
@@ -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
|
