executar uma function antes do ERRSYSW ?

[FWHISHOW]

Pessoal, é possível quando ocorrer um erro no sistema, executar uma função antes de ir para o ERRSYSW?


Grato

[cuatecatl82]

FWHISHOW Yo lo hago asi:

Esto esta en la linea 80 a 85

ERRORBLOCK( {|e| MsgStop( ErrorMessage(e) + " desde ErrorSys, linea: " + ;
STR( PROCLINE( 1 ), 3 ) ),Reg_Activ("SALIDA ANORMAL DEL SISTEMA"),Online(.F.), __quit() } )
cErrorLog += "Descripción de la Applicación:" + CRLF
cErrorLog += "___________________________________________________" + CRLF + CRLF
cErrorLog += "Ubicación y Nombre: " + GetModuleFileName( GetInstance() )


y esto va en donde activa el dialogo con el stak del fallo creo que lina 357:

ACTIVATE DIALOG oDlg CENTERED ON INIT (Sonidos("ERROR"),;
Reg_Activ("SALIDA ANORMAL DEL SISTEMA"),;
Online(.F.),;
DBCOMMITALL(),;
DBUNLOCKALL(),;
DBCLEARREL(),;
DBCLOSEALL(),;
SYSREFRESH())


Con mi aplicaciòn funciona..
Tengo unas cuantas modificaciones hechas para guardar en una base de datos el fallo completo y una imagen creada justo antes de tronar la aplicacion..
Espero te sea de Utilidad..

[FWHISHOW]

muito obrigado!

[karinha]

cuatecatl82,

Por favor puede muestrar las funciones:

REG_ACTIV()

Y

ONLINE()

Y

SONIDOS()

Cual sus retornos?

Best regards, saludos y Gracias de Antemano.

[cuatecatl82]

Ok. ando fuera de la ciudad, en cuanto regrese me comunico contigo via mail.. y con mucho gusto te ayudo..

Saludos..

[karinha]

Ok. ando fuera de la ciudad, en cuanto regrese me comunico contigo via mail.. y con mucho gusto te ayudo..

Saludos..

Gracias amigo, aguardo.

Creo sea de grand utilidad esta rotina completa a todos los fivewinners del mundo.

Regards, saludos.

Email: kmt_karinha@pop.com.br

[cuatecatl82]

Ok va, para toda la comunidad:

Esta es una modificacion de la funcion ERRORSYS.PRG modificada, para que garde un registro en una DBF detallada de todos los errores generados por la aplicacion, contiene el codigo fuente de otras funciones necesarias para el uso completo de esta modificacion.

Cabe destacar que el nombre de la imagen guardada nunca sera repetida, ya que controlo esto dentro de la funcion de guardar imagen..

Solo hace falta anexar los archivos a su aplicacion:
ERRORSYS.PRG que el el que genera toda la informacion y las imagenes
ERRORES.PRG que permite la vozualizacion de las imagenes generadas..

Este es el enlace para bajarlo... Si alguien gusta modificar algo que sea importante, lo puede hacer..

espero sus comentario y criticas al respecto... Que lo disfruten..

http://rapidshare.com/files/86274323/ErrorSys.zip.html[/url]

[karinha]

Perfecto, amigo.

Muchas gracias.

[MauroArevalo]

Daniel:

Te felicito, estan muy buenas las modificaicones que le hiciste al errsysw.prg; ya lo implemente en mi sistema y funciona de mil maravillas..

Le agregue un button con una función (sacada del foro ingles) que permite enviar por correo electrónico la base de datos "error.dbf", aca va el codigo...

FUNC correo()
sendMail({"soporte@hymplus.com"},"Envio historial de Errores",;
"Aca puede escribir el mensaje", {"\HYM32\EXE\ERRORES\ERROR.DBF"})
RETURN NIL

FUNC sendMail(aTo,cSubject,cMsg,aFiles)

local oMail
default cSubject:=""

DEFINE MAIL oMail SUBJECT OemToAnsi(cSubject) TEXT OemToAnsi(cMsg) FROM USER
AADD( oMail:aRecipients, aTo )
IF aFiles!=nil
oMail:aFiles:=ACLONE(aFiles)
ENDIF
ACTIVATE MAIL oMail

IF oMail:nRetCode#0
MsgAlert("El mensaje no pudo ser enviado!","Alerta")
ENDIF
RETURN NIL

[cuatecatl82]

MauroArevalo:

Un saludo de antemano y gracias por tus comentarios , me da gusto que pueda aportar algo a toda la comunidad que me ha apoyado, gracias tambien por tu aportación, sabia que algo más faltaba por hacerle y que bueno que ya surgio una idea más..

Un abrazo desde México y que lluevan las ideas y las aportaciones..

Estoy para servirte si en algo mas te puedo ayudar..

I.S.C. Víctor Daniel Cuatécatl León.
www.soldisoft.unlugar.com
www.sisa,unlugar.com