xBrowse - bSeek Ayuda

[Ruben D. Fernandez]

Amigos:

Necesito un ejemplo de un xBrowse que al digitar
un nombre se mueva el browse hasta el nombre ese que se digita

Muchas gracias.

(Disculpen, me estoy cambiando de Browse)

Saludos y Gracias

Ruben Fernandez

[Manuel Aranda]

Hola Rubén:

A ver si es esto lo que estás buscando:

Code: Select all  Expand view  RUN


..................
     REDEFINE GET oGet VAR cText ID 801 PICTURE "@!" OF oDlg;
     ON CHANGE ( Self:Assign(),;
     Locator(""+SubStr(cText,1,Self:nPos-1)+Upper(Chr( nKey )),oLbx,cUsaBase) );
..................

************************************
FUNCTION LOCATOR(cKey,oB,cUsaBase)
************************************
// oB = TWBrowse Object, cKey = Contenido del Get
local nSeekrec
//
nSeekrec:=(cUsaBase)->(Recno())
cKey := SubStr(cKey,1,Len(cKey)-1)
//
IF GetASyncKey( VK_BACK )
   cKey := SubStr(cKey,1,Len(cKey)-1)
EndIF

(cUsaBase)->(DbSeek(cKey,.T.))
If !Found()
   GO nSeekrec
EndIF
//
oB:Refresh()
//
RETURN( NIL )



[Ruben D. Fernandez]

Gracias Manuel:

Lo pruebo y te aviso.

Gracias y Saludos

Ruben Fernandez.

[Ruben D. Fernandez]

Manuel:

Funciono perfecto, ahora deseo enmcontrar la funcion similar
del twBrowse de HDC para xBrowse. No necesita tener un get,
solo digitar lo que buscas.

Muchas gracias, por ahora esta solucionado

Saludos

Ruben Fernandez.

[Manuel Aranda]

Usando bkeydown podrías conseguirlo. La siguiente función te desplaza el browse según la letra que digitas. Con algunas modificaciones creo que te servirá para implementar lo que buscas.

Code: Select all  Expand view  RUN

................
oLbx:bkeydown:={|nKey|DOKEYCHECK(nKey,oLbx)}
.................

******************************************************************
FUNCTION DOKEYCHECK(nKey,oBrw)
******************************************************************
*------SINGLE CHARACTER BROWSE SEARCHER----------------------
   local cKEY, nSeekrec
   nSeekrec:=recno()           && Record number before the seek...
   && Note ASCII values: 65-90  are Capital A through Z.
   &&                  : 97-122 are lowercase a through z.
   &&                  : 48-57  are numbers 0-9.
   &&                  : 13     used below is for a RETURN key hit.
   IF nKEY>=65 .AND. nKEY<=90 .OR. nKEY>=97 .AND. nKEY<=122 .OR. nKEY >=48 .AND. nKEY<=57

      cKey:=UPPER(CHR(nKEY)) && Change ACSII nKey value to a Character value
                             && for the SEEK...

      SET SOFTSEEK ON        && Get as close as you can to the key value...
      SEEK UPPER(cKey)
      SET SOFTSEEK OFF         && Reset softseek

      oBRW:oVscroll:setpos(recno())   && Refresh browser object sequence...
      oBRW:refresh()                  &&
      SysRefresh()
      RETURN( NIL )                   && Drop out!
   ENDIF

*-RECORD SELECTION AFTER A RETURN KEY HIT...POSSIBLY TO DROP TO EDIT WINDOW -*
   DO CASE
      CASE nKEY == VK_SPACE
           //
      CASE nKEY == VK_RETURN
           //
   ENDCASE
//
RETURN( NIL )


[Ruben D. Fernandez]

Manuel:

Espectacular, muchas gracias.

Saludos

Ruben Fernandez

[Biel EA6DD]

Lo que te comenta Manuel esta bien y seguro que funciona, pero para xBrowse lo ideal sería emplear sus Datas y metodos que proporciona para busquedas.
Lo primero crear un objeto say, que irá visualizando la cadena de busqueda.
Una vez creado el say, añades las siugientes lineas, y ya tienes la busqueda implementada.

Code: Select all  Expand view  RUN

      oBrw:bSeek   := { | c | Alias->(DBSeek( c ), .T. ) }  //el alias que quieras
      oBrw:oSeek   := oSay //El say que has creado antes, no es obligatorio


[Manuel Aranda]

Muchas gracias Biel. Va uno heredando código antiguo, que aunque funciona, no es lo mejor.

[Ruben D. Fernandez]

Gracias Biel.

Saludos

Ruben Fernandez.