FiveTech Software tech support forums

... se posicionar ou não o browse. No meu sistema(PRG PRINCIPAL) tenho estas declarações que evitavam o mesmo erro na TWBROWSE: EXTERNAL OrdKeyCount, OrdKeyGoTo, OrdKeyNo, Ordcreate Será que pode estar influenciando ? Grato

... TRUE; ALIGN DT_CENTER ACTIVATE DIALOG oDlg CENTERED on init( obrw3:nat:=obrw2:nat ) Error: description: Error DBCMD/2001 Workarea not in use: ORDKEYGOTO Stack Calls =========== Called from: => ORDKEYGOTO(0) Called from: TSBROWSE.PRG => (b)TSBROWSE:RESETBARPOS(8441) Called from: => ...

... ,; ::bKeyCount := &cAdsKeyCount else DEFAULT ::bKeyNo := {| n | iif( n == nil,; ( cAlias )->( OrdKeyNo() ),; ( cAlias )->( OrdKeyGoto( n ); ) ) },; ::bKeyCount := {|| ( cAlias )->( OrdKeyCount() ) } Endif if lAddColumns if len( ::aCols ) == 0 nFields := ( cAlias )->( ...

Al inicio del programa coloca lo siguiente: external dbfcdx, ordkeyno, ordkeycount, ordkeygoto Es imprescindible para que funcione la TWBrowse de Hernán. #include "Fivewin.ch" external dbfcdx, ordkeyno, ordkeycount, ordkeygoto FUNCTION Main() ...

Al inicio del programa coloca lo siguiente: external dbfcdx, ordkeyno, ordkeycount, ordkeygoto Es imprescindible para que funcione la TWBrowse de Hernán. #include "Fivewin.ch" external dbfcdx, ordkeyno, ordkeycount, ordkeygoto FUNCTION Main() ...

... DEBERIAS AGREGAR ESTAS LINEAS AL COMIENZA DE TU PRG PRINCIPAL::: REQUEST DBFCDX REQUEST OrdKeyCount, OrdKeyNo // Para trabajar con DbfCdx REQUEST OrdKeyGoto EXTERNAL DBFCDX, DBFFPT RddSetDefault("dbfcdx") Si es que mal no recuerdo, ese error es por querer usar CDX y no enganchas las lineas que ...

... //---------------------------------------------------------------------------// //REQUEST DBFCDX,DBFFPT,ORDKEYCOUNT,ORDKEYNO,ORDKEYGOTO,rddsys //_ADS,ADSKEYCOUNT,ADSGETRELKEYPOS,ADSKEYNO,ADSSetRelKeyPos,rddsys,ORDKEYGOTO,; //---------------------------------------------------------------------------// ...

Agrega:

EXTERNAL OrdKeyCount, OrdKeyGoTo, OrdKeyNo

Y seguirá siendo tan estable como siempre.

Me da este error, no se a que se debe: Error description: Error BASE/1001 Undefined function: ORDKEYGOTO Args: [ 1] = N 1480 Stack Calls =========== Called from: => ORDKEYGOTO(0) Called from: => (b)SETFILTER(2677) Called ...

Rick Lipkin wrote:As far as the ADS optimization .. in the twbrowse setfilter method one could optimize reccount with testing for the default rdd and use ADSKeyCount, ADSKeyNO, AdsGetRelKeyPos, OrdKeyCount, OrdKeyNo,OrdKeyGoTo

Why not using index scopes (OrdScope()) instead?

EMG

... method one could optimize reccount with testing for the default rdd and use ADSKeyCount, ADSKeyNO, AdsGetRelKeyPos, OrdKeyCount, OrdKeyNo,OrdKeyGoTo Perhaps a column freeze and a goto col method would be nice as well. Rick

Cuando estoy en REDEFINE LISTBOX oBOrd FIELDS "" ID 110 OF oDlg Me esta marcando este error Called from: => ORDKEYGOTO(0) ya agrege los linas de REQUEST DBFCDX, dbffpt, ordkeyno, ordkeycount TWBrowse():lHScroll:= .F. pero cuando bajo el scroll con el mouse me marca este error ...

I resolve it

I put on top of program main

EXTERNAL OrdKeyCount, OrdKeyGoTo, OrdKeyNo, Ordcreate

now run ok

the same code on 16 bit run ok
on 32 bit when I use Pag up or pag down or key cursor the program sho the records well into listbox
when I use the mouse and click on scroolbar it make an strange error :
Undefined function: ORDKEYGOTO

How I can resolve it ?

Regards