Favor Ayuda Limpiar Busqueda en Xbrowse

[remtec]

Hola Amigos,

Tengo un Xbrowse en el cual realizo busqueda incremental y funciona bien.

Lo que necesito es tener un Boton que me permita Limpiar la Busqueda y elimine el Contenido mostrado en la Variables (oSeek,cSeek) y que libere el Filtro de Xbrowse.


Muchos Saludos
Antonio

Dejo Parte del Codigo, que no Limpia el contenido:

Code: Select all  Expand view  RUN

      @ 35,10 SAY otitu3 PROMPT "Buscar : "  PIXEL OF oDlg1 COLORS RGB(12, 135, 27)   FONT oFont7

     @ 35,40 SAY oBrw:oSeek  VAR oBrw:cSeek SIZE 100,10 PIXEL OF oDlg1 PICTURE "@X" FONT oFont7 COLOR CLR_HRED,CLR_YELLOW

     @ 032,250 BTNBMP SIZE 40, 10 PROMPT "LIMPIAR"  OF oDlg1 PIXEL 2007  FONT oFont7 ;
            ToolTip  "LIMPIAR BUSQUEDA";
            ACTION IF(!Limpia_Busqueda(@cSeek,oBrw),(MsgInfo( "NO SE HA REALIZADO LA LIMPIEZA" ),.F.),(oBrw:Refresh()))


Function Limpia_Busqueda(cSeek,oBrw)
     cSeek:=""
   DbGotop()
     Return .T.

 

[FranciscoA]

Antonio. Intenta asi:

Code: Select all  Expand view  RUN

@ 032,250 BTNBMP SIZE 40, 10 PROMPT "LIMPIAR"  OF oDlg1 PIXEL 2007  FONT oFont7 ;
              ACTION ( oBrw:Seek( "" ), oBrw:GoTop(), oBrw:SetFocus() )
 

Saludos.

[remtec]

Antonio. Intenta asi:

Code: Select all  Expand view  RUN

@ 032,250 BTNBMP SIZE 40, 10 PROMPT "LIMPIAR"  OF oDlg1 PIXEL 2007  FONT oFont7 ;
              ACTION ( oBrw:Seek( "" ), oBrw:GoTop(), oBrw:SetFocus() )
 

Saludos.

Hola Francisco,

Como estas, muchas gracias Maestro, como siempre, nunca fallas, eternamente agradecido.

Funciono Perfecto,

Muchos Saludos
Antonio