清单汇总，控制小数位数

DataModules/BillsGatherDm.dfm

@@ -251,6 +251,7 @@ object BillsGatherData: TBillsGatherData
       end
       item
         FieldName = 'Deal_BGLPercent'
+        DisplayFormat = '0.##'
       end>
     OnCurrentChanged = sdvGclBillsCurrentChanged
     Left = 40

Units/ProjectData.pas

@@ -1556,9 +1556,73 @@ procedure TProjectData.ResetFloatDigitView;
     end;
   end;
 
+  procedure SetBillsGatherDigit;
+  begin
+    with FBillsGatherData.sdvGclBills do
+    begin
+      Columns.FindColumn('Price').DisplayFormat := FProjProperties.PriceFormat;
+
+      Columns.FindColumn('DealQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('DealTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+      Columns.FindColumn('BGLQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('BGLTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+      Columns.FindColumn('Quantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('TotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+
+      Columns.FindColumn('CurDealQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('CurDealTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+      Columns.FindColumn('CurQcQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('CurQcTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+      Columns.FindColumn('CurGatherQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('CurGatherTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+
+      Columns.FindColumn('PreDealQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('PreDealTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+      Columns.FindColumn('PreQcQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('PreQcTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+      Columns.FindColumn('PreGatherQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('PreGatherTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+
+      Columns.FindColumn('AddDealQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('AddDealTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+      Columns.FindColumn('AddQcQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('AddQcTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+      Columns.FindColumn('AddGatherQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('AddGatherTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+
+      Columns.FindColumn('EndDealQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('EndDealTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+      Columns.FindColumn('EndQcQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('EndQcTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+      Columns.FindColumn('EndGatherQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('EndGatherTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+
+      Columns.FindColumn('Deal_BGLQuantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('Deal_BGLTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+    end;
+
+    with FBillsGatherData.sdvDetailGclBills do
+    begin
+      Columns.FindColumn('Quantity').DisplayFormat := FProjProperties.QuantityFormat;
+    end;
+
+    with FBillsGatherData.sdvDetailDealBills do
+    begin
+      Columns.FindColumn('Quantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('TotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+    end;
+
+    with FBillsGatherData.sdvDetailBGLBills do
+    begin
+      Columns.FindColumn('Quantity').DisplayFormat := FProjProperties.QuantityFormat;
+      Columns.FindColumn('TotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+    end;
+  end;
+
 begin
   SetBillsCompileDigit;
   SetBillsMeasureDigit;
+  SetBillsGatherDigit;
 end;
 
 function TProjectData.GetStageDataReadOnly: Boolean;