FiveTech Software tech support forums

... 1 TO 5
OrdKeyAdd( "NAMESET" )
SKIP
NEXT

GO TOP
Browse()

// absolute navigation with custom index
OrdSetFocus( "NAMESET" )
FOR i:=1 TO 5
DbGoto( i )
OrdKeyAdd( "NAMESET" )
NEXT

GO TOP
Browse()

USE
RETURN

OrdKeyAdd()
Adds an index key to a custom built index.
Syntax
OrdKeyAdd ...

... I forgot about this.

This works ok, with full name.



WITH OBJECT xControl
xControl:SetRdd()
xControl:bGoTop := {|| ( xControl:cAlias )->( DbGoTop() ) }
xControl:bGoBottom := {|| ( xControl:cAlias )->( DbGoBottom() ) }
xControl:bSkip := {| n | ( xControl:cAlias )->( DbSkipper( IfNil( n, 1 ...

On a first momment anything is wrong.

WITH OBJECT xControl
:SetRdd()
:bGoTop := {|| ( :cAlias )->( DbGoTop() ) }
:bGoBottom := {|| ( :cAlias )->( DbGoBottom() ) }
:bSkip := {| n | ( :cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) }
:bBof := {|| ( :cAlias )->( Bof() ) }
:bEof := {|| ( :cAlias ...

These are the default codeblocks for a normal DBF.

::bGoTop := {|| ( ::cAlias )->( DbGoTop() ) }
::bGoBottom := {|| ( ::cAlias )->( DbGoBottom() ) }
::bSkip := {| n | ( ::cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) }
::bBof := {|| ( ::cAlias )->( Bof() ) }
::bEof := {|| ( ::cAlias )->( Eof ...

... n | ( nSelect )->( FazBrowseSkip( n ) ) }
//:bBof := { || Bof() }
//:bEof := { || Eof() }
//:bBookMark := { | n | iif( n == nil, RecNo(), DbGoto( n ) ) }
ENDWITH
...
STATIC FUNCTION FazBrowseSkip( nSkip )

LOCAL nSkipped := 0

IF Empty( nSkip )
RETURN 0
ENDIF
IF nSkip > 0
DO WHILE ...

... NAME "Segoe UI Symbol" SIZE 0, -14

DbUseArea( .T., , "Customer.dbf" )
DbUseArea( .T., , "utf8_01.dbf" )
DbUseArea( .T., , "states.dbf" )
//DbGoto( 3 )
DEFINE WINDOW oWnd TITLE "Test Menu From Databases and Arrays: " MENU MenuDatabase() ;
FROM 20, 40 TO 650, 1200 PIXEL

oWnd:bRClicked ...

... FieldName: Returns the name of a field by its 1-based position.
* - FieldPosLast: Returns the 1-based position of the last field.
* - php4dbf_dbGoTop: Moves the record pointer to the first valid record.
* - php4dbf_dbGoTo: Moves the record pointer to a specific record.
* - php4dbf_init ...

... 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: source ...

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))
return NIL ...

... now i can "see" 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 ...

... now i can "see" 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 search for XBROWSE ...

... oScrollInizio HORIZONTAL SIZE 400,20 PIXEL OF oDlg ;
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