object rmGclBillsBGData: TrmGclBillsBGData
  OldCreateOrder = False
  Left = 554
  Top = 307
  Height = 150
  Width = 215
  object cdsBills: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'B_Code'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'IndexCode'
        DataType = ftString
        Size = 20
      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 = 'NewPrice'
        DataType = ftFloat
      end
      item
        Name = 'DealQuantity'
        DataType = ftFloat
      end
      item
        Name = 'DealTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'Quantity'
        DataType = ftFloat
      end
      item
        Name = 'TotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'CurDealQuantity'
        DataType = ftFloat
      end
      item
        Name = 'CurDealTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'CurQcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'CurQcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'CurQcBGLCode'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'CurPcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'CurPcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'CurPcBGLCode'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'CurGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'CurGatherTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'EndDealQuantity'
        DataType = ftFloat
      end
      item
        Name = 'EndDealTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'EndQcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'EndQcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'EndQcBGLCode'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'EndPcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'EndPcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'EndPcBGLCode'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'EndGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'EndGatherTotalPrice'
        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 = 'AddQcBGLCode'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'AddPcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'AddPcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'AddPcBGLCode'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'AddGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'AddGatherTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'SerialNo'
        DataType = ftInteger
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 64
    Top = 32
    Data = {
      180400009619E0BD010000001800000029000000000003000000180406425F43
      6F6465010049000000010005574944544802000200320009496E646578436F64
      650100490000000100055749445448020002001400044E616D6502004A000000
      010005574944544802000200900105556E69747301004A000000010005574944
      54480200020028000550726963650800040000000000084E6577507269636508
      000400000000000C4465616C5175616E7469747908000400000000000E446561
      6C546F74616C50726963650800040000000000085175616E7469747908000400
      000000000A546F74616C507269636508000400000000000F4375724465616C51
      75616E746974790800040000000000114375724465616C546F74616C50726963
      6508000400000000000D43757251635175616E7469747908000400000000000F
      4375725163546F74616C507269636508000400000000000C437572516342474C
      436F646502004A00000001000557494454480200020090010D43757250635175
      616E7469747908000400000000000F4375725063546F74616C50726963650800
      0400000000000C437572506342474C436F646502004A00000001000557494454
      48020002009001114375724761746865725175616E7469747908000400000000
      0013437572476174686572546F74616C507269636508000400000000000F456E
      644465616C5175616E74697479080004000000000011456E644465616C546F74
      616C507269636508000400000000000D456E6451635175616E74697479080004
      00000000000F456E645163546F74616C507269636508000400000000000C456E
      64516342474C436F646502004A00000001000557494454480200020090010D45
      6E6450635175616E7469747908000400000000000F456E645063546F74616C50
      7269636508000400000000000C456E64506342474C436F646502004A00000001
      0005574944544802000200900111456E644761746865725175616E7469747908
      0004000000000013456E64476174686572546F74616C50726963650800040000
      0000000F4164644465616C5175616E7469747908000400000000001141646444
      65616C546F74616C507269636508000400000000000D41646451635175616E74
      69747908000400000000000F4164645163546F74616C50726963650800040000
      0000000C416464516342474C436F646502004A00000001000557494454480200
      020090010D41646450635175616E7469747908000400000000000F4164645063
      546F74616C507269636508000400000000000C416464506342474C436F646502
      004A000000010005574944544802000200900111416464476174686572517561
      6E74697479080004000000000013416464476174686572546F74616C50726963
      6508000400000000000853657269616C4E6F04000100000000000000}
    object cdsBillsB_Code: TStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsBillsIndexCode: TStringField
      FieldName = 'IndexCode'
    end
    object cdsBillsName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsBillsUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsBillsPrice: TFloatField
      FieldName = 'Price'
    end
    object cdsBillsNewPrice: TFloatField
      FieldName = 'NewPrice'
    end
    object cdsBillsDealQuantity: TFloatField
      FieldName = 'DealQuantity'
    end
    object cdsBillsDealTotalPrice: TFloatField
      FieldName = 'DealTotalPrice'
    end
    object cdsBillsQuantity: TFloatField
      FieldName = 'Quantity'
    end
    object cdsBillsTotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsBillsCurDealQuantity: TFloatField
      FieldName = 'CurDealQuantity'
    end
    object cdsBillsCurDealTotalPrice: TFloatField
      FieldName = 'CurDealTotalPrice'
    end
    object cdsBillsCurQcQuantity: TFloatField
      FieldName = 'CurQcQuantity'
    end
    object cdsBillsCurQcTotalPrice: TFloatField
      FieldName = 'CurQcTotalPrice'
    end
    object cdsBillsCurQcBGLCode: TWideStringField
      FieldName = 'CurQcBGLCode'
      Size = 200
    end
    object cdsBillsCurPcQuantity: TFloatField
      FieldName = 'CurPcQuantity'
    end
    object cdsBillsCurPcTotalPrice: TFloatField
      FieldName = 'CurPcTotalPrice'
    end
    object cdsBillsCurPcBGLCode: TWideStringField
      FieldName = 'CurPcBGLCode'
      Size = 200
    end
    object cdsBillsCurGatherQuantity: TFloatField
      FieldName = 'CurGatherQuantity'
    end
    object cdsBillsCurGatherTotalPrice: TFloatField
      FieldName = 'CurGatherTotalPrice'
    end
    object cdsBillsEndDealQuantity: TFloatField
      FieldName = 'EndDealQuantity'
    end
    object cdsBillsEndDealTotalPrice: TFloatField
      FieldName = 'EndDealTotalPrice'
    end
    object cdsBillsEndQcQuantity: TFloatField
      FieldName = 'EndQcQuantity'
    end
    object cdsBillsEndQcTotalPrice: TFloatField
      FieldName = 'EndQcTotalPrice'
    end
    object cdsBillsEndQcBGLCode: TWideStringField
      FieldName = 'EndQcBGLCode'
      Size = 200
    end
    object cdsBillsEndPcQuantity: TFloatField
      FieldName = 'EndPcQuantity'
    end
    object cdsBillsEndPcTotalPrice: TFloatField
      FieldName = 'EndPcTotalPrice'
    end
    object cdsBillsEndPcBGLCode: TWideStringField
      FieldName = 'EndPcBGLCode'
      Size = 200
    end
    object cdsBillsEndGatherQuantity: TFloatField
      FieldName = 'EndGatherQuantity'
    end
    object cdsBillsEndGatherTotalPrice: TFloatField
      FieldName = 'EndGatherTotalPrice'
    end
    object cdsBillsAddDealQuantity: TFloatField
      FieldName = 'AddDealQuantity'
    end
    object cdsBillsAddDealTotalPrice: TFloatField
      FieldName = 'AddDealTotalPrice'
    end
    object cdsBillsAddQcQuantity: TFloatField
      FieldName = 'AddQcQuantity'
    end
    object cdsBillsAddQcTotalPrice: TFloatField
      FieldName = 'AddQcTotalPrice'
    end
    object cdsBillsAddQcBGLCode: TWideStringField
      FieldName = 'AddQcBGLCode'
      Size = 200
    end
    object cdsBillsAddPcQuantity: TFloatField
      FieldName = 'AddPcQuantity'
    end
    object cdsBillsAddPcTotalPrice: TFloatField
      FieldName = 'AddPcTotalPrice'
    end
    object cdsBillsAddPcBGLCode: TWideStringField
      FieldName = 'AddPcBGLCode'
      Size = 200
    end
    object cdsBillsAddGatherQuantity: TFloatField
      FieldName = 'AddGatherQuantity'
    end
    object cdsBillsAddGatherTotalPrice: TFloatField
      FieldName = 'AddGatherTotalPrice'
    end
    object cdsBillsSerialNo: TIntegerField
      FieldName = 'SerialNo'
    end
  end
end
