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

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!