清单汇总，超计调整

Frames/BillsGatherFme.pas

@@ -166,13 +166,8 @@ procedure TBillsGatherFrame.zgGclBillsCellGetColor(Sender: TObject;
     fCompare: Double;
   begin
     vQtyDecimal := TProjectData(FBillsGatherData.ProjectData).ProjProperties.DecimalManager.Common.Quantity;
-    if Abs(AQty) > vQtyDecimal.CompareValue then
-    begin
-      fCompare := vQtyDecimal.RoundTo(AQty * SupportManager.ConfigInfo.OverRangePercent / 100);
-      Result := vQtyDecimal.RoundTo(ACompareQty - AQty) > vQtyDecimal.CompareValue;
-    end
-    else
-      Result := Abs(ACompareQty) > vQtyDecimal.CompareValue;
+    fCompare := vQtyDecimal.RoundTo(AQty * SupportManager.ConfigInfo.OverRangePercent / 100);
+    Result := vQtyDecimal.RoundTo(ACompareQty - AQty) > vQtyDecimal.CompareValue;
   end;
 
   function CheckOverRange(ARecIndex: Integer): Boolean;