Pintar/Refrescar datos con TSBrowse

Pintar/Refrescar datos con TSBrowse

Postby ermatica » Tue Mar 11, 2008 7:13 pm

Buenas tardes a todos,

Poseo un dialogo creado con recursos en el cual muestro un browse (clase TSBrowse del Sr. Manuel Mercado recien bajada) de una tabla DBF indexada por un indice (compuesto por dos numeros). En ese mismo dialogo tengo botones para ir al primer registro, siguiente, anterior y ultimo registro. El caso es que va bien el movimiento con los metodos oBrw:Gotop(), etc., colocando el puntero y el browse.

Pero cuando hago una busqueda mediante el indice:
Code: Select all  Expand view  RUN
select (cAlias1)
ordsetfocus(1)
if dbseek ( str(nro1)+str(nro2) )
  oBrw:SetFocus()
  oBrw:ResetBarPos()
  oBrw:UpStable()
  oBrw:Refresh()
Endif

El browse no se refresca o pintan los datos, pero si está colocado el puntero, ya que al hacer un click sobre browse van apareciendo los registros y sus datos a partir del registro buscado.

Alguna sugerencia?

Muchas gracias de antemano.
FWH 8.02 + Borland + PellesC
ermatica
 
Posts: 44
Joined: Mon Nov 12, 2007 1:50 pm
Location: España

Solucionado

Postby ermatica » Tue Mar 11, 2008 7:33 pm

Code: Select all  Expand view  RUN
oDlgBrw:Update()  //refrescar dialogo

oBrw:SetFocus()
oBrw:ResetBarPos()
oBrw:UpStable()
oBrw:Refresh()


Perdon por las molestias :oops:
ermatica
 
Posts: 44
Joined: Mon Nov 12, 2007 1:50 pm
Location: España

Postby ARCC » Tue Mar 11, 2008 7:37 pm

Buen día para todos...

Ermatica, tienes toda la razon ya que a mi me pasa lo mismo, casualmente ayer estaba probando y me pasa identico que a ti, me imagino que debe ser un problema con el pintado del Browse, esperemos que el amigo Manuel Mercado nos de una mano con esto en cuanto tenga un chance.
Saludos,

Antonio Castro
Maracaibo - Venezuela
ant_cas@yahoo.com
ARCC
 
Posts: 86
Joined: Sat Jun 24, 2006 4:27 pm
Location: Maracaibo - Zulia - Venezuela

Re: Pintar/Refrescar datos con TSBrowse

Postby mmercado » Tue Mar 11, 2008 10:49 pm

Hola Ernesto y Antonio:
ermatica wrote:Pero cuando hago una busqueda mediante el indice:
El browse no se refresca o pintan los datos, pero si está colocado el puntero, ya que al hacer un click sobre browse van apareciendo los registros y sus datos a partir del registro buscado.

Prueba lo siguiente:
Code: Select all  Expand view  RUN
(oBrw:SetFocus(), oBrw:ExpSeek( str(nro1)+str(nro2) )

No necesitas más instrucciones, el Browse debe tener el foco y de lo demás se encarga oBrw:ExpSeek()

Saludos

Manuel Mercado
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby ermatica » Wed Mar 12, 2008 9:42 pm

Muchas gracias por la ayuda Sr. Manuel.
He probado y la cuestión está en mantener el foco en el browse.
Funciona estupendamente!!!


Un cordial saudo. :D
ermatica
 
Posts: 44
Joined: Mon Nov 12, 2007 1:50 pm
Location: España

Re: Pintar/Refrescar datos con TSBrowse

Postby ARCC » Wed Mar 12, 2008 10:25 pm

Buen día para todos...

mmercado wrote:Hola Ernesto y Antonio:
Prueba lo siguiente:
Code: Select all  Expand view  RUN
(oBrw:SetFocus(), oBrw:ExpSeek( str(nro1)+str(nro2) )

No necesitas más instrucciones, el Browse debe tener el foco y de lo demás se encarga oBrw:ExpSeek()

Saludos

Manuel Mercado


Que tal Manuel, entiendo pero en mi caso realizo la búsqueda por medio de un oGet, como tendría que hacer???

REDEFINE GET oGet VAR cText ID 210 OF oDlg;
PICTURE "@!";
ON CHANGE (Self:Assign(),;
oBrw:SetFocus(),;
oBrw:ExpSeek(SubStr(cText, 1, oGet:nPos-1)),;
oGet:SetFocus())

Si lo coloco de esta forma el Browse se posiciona en el registro pero no se refresca. y si elimino el oGet:SetFocus() funciona bien pero el get queda sin el foco. Alguna recomendación???
Saludos,

Antonio Castro
Maracaibo - Venezuela
ant_cas@yahoo.com
ARCC
 
Posts: 86
Joined: Sat Jun 24, 2006 4:27 pm
Location: Maracaibo - Zulia - Venezuela

Postby ARCC » Mon Mar 17, 2008 4:48 pm

Buen día...

Que tal amigo Menuel Mercado, será que me pueda orientar por favor con lo descrito en mi post pasado. Gracias
Saludos,

Antonio Castro
Maracaibo - Venezuela
ant_cas@yahoo.com
ARCC
 
Posts: 86
Joined: Sat Jun 24, 2006 4:27 pm
Location: Maracaibo - Zulia - Venezuela


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 52 guests