16 respuestas en este tema

[enecumene]

Pues eso, en mi dataset tengo dos campos del tipo LookUp y estoy tratando de hacer un filtro con ellos, no sé si es que no se puede o qué, éste es el error al trata de flltrar los datos:

---------------------------
Debugger Exception Notification
---------------------------
Project TimerPunch.exe raised exception class EZSQLException with message 'Column with index -1 is not accessable'. Process stopped. Use Step or Run to continue.
---------------------------
OK  Help 
---------------------------

Éste es el pedazo de código que filtra uno de los campos lookup llamado NOMBRE:

delphi

If (edtBusca.Text <> '') then
         begin
          dslogCausa.DataSet.Filtered := False;
          Filtro := 'NOMBRE Like ''*' +edtBusca.Text+ '*''';
          dsLogCausa.DataSet.Filter := Filtro;
          dsLogCausa.DataSet.Filtered := True
         end
           else dsLogCausa.DataSet.Filtered := False;

Saludos.

[Caral]

Hola
Y la variable Filtro?.
Saludos

[eduarcol]

No me creas. pero estoy casi seguro que eso que quieres no se puede, porque no lanzas un sql con un join, asi obtienes lo que quieres, incluso mas rapido

[enecumene]

Hola, La variable Filtro existe sólo que no puse el código completo, eduarcol, no lo tengo así porque ese mismo dataset lo utilizo para editar registros y como sabrás no se puede registros con joins.

[Caral]

Hola
Estas seguro que es ahi donde esta el error?.
Por que no pones un showmessage despues de filtro a ver que te envia por que que diga que el index es '1 esta raro.
Saludos

[enecumene]

Claro amigo, todo los demás funciona bien, sólo los campos LOOKUP que son los que me dan el error mencionado en el primer post.

[egostar]

¿Puedes colocar la sentencia SQL que tienes en dslogCausa ?

Salud OS

[enecumene]

¿Puedes colocar la sentencia SQL que tienes en dslogCausa ?

Salud OS

No es ninguna sentencia SQL, sólo ZTable(TTable) de ZEOS y ahí añadí los campos lookup.

[enecumene]

¿Debería usar el evento OnFilterRecord del DataSet?, aunque no sabría como usarlo , sino, recomiendenme una alternativa más viable de poder realizar ese tipo de filro.

[egostar]

Que tal Fer

Como definiste ese campo lookup, porque se me hace que por ahi esta el problema.

Salud OS

[enecumene]

Pues en los campos persistentes del Dataset le di New Fields, le puse un nombre y tipo de dato (en este caso String), seleccioné Lookup:

Key Field --> el campo original (de valor integer).
Dataset--> Dataset con el cual comparo (en este caso empleados)
LookUP field--> campo de comparación del dataset (empleados)
Result Field --> campo resultante (empleados de valor string)

Eso es todo.

[egostar]

¿ Entonces tienes configurado así ?

Key Field --> EMP_ID.
Dataset--> empleados
LookUP field--> EMP_ID
Result Field --> NOMBRE

Salud OS

[enecumene]

Key Field --> EMP_ID.
Dataset--> empleados
LookUP field--> empleados.EMP_ID
Result Field --> empleados.EMP_NAME

[eduarcol]

Lo podrias usar el onfilterrecord, pero yo lo haria con un query, de la siguiente manera:

1.- select * from mitabla where id= :valor
2.- Crea los campos persistentes
3.- Ubica el campo que quieres vincular con otra tabla
4.- En el evento onGetText creas la siguiente consulta:

delphi

sq.Active := False;
   sq.Sql.Text := 'Select NOMBRE from otratabla where id = :valor';
   sq.ParambyName('Valor').AsString := MiQUeryCampoRelacionado.AsString;
sq.Active := True;
Text := sq.Fields[0].AsString;

Aun asi a mi manera de ver es mas eficiente que filtrar una tabla, recuerda que los filtros trabajan del lado del cliente.

[enecumene]

Por el momento lo tengo resuelto de manera provisional usando querys como mencionó eduarcol, pero sería bueno ver si hay manera de enfrentar esa situación.

[andres1569]

Hola enecumene,

el mensaje de error viene más o menos a indicar que dicho campo no puede usarse para ser comparado en un filtro, esto debe depender de los componentes en cuestión. Como dice Eduarcol, seguramente éso con los Zeos no se puede hacer ... 

Se me ocurre que pruebes creando campos calculados en vez de Lookups. En el evento OnCalcFields asignas el valor al campo llamando al método Lookup de la tabla de búsqueda, al que le pasas como parámetros el nombre de la clave, el valor de la clave y el nombre del campo que quieres obtener, te devolverá un variant que normalmente será una cadena en tu caso.

delphi

MiCampo.AsString := TablaBusqueda.Lookup('ID', CampoID.AsInteger, 'Descripcion');

Se trata de probar si Zeos puede aplicar filtros sobre dicho campo calculado, ya nos dirás si lo admite o no ...

Saludos

[eduarcol]

Por el momento lo tengo resuelto de manera provisional usando querys como mencionó eduarcol, pero sería bueno ver si hay manera de enfrentar esa situación.

Pero probaste la ultima solución que te di?, de esa manera puedes trabajar como si fuera un Table