FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour executar uma function antes do ERRSYSW ?
FWHISHOW
Posts: 80
Joined: Thu Nov 29, 2007 02:01 PM
executar uma function antes do ERRSYSW ?
Posted: 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

cuatecatl82
Posts: 625
Joined: Wed Mar 14, 2007 06:49 PM
executar uma function antes do ERRSYSW ?
Posted: Sat Jan 19, 2008 07: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..
Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
FWHISHOW
Posts: 80
Joined: Thu Nov 29, 2007 02:01 PM
executar uma function antes do ERRSYSW ?
Posted: Mon Jan 21, 2008 10:05 AM

muito obrigado!

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
executar uma function antes do ERRSYSW ?
Posted: 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
cuatecatl82
Posts: 625
Joined: Wed Mar 14, 2007 06:49 PM
executar uma function antes do ERRSYSW ?
Posted: 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..

Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
executar uma function antes do ERRSYSW ?
Posted: 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
cuatecatl82
Posts: 625
Joined: Wed Mar 14, 2007 06:49 PM
executar uma function antes do ERRSYSW ?
Posted: Thu Jan 24, 2008 05:12 PM
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]
Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
executar uma function antes do ERRSYSW ?
Posted: Thu Jan 24, 2008 05:46 PM

Perfecto, amigo.

Muchas gracias.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
MauroArevalo
Posts: 111
Joined: Thu Jan 19, 2006 11:47 PM
executar uma function antes do ERRSYSW ?
Posted: 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....
cuatecatl82
Posts: 625
Joined: Wed Mar 14, 2007 06:49 PM
executar uma function antes do ERRSYSW ?
Posted: Sat Jan 26, 2008 01: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

Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon

Continue the discussion

Static archive · New replies & topics via GitHub Discussions