Tsbrowse: Posicionando el cursor en un registro especifico

Post Reply
George
Posts: 710
Joined: Tue Oct 18, 2005 6:49 pm

Tsbrowse: Posicionando el cursor en un registro especifico

Post by 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
User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Re: Tsbrowse: Posicionando el cursor en un registro especifi

Post by mmercado »

Hola George:
George wrote: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
Posts: 710
Joined: Tue Oct 18, 2005 6:49 pm

Post by 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
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Post by MGA »

Faço suas as minhas palavras. Muito obrigado Manuel Mercado!
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
Post Reply