Error al refrescar un objeto Say en la 807

Error al refrescar un objeto Say en la 807

Postby fleal » Tue Jul 29, 2008 8:54 pm

En la linea 925 de mi prg tengo un refresh al objeto Say. En la versión 805 funciona sin problemas.

cSayTif := aFiles[nPosImage][1]
oSayTif:refresh()

aFiles[nPosImage][1] contiene el nombre de un archivo, por ejemplo: 123456.TIF



Path and name: E:\ap\Captura\Digital.exe (32 bits)
Size: 2,722,816 bytes
Time from start: 0 hours 6 mins 10 secs
Error occurred at: 29/07/2008, 15:49:52
Error description: Error BASE/1108 Argument error: AT
Args:
[ 1] = C \rtf
[ 2] = A { ... }

Stack Calls
===========
Called from: => AT(0)
Called from: .\source\function\GTF.PRG => ISRTF(0)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(0)
Called from: .\source\classes\CONTROL.PRG => TXBROWSE:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => SYSREFRESH(0)
Called from: CapFolio3.prg => SIGIMAGEN(925)
fleal
 
Posts: 234
Joined: Tue Oct 25, 2005 12:39 am
Location: México, DF

Postby Antonio Linares » Thu Jul 31, 2008 10:04 am

Fernando,

El dato :bStrData de esa columna no está devolviendo una cadena como debiese hacerlo.

Podrías solucionarlo cambiando este código en la Clase TXbrowse:
Code: Select all  Expand view  RUN
      if ValType( cData ) == "C" .and. isrtf( cData )
         cData := "<RichText>"
      endif

Pero la solución correcta es comprobar porque bStrData no devuelve un valor tipo cadena. Has cambiado algo en tu código ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Hola

Postby fleal » Thu Jul 31, 2008 2:50 pm

Hola Antonio,
no ha sido necesario modificar la clase.
Yo inicio mi array asi:

aConteo := {}

Más adelante le agrego info, pero por si no halla info...

IF empty( aConteo )
aConteo := {"No","hay","regs"}
ENDIF

En el 805 esto funciona... pero con la 807 ya no.

Asi que lo he modificado asi:

IF empty( aConteo )
aadd( aConteo, {"No","hay","regs"} )
ENDIF

Por supuesto, tambien he descargado hace un rato el último build que mide FWH 25,698,846

Asi que una de dos... o fué el último build o fué la modificación...
Para el caso.

Final feliz :-)

Saludos
Fernando
fleal
 
Posts: 234
Joined: Tue Oct 25, 2005 12:39 am
Location: México, DF


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 35 guests