Procedure DbTest(cRdd,cDir)
RDDSETDEFAULT( cRdd )
DbCreate(cDir+"test",{{"FEL_C","C",10,0},{"FEL_N","N",10,2}}) && OK
Use (cDir+"test") && OK
Index On FEL_C To "test1" && OK
Index On FEL_N To "test2" && OK
Set Index To "test1","test2" && leto Error - dbfntx/dbfcdx OK
? '---',cRdd,'----------------------'
FOR nPos:=1 TO 2
Set Order To nPos
? nPos,indexkey()
IF nPos = 1 .AND. indexkey()#'FEL_C'
?? ' Error'
ELSEIF nPos = 2 .AND. indexkey()#'FEL_N'
?? ' Error'
ELSE
?? ' OK'
ENDIF
NEXT
Use
Return
###############################################################
Harbour 1.0.0 Intl. (Rev. 9175)
Borland C++ 5.5.1 (32 bit)
--- DBFNTX ----------------------
1 FEL_C OK
2 FEL_N OK
--- DBFCDX ----------------------
1 FEL_C OK
2 FEL_N OK
--- LETO ----------------------
1 FEL_N Error
2 FEL_N OK
--- LETO ----------------------
1 FEL_N Error
2 Error
--- Ende ----------------------
#########################################################################
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Hallo...,
the LETO-RDD has problems with more than
one index file! The example shows the
error when LETO-RDD. Can someone help me?
######################################################
REQUEST LETO
REQUEST DBFNTX
REQUEST DBFCDX
Procedure Main
? Version()
? HB_Compiler()
DbTest( "DBFNTX", "" )
DbTest( "DBFCDX", "" )
DbTest( "LETO" , "//127.0.0.1:2812/dirntx/" ) && letodb.ini [DATABASE] Driver=NTX
DbTest( "LETO" , "//127.0.0.1:2812/dircdx/" )
? '--- Ende ----------------------'
RETURN
Procedure DbTest(cRdd,cDir)
RDDSETDEFAULT( cRdd )
DbCreate(cDir+"test",{{"FEL_C","C",10,0},{"FEL_N","N",10,2}}) && OK
Use (cDir+"test") && OK
Index On FEL_C To "test1" && OK
Index On FEL_N To "test2" && OK
Set Index To "test1","test2" && leto Error - dbfntx/dbfcdx OK
? '---',cRdd,'----------------------'
FOR nPos:=1 TO 2
Set Order To nPos
? nPos,indexkey()
IF nPos = 1 .AND. indexkey()#'FEL_C'
?? ' Error'
ELSEIF nPos = 2 .AND. indexkey()#'FEL_N'
?? ' Error'
ELSE
?? ' OK'
ENDIF
NEXT
Use
Return
###############################################################
Harbour 1.0.0 Intl. (Rev. 9175)
Borland C++ 5.5.1 (32 bit)
--- DBFNTX ----------------------
1 FEL_C OK
2 FEL_N OK
--- DBFCDX ----------------------
1 FEL_C OK
2 FEL_N OK
--- LETO ----------------------
1 FEL_N Error
2 FEL_N OK
--- LETO ----------------------
1 FEL_N Error
2 Error
--- Ende ----------------------
#########################################################################