Bug #1533 删除变更令重新调用，不应报错

调用变更令时，计算累计完成率，会得到父项的除数是7*E-12（此时保留12位小数，因以前存在10位小数的项目）
依然出错，现改为保留10位小数。

Units/UtilMethods.pas

@@ -241,7 +241,7 @@ end;
 
 function CommonCalcRoundTo(AValue: Double): Double;
 begin
-  Result := CommonRoundTo(AValue, -12);
+  Result := CommonRoundTo(AValue, -10);
 end;
 
 {Interface Control}