浏览代码

Bug 修改小数位数,价差部分未更新,关闭打开项目后方正确

MaiXinRong 9 年之前
父节点
当前提交
470426e019
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      Forms/ProjectPropertiesFrm.pas

+ 2 - 0
Forms/ProjectPropertiesFrm.pas

@@ -568,6 +568,8 @@ begin
     FProjProperties.QuantityDigit := udQuantity.Position;
     FProjProperties.TotalPriceDigit := udTotalPrice.Position;
     FProjectData.ResetFloatDigitView;
+    FProjProperties.DecimalManager.PriceMargin.Quantity.Digit := udQuantity.Position;
+    FProjProperties.DecimalManager.PriceMargin.TotalPrice.Digit := udTotalPrice.Position;
   end;
   if (FProjProperties.PhaseCount = 1) and not FProjectData.PriceMarginReadOnly then
     FProjProperties.DecimalManager.PriceMargin.Price.Digit := udPM_PriceDigit.Position;