object rmBGBillsGatherData: TrmBGBillsGatherData
  OldCreateOrder = False
  Left = 864
  Top = 318
  Height = 150
  Width = 215
  object cdsBGBills: TClientDataSet
    Active = True
    Aggregates = <>
    IndexFieldNames = 'TenderID;PartID;BGLCode;IndexCode'
    Params = <>
    Left = 48
    Top = 40
    Data = {
      820100009619E0BD01000000180000001100000000000300000082010854656E
      6465724944040001000000000006506172744944040001000000000009496E64
      6578436F646501004A000000010005574944544802000200640006425F436F64
      6501004A0000000100055749445448020002006400044E616D6502004A000000
      010005574944544802000200FE0105556E69747301004A000000010005574944
      54480200020028000550726963650800040000000000085175616E7469747908
      000400000000000A546F74616C507269636508000400000000000B4375725175
      616E7469747908000400000000000D437572546F74616C507269636508000400
      000000000B5072655175616E7469747908000400000000000D507265546F7461
      6C507269636508000400000000000B456E645175616E74697479080004000000
      00000D456E64546F74616C507269636508000400000000000750657263656E74
      08000400000000000742474C436F646502004A00000001000557494454480200
      0200FE010000}
    object cdsBGBillsTenderID: TIntegerField
      FieldName = 'TenderID'
    end
    object cdsBGBillsPartID: TIntegerField
      FieldName = 'PartID'
    end
    object cdsBGBillsIndexCode: TWideStringField
      FieldName = 'IndexCode'
      Size = 50
    end
    object cdsBGBillsB_Code: TWideStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsBGBillsName: TWideStringField
      FieldName = 'Name'
      Size = 255
    end
    object cdsBGBillsUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsBGBillsPrice: TFloatField
      FieldName = 'Price'
    end
    object cdsBGBillsQuantity: TFloatField
      FieldName = 'Quantity'
    end
    object cdsBGBillsTotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsBGBillsCurQuantity: TFloatField
      FieldName = 'CurQuantity'
    end
    object cdsBGBillsCurTotalPrice: TFloatField
      FieldName = 'CurTotalPrice'
    end
    object cdsBGBillsPreQuantity: TFloatField
      FieldName = 'PreQuantity'
    end
    object cdsBGBillsPreTotalPrice: TFloatField
      FieldName = 'PreTotalPrice'
    end
    object cdsBGBillsEndQuantity: TFloatField
      FieldName = 'EndQuantity'
    end
    object cdsBGBillsEndTotalPrice: TFloatField
      FieldName = 'EndTotalPrice'
    end
    object cdsBGBillsPercent: TFloatField
      FieldName = 'Percent'
    end
    object cdsBGBillsBGLCode: TWideStringField
      FieldName = 'BGLCode'
      Size = 255
    end
  end
end