FiveTech Software tech support forums

Posted: **Fri Mar 28, 2008 6:31 pm**

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

Posted: **Fri Mar 28, 2008 6:39 pm**

Raymundo,

Con que código PRG generas ese error ?

Posted: **Fri Mar 28, 2008 6:42 pm**

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

Posted: **Fri Mar 28, 2008 6:53 pm**

Hola Raymundo

modifica el errsysw.prg

en la linea 78

Code: Select all

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

por esta

Code: Select all

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

Posted: **Fri Mar 28, 2008 7:14 pm**

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.

Posted: **Fri Mar 28, 2008 7:21 pm**

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

Posted: **Fri Mar 28, 2008 8:19 pm**

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

Posted: **Fri Mar 28, 2008 8:45 pm**

Hola Antonio

Gracias por tu alternativa, la bajo y la pruebo.

Les agradezco a todos

Saludos

Posted: **Fri Mar 28, 2008 8:58 pm**

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

function main()

   x++

return nil

Posted: **Fri Mar 28, 2008 9:25 pm**

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

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

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

Posted: **Sat Mar 29, 2008 9:18 am**

Patricio,

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

Code: Select all

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!

FiveTech Software tech support forums

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

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