Jonat
Te envío en adjunto un formulario de ejemplo. No es más que eso. El formulario es, obviamente, un disparate, pero sirve de excusa para tratar el tema de los campos vacíos. Para no complicar la cosa, pongo un Messagebox() con los faltantes, pero bien se puede hacer un form con un listbox para redireccionar los focos a los diversos lugares que correspondan.
En cada caso que interesa, se rellena la propiedad Comment con algo así como: "Omitió el nombre del tipo".
En el commandgroup, Aceptar, se llama primero al método "Get_Emtpy" del formulario. Este método revisa en todos los contenedores y el mismo form, si hay controles de los tipos elegidos (Textbox, Editbox, Combobox, Checkbox, spinner) y si esos controles tienen un valor en "comment". Si es así y además están vacíos, rellena un array que crea el mismo método e incrementa e uno la propiedad nCount (que también es creada por el método).
Como me quise evitar tener que poner en el GotFocus de cada objeto este This.backcolor = rgb(255,255,255), recurro a BINDEVENT() para solucionar el tema, con tres rutinas:
a) Get_bindEvent que es también recursiva, detectando los objetos elegidos allí donde estén y genera la instrucción BindEvent() para cada objeto.
b) Dlg_gotFocus, que tiene el código que ha de cumplir cada objeto cuando reciba el enfoque. Para detectar de qué objeto se trata, se utiliza AEVENTS().
c) dlg_LostFocus que tiene un código para el lostfocus de cada cuadro.
Este punto se evita fácilmente con una biblioteca de clases donde los objetos ya tengan en sus respectivos gotfocus la instrucción sobre el backcolor y otra que cuadre.
Esto funciona desde Vfp 8. Para las versiones anteriores, BindEvent no existe.
Fijate que los nombres de los Labels tienen una estrecha relación con los nombres de los textbox, spinner , etc respectivos, lo que permite que cambien de color cuando el cuadro relacionado tiene el enfoque. Igualmente, se utiliza para marcar (en rojo) cuando faltan datos.
Para evitar tener que escribir todos los comandos para blanquear el form, pongo otra rutina recursiva (Limpiar) que pone los valores correspondientes en los controles elegidos ( "" , 0 , .f. , ctod("") , etc)
Nota sobre rutinas recursivas.
Las rutinas recursivas no deben utilizarse para cualquier cosa. Cada llamada recursiva es una anidación, por lo que si hay 7 llamadas recursivas, tendremos 7 niveles de ejecución del mismo código.
Sin cambiar la configuración, Visual Fox soporta hasta 128 niveles de anidamiento, pero hay que contar el punto de partida de la recursividad. Si supera ese límite, el programa se interrumpirá (desborde de pila de llamadas).
En los formularios más complejos, difícilmente supere los 9 niveles de recursividad (por ejemplo, contenido de los columns de un grid que está en un Page de PageFrame, que a su vez está en un Container sobre el formulario.
Sin embargo, hay dos casos en los que resultan imprescindible:
1) El expuesto, sobre controles de un formulario o Container.
2) La exploración de carpetas en un disco. Esto puede llegar a dar hasta 30 niveles de anidamiento, aunque lo más que he detectado son 21 niveles.
