FiveTech Software tech support forums

Posted: **Mon Feb 03, 2020 9:15 pm**

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


      @ 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.

Posted: **Mon Feb 03, 2020 10:24 pm**

Antonio. Intenta asi:

Code: Select all

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

Saludos.

Posted: **Tue Feb 04, 2020 12:54 am**

FranciscoA wrote:Antonio. Intenta asi:

Code: Select all

@ 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

FiveTech Software tech support forums

Favor Ayuda Limpiar Busqueda en Xbrowse

Favor Ayuda Limpiar Busqueda en Xbrowse

Re: Favor Ayuda Limpiar Busqueda en Xbrowse

Re: Favor Ayuda Limpiar Busqueda en Xbrowse