Cómo puedo mostrar un mensaje personalizado a un error determinado?

66 views
Skip to first unread message

Wilzy G

unread,
Nov 14, 2016, 6:30:25 AM11/14/16
to Comunidad de Visual Foxpro en Español

Por ejemplo, cuando trato de leer un archivo protegido y la aplicación no se ejecuta como Administrador sale el mensaje de error de la imagen, el cual corresponde (si no me equivoco) al Error Nro. 1705.


En vez de este mensaje de error me gustaría mostrar algo que diga por ejemplo: “Debe ejecutar la Aplicación como Administrador” o algo así.

Utilizo VFP 9.0.

Muchas Gracias de antemano.

Fidel Charny

unread,
Nov 14, 2016, 6:43:22 AM11/14/16
to Comunidad de Visual Foxpro en Español

Germán Fabricio Valdez

unread,
Nov 14, 2016, 7:09:53 AM11/14/16
to Comunidad de Visual Foxpro en Español
hace click derecho sobre el icono de la aplicacion te vas a la ficha compatibilidad y tildas ejecutar como administrador
asi siempre se ejecutara como administrador


El lunes, 14 de noviembre de 2016, 8:30:25 (UTC-3), Wilzy G escribió:

Wilzy G

unread,
Nov 14, 2016, 7:24:27 AM11/14/16
to Comunidad de Visual Foxpro en Español
Lo tengo así German, pero hay otros errores para los que me gustaría mostrar un mensaje personalizado, por ejemplo a veces desconectan el cable de red y por tanto no se encuentra la ruta, entonces en el mensaje de error ya dice en dónde está ubicado mi base de datos, y quiero evitar esas cosas, entonces en vez de que le aparezca en el mensaje "No se encontró la ruta C:/blablabla/dase_datos.dbc" (no recuerdo muy bien como decía el mensaje), mostrar un mensaje que diga "No se pudo conectar a la base de datos" o algo así.

Utilizo Base de datos nativa.

Ok, miraré Fidel.

Germán Fabricio Valdez

unread,
Nov 14, 2016, 8:20:05 AM11/14/16
to Comunidad de Visual Foxpro en Español
tenes que usar ON ERROR segun el numero de error mostras un mensaje
al principio de tu prg
ON ERROR DO errHandler WITH ;
   ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )


PROCEDURE errHandler PARAMETER merror, mess, mess1, mprog, mlineno CLEAR ? 'Error number: ' + LTRIM(STR(merror)) ? 'Error message: ' + mess ? 'Line of code with error: ' + mess1 ? 'Line number of error: ' + LTRIM(STR(mlineno)) ? 'Program with error: ' + mprog ENDPROC


El lunes, 14 de noviembre de 2016, 8:30:25 (UTC-3), Wilzy G escribió:

Alfonso Arce Silvestre

unread,
Nov 14, 2016, 9:52:02 AM11/14/16
to publice...@googlegroups.com
Quizás requieras algo como esto

Imagen integrada 1
Reply all
Reply to author
Forward
0 new messages