30 Mai 2013 19:51
FWriteLine( nFhandle, padc( ' Informações sobre o Erro - ErrorLog ', 83, '*' ) )
FWriteLine( nFhandle, '' )
FWriteLine( nFhandle, ' Tipo de Mensagem ..............: ' + oErr:SubSystem() )
FWriteLine( nFhandle, ' Número do Erro ................: ' + StrValue(oErr:SubCode()) )
FWriteLine( nFhandle, ' Descrição .....................: ' + oErr:Description() )
FWriteLine( nFhandle, ' Objeto do Erro ................: ' + Upper(oErr:Operation()) )
FWriteLine( nFhandle, ' Erro do DOS ...................: ' + Strvalue(oErr:OsCode()) )
FWriteLine( nFhandle, ' Área de Trabalho ..............: ' + StrValue(Select()) )
FWriteLine( nFhandle, ' Nome do arquivo ...............: ' + Dbf() )
FWriteLine( nFhandle, ' Nome do Arquivo associado .....: ' + oErr:FileName )
FWriteLine( nFhandle, ' Número de argumentos ..........: ' + AllTrim(Str(Len(oErr:args))),50)
FWrite ( nFhandle, ' Módulo .........: ' )
Application Internal Error - E:\DEV2\HS6\Teste_1.exe
Terminated at: 2013.05.30 19:02:24
Unrecoverable error 9003: Too many recursive error handler calls
31 Mai 2013 08:27
31 Mai 2013 13:12