FoxPro/Visual FoxPro - controla errores

   
Vista:

controla errores

Publicado por jose leo (136 intervenciones) el 17/02/2009 05:08:18
Holas Como controlar un error utilizo este procedimiento

PROCEDURE Errores
PARAMETERS merror, mess, mess1, mprog, mlineno
nOpc = MESSAGEBOX("Ha ocurrido un error:"+CHR(13)+CHR(13)+;
'Número de error:'+LTRIM(STR(merror))+CHR(13)+;
'Mensaje de error:'+mess+CHR(13)+;
'Línea de código con error:'+mess1+CHR(13)+;
'Número de línea del error:'+LTRIM(STR(mlineno))+CHR(13)+;
'Programa con error:'+mprog,2+48)
DO CASE
CASE nOpc = 3 && Anular
CANCEL
CASE nOpc = 4 && Reintentar
RETRY
CASE nOpc = 5 && Ignorar
RETURN .T.
ENDCASE
RETURN

Pero tengo problemas con los usuarios asi que quisiera uno k le indique el error al usuario y le obligue salir del sistema y k me grabe en una tabla o archivo el error para poder solucionarlo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:controla errores

Publicado por Plinio (7771 intervenciones) el 17/02/2009 15:07:52
Ya tienes los datos ahi, solo necesitas tener alguna tabla donde grabarlos y hacer un quit.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar