bug en errorsys

bug en errorsys

Postby pymsoft » Fri Dec 22, 2006 11:40 am

Esta es la version modificada



Code: Select all  Expand view
// FWPPC Error System (C) FiveTech Software 2005

#include "error.ch"

//----------------------------------------------------------------------------//

procedure ErrorSys

   ErrorBlock( { | o | ShowError( o ) } )
   
return   

//----------------------------------------------------------------------------//

static function ShowError( oError )

   local cError := oError:Description
   local n := 1
   
   if oError:GenCode == EG_ZERODIV
      return 0
   end
   
   if ! Empty( oError:Operation )
      cError += HB_OSNewLine() + oError:Operation
   endif
   
   if ValType( oError:Args ) == "A"
      cError += HB_OSNewLine() + "   Args:" + HB_OSNewLine()
      for n = 1 to Len( oError:Args )
         cError += "     [" + Str( n, 4 ) + "] = " + ValType( oError:Args[ n ] ) + ;
                   "   " + cValToChar( oError:Args[ n ] ) + HB_OSNewLine()
      next
   endif
   
   cError += HB_OSNewLine() + "stack calls:" + HB_OSNewLine()

   n:=2  // PGF: 22/12/2006
   while ! Empty( ProcName( n ) )
      cError += AllTrim( ProcName( n ) ) + ;
                "(" + AllTrim( Str( ProcLine( n ) ) ) + ")" + HB_OSNewLine()
      n++
   end   
   
   MemoWrit( CurDir() + "\error.txt", cError )
   MsgInfo( cError, "FWPPC Error" )
   
   PostQuitMessage( 0 )
   QUIT
   
return .t.     

//----------------------------------------------------------------------------//




Saludos
Pedro Gonzalez
User avatar
pymsoft
 
Posts: 383
Joined: Tue Oct 11, 2005 1:01 pm
Location: Savona - Italia

Postby Antonio Linares » Sun Dec 24, 2006 12:23 pm

Pedro,

Fixed, thanks!
regards, saludos

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


Return to FiveWin para Pocket PC

Who is online

Users browsing this forum: No registered users and 25 guests