Antonio, quien causa esto ? FWH o xHarbour ???

[Raymundo Islas M.]

Antonio :

Desde que actualize el FWH he estado observando este comportamiento :

Cuando por algun motivo se truena la app, antes me mandaba la clasica ventana que indicaba el error, el numero de linea, el campo o variable, etc. ahora solo me muestra esta pantalla :




Y esta medio dificil saber de que se trata.

Que o quien esta mostrando este mensaje, hay alguna manera de ver la pantalla anterior ??


Saludos

[Antonio Linares]

Raymundo,

Con que código PRG generas ese error ?

[Raymundo Islas M.]

Master :


Con cualquier error que me tope.


Como comento, antes salia y decia de que se trataba, ahora normalmente sale ese en cualquier circunstacia.



Saludos

[Patricio Avalos Aguirre]

Hola Raymundo

modifica el errsysw.prg

en la linea 78

Code: Select all  Expand view  RUN

   ErrorBlock( {|e| MsgStop( ErrorMessage(e) + " from Errorsys, line:" + ;
                             Str( ProcLine( 1 ), 4 ) ), __quit() } )


por esta

Code: Select all  Expand view  RUN

   ErrorBlock( {|e| MsgStop( ErrorMessage(e) + " desde Errorsys, linea:" + ;
                             Alltrim(cValtochar(ProcLine( 1  ) ) ) ),;
                             MsgInfo( PadR( alltrim(cErrorLog),at( "System", cErrorLog )+10 )),;
                             __quit() } )


[Ruben D. Fernandez]

Raymundo:

Alguna vez me tope con ese error, por favor revisa tus variables y
archivos DBF, creo ( porque no recuerdo bien), que se trataba
de una variable no declarada o de un archivo corrupto.

Saludos y suerte

Ruben Fernandez.

[Raymundo Islas M.]

Hola Ruben

En efecto, el detalle es el mensaje no indica cual es la causa del error.


Patricio

Tienes razon, esa linea es la "culpable", modifico y pruebo.


Gracias a todos !!!


Saludos

[ARCC]

Buen día para...

Que tal Raymundo, prueba esta versión mejorada de ERRORSYSW a ver si te sirve

Para bajarla
http://www.mediafire.com/?dyifb5nhm23

Algunos detalles
http://fivetechsoft.com/forums/viewtopi ... 1d68961b2c

[Raymundo Islas M.]

Hola Antonio

Gracias por tu alternativa, la bajo y la pruebo.


Les agradezco a todos


Saludos

[Antonio Linares]

Raymundo,

Puedes proporcionar un pequeño PRG autocontenido que genere ese error ?

Por ejemplo, te sale ese error con este código ?

Code: Select all  Expand view  RUN

function main()

   x++

return nil


[Patricio Avalos Aguirre]

Antonio

El problema es la funcion timeFromStart(), algo pasa con la variable static, siempre pasa cuando se produce un error al iniciar el sistema

prueba lo siguiente

Code: Select all  Expand view  RUN

FUNCTION MAIN()
//BLA
//BLA
RETURN NIL

Init Procedure Inicio()
local lPaso := .t.

lPaso ++ //probocar el error al inicio

return

ahora prueba comentanto la linea

Code: Select all  Expand view  RUN

//cErrorLog += "   Time from start: " + TimeFromStart() + CRLF

[Antonio Linares]

Patricio,

Arreglado. La función TimeFromStart() hay que modificarla así:

Code: Select all  Expand view  RUN

function TimeFromStart()

   local nSeconds, nHours, nMins, nSecs

   if ValType( aInitInfo[ 1 ] ) == "N"
      aInitInfo = { Date(), Seconds() }
   endif   

   nSeconds = SecsFromStart( aInitInfo[ 1 ], aInitInfo[ 2 ] )
   nHours   = Int( nSeconds / 3600 )
   nMins    = Int( ( nSeconds - ( nHours * 3600 ) ) / 60 )
   nSecs    = Int( nSeconds - ( nHours * 3600 ) - ( nMins * 60 ) )
   
return AllTrim( Str( nHours ) ) + " hours " + ;
       AllTrim( Str( nMins ) ) + " mins " + ;
       AllTrim( Str( nSecs ) ) + " secs "


Gracias!