Filtro y control browse

[mjaviergutierrez]

Hola Colegas ! , espero que anden todos bien. Uds. saben que tengo que filtrar una tabla en un control browse , por un campo de descripción que contenga (con el operador $ ), hace dias que estoy renegando y no me dá bolilla, busque y no encontre un ejemplo claro del useo del control browse con un filtro. No uso nunca ese control, siempre uso el grid , pero no se porque en un proyecto use un browse hace un tiempo y ahora lo tengo que modificar, si alguien tiene a mano un ejemplo, se los agradecería. Muchas saludos !

[andyglezl]

Hola Javier, quizá esto...

dbUseArea( .T., "DBFNTX", "MAESTRO", "MAE", .T., .F. )
dbSetFilter( {|| 'Car' $ MAE->NOMBRE }, " 'Car' $ MAE->NOMBRE" )
dbGoTop()
@ 074,007 BROWSE BRW_MAE WIDTH 720 HEIGHT 300 WORKAREA "MAE"................
.
.
.
.
dbClearFilter()

[AUGE_OHR]

hi,

SET FILTER can be take long Time when navigate in BROWSE ... depend on how it is (un)sort
when have a Index which work on same FIELD like FILTER than it is much faster

if use $ you can use OrdWildSeek() which need Index

Code: Select all

   DO WHILE ORDWILDSEEK("*"+ cSearch +"*",.T.)
      AADD( aFound, TEST->RECNO() } )
   ENDDO
   BROWSE()

[mjaviergutierrez]

Gracias Andy, Jimmy !!! Solucionado, gracias. Saludos.

[franco]

Hello,
I do this with temporary index. This works well on large tables.

Code: Select all

Private  ixorder , etemp    // AT START OF PROGRAM
* LATER IN PROGRAM
ixorder := indexord()
INDEX ON DESC TO TEMP FOR  cSearch $ DESC
BROWSE()
SET ORDER TO IXORDER
**** AFTER CLOSE TABLE
etemp:= 'temp.ntx'
close (your table)
ERASE (etemp)