inherited dmInformeContratoCliente: TdmInformeContratoCliente
  OldCreateOrder = True
  Left = 464
  Top = 265
  Height = 416
  Width = 548
  inherited FReport: TfrReport
    Dataset = TablaCab
    ReportForm = {19000000}
  end
  inherited frIBXComponents1: TfrIBXComponents
    Left = 40
    Top = 136
  end
  object TablaCab: TfrDBDataSet
    CloseDataSource = True
    DataSet = TablaContrato
    Left = 152
    Top = 32
  end
  object TablaDet: TfrDBDataSet
    CloseDataSource = True
    DataSet = TablaDetallesContrato
    Left = 248
    Top = 32
  end
  object TablaContrato: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    Left = 152
    Top = 88
  end
  object TablaDetallesContrato: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    DataSource = dsContrato
    Left = 256
    Top = 88
  end
  object TablaPropiedadesContrato: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    DataSource = dsDetallesContrato
    Left = 392
    Top = 88
  end
  object TablaProp: TfrDBDataSet
    CloseDataSource = True
    DataSet = TablaPropiedadesContrato
    Left = 384
    Top = 32
  end
  object dsDetallesContrato: TDataSource
    DataSet = TablaDetallesContrato
    Left = 264
    Top = 144
  end
  object dsPropiedadesContrato: TDataSource
    DataSet = TablaPropiedadesContrato
    Left = 392
    Top = 144
  end
  object dsContrato: TDataSource
    DataSet = TablaContrato
    Left = 152
    Top = 144
  end
  object TablaPrecios1: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    DataSource = dsContrato
    SQL.Strings = (
      'select * from  DETALLESPRESUPUESTOSARTICULOS'
      'where codigopresupuesto  = :codigo and '
      'NUMCONCEPTO > 1 AND NUMCONCEPTO < 4 AND '
      'TIPOCONCEPTO = '#39'PRECIO'#39
      'order by numconcepto')
    Left = 152
    Top = 200
    ParamData = <
      item
        DataType = ftString
        Name = 'CODIGO'
        ParamType = ptUnknown
        Size = 13
      end>
  end
  object TablaPrec1: TfrDBDataSet
    DataSource = dsPrecios1
    Left = 152
    Top = 320
  end
  object dsPrecios1: TDataSource
    DataSet = TablaPrecios1
    Left = 152
    Top = 256
  end
  object frRichObject1: TfrRichObject
    Left = 40
    Top = 192
  end
end
