FiveTech Software tech support forums

... := {|c| Lineas->DbSeek( Upper( c ) ,.t.) } Te recomiendo que le antepongas el alias, y uses el parametro softseek a .t. Con esto debiera funcionarte.

... ArCust->( DbChoice( "Select a customer", 1 ) ) else Select 1 ArCust->( DbSeek( cCodex ) ) if ArCust->Code==cCodex return nil else set softseek on seek cCodex set softseek off ArCust->( DbChoice( "Select a customer", 1 ) ) endif endif oGetCodex:VarPut( ArCust->Code ) oGetCodex:Refresh() ...

... ArCust->( DbChoice( "Select a customer", 1 ) ) else Select 1 ArCust->( DbSeek( cCodex ) ) if ArCust->Code==cCodex return nil else set softseek on seek cCodex set softseek off ArCust->( DbChoice( "Select a customer", 1 ) ) endif endif oGetCodex:VarPut( ArCust->Code ) oGetCodex:Refresh() ...

Here is the SelectCode() function:- ... function SelectCode( oGetCodex, cCodex ) select 1 * set softseek on * seek cCodex if ArCust->(DbSeek( cCodex )) if ArCust->Code==cCodex return nil end end * set softseek off ArCust->( DbChoice( "Select a ...

Here is the SelectCode() function:- ... function SelectCode( oGetCodex, cCodex ) select 1 set softseek on seek cCodex set softseek off ArCust->( DbChoice( "Select a customer", 1 ) ) oGetCodex:VarPut( AllTrim( ArCust->Code ) ) oGetCodex:Refresh() // repaints the GET ...

... *----------------------- * RddRegister( "DBFCDX", 1 ) * RddSetDefault( "DBFCDX" ) HB_LANGSELECT( "ESWIN" ) SET DELETED ON SET DATE TO ITALIAN SET SOFTSEEK ON SET CENTURY ON SET EPOCH TO 2000 RETU NIL *------------------------ STATIC FUNCTION Control() *------------------------ LOCAL oDummy aDbf ...

... DEFAULT nLong := 0 IF nLong > 0 cKey := STR(VAL(cKey),nLong,0) ENDIF IF GETASYNCKEY(VK_BACK) cKey := SUBSTR(cKey,1,LEN(cKey)-1) ENDIF SEEK cKey SOFTSEEK IF ! FOUND() GO nSeekRec ENDIF oLbx:REFRESH() oLbx:oVScroll:SETPOS(RECNO()) RETURN Y el get desde donde buscas es el siguiente: REDEFINE GET ...

... redefine read report replace right rlock recno sizes sequence self super set say separator size style sysrefresh shared select store skip seek softseek time title tone to tooltip top total transform var val valid valtype while when window with use update upper zap /C2 new /C3 local static public ...

... disponible") // RETURN .F. // ENDIF USE SALDOS ALIAS SALDOS SHARED NEW SET INDEX TO SALDOS SALDOS->( DbSeek( ncta+Dtos(wfecha_ven), .t. ) ) //softseek IF ! SALDOS->( Eof() ) .and. SALDOS->cta = ncta .and. SALDOS->fecha = wfecha_ven DO WHILE .t. IF SALDOS->( DbRLock() ) REPLACE ...

... me encuentra apellidos hasta MORENO, si busco apellidos que empienza con la O en adelante no encuentra nada, el found() y DBSEEK() dan FALSE y con SOFTSEEK ON se va al final del archivo. En clipper + fivewin el seek me encuentra todo sin problemas. Gracias por la atencion. Andres ADS 8.1 para 250 ...

... redefine read report replace right rlock recno sizes sequence self super set say separator size style sysrefresh shared select store skip seek softseek time title tone to tooltip top total transform var val valid valtype while when window with use update upper zap /C2 new /C3 local static public ...

... Local oBmp,oCursor1,oBar, cTexto ,oDbf Local Datos:="\\PIII\C\WPSDatos\" LandScape() HB_LANGSELECT("ESWIN") SET DELETED ON SET DATE TO FREN *SET SOFTSEEK ON SET CENTURY ON SET EPOCH TO 2000 *SET DEFAULT TO &Datos AnsiToOem(cTexto) USE (Datos+"STOCK.DBF") VIA "DBFNTX" NEW DATABASE oDbf Stock->(DbGoTop()) ...

... Local oBmp,oCursor1,oBar, cTexto ,oDbf Local Datos:="\\PIII\C\WPSDatos\" LandScape() HB_LANGSELECT("ESWIN") SET DELETED ON SET DATE TO FREN *SET SOFTSEEK ON SET CENTURY ON SET EPOCH TO 2000 *SET DEFAULT TO &Datos AnsiToOem(cTexto) USE (Datos+"STOCK.DBF") VIA "DBFNTX" NEW DATABASE oDbf Stock->(DbGoTop()) ...

Si con softseek devuelve falso, se podria cambiar la linea de la siguinete manera. if ::lBuffer .AND. ( lSoft .OR. lFound ) ::Load() endif o tambien if ::lBuffer .AND. ...

Que pasa cuando es SoftSeek?

creo que el found devuelve .F.

Saludos