Posts: 49

Joined: Wed Apr 18, 2007 06:01 PM

Error en Fwh806 con Xbrowse
Posted: Tue Jul 01, 2008 05:26 PM

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)

José David Angulo

Auditoria y Sitemas Ltda.

Cartagena Colombia

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Error en Fwh806 con Xbrowse
Posted: Tue Jul 01, 2008 11:30 PM

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 Collapse

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Mike Serra

Posts: 297

Joined: Fri Apr 14, 2006 05:52 PM

Error en Fwh806 con Xbrowse
Posted: Fri Jul 04, 2008 08:13 AM

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

Saludos,

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Error en Fwh806 con Xbrowse
Posted: Fri Jul 04, 2008 09:13 AM

Mike,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Application

Stack Calls

Continue the discussion