Hi Mindaugas,
First a Thank You.
Nothing related to these modifications but to ADS.
I reported a while back a bug in ads which is still not fixed.
after poisoning the record pointer by doing a SKIP, a index..while will
start from record 1, instead of from the current record
it's only on REMOTE
and only after a SKIP.
here is a test.
--------------------------
#INCLUDE "ads.ch"
PROC MAIN()
FIELD FLD1
LOCAL I
REQUEST ADS
//SET SERVER LOCAL
SET SERVER REMOTE
rddSetDefault( "ADSCDX" )
? "rdd:", rddSetDefault()
ERASE( "test.cdx" )
DBCREATE( "test.dbf", {{"FLD1", "N", 10 , 0}} )
USE test
INDEX ON FLD1 TAG TEMP
ORDSETFOCUS( "TEMP" )
? ORDSETFOCUS()
FOR I := 1 TO 100
APPEND BLANK
FLD1 := I
NEXT
ERASE("temp2.idx")
GO TOP
SKIP 50
//SEEK fld1 // <-will fix it.
INDEX ON FLD1 TAG TEMP2 WHILE FLD1 < 99 TO temp2.idx
? ORDSETFOCUS()
? "===="
ORDSETFOCUS( "TEMP" )
? ORDSETFOCUS()
GO TOP
? FLD1
GO BOTTOM
? FLD1
ORDSETFOCUS( "TEMP2" )
? ORDSETFOCUS()
GO TOP
? FLD1
GO BOTTOM
? FLD1
USE
RETURN
-------------
result shoul be
rdd: ADSCDX
TEMP
TEMP2
====
TEMP
1
100
TEMP2
51
98
------------------
snaiperis wrote:
>
> Revision: 13020
>
> http://harbour-project.svn.sourceforge.net/harbour-project/?rev=13020&view=rev
> Author: snaiperis
> Date: 2009-11-25 17:11:56 +0000 (Wed, 25 Nov 2009)
>
>
>
--
View this message in context:
http://n2.nabble.com/SF-net-SVN-harbour-project-13020-trunk-harbour-tp4066231p4072049.html
Sent from the harbour-devel mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
