Code: Select all
function main()
use detail
index on code to detail
SetMyFilter("001")
detail->(dbGotop())
do while !detail->(eof())
?detail->code
detail->(dbSkip())
enddo
... work fine
ClearMyFilter()
detail->(dbGotop())
do while !detail->(eof())
?detail->code
detail->(dbSkip())
enddo
... not work... still locked by scope, the scope is not clear
return nil
function SetMyFilter(cScope)
detail->(ordScope(0,cScope))
detail->(ordScope(1,cScope))
return nil
function ClearMyFilter()
detail->(ordScope(0,NIL))
detail->(ordScope(1,NIL))
return nil
.. How to clear my Scope
Regards
Fafi