Measure/DataModules/ReportMemoryDm/rmBillsGatherDm.dfm

object rmBillsGatherData: TrmBillsGatherData
  OldCreateOrder = False
  Left = 648
  Top = 526
  Height = 276
  Width = 288
  object cdsFxBills: TClientDataSet
    Active = True
    Aggregates = <>
    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>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 32
    Top = 24
    Data = {
      CD0200009619E0BD01000000180000001D000000000003000000CD0209586961
      6E67436F64650100490000000100055749445448020002000A00064D75436F64
      650100490000000100055749445448020002000A00074A6965436F6465010049
      0000000100055749445448020002000A000858694D75436F6465010049000000
      0100055749445448020002001E0004436F646501004900000001000557494454
      4802000200320006425F436F6465010049000000010005574944544802000200
      3200044E616D6502004A000000010005574944544802000200900105556E6974
      7301004A00000001000557494454480200020028000550726963650800040000
      0000000F4164644465616C5175616E7469747908000400000000001141646444
      65616C546F74616C507269636508000400000000000D41646451635175616E74
      69747908000400000000000F4164645163546F74616C50726963650800040000
      0000000D41646450635175616E7469747908000400000000000F416464506354
      6F74616C50726963650800040000000000114164644761746865725175616E74
      697479080004000000000013416464476174686572546F74616C507269636508
      000400000000000750657263656E740800040000000000074D656D6F53747201
      004A000000010005574944544802000200C800085175616E7469747908000400
      000000000A546F74616C507269636508000400000000000C44676E5175616E74
      6974793108000400000000000C44676E5175616E746974793208000400000000
      000B44676E5175616E7469747901004900000001000557494454480200020032
      000944676E50726963653208000400000000000944676E507269636531080004
      00000000000844676E5072696365010049000000010005574944544802000200
      32000C526174696F50657263656E7408000400000000000F416464526174696F
      50657263656E7408000400000000000000}
    object cdsFxBillsXiangCode: TStringField
      FieldName = 'XiangCode'
      Size = 10
    end
    object cdsFxBillsMuCode: TStringField
      FieldName = 'MuCode'
      Size = 10
    end
    object cdsFxBillsJieCode: TStringField
      FieldName = 'JieCode'
      Size = 10
    end
    object cdsFxBillsXiMuCode: TStringField
      FieldName = 'XiMuCode'
      Size = 30
    end
    object cdsFxBillsCode: TStringField
      FieldName = 'Code'
      Size = 50
    end
    object cdsFxBillsB_Code: TStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsFxBillsName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsFxBillsUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsFxBillsPrice: TFloatField
      FieldName = 'Price'
    end
    object cdsFxBillsAddDealQuantity: TFloatField
      FieldName = 'AddDealQuantity'
    end
    object cdsFxBillsAddDealTotalPrice: TFloatField
      FieldName = 'AddDealTotalPrice'
    end
    object cdsFxBillsAddQcQuantity: TFloatField
      FieldName = 'AddQcQuantity'
    end
    object cdsFxBillsAddQcTotalPrice: TFloatField
      FieldName = 'AddQcTotalPrice'
    end
    object cdsFxBillsAddPcQuantity: TFloatField
      FieldName = 'AddPcQuantity'
    end
    object cdsFxBillsAddPcTotalPrice: TFloatField
      FieldName = 'AddPcTotalPrice'
    end
    object cdsFxBillsAddGatherQuantity: TFloatField
      FieldName = 'AddGatherQuantity'
    end
    object cdsFxBillsAddGatherTotalPrice: TFloatField
      FieldName = 'AddGatherTotalPrice'
    end
    object cdsFxBillsPercent: TFloatField
      FieldName = 'Percent'
    end
    object cdsFxBillsMemoStr: TWideStringField
      FieldName = 'MemoStr'
      Size = 100
    end
    object cdsFxBillsQuantity: TFloatField
      FieldName = 'Quantity'
    end
    object cdsFxBillsTotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsFxBillsDgnQuantity1: TFloatField
      FieldName = 'DgnQuantity1'
    end
    object cdsFxBillsDgnQuantity2: TFloatField
      FieldName = 'DgnQuantity2'
    end
    object cdsFxBillsDgnQuantity: TStringField
      FieldName = 'DgnQuantity'
      Size = 50
    end
    object cdsFxBillsDgnPrice2: TFloatField
      FieldName = 'DgnPrice2'
    end
    object cdsFxBillsDgnPrice1: TFloatField
      FieldName = 'DgnPrice1'
    end
    object cdsFxBillsDgnPrice: TStringField
      FieldName = 'DgnPrice'
      Size = 50
    end
    object cdsFxBillsRatioPercent: TFloatField
      FieldName = 'RatioPercent'
    end
    object cdsFxBillsAddRatioPercent: TFloatField
      FieldName = 'AddRatioPercent'
    end
  end
  object cdsGclBills: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'B_Code'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'IndexCode'
        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 = 'Precent'
        DataType = ftFloat
      end
      item
        Name = 'MemoStr'
        DataType = ftWideString
        Size = 100
      end>
    IndexDefs = <>
    IndexFieldNames = 'IndexCode'
    Params = <>
    StoreDefs = True
    Left = 32
    Top = 136
    Data = {
      840100009619E0BD01000000180000000F000000000003000000840106425F43
      6F6465010049000000010005574944544802000200320009496E646578436F64
      650100490000000100055749445448020002003200044E616D6502004A000000
      010005574944544802000200900105556E69747301004A000000010005574944
      544802000200280005507269636508000400000000000F4164644465616C5175
      616E746974790800040000000000114164644465616C546F74616C5072696365
      08000400000000000D41646451635175616E7469747908000400000000000F41
      64645163546F74616C507269636508000400000000000D41646450635175616E
      7469747908000400000000000F4164645063546F74616C507269636508000400
      00000000114164644761746865725175616E7469747908000400000000001341
      6464476174686572546F74616C50726963650800040000000000075072656365
      6E740800040000000000074D656D6F53747201004A0000000100055749445448
      02000200C8000000}
    object cdsGclBillsB_Code: TStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsGclBillsIndexCode: TStringField
      FieldName = 'IndexCode'
      Size = 50
    end
    object cdsGclBillsName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsGclBillsUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsGclBillsPrice: TFloatField
      FieldName = 'Price'
    end
    object cdsGclBillsAddDealQuantity: TFloatField
      FieldName = 'AddDealQuantity'
    end
    object cdsGclBillsAddDealTotalPrice: TFloatField
      FieldName = 'AddDealTotalPrice'
    end
    object cdsGclBillsAddQcQuantity: TFloatField
      FieldName = 'AddQcQuantity'
    end
    object cdsGclBillsAddQcTotalPrice: TFloatField
      FieldName = 'AddQcTotalPrice'
    end
    object cdsGclBillsAddPcQuantity: TFloatField
      FieldName = 'AddPcQuantity'
    end
    object cdsGclBillsAddPcTotalPrice: TFloatField
      FieldName = 'AddPcTotalPrice'
    end
    object cdsGclBillsAddGatherQuantity: TFloatField
      FieldName = 'AddGatherQuantity'
    end
    object cdsGclBillsAddGatherTotalPrice: TFloatField
      FieldName = 'AddGatherTotalPrice'
    end
    object cdsGclBillsPrecent: TFloatField
      FieldName = 'Precent'
    end
    object cdsGclBillsMemoStr: TWideStringField
      FieldName = 'MemoStr'
      Size = 100
    end
  end
  object cdsProjectBills: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ProjectID'
        DataType = ftInteger
      end
      item
        Name = 'ProjectName'
        DataType = ftWideString
        Size = 100
      end
      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 = 'Name'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'Units'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'Quantity'
        DataType = ftFloat
      end
      item
        Name = 'TotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'P_Quantity'
        DataType = ftFloat
      end
      item
        Name = 'P_TotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'EcoIndex'
        DataType = ftFloat
      end
      item
        Name = 'Percent'
        DataType = ftFloat
      end
      item
        Name = 'MemoStr'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'SerialNo'
        DataType = ftInteger
      end
      item
        Name = 'B_Code'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'P_Price'
        DataType = ftFloat
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 120
    Top = 24
    Data = {
      CF0100009619E0BD010000001800000013000000000003000000CF010950726F
      6A656374494404000100000000000B50726F6A6563744E616D6501004A000000
      010005574944544802000200C800095869616E67436F64650100490000000100
      055749445448020002000A00064D75436F646501004900000001000557494454
      48020002000A00074A6965436F64650100490000000100055749445448020002
      000A000858694D75436F64650100490000000100055749445448020002001E00
      04436F64650100490000000100055749445448020002003200044E616D650200
      4A000000010005574944544802000200900105556E69747301004A0000000100
      055749445448020002002800085175616E7469747908000400000000000A546F
      74616C507269636508000400000000000A505F5175616E746974790800040000
      0000000C505F546F74616C507269636508000400000000000845636F496E6465
      7808000400000000000750657263656E740800040000000000074D656D6F5374
      7201004A000000010005574944544802000200C8000853657269616C4E6F0400
      01000000000006425F436F646501004900000001000557494454480200020032
      0007505F507269636508000400000000000000}
    object cdsProjectBillsProjectID: TIntegerField
      FieldName = 'ProjectID'
    end
    object cdsProjectBillsProjectName: TWideStringField
      FieldName = 'ProjectName'
      Size = 100
    end
    object cdsProjectBillsXiangCode: TStringField
      FieldName = 'XiangCode'
      Size = 10
    end
    object cdsProjectBillsMuCode: TStringField
      DisplayWidth = 10
      FieldName = 'MuCode'
      Size = 10
    end
    object cdsProjectBillsJieCode: TStringField
      FieldName = 'JieCode'
      Size = 10
    end
    object cdsProjectBillsXiMuCode: TStringField
      FieldName = 'XiMuCode'
      Size = 30
    end
    object cdsProjectBillsCode: TStringField
      FieldName = 'Code'
      Size = 50
    end
    object cdsProjectBillsName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsProjectBillsUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsProjectBillsQuantity: TFloatField
      FieldName = 'Quantity'
    end
    object cdsProjectBillsTotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsProjectBillsP_Quantity: TFloatField
      FieldName = 'P_Quantity'
    end
    object cdsProjectBillsP_TotalPrice: TFloatField
      FieldName = 'P_TotalPrice'
    end
    object cdsProjectBillsEcoIndex: TFloatField
      FieldName = 'EcoIndex'
    end
    object cdsProjectBillsPercent: TFloatField
      FieldName = 'Percent'
    end
    object cdsProjectBillsMemoStr: TWideStringField
      FieldName = 'MemoStr'
      Size = 100
    end
    object cdsProjectBillsSerialNo: TIntegerField
      FieldName = 'SerialNo'
    end
    object cdsProjectBillsB_Code: TStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsProjectBillsP_Price: TFloatField
      FieldName = 'P_Price'
    end
  end
  object cdsEstimateBills: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'XiangCode'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'MuCode'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'JieCode'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'XiMuCode'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Code'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Name'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'Units'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'Quantity'
        DataType = ftFloat
      end
      item
        Name = 'TotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'DgnQuantity'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'DgnQuantity1'
        DataType = ftFloat
      end
      item
        Name = 'DgnQuantity2'
        DataType = ftFloat
      end
      item
        Name = 'AddDealQuantity'
        DataType = ftFloat
      end
      item
        Name = 'AddDealTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'AddCQuantity'
        DataType = ftFloat
      end
      item
        Name = 'AddCTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'AddGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'AddGatherTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'DealDgnQuantity'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'DealDgnQuantity1'
        DataType = ftFloat
      end
      item
        Name = 'DealDgnQuantity2'
        DataType = ftFloat
      end
      item
        Name = 'CDgnQuantity'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'CDgnQuantity1'
        DataType = ftFloat
      end
      item
        Name = 'CDgnQuantity2'
        DataType = ftFloat
      end
      item
        Name = 'GatherDgnQuantity'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'GatherDgnQuantity1'
        DataType = ftFloat
      end
      item
        Name = 'GatherDgnQuantity2'
        DataType = ftFloat
      end
      item
        Name = 'PDQuantity'
        DataType = ftFloat
      end
      item
        Name = 'PDTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'PDDgnQuantity'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'PDDgnQuantity1'
        DataType = ftFloat
      end
      item
        Name = 'PDDgnQuantity2'
        DataType = ftFloat
      end
      item
        Name = 'CDDQuantity'
        DataType = ftFloat
      end
      item
        Name = 'CDDTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'CDDDgnQuantity'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'CDDDgnQuantity1'
        DataType = ftFloat
      end
      item
        Name = 'CDDDgnQuantity2'
        DataType = ftFloat
      end
      item
        Name = 'QuantityAdjust'
        DataType = ftFloat
      end
      item
        Name = 'TotalPriceAdjust'
        DataType = ftFloat
      end
      item
        Name = 'MemoStr'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'ABQuantity'
        DataType = ftFloat
      end
      item
        Name = 'ABTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'ABDgnQuantity'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ABDgnQuantity1'
        DataType = ftFloat
      end
      item
        Name = 'ABDgnQuantity2'
        DataType = ftFloat
      end
      item
        Name = 'QuantityCompare1'
        DataType = ftFloat
      end
      item
        Name = 'TotalPriceCompare1'
        DataType = ftFloat
      end
      item
        Name = 'DgnQuantityCompare1'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'DgnQuantity1Compare1'
        DataType = ftFloat
      end
      item
        Name = 'DgnQuantity2Compare1'
        DataType = ftFloat
      end
      item
        Name = 'QuantityCompare2'
        DataType = ftFloat
      end
      item
        Name = 'TotalPriceCompare2'
        DataType = ftFloat
      end
      item
        Name = 'DgnQuantityCompare2'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'DgnQuantity1Compare2'
        DataType = ftFloat
      end
      item
        Name = 'DgnQuantity2Compare2'
        DataType = ftFloat
      end
      item
        Name = 'QuantityCompare3'
        DataType = ftFloat
      end
      item
        Name = 'TotalPriceCompare3'
        DataType = ftFloat
      end
      item
        Name = 'DgnQuantityCompare3'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'DgnQuantity1Compare3'
        DataType = ftFloat
      end
      item
        Name = 'DgnQuantity2Compare3'
        DataType = ftFloat
      end
      item
        Name = 'B_Code'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Price'
        DataType = ftFloat
      end
      item
        Name = 'PDDgnPrice'
        DataType = ftFloat
      end
      item
        Name = 'CDDDgnPrice'
        DataType = ftFloat
      end
      item
        Name = 'ABDgnPrice'
        DataType = ftFloat
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 32
    Top = 80
    Data = {
      B70600009619E0BD010000001800000041000000000003000000B70609586961
      6E67436F64650100490000000100055749445448020002000A00064D75436F64
      650100490000000100055749445448020002000A00074A6965436F6465010049
      00000001000557494454480200020014000858694D75436F6465010049000000
      0100055749445448020002001E0004436F646501004900000001000557494454
      48020002003200044E616D6502004A0000000100055749445448020002009001
      05556E69747301004A0000000100055749445448020002002800085175616E74
      69747908000400000000000A546F74616C507269636508000400000000000B44
      676E5175616E7469747901004900000001000557494454480200020014000C44
      676E5175616E746974793108000400000000000C44676E5175616E7469747932
      08000400000000000F4164644465616C5175616E746974790800040000000000
      114164644465616C546F74616C507269636508000400000000000C4164644351
      75616E7469747908000400000000000E41646443546F74616C50726963650800
      040000000000114164644761746865725175616E746974790800040000000000
      13416464476174686572546F74616C507269636508000400000000000F446561
      6C44676E5175616E746974790100490000000100055749445448020002001400
      104465616C44676E5175616E74697479310800040000000000104465616C4467
      6E5175616E746974793208000400000000000C4344676E5175616E7469747901
      004900000001000557494454480200020014000D4344676E5175616E74697479
      3108000400000000000D4344676E5175616E7469747932080004000000000011
      47617468657244676E5175616E74697479010049000000010005574944544802
      00020014001247617468657244676E5175616E74697479310800040000000000
      1247617468657244676E5175616E746974793208000400000000000A50445175
      616E7469747908000400000000000C5044546F74616C50726963650800040000
      0000000D504444676E5175616E74697479010049000000010005574944544802
      00020014000E504444676E5175616E746974793108000400000000000E504444
      676E5175616E746974793208000400000000000B4344445175616E7469747908
      000400000000000D434444546F74616C507269636508000400000000000E4344
      4444676E5175616E746974790100490000000100055749445448020002001400
      0F43444444676E5175616E746974793108000400000000000F43444444676E51
      75616E746974793208000400000000000E5175616E7469747941646A75737408
      0004000000000010546F74616C507269636541646A7573740800040000000000
      074D656D6F53747201004A000000010005574944544802000200C8000A414251
      75616E7469747908000400000000000C4142546F74616C507269636508000400
      000000000D414244676E5175616E746974790100490000000100055749445448
      0200020014000E414244676E5175616E746974793108000400000000000E4142
      44676E5175616E74697479320800040000000000105175616E74697479436F6D
      7061726531080004000000000012546F74616C5072696365436F6D7061726531
      08000400000000001344676E5175616E74697479436F6D706172653101004900
      000001000557494454480200020014001444676E5175616E7469747931436F6D
      706172653108000400000000001444676E5175616E7469747932436F6D706172
      65310800040000000000105175616E74697479436F6D70617265320800040000
      00000012546F74616C5072696365436F6D706172653208000400000000001344
      676E5175616E74697479436F6D70617265320100490000000100055749445448
      0200020014001444676E5175616E7469747931436F6D70617265320800040000
      0000001444676E5175616E7469747932436F6D70617265320800040000000000
      105175616E74697479436F6D7061726533080004000000000012546F74616C50
      72696365436F6D706172653308000400000000001344676E5175616E74697479
      436F6D706172653301004900000001000557494454480200020014001444676E
      5175616E7469747931436F6D706172653308000400000000001444676E517561
      6E7469747932436F6D7061726533080004000000000006425F436F6465010049
      000000010005574944544802000200320005507269636508000400000000000A
      504444676E507269636508000400000000000B43444444676E50726963650800
      0400000000000A414244676E507269636508000400000000000000}
    object cdsEstimateBillsXiangCode: TStringField
      FieldName = 'XiangCode'
      Size = 10
    end
    object cdsEstimateBillsMuCode: TStringField
      FieldName = 'MuCode'
      Size = 10
    end
    object cdsEstimateBillsJieCode: TStringField
      FieldName = 'JieCode'
    end
    object cdsEstimateBillsXiMuCode: TStringField
      FieldName = 'XiMuCode'
      Size = 30
    end
    object cdsEstimateBillsCode: TStringField
      FieldName = 'Code'
      Size = 50
    end
    object cdsEstimateBillsName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsEstimateBillsUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsEstimateBillsQuantity: TFloatField
      FieldName = 'Quantity'
    end
    object cdsEstimateBillsTotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsEstimateBillsDgnQuantity: TStringField
      FieldName = 'DgnQuantity'
    end
    object cdsEstimateBillsDgnQuantity1: TFloatField
      FieldName = 'DgnQuantity1'
    end
    object cdsEstimateBillsDgnQuantity2: TFloatField
      FieldName = 'DgnQuantity2'
    end
    object cdsEstimateBillsAddDealQuantity: TFloatField
      FieldName = 'AddDealQuantity'
    end
    object cdsEstimateBillsAddDealTotalPrice: TFloatField
      FieldName = 'AddDealTotalPrice'
    end
    object cdsEstimateBillsAddCQuantity: TFloatField
      FieldName = 'AddCQuantity'
    end
    object cdsEstimateBillsAddCTotalPrice: TFloatField
      FieldName = 'AddCTotalPrice'
    end
    object cdsEstimateBillsAddGatherQuantity: TFloatField
      FieldName = 'AddGatherQuantity'
    end
    object cdsEstimateBillsAddGatherTotalPrice: TFloatField
      FieldName = 'AddGatherTotalPrice'
    end
    object cdsEstimateBillsDealDgnQuantity: TStringField
      FieldName = 'DealDgnQuantity'
    end
    object cdsEstimateBillsDealDgnQuantity1: TFloatField
      FieldName = 'DealDgnQuantity1'
    end
    object cdsEstimateBillsDealDgnQuantity2: TFloatField
      FieldName = 'DealDgnQuantity2'
    end
    object cdsEstimateBillsCDgnQuantity: TStringField
      FieldName = 'CDgnQuantity'
    end
    object cdsEstimateBillsCDgnQuantity1: TFloatField
      FieldName = 'CDgnQuantity1'
    end
    object cdsEstimateBillsCDgnQuantity2: TFloatField
      FieldName = 'CDgnQuantity2'
    end
    object cdsEstimateBillsGatherDgnQuantity: TStringField
      FieldName = 'GatherDgnQuantity'
    end
    object cdsEstimateBillsGatherDgnQuantity1: TFloatField
      FieldName = 'GatherDgnQuantity1'
    end
    object cdsEstimateBillsGatherDgnQuantity2: TFloatField
      FieldName = 'GatherDgnQuantity2'
    end
    object cdsEstimateBillsPDQuantity: TFloatField
      FieldName = 'PDQuantity'
    end
    object cdsEstimateBillsPDTotalPrice: TFloatField
      FieldName = 'PDTotalPrice'
    end
    object cdsEstimateBillsPDDgnQuantity: TStringField
      FieldName = 'PDDgnQuantity'
    end
    object cdsEstimateBillsPDDgnQuantity1: TFloatField
      FieldName = 'PDDgnQuantity1'
    end
    object cdsEstimateBillsPDDgnQuantity2: TFloatField
      FieldName = 'PDDgnQuantity2'
    end
    object cdsEstimateBillsCDDQuantity: TFloatField
      FieldName = 'CDDQuantity'
    end
    object cdsEstimateBillsCDDTotalPrice: TFloatField
      FieldName = 'CDDTotalPrice'
    end
    object cdsEstimateBillsCDDDgnQuantity: TStringField
      FieldName = 'CDDDgnQuantity'
    end
    object cdsEstimateBillsCDDDgnQuantity1: TFloatField
      FieldName = 'CDDDgnQuantity1'
    end
    object cdsEstimateBillsCDDDgnQuantity2: TFloatField
      FieldName = 'CDDDgnQuantity2'
    end
    object cdsEstimateBillsQuantityAdjust: TFloatField
      FieldName = 'QuantityAdjust'
    end
    object cdsEstimateBillsTotalPriceAdjust: TFloatField
      FieldName = 'TotalPriceAdjust'
    end
    object cdsEstimateBillsMemoStr: TWideStringField
      FieldName = 'MemoStr'
      Size = 100
    end
    object cdsEstimateBillsABQuantity: TFloatField
      FieldName = 'ABQuantity'
    end
    object cdsEstimateBillsABTotalPrice: TFloatField
      FieldName = 'ABTotalPrice'
    end
    object cdsEstimateBillsABDgnQuantity: TStringField
      FieldName = 'ABDgnQuantity'
    end
    object cdsEstimateBillsABDgnQuantity1: TFloatField
      FieldName = 'ABDgnQuantity1'
    end
    object cdsEstimateBillsABDgnQuantity2: TFloatField
      FieldName = 'ABDgnQuantity2'
    end
    object cdsEstimateBillsQuantityCompare1: TFloatField
      FieldName = 'QuantityCompare1'
    end
    object cdsEstimateBillsTotalPriceCompare1: TFloatField
      FieldName = 'TotalPriceCompare1'
    end
    object cdsEstimateBillsDgnQuantityCompare1: TStringField
      FieldName = 'DgnQuantityCompare1'
    end
    object cdsEstimateBillsDgnQuantity1Compare1: TFloatField
      FieldName = 'DgnQuantity1Compare1'
    end
    object cdsEstimateBillsDgnQuantity2Compare1: TFloatField
      FieldName = 'DgnQuantity2Compare1'
    end
    object cdsEstimateBillsQuantityCompare2: TFloatField
      FieldName = 'QuantityCompare2'
    end
    object cdsEstimateBillsTotalPriceCompare2: TFloatField
      FieldName = 'TotalPriceCompare2'
    end
    object cdsEstimateBillsDgnQuantityCompare2: TStringField
      FieldName = 'DgnQuantityCompare2'
    end
    object cdsEstimateBillsDgnQuantity1Compare2: TFloatField
      FieldName = 'DgnQuantity1Compare2'
    end
    object cdsEstimateBillsDgnQuantity2Compare2: TFloatField
      FieldName = 'DgnQuantity2Compare2'
    end
    object cdsEstimateBillsQuantityCompare3: TFloatField
      FieldName = 'QuantityCompare3'
    end
    object cdsEstimateBillsTotalPriceCompare3: TFloatField
      FieldName = 'TotalPriceCompare3'
    end
    object cdsEstimateBillsDgnQuantityCompare3: TStringField
      FieldName = 'DgnQuantityCompare3'
    end
    object cdsEstimateBillsDgnQuantity1Compare3: TFloatField
      FieldName = 'DgnQuantity1Compare3'
    end
    object cdsEstimateBillsDgnQuantity2Compare3: TFloatField
      FieldName = 'DgnQuantity2Compare3'
    end
    object cdsEstimateBillsB_Code: TStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsEstimateBillsPrice: TFloatField
      FieldName = 'Price'
    end
    object cdsEstimateBillsPDDgnPrice: TFloatField
      FieldName = 'PDDgnPrice'
    end
    object cdsEstimateBillsCDDDgnPrice: TFloatField
      FieldName = 'CDDDgnPrice'
    end
    object cdsEstimateBillsABDgnPrice: TFloatField
      FieldName = 'ABDgnPrice'
    end
  end
  object cdsProjectGclBills: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ProjectID'
        DataType = ftInteger
      end
      item
        Name = 'ProjectName'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'B_Code'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'IndexCode'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Name'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'Units'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'Price'
        DataType = ftFloat
      end
      item
        Name = 'Quantity'
        DataType = ftFloat
      end
      item
        Name = 'TotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'P_Price'
        DataType = ftFloat
      end
      item
        Name = 'P_Quantity'
        DataType = ftFloat
      end
      item
        Name = 'P_TotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'SerialNo'
        DataType = ftInteger
      end
      item
        Name = 'P_AddGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'P_AddGatherTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'AddGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'AddGatherTotalPrice'
        DataType = ftFloat
      end>
    IndexDefs = <
      item
        Name = 'DEFAULT_ORDER'
      end
      item
        Name = 'CHANGEINDEX'
      end>
    IndexFieldNames = 'ProjectID;SerialNo;IndexCode'
    Params = <>
    StoreDefs = True
    Left = 120
    Top = 136
    Data = {
      A30100009619E0BD010000001800000011000000000003000000A3010950726F
      6A656374494404000100000000000B50726F6A6563744E616D6501004A000000
      010005574944544802000200C80006425F436F64650100490000000100055749
      44544802000200320009496E646578436F646501004900000001000557494454
      48020002003200044E616D6501004A000000010005574944544802000200C800
      05556E69747301004A0000000100055749445448020002002800055072696365
      0800040000000000085175616E7469747908000400000000000A546F74616C50
      72696365080004000000000007505F507269636508000400000000000A505F51
      75616E7469747908000400000000000C505F546F74616C507269636508000400
      000000000853657269616C4E6F040001000000000013505F4164644761746865
      725175616E74697479080004000000000015505F416464476174686572546F74
      616C50726963650800040000000000114164644761746865725175616E746974
      79080004000000000013416464476174686572546F74616C5072696365080004
      00000000000000}
    object cdsProjectGclBillsProjectID: TIntegerField
      FieldName = 'ProjectID'
    end
    object cdsProjectGclBillsProjectName: TWideStringField
      FieldName = 'ProjectName'
      Size = 100
    end
    object cdsProjectGclBillsB_Code: TStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsProjectGclBillsIndexCode: TStringField
      FieldName = 'IndexCode'
      Size = 50
    end
    object cdsProjectGclBillsName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsProjectGclBillsUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsProjectGclBillsPrice: TFloatField
      FieldName = 'Price'
    end
    object cdsProjectGclBillsQuantity: TFloatField
      FieldName = 'Quantity'
    end
    object cdsProjectGclBillsTotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsProjectGclBillsP_Price: TFloatField
      FieldName = 'P_Price'
    end
    object cdsProjectGclBillsP_Quantity: TFloatField
      FieldName = 'P_Quantity'
    end
    object cdsProjectGclBillsP_TotalPrice: TFloatField
      FieldName = 'P_TotalPrice'
    end
    object cdsProjectGclBillsSerialNo: TIntegerField
      FieldName = 'SerialNo'
    end
    object cdsProjectGclBillsP_AddGatherQuantity: TFloatField
      FieldName = 'P_AddGatherQuantity'
    end
    object cdsProjectGclBillsP_AddGatherTotalPrice: TFloatField
      FieldName = 'P_AddGatherTotalPrice'
    end
    object cdsProjectGclBillsAddGatherQuantity: TFloatField
      FieldName = 'AddGatherQuantity'
    end
    object cdsProjectGclBillsAddGatherTotalPrice: TFloatField
      FieldName = 'AddGatherTotalPrice'
    end
  end
  object cdsBGLFlow: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'MergeBGLCode'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'BGLName'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'ApprovalCode'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'Suggestion'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'BGReason'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'BGTotalPrice'
        DataType = ftFloat
      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 = 'Quantity'
        DataType = ftFloat
      end
      item
        Name = 'Price'
        DataType = ftFloat
      end
      item
        Name = 'TotalPrice'
        DataType = ftFloat
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 32
    Top = 192
    Data = {
      490100009619E0BD01000000180000000C00000000000300000049010C4D6572
      676542474C436F646501004A000000010005574944544802000200C800074247
      4C4E616D6501004A000000010005574944544802000200C8000C417070726F76
      616C436F646501004A00000001000557494454480200020064000A5375676765
      7374696F6E01004A000000010005574944544802000200640008424752656173
      6F6E01004A000000010005574944544802000200C8000C4247546F74616C5072
      696365080004000000000006425F436F64650100490000000100055749445448
      020002003200044E616D6502004A000000010005574944544802000200900105
      556E69747301004A0000000100055749445448020002002800085175616E7469
      7479080004000000000005507269636508000400000000000A546F74616C5072
      69636508000400000000000000}
    object cdsBGLFlowMergeBGLCode: TWideStringField
      FieldName = 'MergeBGLCode'
      Size = 100
    end
    object cdsBGLFlowBGLName: TWideStringField
      FieldName = 'BGLName'
      Size = 100
    end
    object cdsBGLFlowApprovalCode: TWideStringField
      FieldName = 'ApprovalCode'
      Size = 50
    end
    object cdsBGLFlowSuggestion: TWideStringField
      FieldName = 'Suggestion'
      Size = 50
    end
    object cdsBGLFlowBGReason: TWideStringField
      FieldName = 'BGReason'
      Size = 100
    end
    object cdsBGLFlowBGTotalPrice: TFloatField
      FieldName = 'BGTotalPrice'
    end
    object cdsBGLFlowB_Code: TStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsBGLFlowName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsBGLFlowUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsBGLFlowQuantity: TFloatField
      FieldName = 'Quantity'
    end
    object cdsBGLFlowPrice: TFloatField
      FieldName = 'Price'
    end
    object cdsBGLFlowTotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
  end
end