Browse Source

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

MaiXinRong 9 years ago
parent
commit
470426e019
1 changed files with 2 additions and 0 deletions
  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;