FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Busqueda Avanzada en un Browser o Listbox
Posts: 42
Joined: Fri Nov 04, 2005 12:22 AM
Busqueda Avanzada en un Browser o Listbox
Posted: Sun Sep 23, 2007 03:27 PM

Estimado Foro:

Estoy tratando de realizar una busqueda avanzada cuando tengo un browser y muestro un dialogo con gets para la busqueda.... el detalle esta en quiero buscar lo que escribe el usuario en cualquier parte del campo..

Me explico: si tengo un browser de clientes y el usuario en un gets escribe "[u:3k00rpnu]duar[/u:3k00rpnu]", quiero que el busque no solo los que comienzan por duar sino cualquier parte del nombre. Ejm "e[u:3k00rpnu]duar[/u:3k00rpnu]do" "Perez [u:3k00rpnu]Duar[/u:3k00rpnu]te"

Gracias.

FWH/FWHX 9.10 + Harbour + xMate 1.5



Domenico Di Gregorio

Italia - Venezuela

stePyme 1.0
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Busqueda Avanzada en un Browser o Listbox
Posted: Sun Sep 23, 2007 05:39 PM

DiGregorio:

Necesitas algo así

REDEFINE GET aGet[2] VAR cFilCli ID 102 OF oDlg UPDATE;
PICTURE "@!K" VALID FilCli(cFilCli,cCliente,oDlg,oLbx)

Y esta es la funcion FilCli()

FUNCTION FilCli(cFiltro,cFile,oDlg,oLbx)
cFiltro := ALLTRIM(cFiltro)
IF ! EMPTY(cFiltro)
(cFile)->(DBSETFILTER({|| AT(cFiltro, (cFile)->CLI_NOM) > 0 },"AT(cFiltro, (cFile)->CLI_NOM) > 0" ))
ELSE
(cFile)->(DBCLEARFILTER())
ENDIF
(cFile)->(DBGOTOP())
oLbx:Refresh()
oDlg:Update()
RETURN(.T.)

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 114
Joined: Fri Nov 24, 2006 09:03 PM
Busqueda Avanzada en un Browser o Listbox
Posted: Mon Sep 24, 2007 05:16 PM

simplemente en la funcion que hace la busqueda pones esto

Locate For 'duar'$Empleados->Nombre

Continue the discussion