Ayuda con Locate y Lookup

[cubanbaker]

Hola a todos.
Tengo un DBgrid asociado a un ADOTable. Cuando filtro la tabla por sexo y uso Locate o Lookup, aunque solo muestre los del sexo masculino (porque los he filtrado) el locate o el lookup me sigue encontrando el articulo aunque no se muestra en el DBgrid pq esta filtrado (en este caso Femenino) y el puntero se mueve a la fila mas cercana.
Deberia no encontrar el articulo que estoy buscando si el sexo es Femenino, porque tengo la tabla filtrada a sexo Masculino, pero me dice que lo encuentra a pesar de ser femenino y se cambia la fila activa al mas cercano.
Mas claro, el locate o el Lookup no respeta el filtro que le he puesto a la base de datos.
Que pudiera estar sucediendo?
Muchas gracias

[[oscarac]]

y podrias colocar el codigo de como estas haciendo el locate?

[cubanbaker]

Aqui esta el codigo. La Tabla la filtro por Sexo en un RadioGroup, asi el DBGrid se filtra segun se seleccione el sexo: Masculino o Femenino. Cuando está filtrada por Masculino y busco un articulo que es Femenino y existe en la Tabla, lo encuentra, pero como el DBGrid solo me esta mostrando los masculinos lo que hace es que el puntero se mueve al articulo masculino mas cercano. Asi hace cuando esta filtrada por Femenino, etc.

Código Delphi [-]
 
procedure TModifyRecurve.BtnBuscarClick(Sender: TObject);
begin
  if Radiogroup1.ItemIndex=0 then {Buscar por ArcherId}
    if DataModule1.TablaRecurvo.Locate('ArcherId',edit1.Text,[]) then
      DataModule1.TablaRecurvo.Locate('ArcherId',edit1.Text,[])
    else
      Showmessage('Archer not found. Check the Archer Id')
  else {Buscar por Apellidos}
    if DataModule1.TablaRecurvo.Locate('Apellidos',edit1.Text,[]) then
      DataModule1.TablaRecurvo.Locate('Apellidos',edit1.Text,[])
    else
      Showmessage('Archer not found. Check the Archer Last Name');
end;

[ecfisa]

Empezado por cubanbaker

Hola a todos.
Tengo un DBgrid asociado a un ADOTable. Cuando filtro la tabla por sexo y uso Locate o Lookup, aunque solo muestre los del sexo masculino (porque los he filtrado) el locate o el lookup me sigue encontrando el articulo aunque no se muestra en el DBgrid pq esta filtrado (en este caso Femenino) y el puntero se mueve a la fila mas cercana.
Deberia no encontrar el articulo que estoy buscando si el sexo es Femenino, porque tengo la tabla filtrada a sexo Masculino, pero me dice que lo encuentra a pesar de ser femenino y se cambia la fila activa al mas cercano.
Mas claro, el locate o el Lookup no respeta el filtro que le he puesto a la base de datos.
Que pudiera estar sucediendo?
Muchas gracias

No uso los componentes ADO y lo que leía arriba me parecía ilógico hasta que hice la prueba y obtuve los mismos resultados que vos.
No encontré documentación que explique o documente este problema, según mis pruebas, el TADOTable filtrado no funciona bién con Locate. Pareciera que para realizar la búsqueda ignora el filtrado y lo hace sobre la tabla completa.
El resultado que obtuve es que: Si el dato enviado no existe en la tabla devuelve falso sin realizar acción alguna como corresponde. Pero si el dato pertenece a la tabla y no al conjunto filtrado, devuelve verdadero y se posiciona en el próximo registro.
Ese es un comportamiento que no he detectado antes con otros componentes como TIBTable, TSQLTable o TTable. Por lo que pareciera ser un bug. (al menos con Delphi 7)

Una posible solución es hacerte una función donde verifiques el dato buscado a la salida de Locate y de no coincidir restaurar la posición y devolver False, reemplazando el uso de Locate por ella:

Código Delphi [-]
function MyLocate(ADataSet: TDataSet; FName, SData: string): Boolean;
var
  BM: TBookMarkStr;
begin
  BM:= ADataSet.Bookmark;
  Result:= ADataSet.Locate(FName, SData,[]) and
          (ADataSet.FieldByName(FName).AsString = SData);
  if not Result then
    ADataSet.Bookmark:= BM;
end;

Llamada de ejemplo:

Código Delphi [-]
   if MyLocate(DataModule1.TablaRecurvo, 'ArcherId', Edit1.Text) then
     ....

Pero sinceramente creo que sería mucho más eficiente filtrar por una consulta SQL.


Un saludo.

[[oscarac]]

Empezado por cubanbaker

Código Delphi [-]

procedure TModifyRecurve.BtnBuscarClick(Sender: TObject);
begin
if Radiogroup1.ItemIndex=0 then {Buscar por ArcherId}
if DataModule1.TablaRecurvo.Locate('ArcherId',edit1.Text,[]) then
DataModule1.TablaRecurvo.Locate('ArcherId',edit1.Text,[])
else
Showmessage('Archer not found. Check the Archer Id')
else {Buscar por Apellidos}
if DataModule1.TablaRecurvo.Locate('Apellidos',edit1.Text,[]) then
DataModule1.TablaRecurvo.Locate('Apellidos',edit1.Text,[])
else
Showmessage('Archer not found. Check the Archer Last Name');
end;

Como comentario adicional
si ya localizo lo que buscas ya no es necesario buscarlo nuevamente

Código Delphi [-]
 if DataModule1.TablaRecurvo.Locate('ArcherId',edit1.Text,[]) then

Se traduce en....
SI lo que escribi en el edit esta en la tabla en el campo ArcherId entonces....

ya lo encontraste.. ya no es necesatio

Código Delphi [-]
DataModule1.TablaRecurvo.Locate('ArcherId',edit1.Text,[])

[ecfisa]

Hola.

Tu observación es correcta oscarac , la línea es redundante ya que de encontrarlo vuelve a buscarlo.

Pero esa no es la raíz del problema, ya que si se hace:

Código Delphi [-]
  if ADOTable1.Locate('Campo', Edit2.Text,[]) then
  begin
    ADOTable1.Locate('Campo', Edit2.Text,[]);
    ShowMessage('Encontrado')
  end
  else
   ShowMessage('No encontrado');

O se hace:

Código Delphi [-]
 if ADOTable1.Locate('Campo', Edit2.Text,[]) then
    ShowMessage('Encontrado')
  else
   ShowMessage('No encontrado');

Y el dato a buscar existe en la tabla pero está excluido del conjunto de datos filtrados, en ambos casos mostrará el mensaje 'Encontrado', siendo que no debería hacerlo. Es decir que ignora el filtro en la busqueda.

Un saludo.

[[oscarac]]

y dime cubanbaker, que tal si haces la busqueda por el codigo y por el sexo? sin necesidad de filtrar la tabla?

Código Delphi [-]
 
if Tabla.Locate('Empresa;KOD', VarArrayOf([_empresa, _Codigo]), []) then

has considerado esa forma?

[cubanbaker]

Si, tienen razon los dos, es redundante como me dicen, solo me di cuenta despues que habia escrito el codigo y despues no sabia como editar el mensaje para arreglarlo. No se pq escribi eso de esa forma, seria que el dia que lo hice tenia el tonto de guardia...no tengo que localizarlo 2 veces... de todas maneras, como dice ecfisa esa no es al raiz dle problema porque la busqueda se hace y el locate ignora el filtro. tendre que hacer como me dices y filtrar por una consulta SQL.
Oscarac, es necesario filtrar por sexo porque el usuario tiene que tener la posibilidad de solo "trabajar" con un sexo determinado pq en determinado momento solo necesitará visualizar los hombres o las mujeres (la base de datos tiene mas de 5000 articulos).
El Lookup tambien ignora el filtro... Eso pensé que seria un bug, pero estoy usando Delphi 2010. Muchas gracias, ya les diré que he hecho y como lo hice.! Saludos desde La Habana.

[[oscarac]]

y probaste la opcion de buscar por el articulo y el sexo a la vez?

[cubanbaker]

Oscarac, la búsqueda por el código y por el sexo, sin filtrar la tabla, me funciona perfectamente, pero tengo necesidad de filtrarla, el usuario necesita solo ver los hombres o las mujeres en determinado momento y no todos mezclados. Ese es mi problema, que necesito filtrar la tabla y que el Locate no ignore el filtro. Gracias.[/font][/color]

[ecfisa]

Hola cubanbaker.

¿ Ya probaste la funcion que te puse en el post #4 ? Corrige el problema del Locate.

Un saludo.

[cubanbaker]

Ecfisa, la funcion me esta dando lo siguiente

BM: TBookMarkStr;
BM:= ADataSet.Bookmark;

Incompatible types: 'AnsiString' and 'TBytes'
Perdona mi ignorancia

[[oscarac]]

prueba asi

Código Delphi [-]
BM := DataModule1.TablaRecurvo.Bookmark

y despues

Código Delphi [-]
 
DataModule1.TablaRecurvo.Bookmark := BM

[cubanbaker]

Tuve que modificar el STR del Bookmark

[cubanbaker]

PERFECTO! Tu funcion lo hace perfecto, ya reconoce el filtro y me da como si no lo encontrara! Eres un GENIO! Muchas gracias, llevo varios dias en esto y me queria volver loco. Gracias nuevamente.

[ecfisa]

Hola.

Me alegra que lo hayas solucionado , pero ¿ Que generaba el error Incompatible types: 'AnsiString' and 'TBytes' ?
A mi no me lo generó en ningún momento ( como te dije antes no uso ADO) y no lo encuentro por ningún lado en la web.

Un saludo.

[cubanbaker]

El error lo estaba generando la declaracion de la variable BM como TBookMarkStr. Le quite el STR y lo acepto perfectamente.

Muchas gracias por tu tiempo y tu paciencia conmigo, me has sido de muchisima ayuda!

[ecfisa]

Hola.

Mira vos, otra más del ADOTable... Con esta ya le descubrimos dos...

Las pruebas las hice con un ADOConnection y la tabla customer de dbdemos.mdb que viene con Delphi (no tenía otra cosa para probar) y me aceptó BookmarkStr sin problemas, ¿ Será el tipo de conexión ?

Ya algún experto en ADO nos sacará de dudas.

Saludos.

[cubanbaker]

Será porque uso Delphi 2010?
Una pregunta, cómo puedo reportar a Delphi de esas bugs?, sobre todo la del Locate y de los filtros que ignora?

[ecfisa]

Bueno, no soy un experto en el tema, es el primero que descubro , pero supongo que en la página de embarcadero

Aparte el bug lo arrastra de vieja data, yo uso Delphi 7...

Contanos que te responden.

Saludos.