diff --git a/foxbin2prg.prg b/foxbin2prg.prg index e2e1b2d..574c8b0 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -409,6 +409,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM _MEMBERDATA = [] ; + [] ; + [] ; + + [] ; + [] ; + [] ; + [] ; @@ -440,6 +441,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM + [] ; + [] ; + [] ; + + [] ; + [] ; + [] ; + [] ; @@ -469,6 +471,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM + [] ; + [] ; + [] ; + + [] ; + [] ; + [] ; + [] @@ -492,6 +495,8 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM n_ExisteCapitalizacion = -1 l_ConfigEvaluated = .F. l_Debug = .F. + l_Error = .F. + c_ErrorLog = '' l_Test = .F. l_ShowErrors = .T. l_ShowProgress = .T. @@ -1347,10 +1352,17 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM ENDWITH && THIS CATCH TO toEx - lnCodError = toEx.ERRORNO - lcErrorInfo = THIS.Exception2Str(toEx) + CR_LF + CR_LF + C_SOURCEFILE_LOC + THIS.c_InputFile + lnCodError = toEx.ERRORNO + THIS.l_Error = .T. + lcErrorInfo = THIS.Exception2Str(toEx) + CR_LF + CR_LF + C_SOURCEFILE_LOC + THIS.c_InputFile ADDPROPERTY(_SCREEN, 'ExitCode', toEx.ERRORNO) + *-- Escribo la información de error en la variable log de errores + THIS.writeErrorLog( TTOC(DATETIME(),3) + ' ' + REPLICATE('-', 80) ) + THIS.writeErrorLog( lcErrorInfo ) + THIS.writeErrorLog( ) + + *-- Escribo la información de error en el archivo log de errores TRY STRTOFILE( lcErrorInfo, EVL(tc_InputFile,'foxbin2prg') + '.ERR' ) CATCH TO loEx2 @@ -1822,6 +1834,17 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM ENDPROC + ******************************************************************************************************************* + PROCEDURE writeErrorLog + LPARAMETERS tcText + + TRY + THIS.c_ErrorLog = THIS.c_ErrorLog + EVL(tcText,'') + CR_LF + CATCH + ENDTRY + ENDPROC + + ******************************************************************************************************************* PROCEDURE writeLog LPARAMETERS tcText