Sobre eso de mensajes automaticos en la pantalla. depende de que quieras hacer y como quieras hacerlo.
si lo quieres hacer facil, crea una tabla de mensajes digamos un campo codigodemensaje y otro textodemensaje. y despues en tu aplicacion manejas esto con un simple if.
si lo que deseas es leer los codigos de errores que genera fox y mostrar el mensaje de ese codigo de error debes:
1. en el codigo disparar la rutina si se presenta un error con (ON ERROR) asi:
*ON ERROR DO manejodeerrores WITH ;
* ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
donde manejodeerrores es la rutina que lee los codigos generados por FOX.
2. crear una rutina .prg para interpretar los codigos de errores genrados por FOX, asi:
PROCEDURE manejodeerrores
PARAMETER merror, mess, mess1, mprog, mlineno
CLEAR
*? 'Error number: ' + LTRIM(STR(merror))
adnumerr = val(LTRIM(STR(merror)))
*? 'Error message: ' + mess
*mensajerr = mess
*? 'Line of code with error: ' + mess1
*linearr = mess1
*? 'Line number of error: ' + LTRIM(STR(mlineno))
*lineanumrr = LTRIM(STR(mlineno))
*? 'Program with error: ' + mprog
*filerr = mprog
RETURN
si lo que deseas es disparar rutinas, usa un timer.
suerte
D7C
