topic-10307

Posts: 44

Joined: Mon Nov 12, 2007 01:50 PM

Pintar/Refrescar datos con TSBrowse
Posted: Tue Mar 11, 2008 07: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 Collapse

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 01:50 PM

Solucionado
Posted: Tue Mar 11, 2008 07:33 PM

Code: Select all Collapse

oDlgBrw:Update()  //refrescar dialogo

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

Perdon por las molestias

ARCC

Posts: 86

Joined: Sat Jun 24, 2006 04:27 PM

Pintar/Refrescar datos con TSBrowse
Posted: Tue Mar 11, 2008 07: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

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: Pintar/Refrescar datos con TSBrowse
Posted: 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 Collapse

 (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

manuelmercado at prodigy dot net dot mx

ermatica

Posts: 44

Joined: Mon Nov 12, 2007 01:50 PM

Pintar/Refrescar datos con TSBrowse
Posted: Wed Mar 12, 2008 09: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.

ARCC

Posts: 86

Joined: Sat Jun 24, 2006 04:27 PM

Re: Pintar/Refrescar datos con TSBrowse
Posted: Wed Mar 12, 2008 10:25 PM

Buen día para todos...

mmercado wrote:Hola Ernesto y Antonio:
Prueba lo siguiente:
Code: Select all Collapse
 (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 04:27 PM

Pintar/Refrescar datos con TSBrowse
Posted: Mon Mar 17, 2008 04: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

FiveTech Support Forums

Continue the discussion