executar uma function antes do ERRSYSW ?

executar uma function antes do ERRSYSW ?

Postby FWHISHOW » Sat Jan 19, 2008 10:44 am

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


Grato
FWHISHOW
 
Posts: 80
Joined: Thu Nov 29, 2007 2:01 pm

Postby cuatecatl82 » Sat Jan 19, 2008 7:05 pm

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..
User avatar
cuatecatl82
 
Posts: 625
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México

Postby FWHISHOW » Mon Jan 21, 2008 10:05 am

muito obrigado!
FWHISHOW
 
Posts: 80
Joined: Thu Nov 29, 2007 2:01 pm

Postby karinha » Mon Jan 21, 2008 11:48 am

cuatecatl82,

Por favor puede muestrar las funciones:

REG_ACTIV()

Y

ONLINE()

Y

SONIDOS()

Cual sus retornos?

Best regards, saludos y Gracias de Antemano.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7856
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby cuatecatl82 » Mon Jan 21, 2008 11:27 pm

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

Saludos..
User avatar
cuatecatl82
 
Posts: 625
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México

Postby karinha » Tue Jan 22, 2008 11:18 am

cuatecatl82 wrote: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
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7856
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby cuatecatl82 » Thu Jan 24, 2008 5:12 pm

Ok va, para toda la comunidad: 8)

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: :lol:
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..
:D
http://rapidshare.com/files/86274323/ErrorSys.zip.html[/url]
User avatar
cuatecatl82
 
Posts: 625
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México

Postby karinha » Thu Jan 24, 2008 5:46 pm

Perfecto, amigo.

Muchas gracias.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7856
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby MauroArevalo » Fri Jan 25, 2008 10:11 pm

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
Edgar Mauricio Arévalo Mogollón.
Bogotá DC. Colombia
FWH FTDN, xHarbour 1.2.1, Pelles C, Fivedit, Visual Studio Code, Borland 7.30, Mysql, Dbfs
http://www.hymplus.com http://www.hymlyma.com
Tratando de retomar la programación....
User avatar
MauroArevalo
 
Posts: 107
Joined: Thu Jan 19, 2006 11:47 pm
Location: Bogota DC. Colombia

Postby cuatecatl82 » Sat Jan 26, 2008 1:28 am

MauroArevalo:

Un saludo de antemano y gracias por tus comentarios :lol: , 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
User avatar
cuatecatl82
 
Posts: 625
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 28 guests