
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