FiveTech Support Forums

Camaradas todos,

Como puedo hacer una busqueda en xBrowse, llamando desde un button, en cualquiera de los campos de un registro, es decir, si son 2 columnas poder buscar un valor del registro por cualquiera de los 2 campos.

Agradeciendo de antemano

Prueba con el funcion.... debes agregarla a un boton y pasarle los parametros de tu brow, el campo a buscar y si quieres un dindice, puedes quitar lo del indice...si estas usando database....

FUNCTION buscar(cCodigo, oLbx, nIndice) // BUSCA UN REGISTRO SEGUN EL INDICE ORDENADO CON EL COMBOBOX

IF EMPTY(cCodigo)
GO TOP
ENDIF

OrdSetFocus(nIndice)

IF !DBSEEK(ALLTRIM(UPPER(cValToChar(cCodigo))))
MSGINFO("Código a buscar << "+ALLTRIM(cValToChar(cCodigo))+;
" >>, no existe..."," ATENCIÓN")
GO TOP
ELSE
GOTO RecNo()
ENDIF

oLbx:REFRESH()
RETURN .T. // FIN BUSCA UN REGISTRO SEGUN EL INDICE ORDENADO

Compuin
Mira el sample: testxbrw.prg
Ahí vas a encontrar el metodo de busqueda de xBrowse

oBrw:bSeek:= {|c| DbSeek( c ) }

Saludos

Tengo esa linea declarada en mi browser, lo que quiero es poder buscar en todo el mismo editando una celda y colocando el valor a buscar. Dicha busqueda deberia ser llamada desde un boton.

Atento a sus comentarios

No entiendo bien.
Editando un celda del propio browse en el cual se hace la búsqueda?.

Quise decir, hacer una busqueda x campo en un browse

Opino que la respuesta de Jose Luis es una buena opción

Saludos

Basicamente lo que quiero es editar una celda, colocar el valor a buscar (Codigo) y luego presionar el boton de busqueda para que lo traiga. Utilize el codigo de Jose Luis pero algo hice mal que siempre me apunta al primer registro.

Atento a sus sugerencias

Alguna sugerencia distinta?

Atento a sus comentarios

Lo que yo hago, cuando tengo un Browse de array y al no usar la clase misma de xBrowse es, mediante
un boton abrir un Dialog en el que tengo:
Un combobox que despliega las columnas posibles de búsqueda
Un get para introducir la búsqueda
Un botón para Buscar y, como uso ADS, otro botón Buscar último
Anteriormente, cuando usaba dbSix, ponía un tercer boton Buscar Siguiente ya que DbSix disponía de una funcion para tal caso.
En fin, creo que en cuestión de búsquedas todo pasa por las necesidades e inventiva

Saludos