Favor Ayuda Limpiar Busqueda en Xbrowse

Board index FiveWin para Harbour/xHarbour Favor Ayuda Limpiar Busqueda en Xbrowse

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Favor Ayuda Limpiar Busqueda en Xbrowse
Posted: Mon Feb 03, 2020 09: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 (fw): Select all Collapse

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

FWH 22.10 - HARBOUR - PELLES C

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Favor Ayuda Limpiar Busqueda en Xbrowse
Posted: Mon Feb 03, 2020 10:24 PM

Antonio. Intenta asi:

Code (fw): Select all Collapse

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

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: Favor Ayuda Limpiar Busqueda en Xbrowse
Posted: Tue Feb 04, 2020 12:54 AM

FranciscoA wrote:Antonio. Intenta asi:
Code (fw): Select all Collapse
@ 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

FWH 22.10 - HARBOUR - PELLES C

FiveTech Support Forums

Continue the discussion