FiveTech Software tech support forums

Posted: **Tue Dec 08, 2009 7:06 pm**

Antonio, ahora me encuentro trabajando en una empresa con FWH 9.08, y me he topado con dos posibles bugs...

En la Classe xBrowse en el Method Redefine, ocurre lo siguiente cuando desplazas el mouse sobre el browse, esto compilado con Harbour o xHarbour:

Code: Select all | Expand

Application
===========
   Path and name: C:\FWH\samples\xbrwalia.exe (32 bits)
   Size: 1,846,784 bytes
   Time from start: 0 hours 0 mins 0 secs 
   Error occurred at: 12/08/09, 15:06:38
   Error description: Error BASE/1066  Argument error: conditional
   Args:
     [   1] = U   

Stack Calls
===========
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:MOUSEMOVE(3141)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(9915)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
   Called from:  => DIALOGBOX(0)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
   Called from: xbrwalia.prg => MAIN(20)

Y en TTBMenu de la toolbar, al ser compilada con Harbour (Con xHarbour no ocurre), arroja el siguiente error:

Code: Select all | Expand

Application
===========
   Path and name: C:\FWH\Pruebas\Phedido.exe (32 bits)
   Size: 2,149,376 bytes
   Time from start: 0 hours 0 mins 6 secs 
   Error occurred at: 08/12/2009, 15:09:52
   Error description: Error BASE/1068  Argument error: array access
   Args:
     [   1] = N   1
     [   2] = N   3

Stack Calls
===========
   Called from: .\source\classes\TOOLBAR.PRG => TTOOLBAR:NOTIFY(260)
   Called from: .\source\classes\WINDOW.PRG => TREBAR:NOTIFY(1428)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\CONTROL.PRG => TREBAR:HANDLEEVENT(1453)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
   Called from:  => WINRUN(0)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(952)
   Called from: .\PHEDIDO.PRG => MAIN(132)

Esperando una pronta respuesta, envío mis saludos.

Posted: **Tue Dec 08, 2009 7:10 pm**

León,

Puedes comprobar si tienes este código en la línea 3141 de FWH\source\classes\xbrowse.prg ?

Code: Select all | Expand


    if ::KeyNo() == 1

Posted: **Wed Dec 09, 2009 12:23 am**

Leon Valenzuela,

Podrías revisar estos post, ahí se habla de la solución.

POSIBLE SOLUCION

Posted: **Wed Dec 09, 2009 3:08 pm**

Antonio, éstas son las líneas desde la 3141 a la 3148

Code: Select all | Expand

3141   if ::lPressed
3142      if ::nStartTime == 0
3143         ::nStartTime := GetTickCount()
3144      endif
3145   else
3146      ::nStartTime := 0
3147      ::nEllapsed := 0
3148   endif

No sé qué puede fallar.

Saludos, Leo.

Posted: **Thu Dec 10, 2009 12:05 am**

León,

Por favor copia el código completo del Método TXBROWSE:MOUSEMOVE, gracias

FiveTech Software tech support forums

Antonio Linares:Reporte de posible BUG FWH 9.08

Antonio Linares:Reporte de posible BUG FWH 9.08

Re: Antonio Linares:Reporte de posible BUG FWH 9.08

Re: Antonio Linares:Reporte de posible BUG FWH 9.08

Re: Antonio Linares:Reporte de posible BUG FWH 9.08

Re: Antonio Linares:Reporte de posible BUG FWH 9.08