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

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Antonio, quien causa esto ? FWH o xHarbour ???
Posted: Fri Mar 28, 2008 06: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

FWH 10.6 + xHarbour + Borland 582

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Antonio, quien causa esto ? FWH o xHarbour ???
Posted: Fri Mar 28, 2008 06:39 PM

Raymundo,

Con que código PRG generas ese error ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Antonio, quien causa esto ? FWH o xHarbour ???
Posted: Fri Mar 28, 2008 06: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

FWH 10.6 + xHarbour + Borland 582

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Antonio, quien causa esto ? FWH o xHarbour ???
Posted: Fri Mar 28, 2008 06:53 PM

Hola Raymundo

modifica el errsysw.prg

en la linea 78

Code: Select all Collapse

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

por esta

Code: Select all Collapse

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

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Ruben D. Fernandez

Posts: 189

Joined: Sun Jul 08, 2007 01:46 AM

Antonio, quien causa esto ? FWH o xHarbour ???
Posted: Fri Mar 28, 2008 07: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.

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Antonio, quien causa esto ? FWH o xHarbour ???
Posted: Fri Mar 28, 2008 07: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

FWH 10.6 + xHarbour + Borland 582

ARCC

Posts: 86

Joined: Sat Jun 24, 2006 04:27 PM

Antonio, quien causa esto ? FWH o xHarbour ???
Posted: Fri Mar 28, 2008 08: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

Saludos,

Antonio Castro
Maracaibo - Venezuela
ant_cas@yahoo.com

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Antonio, quien causa esto ? FWH o xHarbour ???
Posted: Fri Mar 28, 2008 08:45 PM

Hola Antonio

Gracias por tu alternativa, la bajo y la pruebo.

Les agradezco a todos

Saludos

FWH 10.6 + xHarbour + Borland 582

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Antonio, quien causa esto ? FWH o xHarbour ???
Posted: Fri Mar 28, 2008 08: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 Collapse

function main()

   x++

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Antonio, quien causa esto ? FWH o xHarbour ???
Posted: Fri Mar 28, 2008 09: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 Collapse

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 Collapse

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

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Antonio, quien causa esto ? FWH o xHarbour ???
Posted: Sat Mar 29, 2008 09:18 AM

Patricio,

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

Code: Select all Collapse

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!

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion