Error al refrescar un objeto Say en la 807

[fleal]

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)

[Antonio Linares]

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

      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 ?

[fleal]

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