Error en Fwh806 con Xbrowse

[audisys]

Antonio,

Algo Sucedio con la version nueva FWH806 y el Xbrowse con Cajas de dialogo en Recursos mira el error del ejemplo Testxbr3.prg.
No funciona tampoco en mi aplicativo, espero noticias.

Mil Gracias.

José David Angulo

Application
===========
Path and name: c:\FWH806\samples\testxbr3.exe (32 bits)
Size: 1,976,320 bytes
Time from start: 0 hours 0 mins 11 secs
Error occurred at: 01-07-2008, 11:53:03
Error description: Error BASE/1085 Argument error: %
Args:
[ 1] = U
[ 2] = N 1800

Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:HEADERWIDTH(0)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:ADJUST(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:ADJUST(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:INITIATE(0)
Called from: => __OBJSENDMSG(0)
Called from: HARBOUR.PRG => OSEND(0)
Called from: HARBOUR.PRG => ASEND(0)
Called from: DIALOG.PRG => TDIALOG:INITIATE(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: testxbr3.prg => RDDBRWRES(691)
Called from: testxbr3.prg => (b)MAINMENU(119)
Called from: MENU.PRG => TMENU:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:COMMAND(0)
Called from: MDIFRAME.PRG => TMDIFRAME:COMMAND(0)
Called from: => TMDIFRAME:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: testxbr3.prg => MAIN(44)

[Antonio Linares]

Hay que hacer estos cambios en xbrowse.prg en FWH 8.06. Mañana publicaremos un nuevo build de 8.06 con estas correcciones:

Code: Select all  Expand view  RUN

Lineas 5085 y 5108
cambiar
      if Abs( ::oHeaderFont:nEscapement % 1800 ) == 900
por
      if ! Empty( ::oHeaderFont:nEscapement ) .and. Abs( ::oHeaderFont:nEscapement % 1800 ) == 900

Linea 5361
cambiar
   if Abs(oFont:nEscapement % 3600) == 900
por
   if ! Empty( oFont:nEscapement ) .and. Abs(oFont:nEscapement % 3600) == 900

Linea 5372
cambiar
   elseif Abs( oFont:nEscapement % 3600 ) == 2700
por
   elseif ! Empty( oFont:nEscapement ) .and. Abs( oFont:nEscapement % 3600 ) == 2700


[Mike Serra]

Buenos días Antonio, ¿has publicado la nueva 8.06 con los cambios de xbrowse?

Saludos,

[Antonio Linares]

Mike,

No, aún no hemos podido. A ver si hoy mismo lo hacemos