Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

DBFCDX and OrdCustom()

6 views
Skip to first unread message

Herbert Piendl

unread,
Jul 22, 2008, 8:12:36 AM7/22/08
to
Hi !

It appears, that I can not remove a custom flag from a DBFCDX-index
using OrdCustom() or dbOrderInfo( DBOI_CUSTOM ). The following
sample shows the problem - btw. the sample works fine with DBFNTX.

Regards,
Herbert


#include "dbinfo.ch"

REQUEST DBFCDX

FUNCTION MAIN()

RDDSetDefault( "DBFCDX" )

IF CreateAndFill()
INDEX ON test->F1 TO TEST1 CUSTOM TEMPORARY

dbGoto( 4 )
OrdKeyAdd( 1 )

OrdCustom( 1, , .F. )
? "Custom ", OrdCustom( 1 )
// dbOrderInfo( DBOI_CUSTOM, , 1, .F. )
// ? "Custom ", dbOrderInfo( DBOI_CUSTOM, , 1 )

dbGoto( 4 )
test->f1 := "K"
? "RecNo 4 is now 'K'."
dbCommit()

? dbOrderInfo( DBOI_KEYVAL )

dbCloseArea()
ENDIF

RETURN 0


FUNCTION CreateAndFill()
LOCAL i

IF FILE( "TEST.DBF" )
FERASE( "TEST.DBF" )
ENDIF

select 1
dbCreate( "TEST.DBF", { { "F1", "C", 1, 0 } } )
use test

FOR i := 1 TO 6
dbAppend()
test->f1 := CHR( 62 + ( i * 3 ) )
NEXT

RETURN .T.


0 new messages