FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Error al refrescar un objeto Say en la 807
Posts: 234
Joined: Tue Oct 25, 2005 12:39 AM
Error al refrescar un objeto Say en la 807
Posted: Tue Jul 29, 2008 08: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)

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Error al refrescar un objeto Say en la 807
Posted: 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:
      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
Posts: 234
Joined: Tue Oct 25, 2005 12:39 AM
Hola
Posted: Thu Jul 31, 2008 02: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

Continue the discussion