Hola a todos amigos y colegas.
Hace dias que estaba buscando la manera de hacer una busqueda incremental en un xBrowse usando como DataSource el resultado de un Query, SIN necesidad de hacer una nueva consulta a la base de datos.
Ante eso, solicite ayuda al foro en estas dos oportunidades:
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=42368
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=42384
Despues de tanto buscar y probar, con la sugerencias y colaboracion de los amigos cesar, willi, joao y carlos vargas, como siempre prestos a dar una mano, y finalmente con el toque del Master Mr. Rao, logre hacerlo.
Aca el codigo fuente por si alguien mas lo necesita.
Muchas gracias a todos, de verdad estoy muy agradecido con este maravilloso foro.
Si alguien puede mejorar el codigo, seria excelente !!
Un abrazo a todos
Hace dias que estaba buscando la manera de hacer una busqueda incremental en un xBrowse usando como DataSource el resultado de un Query, SIN necesidad de hacer una nueva consulta a la base de datos.
Ante eso, solicite ayuda al foro en estas dos oportunidades:
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=42368
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=42384
Despues de tanto buscar y probar, con la sugerencias y colaboracion de los amigos cesar, willi, joao y carlos vargas, como siempre prestos a dar una mano, y finalmente con el toque del Master Mr. Rao, logre hacerlo.
Aca el codigo fuente por si alguien mas lo necesita.
Static Function Fnct_oBrwSeek(oGetSeek, cSeek)
Local aShowRecs
aShowRecs :={}
oBrwUsers :aFilter:= nil
if !Empty(cSeek)
oBrwUsers:GoTop()
Do while !oBrwUsers:Eof()
iif ( AT( (alltrim(Upper(cSeek))),(Upper(oBrwUsers:aCols[cBrwNombre]:Value)))>0 , aadd(aShowRecs, oBrwUsers:BookMark),)
oBrwUsers:Skip()
enddo
iif ( len(aShowRecs)>0 , oBrwUsers:aFilter:=aShowRecs , msgAlert('No hay Registros con Estas Caracteristicas',;
'No Se Encontraron Datos') )
endif
oBrwUsers:Refresh()
return .t.Si alguien puede mejorar el codigo, seria excelente !!
Un abrazo a todos
"Los errores en programación, siempre están entre la silla y el teclado..."
Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin
Carora, Estado Lara, Venezuela.
Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin
Carora, Estado Lara, Venezuela.