FieldName = 'nombre'
      Required = True
      Size = 80
    end
    object qresponsablesnif: TWideStringField
      FieldName = 'nif'
      Required = True
      Size = 24
    end
  end
  object qexistentes: TZReadOnlyQuery
    Connection = DM.DBagrigest
    Params = <
      item
        DataType = ftInteger
        Name = 'EMPRESA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'IDRECO'
        ParamType = ptInput
      end
      item
        DataType = ftWideString
        Name = 'IDCC'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'SELECT id, fecha, responsable FROM tratamientos '
      'WHERE ide=:EMPRESA AND idrecomendacion=:IDRECO AND idcc=:IDCC')
    Left = 704
    Top = 136
  end
  object dsqresponsables: TDataSource
    DataSet = qresponsables
    Left = 472
    Top = 224
  end
end