汇总表Bug

DataModules/ReportMemoryDm/rmBillsGatherDm.dfm

@@ -5,13 +5,258 @@ object rmBillsGatherData: TrmBillsGatherData
   Height = 276
   Width = 288
   object cdsFxBills: TClientDataSet
+    Active = True
     Aggregates = <>
-    FieldDefs = <>
+    FieldDefs = <
+      item
+        Name = 'XiangCode'
+        DataType = ftString
+        Size = 10
+      end
+      item
+        Name = 'MuCode'
+        DataType = ftString
+        Size = 10
+      end
+      item
+        Name = 'JieCode'
+        DataType = ftString
+        Size = 10
+      end
+      item
+        Name = 'XiMuCode'
+        DataType = ftString
+        Size = 30
+      end
+      item
+        Name = 'Code'
+        DataType = ftString
+        Size = 50
+      end
+      item
+        Name = 'B_Code'
+        DataType = ftString
+        Size = 50
+      end
+      item
+        Name = 'Name'
+        DataType = ftWideString
+        Size = 200
+      end
+      item
+        Name = 'Units'
+        DataType = ftWideString
+        Size = 20
+      end
+      item
+        Name = 'Price'
+        DataType = ftFloat
+      end
+      item
+        Name = 'AddDealQuantity'
+        DataType = ftFloat
+      end
+      item
+        Name = 'AddDealTotalPrice'
+        DataType = ftFloat
+      end
+      item
+        Name = 'AddQcQuantity'
+        DataType = ftFloat
+      end
+      item
+        Name = 'AddQcTotalPrice'
+        DataType = ftFloat
+      end
+      item
+        Name = 'AddPcQuantity'
+        DataType = ftFloat
+      end
+      item
+        Name = 'AddPcTotalPrice'
+        DataType = ftFloat
+      end
+      item
+        Name = 'AddGatherQuantity'
+        DataType = ftFloat
+      end
+      item
+        Name = 'AddGatherTotalPrice'
+        DataType = ftFloat
+      end
+      item
+        Name = 'Percent'
+        DataType = ftFloat
+      end
+      item
+        Name = 'MemoStr'
+        DataType = ftWideString
+        Size = 100
+      end
+      item
+        Name = 'Quantity'
+        DataType = ftFloat
+      end
+      item
+        Name = 'TotalPrice'
+        DataType = ftFloat
+      end
+      item
+        Name = 'DgnQuantity1'
+        DataType = ftFloat
+      end
+      item
+        Name = 'DgnQuantity2'
+        DataType = ftFloat
+      end
+      item
+        Name = 'DgnQuantity'
+        DataType = ftString
+        Size = 50
+      end
+      item
+        Name = 'DgnPrice2'
+        DataType = ftFloat
+      end
+      item
+        Name = 'DgnPrice1'
+        DataType = ftFloat
+      end
+      item
+        Name = 'DgnPrice'
+        DataType = ftString
+        Size = 50
+      end
+      item
+        Name = 'RatioPercent'
+        DataType = ftFloat
+      end
+      item
+        Name = 'AddRatioPercent'
+        DataType = ftFloat
+      end
+      item
+        Name = 'DealDgnQuantity1'
+        DataType = ftFloat
+      end
+      item
+        Name = 'DealDgnQuantity2'
+        DataType = ftFloat
+      end
+      item
+        Name = 'DealDgnQuantity'
+        DataType = ftString
+        Size = 50
+      end
+      item
+        Name = 'DealDgnPrice1'
+        DataType = ftFloat
+      end
+      item
+        Name = 'DealDgnPrice2'
+        DataType = ftFloat
+      end
+      item
+        Name = 'DealDgnPrice'
+        DataType = ftString
+        Size = 50
+      end
+      item
+        Name = 'CDgnQuantity1'
+        DataType = ftFloat
+      end
+      item
+        Name = 'CDgnQuantity2'
+        DataType = ftFloat
+      end
+      item
+        Name = 'CDgnQuantity'
+        DataType = ftString
+        Size = 50
+      end
+      item
+        Name = 'CDgnPrice1'
+        DataType = ftFloat
+      end
+      item
+        Name = 'CDgnPrice2'
+        DataType = ftFloat
+      end
+      item
+        Name = 'CDgnPrice'
+        DataType = ftString
+        Size = 50
+      end
+      item
+        Name = 'FinalDgnQuantity1'
+        DataType = ftFloat
+      end
+      item
+        Name = 'FinalDgnQuantity2'
+        DataType = ftFloat
+      end
+      item
+        Name = 'FinalDgnQuantity'
+        DataType = ftString
+        Size = 50
+      end
+      item
+        Name = 'FinalDgnPrice1'
+        DataType = ftFloat
+      end
+      item
+        Name = 'FinalDgnPrice2'
+        DataType = ftFloat
+      end
+      item
+        Name = 'FinalDgnPrice'
+        DataType = ftString
+        Size = 50
+      end>
     IndexDefs = <>
     Params = <>
     StoreDefs = True
     Left = 32
     Top = 24
+    Data = {
+      AA0400009619E0BD01000000180000002F000000000003000000AA0409586961
+      6E67436F64650100490000000100055749445448020002000A00064D75436F64
+      650100490000000100055749445448020002000A00074A6965436F6465010049
+      0000000100055749445448020002000A000858694D75436F6465010049000000
+      0100055749445448020002001E0004436F646501004900000001000557494454
+      4802000200320006425F436F6465010049000000010005574944544802000200
+      3200044E616D6502004A000000010005574944544802000200900105556E6974
+      7301004A00000001000557494454480200020028000550726963650800040000
+      0000000F4164644465616C5175616E7469747908000400000000001141646444
+      65616C546F74616C507269636508000400000000000D41646451635175616E74
+      69747908000400000000000F4164645163546F74616C50726963650800040000
+      0000000D41646450635175616E7469747908000400000000000F416464506354
+      6F74616C50726963650800040000000000114164644761746865725175616E74
+      697479080004000000000013416464476174686572546F74616C507269636508
+      000400000000000750657263656E740800040000000000074D656D6F53747201
+      004A000000010005574944544802000200C800085175616E7469747908000400
+      000000000A546F74616C507269636508000400000000000C44676E5175616E74
+      6974793108000400000000000C44676E5175616E746974793208000400000000
+      000B44676E5175616E7469747901004900000001000557494454480200020032
+      000944676E50726963653208000400000000000944676E507269636531080004
+      00000000000844676E5072696365010049000000010005574944544802000200
+      32000C526174696F50657263656E7408000400000000000F416464526174696F
+      50657263656E740800040000000000104465616C44676E5175616E7469747931
+      0800040000000000104465616C44676E5175616E746974793208000400000000
+      000F4465616C44676E5175616E74697479010049000000010005574944544802
+      00020032000D4465616C44676E50726963653108000400000000000D4465616C
+      44676E50726963653208000400000000000C4465616C44676E50726963650100
+      4900000001000557494454480200020032000D4344676E5175616E7469747931
+      08000400000000000D4344676E5175616E746974793208000400000000000C43
+      44676E5175616E7469747901004900000001000557494454480200020032000A
+      4344676E50726963653108000400000000000A4344676E507269636532080004
+      0000000000094344676E50726963650100490000000100055749445448020002
+      0032001146696E616C44676E5175616E74697479310800040000000000114669
+      6E616C44676E5175616E746974793208000400000000001046696E616C44676E
+      5175616E7469747901004900000001000557494454480200020032000E46696E
+      616C44676E50726963653108000400000000000E46696E616C44676E50726963
+      653208000400000000000D46696E616C44676E50726963650100490000000100
+      0557494454480200020032000000}
     object cdsFxBillsXiangCode: TStringField
       FieldName = 'XiangCode'
       Size = 10
@@ -127,6 +372,7 @@ object rmBillsGatherData: TrmBillsGatherData
     end
     object cdsFxBillsDealDgnPrice: TStringField
       FieldName = 'DealDgnPrice'
+      Size = 50
     end
     object cdsFxBillsCDgnQuantity1: TFloatField
       FieldName = 'CDgnQuantity1'
@@ -146,6 +392,7 @@ object rmBillsGatherData: TrmBillsGatherData
     end
     object cdsFxBillsCDgnPrice: TStringField
       FieldName = 'CDgnPrice'
+      Size = 50
     end
     object cdsFxBillsFinalDgnQuantity1: TFloatField
       FieldName = 'FinalDgnQuantity1'
@@ -153,8 +400,10 @@ object rmBillsGatherData: TrmBillsGatherData
     object cdsFxBillsFinalDgnQuantity2: TFloatField
       FieldName = 'FinalDgnQuantity2'
     end
-    object cdsFxBillsFinalDgnQuantity: TFloatField
+    object cdsFxBillsFinalDgnQuantity: TStringField
+      DisplayWidth = 50
       FieldName = 'FinalDgnQuantity'
+      Size = 50
     end
     object cdsFxBillsFinalDgnPrice1: TFloatField
       FieldName = 'FinalDgnPrice1'
@@ -162,8 +411,9 @@ object rmBillsGatherData: TrmBillsGatherData
     object cdsFxBillsFinalDgnPrice2: TFloatField
       FieldName = 'FinalDgnPrice2'
     end
-    object cdsFxBillsFinalDgnPrice: TFloatField
+    object cdsFxBillsFinalDgnPrice: TStringField
       FieldName = 'FinalDgnPrice'
+      Size = 50
     end
   end
   object cdsGclBills: TClientDataSet

DataModules/ReportMemoryDm/rmBillsGatherDm.pas

@@ -84,10 +84,10 @@ type
     cdsFxBillsCDgnPrice: TStringField;
     cdsFxBillsFinalDgnQuantity1: TFloatField;
     cdsFxBillsFinalDgnQuantity2: TFloatField;
-    cdsFxBillsFinalDgnQuantity: TFloatField;
+    cdsFxBillsFinalDgnQuantity: TStringField;
     cdsFxBillsFinalDgnPrice1: TFloatField;
     cdsFxBillsFinalDgnPrice2: TFloatField;
-    cdsFxBillsFinalDgnPrice: TFloatField;
+    cdsFxBillsFinalDgnPrice: TStringField;
     // ¾öËã05-2
     cdsGclBills: TClientDataSet;
     cdsGclBillsB_Code: TStringField;