Page 1 of 1

Problemas con tsbrowse 1.7

Posted: Wed Jan 04, 2006 9:58 pm
by EASYSOFT
:( Por Favor si alguien me ayuda empece a utilizar tsbrowse 1.7
tengo problemas al borrar un registro y moverme con las flechas de arriba abajo se vuelve loco se desordena el browse y en la parte superrior del browse quedan registros que aparentemente son duplicados ,pero no lo son, asumo que son los borrados pero no se tiene acceso a ellos



Gracias

_

Re: Problemas con tsbrowse 1.7

Posted: Wed Jan 04, 2006 10:44 pm
by Fco_Ozuna
_.

La versión original de TSBrowse 7.xx viene con problemas de ese tipo, el post del 16 de Diciembre fgondi da solución a los problemas de esta versión, pero ni aun así resolví yo el problema, yo regrese a la la versión 6.0, y no tengo ese tipo de problemas.

Si alguien por ahí ya tiene la versión mejorada, varios le agradeceríamos que la proporcionara.

fco_ozuna@prodigy.net.mx

Posted: Thu Jan 05, 2006 12:10 am
by EASYSOFT
Gracias Francisco

Por fa si tienes alguna novedad al respecto agradecería tu ayuda


Saludos

_ :arrow:

Posted: Thu Jan 05, 2006 3:24 pm
by AngelSalom
Yo después de mucho rabiar hago esto y funciona bastante bien.

Al borrar :
(cAlias)->(DbDelete())
(cAlias)->(DbUnLock())
(cAlias)->(DbSkip())

oLbx:SetFocus()
If !(cAlias)->(Eof())
oLbx:Refresh()
Else
oLbx:GoUp()
oLbx:Refresh()
Endif

También puedes probar con :

oLbx:SetFocus()
oLbx:UpStable()
oLbx:Refresh()

O con :

Function RefrescaBrowse (oLbx)
/* ====================================================================================================
Hace un refresco correcto del browse que se le pasa.
Adaptado al tsbrowse 7.1

Parámetros:

oLbx . Listbox a procesar

Devuelve (nil)
----------------------------------------------------------------------------------------------------
Fecha creación:06/12/2005 19:44
Creado por:Angel
Última revisión:06/12/2005 19:45
Revisado por:Angel
====================================================================================================
*/

oLbx:SetFocus()
oLbx:ResetBarPos()
oLbx:UpStable()
oLbx:Reset()
oLbx:Refresh()
Return (nil)


De todas formas, el tsbrowse 7.1 se vuelve turuleto con los registros borrados, siempre y cuando la parte "visible" del browse no esté lleno de registros. Si tienes más registros de los que se ven en pantalla no tendrás problemas.
Mientras tanto tienes que hacer algunos trucos "sucios" para que se muestre medianamente decente.

No te olvides de comprobar Ctrl+AvPag y Ctrl+RePag que también funcionan "raro" cuando hay registros borrados.

Un saludo.