Problemas con tsbrowse 1.7

Post Reply
EASYSOFT
Posts: 129
Joined: Sat Oct 22, 2005 1:17 pm
Location: Quito - Ecuador

Problemas con tsbrowse 1.7

Post 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

_
Fco_Ozuna
Posts: 14
Joined: Sun Nov 27, 2005 2:49 am
Location: Nogales, Sonora
Contact:

Re: Problemas con tsbrowse 1.7

Post 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
EASYSOFT
Posts: 129
Joined: Sat Oct 22, 2005 1:17 pm
Location: Quito - Ecuador

Post by EASYSOFT »

Gracias Francisco

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


Saludos

_ :arrow:
User avatar
AngelSalom
Posts: 664
Joined: Fri Oct 07, 2005 7:38 am
Location: Vinaros (Castellón ) - España
Contact:

Post 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.
Angel Salom
http://www.visionwin.com
---------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.0
Post Reply