FiveTech Software tech support forums

... record or table is unlocked then just before this operations RDD writes all local modifications in table and index files. 2. DBSKIP(0) just like DBGOTO( RECNO() ) writes all local modifications (if any) and then discards local record buffer so record has to be read again when any field is accessed. ...

... Time from start: 7 hours 23 mins 28 secs Error occurred at: 09/14/2023, 15:40:37 Error description: Error DBCMD/2001 Area de trabajo no usada: DBGOTO Stack Calls =========== Called from: => DBGOTO( 0 ) Called from: source\classes\xbrowse.prg => (b)TXBROWSE:SETRDD( 4168 ) Called from: ...

Jimmy,

Equivalents:

Found() --> .not. oRs:Eof()
RecNo() --> oRs:BookMark
DbGoTo( n ) --> oRs:BookMark := n
OrdKeyNo() --> oRs:AbsolutePosition
OrdKeyGoTo( x ) --> oRs:AbsolutePosition := x

Regards,

... new use ArtFor index ArtFor1, ArtFor2, ArtFor3, ArtFor4, ArtFor5 new use _ArtFor index _ArtFor1, _ArtFor2 new zap select ArtFor ArtFor->(DbGoTop()) While !ArtFor->(Eof()) select _ArtFor _ArtFor->(DbAppend()) _ArtFor->Articulo := ArtFor->Articulo _ArtFor->Detalle := ArtFor->Detalle ...

... function RefXBrw(regi) select _ArtFor _ArtFor->(DbGoTop()) While !_ArtFor->(Eof()) _ArtFor->Total := _ArtFor->Costo*_ArtFor->Pedir _ArtFor->(DbSkip()) end _ArtFor->(DbGoTo(regi)) ...

... my Data but when "move" vitcal Scrollbar it crash : no WorkArea :shock: Error description: Error DBCMD/2001 Workarea not in use: DBGOTO As per your first post in the thread you are using a Window. The DBF is getting closed immediately after the ACTIVATE WINDOW and that's the reason ...

... my Data but when "move" vitcal Scrollbar it crash : no WorkArea :shock: Error description: Error DBCMD/2001 Workarea not in use: DBGOTO Newbie need some help, who can point me to a "simple" Demo --- there are a lot of Sample ... but they are not "sort" when ...

... ; RANGE 1,reccount() ; ON DOWN ( dbSkip(),; If( EoF(), dbGoBottom(),), Rinfresca(oSay) ); ON UP ( dbSkip( -1 ),Rinfresca(oSay) ) ; ON THUMBPOS (DBGOTO(oScrollInizio:getpos()) ,; If( EoF(), dbGoBottom(),), Rinfresca(oSay) ) UPDATE But not run ok

Suelo guardar el registro en el que hago cambios de esta forma

nRegistro:=EMPRESAS->(Recno())

y después de haber hecho los cambios y volver al xBrowse reposicionarlo de la forma siguiente:

EMPRESAS->(DbGoto(nRegistro))

bastante simple y funcional.

... change data from the selected rows FOR I = 1 TO LEN(oBRWT2:aSELECTED) // obrw:aSELECTED is an array containing recnos marked (oBrwT2:cAlias)->(dbgoto(oBRWT2:aSELECTED[I])) oBrwT2:&nVeldID:Varput( mem_var ) NEXT

... work when they are simple like : h2 := FW_RecToHash(), ; oBrwT:LButtonUp(), ; h1["positie"] = "100" ,; FW_HashToRec( h1 ), ; DBGOTO( nPos1 ), ; FW_HashToRec( h2 ), ; In the large datafile that comes from my site the hashes are more complex. I think like multidimensional or ...

... del puntero en el area de trabajo y ahora en determinadas ocasiones (no se exactamento cual el la situación) se queda colgado en la orden (dbgoto) Tengo verirficado que el sistema se queda colgado en esa instrucción. Supongo que desde otro terminal se hizo algo pero no acabo de tener claro ...

... del puntero en el area de trabajo y ahora en determinadas ocasiones (no se exactamento cual el la situación) se queda colgado en la orden (dbgoto) Tengo verirficado que el sistema se queda colgado en esa instrucción. Supongo que desde otro terminal se hizo algo pero no acabo de tener claro ...

... If you want to continue your program the same way, then you please do this: 1. nSaveRec := RECNO() DEFINE REPORT AND ACTIVATE after that 2. DBGOTO( nSaveRec ) oBrw:Refresh() OR Run the report by opening the same DBF with a different Alias, run report and close that alias.

This code: DEFAULT ::bKeyNo     := ::bBookMark, ; ::bBookMark is { |x| If( x == nil, RECNO(), DBGOTO( x ) ) } This works well if the DBF is in natural order (with no index set) and when no filter is set. If the DBF is set to an index or if a filter is set, this behaves ...