judge of super meter

Frames/BillsGatherFme.pas

@@ -56,7 +56,7 @@ type
 implementation
 
 uses
-  ProjectData;
+  ProjectData, UtilMethods, CalcDecimal;
 
 {$R *.dfm}
 
@@ -141,7 +141,7 @@ procedure TBillsGatherFrame.zgGclBillsCellGetColor(Sender: TObject;
   function CheckOverRange(ARecIndex: Integer): Boolean;
   var
     Rec: TsdDataRecord;
-    fQuantity, fDealQuantity, fEndDealQuantity: Double;
+    fQuantity, fDealQuantity, fEndDealQuantity, fCompare: Double;
   begin
     Rec := saGclBills.DataView.Records[ARecIndex];
     Result := False;
@@ -150,10 +150,12 @@ procedure TBillsGatherFrame.zgGclBillsCellGetColor(Sender: TObject;
     fDealQuantity := Rec.ValueByName('DealQuantity').AsFloat;
     fQuantity := Rec.ValueByName('Quantity').AsFloat;
     fEndDealQuantity := Rec.ValueByName('EndDealQuantity').AsFloat;
+    fCompare := TProjectData(FBillsGatherData.ProjectData).ProjProperties.DecimalManager.Common.Quantity.CompareValue;
     case SupportManager.ConfigInfo.OverRangeType of
-      0: Result := fEndDealQuantity > fQuantity;
-      1: Result := fEndDealQuantity > fDealQuantity;
-      2: Result := (fEndDealQuantity > fQuantity) or (fEndDealQuantity > fDealQuantity);
+      0: Result := QuantityRoundTo(fEndDealQuantity - fQuantity) > fCompare;
+      1: Result := QuantityRoundTo(fEndDealQuantity - fDealQuantity) > fCompare;
+      2: Result := (QuantityRoundTo(fEndDealQuantity - fQuantity) > fCompare)
+                or (QuantityRoundTo(fEndDealQuantity - fQuantity) > fCompare);
     end;
   end;
 

Units/CalcDecimal.pas

@@ -12,6 +12,7 @@ type
     FFormat: string;
     FLinkViewCols: TList;
     FRelaDecimal: TDecimal;
+    FCompareValue: Double;
     procedure SetDigit(const Value: Integer);
 
     function GetDisplayFormat(ADigit: Integer): string;
@@ -30,6 +31,7 @@ type
 
     property Digit: Integer read FDigit write SetDigit;
     property Format: string read FFormat;
+    property CompareValue: Double read FCompareValue;
 
     property RelaDecimal: TDecimal read FRelaDecimal write SetRelaDecimal;
   end;
@@ -156,6 +158,7 @@ begin
   begin
     FDigit := Value;
     FFormat := GetDisplayFormat(FDigit);
+    FCompareValue := GetCompareDigitValue(FDigit);
     RefreshLinkViewColsFormat;
   end;
 end;

Units/UtilMethods.pas

@@ -12,6 +12,7 @@ type
   TBookmarkRefreshEvent = procedure (AExpandFrame: Boolean) of object;
 
   {RoundTo}
+  function GetCompareDigitValue(ADigit: Integer): Double;
   function QuantityRoundTo(AValue: Double): Double;
   function PriceRoundTo(AValue: Double): Double;
   function TotalPriceRoundTo(AValue: Double): Double;
@@ -158,6 +159,14 @@ begin
   end;
 end;
 
+function GetCompareDigitValue(ADigit: Integer): Double;
+begin
+  if ADigit < 0 then
+    Result := IntPower(10, ADigit - 1)
+  else
+    Result := 0.1;
+end;
+
 function QuantityRoundTo(AValue: Double): Double;
 begin
   if Assigned(OpenProjectManager.CurProjectData) then