Pequeño aporte: ¿Qué hacer con Error.log?

[César E. Lozada]

Algunas veces, cuando se produce un error en ejecución, es recomendable conservar el error.log en algún sitio seguro para analizarlo posteriormente. Creo que un sitio apropiado para ello es una tabla que guarde estos errores.

Con este fin me permití agregar a errsysw.prg las siguientes líneas:

al inicio
Static bStaticOnError
Function SetOnErrorAction(bAction)
bStaticOnError:=bAction
return nil

y en la función

static function ErrorDialog( e )
:
:
BEGIN SEQUENCE
oOldError = ErrorBlock( { || DoBreak() } )
MemoWrit( "Error.log", cErrorLog ) //Si la carpeta es read-only no habrá error.log
// Agregado
IF ValType(bStaticOnError)="B"
Eval(bStaticOnError,cErrorLog)
ENDIF
// Fin agregado
END SEQUENCE
:
:

Ahora ya puedo guardar el error en una tabla, enviarlo por email, etc, todo depende de la acción que defina con SetOnErrorAction(bAction), ejemplo, poniendo al principio de mi programa
SetOnErrorAction({|cError| SaveError(cError)})

Espero sea de utilidad.


PD:
Algunas cosillas que le agregaría a cErrorLog:
FWVERSION, FWDESCRIPTION, NetName(), WNetGetUser(), fecha y hora de creación de la aplicación, fecha y hora de creación de la dll de recursos (si existe). dll's cargadas con sus respectivas versiones.

[karinha]

César,
Una buena idéa.

En mi caso, te pregunto: és posible modificar el ERRSYSW.PRG para que envez de salir al encuentrar un erro, retorne al programa principal?

Como hacer?

Saludos.

[César E. Lozada]

Prueba comentando el QUIT en ErrorDialog( e ). Pero no es recomendado, pues la aplicación podría estar ejecutándose con resultados incorrectos después de un error, o pueden haberse perdido datos, o cosas peores.

[AIDA]

Muy interesante

sobretodo para las que le atinamos mas a los errores jijiji

Gracias