xbrowse y bseek ¿Cómo se usa?

xbrowse y bseek ¿Cómo se usa?

Postby fleal » Wed May 21, 2008 9:16 pm

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 ) ) }
fleal
 
Posts: 234
Joined: Tue Oct 25, 2005 12:39 am
Location: México, DF

Postby Ale SB » Thu May 22, 2008 4:52 am

aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
User avatar
Ale SB
 
Posts: 248
Joined: Wed Jan 11, 2006 11:30 am
Location: Campo Grande-MS / Brasil

Postby Biel EA6DD » Thu May 22, 2008 6:54 am

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
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.
Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/
User avatar
Biel EA6DD
 
Posts: 682
Joined: Tue Feb 14, 2006 9:48 am
Location: Mallorca

cierto

Postby fleal » Thu May 22, 2008 6:26 pm

Ale SB y Biel,

Gracias.
Efectivamente falta el alias

Ahora ya trabaja :-)
fleal
 
Posts: 234
Joined: Tue Oct 25, 2005 12:39 am
Location: México, DF


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 36 guests

cron