Another SCOPE problem

[Janko]

Dear Roger,

I am using ADS with dbf/ntx. And DC_SetScope in DCBROWSE many times in my applications.
When working in test environment without ADS, everything is working fine. Scoping as intended, quick enough.
But under ADS, scoping is producig mess. Browse is not scoped at all, moving up and down is locking the screen.

Same application worked perfect under xBase++ v 1.9, after switching to 2.0 I encountered this problem.
I beleive it is not an Express error, but there might be a bypass solution??

xBase command dbsetscope works OK.

Best regards
Janko

[Wolfgang Ciriack]

Did you rebuild all index files with XBase 2.0 and ADS ?

[rdonnay]

Use the Get-Set function DC_ScopeAds(.t.).

This will process scoping using AX_SetScope() when calling DC_SetScope().

[Janko]

Roger,

I've tried with DC_ScopeAds(.t.), but there was no scoping at all or no change.
I thing that DC_SetScope is, by default, testing which RDD is set and if it is ADS then it goes to AX_ scoping.
I think that there is the catch. Something has changed in xBase 2.0....versus 1.9 and AX_ scoping is not working properly.

Your solution is not working for me.

Maybe there is another possibility?

Janko

[rdonnay]

Why don't you try to debug this by putting some WTF commands in _DCSCOPE.PRG ?

[Janko]

Roger,

thank you for the hint.
I'll try it.

Best regards
Janko

[unixkd]

Try this:

Function ADS_SetScope(xScope)
AX_SetScope(0, xScope )
AX_SetScope(1, xScope )
If Len(DC_dbcargo()) < 5
Aadd(DC_dbcargo(),{xScope, xScope})
Else
DC_dbcargo()[5] := {xScope, xScope}
EndIf
Return(xScope)

[bwolfsohn]

Roger,

i can confirm there is a problem with dc_setscope in xbase 2.0.

i ran this in xdot from ver 257 1.9 and 261 2.0. it works in 1.9, not in 2.0.

xdot was run from the command prompt, not from within the program.


use 1207.lot index 1207.loz alias lot exclusive
lot->(ordsetfocus("CATEGORY")) // includes only lots IN auction
? lot->(indexkey())
cClass:="POTTERY"
lot->(DC_SetScope(0,cClass))
lot->(DC_SetScope(1,cClass))
lot->(dc_dbgotop())
? lot->(dc_keycount())

p.s. DC_ScopeAds(.t.) didn't make a difference

[bwolfsohn]

Additional information:

i had started xdot with:

xdot /ac

and the problem occurred..

when i started xdot with just:

xdot

the problem went away...

when i used
DC_ScopeAds(.f.)
with xdot /ac
the problem went away..

p.s. file has been re-indexed..

[Janko]

Dear Joe (unixkd),

I've tested your sample with direct scoping with AX_SetScope.
Result is like before: no scoping.

I use ADS 10 on Novel, client is W10.
And as I stated before: wirh xBase1.9 I had no problems.

Regards
JAnko