Code: Select all
METHOD SQLRDD_SaveState() CLASS TXBrowse
if ::SQLRDD_hState == nil
::SQLRDD_hState := {=>}
HSetCaseMatch( ::SQLRDD_hState, .f. )
endif
::SQLRDD_hState[ "nLen" ] := ::nLen
::SQLRDD_hState[ "IndexOrd" ] := INDEXORD()
::SQLRDD_hState[ "descend" ] := OrdDescend() // erro
::SQLRDD_hState[ "recno" ] := RECNO()
::SQLRDD_hState[ "nKeyNo" ] := ::SQLRDD_nKeyNo
return nil