|
|
@@ -168,7 +168,7 @@ procedure TBillsGatherFrame.zgGclBillsCellGetColor(Sender: TObject;
|
|
|
0: Result := QuantityRoundTo(fEndDealQuantity - fQuantity) > fCompare;
|
|
|
1: Result := QuantityRoundTo(fEndDealQuantity - fDealQuantity) > fCompare;
|
|
|
2: Result := (QuantityRoundTo(fEndDealQuantity - fQuantity) > fCompare)
|
|
|
- or (QuantityRoundTo(fEndDealQuantity - fQuantity) > fCompare);
|
|
|
+ or (QuantityRoundTo(fEndDealQuantity - fDealQuantity) > fCompare);
|
|
|
end;
|
|
|
end;
|
|
|
|
