On Mon, 21 Sep 2009, J. Lefebvre wrote:
Hi,
> Using an older ADSRDD do not solve the problem . seem to be higher in RDD
> structure.
>> Compiling the very last cvs version I discovered 'SET DELETED ON' do not
>> work anymore (using ADSRDD).
>> I see some modification around the 15-09-2009.
>> Any idea ?
I do not see any problems in ADS RDD behavior. SET DELETED ON/OFF works
as expected. I used code below to make tests.
If you think that sth does not work as it should then please create
self contain code example like the one below so we can see what's
the problem (if any).
best regards,
Przemek
/*** tst.prg ***/
request ADS
proc main()
AdsSetServerType( 1 )
rddSetDefault("ADSCDX")
dbCreate( "_tst_", {{"F1","C",10,0},{"F2","D",8,0}} )
use _tst_
while lastrec() < 10
dbAppend()
if recno() % 3 != 0
dbDelete()
endif
enddo
? "set delete on"
set delete on
dbEval({||qout(recno())})
? "set delete off"
set delete off
dbEval({||qout(recno())})
close
wait
? "reuse"
use _tst_
? "set delete off"
set delete off
dbEval({||qout(recno())})
? "set delete on"
set delete on
dbEval({||qout(recno())})
close
wait
return
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
