Tsbrowse: Posicionando el cursor en un registro especifico

[George]

Esto tratando, cuando abro una tabla, de posicionar el cursor en un registro especifico (por ejempo en el registro No. 10).

Si uso el Browse de fivewin funciona bien, pero cuando uso Tsbrowse siempre se posiciona en el primer registro.
Exite algun metodo en Tsbrowse para indicarle que cuando abra la tabla se posicione el cursor en un registro especifico?

Aqui esta el codigo que estoy usando:

Code: Select all  Expand view  RUN

FUNCTION SelectStateI(cInitST)
   LOCAL oDlg, oBrw, cAlias

   DEFINE DIALOG oDlg RESOURCE "BROW_ST"

   dbselectarea("STATES")
   dbsetorder("STNAMES")
    cAlias := alias()

  REDEFINE BROWSE oBrw of oDlg ID 101
   
   IF len(alltrim(cInitST)) > 0
      dbsetorder("STCODES")
      if dbseek(cInitST)
            // El cursor se debe posicionar en este registro.
                                     // Funciona perfecto con TWbrowse de Fivewin
                                     // NO funciona si uso Tsbrowse
      endif
      dbsetorder("STNAMES")
   ELSE
       dbgotop()
   ENDIF

    ADD COLUMN TO BROWSE oBrw TITLE "State name" DATA    (cAlias)->ST_NAME ;
    WIDTH 200

    ADD COLUMN TO BROWSE oBrw  TITLE "Code" DATA (cAlias)- >ST_ABREV;
    WIDTH 35

    ADD COLUMN TO BROWSE oBrw  TITLE "Country" DATA (cAlias)->COUNTRY;
    WIDTH 80


   oDlg:lHelpIcon := .F.

   ACTIVATE DIALOG oDlg CENTER
 
RETURN (.T.)


Alguna sugerencia de que se debe hacer para que funcione en Tsbrowse?

Saludos,

George

[mmercado]

Hola George:

Esto tratando, cuando abro una tabla, de posicionar el cursor en un registro especifico (por ejempo en el registro No. 10).Alguna sugerencia de que se debe hacer para que funcione en Tsbrowse?

oBrw:lInitGoTop := .F.

Saludos

Manuel Mercado

[George]

Gracias Manuel. Funciono perfecto.
A pesar de tantos buenos Browses que tenemos diponibles para FWH, incluyendo XBrowse el cual parece ser muy completo y muy rapido, mi preferencia sigue siendo TSBROWSE por su facilidad de uso y sus excelentes caracteristicas.


Saludos,

George

[MGA]

Faço suas as minhas palavras. Muito obrigado Manuel Mercado!