OrderScope not working properly with bBrowser

[Karl-Heinz]

Hi Benito,

I added your dbf+cdx to my X#-Test app that doesn ´t use the bBrowser but the VO-Databrowser. After a setOrder("activas" ) and a "S" scope i see 4 records and the recno order is:

1
2
6
7

(see attachment)

Is that what you expect ?

regards
Karl-Heinz

[g.bunzel@domonet.de]

Hi Benito,

> ? "DbServer with OrderScope and bBrowser and DbServer:SuspendNotification"
> oServer:SuspendNotification()

Why do you use oServer:SuspenNotification() with bBrowser?
The oServer does not notify the bBrowser about the changed position.

Gerhard

[bfernandez]

Hi Karl,

That is what i expected from bBrowser
That's why i try suspendending notifications to see if the problem is the :bBrowser:notify mechanism.
See the attached image to view the results.

Using bBrowser the results are
1
2
2
6
2

Thanks,
Benito

[bfernandez]

Hi Gerhard,

As i responded to Karl, i suspend notification to see if the problem was related to the notification mechanism implemented by bBrowser.

The same code runs correctly, producing the expected results in all cases, compiling with VO 2.8 SP4b

Prpbably Joachim Bieler can see what is happening here.

Thanks,
Benito

[Chris]

Hi Benito,

Unfortunately for some reason I cannot open your original .rar file, can you please resend it directly to me to have a look? Also maybe also try sending it in .zip format, just in case there's some incompatibility.

[Karl-Heinz]

Hi Chris,

while doing another test i noticed a skip(-1) problem. it seems there is a Bof() problem as soon i´m on eof and want to skip back to bof.

When you run the code you should notice that after the first Skip(-1) Bof() becomes true. When you do a DbGoBottom() Bof() behaves as expected. Bof() behaves also as expected when you deactivate the OrdScope() calls.

Code: Select all

FUNCTION OrderScopeSkipBack() AS VOID 
LOCAL cDBF AS STRING 

	RddInfo ( _SET_AUTOOPEN , TRUE )
	

    RddSetDefault ( "DBFCDX" ) 
    
    cDBF := "D:testBCUENTAS.dbf" 
	
		
	? DbUseArea( TRUE ,,cDBF )		

	? DbSetOrder ( "activas" ) 

	? OrdScope(TOPSCOPE, "S")
	? OrdScope(BOTTOMSCOPE, "S")	
	?
		
	DbGoTop() 

	DO WHILE ! Eof() 
		? RecNo()
		
		DbSkip ( 1 ) 		
		
	ENDDO   
	
    
	? "Recno:" , RecNo() , "Eof:" , Eof() , "Bof:" , Bof()

	// activate the DBGoBOttom() and the bof() below
	// behaves as expected after the DBSkip(-1)
	
	// DbGoBottom()  
	
	? 
	
	DO WHILE ! Bof()
		? RecNo()
		
		DbSkip ( -1 ) 
		? "Bof" , Bof() // TRUE after the first DBSkip ( -1 ) 
	ENDDO 			
	
	DbCloseArea()
		
	
	RETURN 			     

In the zip attachment are Benitos rar files.
btw. It makes no difference when i do a reindex().

regards
Karl-Heinz

[bfernandez]

Hi Chris,

As Karl responded the problem is with the skip.
I hope you can download the zip file sended by Karl

Thanks,
Benito

[Chris]

Thanks a lot guys, problem in the X# RDD confirmed! Not sure if there's a separate issue with bBrowser as well though.