计算问题

DataModules/StageDm.pas

@@ -780,8 +780,8 @@ procedure TStageData.CalculateLeaf(ANode: TMeasureBillsIDTreeNode);
     if GetCalcType(ANode.ID) = 0 then
     begin
       if ARec.ValueByName(AType + 'Formula').AsString <> '' then
-        ARec.ValueByName(AType + 'Quantity').AsFloat :=
-            EvaluateExprs(ARec.ValueByName(AType + 'Formula').AsString);
+        ARec.ValueByName(AType + 'Quantity').AsFloat := QuantityRoundTo(
+            EvaluateExprs(ARec.ValueByName(AType + 'Formula').AsString));
       ARec.ValueByName(AType + 'TotalPrice').AsFloat := TotalPriceRoundTo(
           ARec.ValueByName(AType + 'Quantity').AsFloat * GetBillsPrice(ANode.ID));
     end;