object rmBGLExecutionData: TrmBGLExecutionData
  OldCreateOrder = False
  Left = 447
  Top = 333
  Height = 150
  Width = 215
  object cdsBGLExecution: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 64
    Top = 32
    Data = {
      CF0000009619E0BD010000001800000008000000000003000000CF000742474C
      436F646501004A000000010005574944544802000200640004436F6465010049
      000000010005574944544802000200320006425F436F64650100490000000100
      055749445448020002003200044E616D6501004A000000010005574944544802
      000200C80005556E69747301004A000000010005574944544802000200280005
      50726963650800040000000000085175616E7469747908000400000000000A54
      6F74616C507269636508000400000000000000}
    object cdsBGLExecutionBGLCode: TWideStringField
      FieldName = 'BGLCode'
      Size = 50
    end
    object cdsBGLExecutionCode: TStringField
      FieldName = 'Code'
      Size = 50
    end
    object cdsBGLExecutionB_Code: TStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsBGLExecutionName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsBGLExecutionUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsBGLExecutionPrice: TFloatField
      FieldName = 'Price'
    end
    object cdsBGLExecutionQuantity: TFloatField
      FieldName = 'Quantity'
    end
    object cdsBGLExecutionTotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
  end
end