Antonio Linares:Reporte de posible BUG FWH 9.08

Antonio Linares:Reporte de posible BUG FWH 9.08

Postby Leon Valenzuela » 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 view  RUN
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 view  RUN
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.
Quiero hacer facturación electrónica...

Leon Valenzuela.
Santiago - Chile.
User avatar
Leon Valenzuela
 
Posts: 57
Joined: Tue Nov 04, 2008 2:08 pm
Location: Santiago - Chile

Re: Antonio Linares:Reporte de posible BUG FWH 9.08

Postby Antonio Linares » 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 view  RUN

    if ::KeyNo() == 1
 
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42117
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Antonio Linares:Reporte de posible BUG FWH 9.08

Postby wmormar » Wed Dec 09, 2009 12:23 am

Leon Valenzuela,

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

POSIBLE SOLUCION
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Re: Antonio Linares:Reporte de posible BUG FWH 9.08

Postby Leon Valenzuela » Wed Dec 09, 2009 3:08 pm

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

Code: Select all  Expand view  RUN
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.
Quiero hacer facturación electrónica...

Leon Valenzuela.
Santiago - Chile.
User avatar
Leon Valenzuela
 
Posts: 57
Joined: Tue Nov 04, 2008 2:08 pm
Location: Santiago - Chile

Re: Antonio Linares:Reporte de posible BUG FWH 9.08

Postby Antonio Linares » Thu Dec 10, 2009 12:05 am

León,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42117
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 75 guests