xbrowse y bseek ¿Cómo se usa?

[fleal]

Pues tengo ésta duda... ¿Cómo se usa el bseek para la busqueda incremental en un xbrowse?

No hayo como indicar que la busqueda sea por una columna en especial o hay que activar indices... no sé. Toy perdido El siguiente código marca error aún cuando tengo el indice abierto.

Error description: Error DBFCDX/1201 Workarea not indexed

Stack Calls
===========
Called from: => DBSEEK(0)
Called from: CAPTURA.PRG => (b)VERCATALOGO(2876)
Called from: XBROWSE.PRG => TXBROWSE:SEEK(0)
Called from: XBROWSE.PRG => TXBROWSE:KEYCHAR(0)



// Código que estoy usando

REDEFINE XBROWSE oLbx ID 201 OF oDlg ;
ALIAS "LINEAS" ;
HEADERS "Linea","Nueva Def","Descripción","Producto" ;
COLUMNS "CLINEA","CNUEVADEF","CDESCRIBE" ,"CPRODUCTO" ;
COLSIZES 90 , 90, 200 , 90 ;
ON DBLCLICK ( lPegar := TRUE, oDlg:End() ) ;
AUTOSORT


oLbx:bKeyChar = { | nKey | IF( nKey=13, ;
( lPegar:= TRUE, oDlg:End() ) , FALSE ) }

oLbx:bSeek := {|c| DbSeek( Upper( c ) ) }

[Ale SB]

Mire aki amigo:

http://fivetechsoft.com/forums/viewtopi ... 2548#52548

Saludos Ale

[Biel EA6DD]

Tienes que tener un indice creado en la tabla, para la columna por la que quieres buscar.
Suponiendo que tengas la tabla "LINEAS" indexada por el campo "CDESCRIBE"

Code: Select all  Expand view  RUN

oLbx:bSeek := {|c| Lineas->DbSeek( Upper( c ) ,.t.) }


Te recomiendo que le antepongas el alias, y uses el parametro softseek a .t.

Con esto debiera funcionarte.

[fleal]

Ale SB y Biel,

Gracias.
Efectivamente falta el alias

Ahora ya trabaja