Posts: 234

Joined: Tue Oct 25, 2005 12:39 AM

xbrowse y bseek ¿Cómo se usa?
Posted: Wed May 21, 2008 09: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 ) ) }

Ale SB

Posts: 248

Joined: Wed Jan 11, 2006 11:30 AM

xbrowse y bseek ¿Cómo se usa?
Posted: Thu May 22, 2008 04:52 AM

Mire aki amigo:

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

Saludos Ale

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---**

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

xbrowse y bseek ¿Cómo se usa?
Posted: Thu May 22, 2008 06: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 Collapse

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/

fleal

Posts: 234

Joined: Tue Oct 25, 2005 12:39 AM

cierto
Posted: Thu May 22, 2008 06:26 PM

Ale SB y Biel,

Gracias.
Efectivamente falta el alias

Ahora ya trabaja :-)

FiveTech Support Forums

Stack Calls

Continue the discussion