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)
Error al refrescar un objeto Say en la 807
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
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:
Pero la solución correcta es comprobar porque bStrData no devuelve un valor tipo cadena. Has cambiado algo en tu código ?
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
if ValType( cData ) == "C" .and. isrtf( cData )
cData := "<RichText>"
endif
Hola
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
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