FoxPro/Visual FoxPro - Validar 4 TextBox a la vez

Hola a todos
La siguiente linea de código funciona bien para validar cada TextBox x separado pero ¿que pasa si el impredecible operador con el mouse se salta algún campo y lo deja vacio?.-

IF EMPTY(This.value)
MESSAGEBOX("El dato es obligatorio"," Atención",64,0)
RETURN 0
ENDIF

¿Como puedo hacer en el botón <Grabar> para que ninguno de los 4 TextBox que tiene el form queden vacios?, digo, ¿se puede sin hacer 4 IF?.-

Saludos y gracias x el tiempo.
Daniel

Crea un método para el form, pongamos que se llame VALIDAR_CAMPOS

y que el botón GRABAR al hacer click, llame previamente a ese método, y de no pasar la prueba, devuelva el focus al objeto que no pasó la validación.

El validar cada campo conforme el enfoque pasa sobre él es una manera lineal de ver la interfaz de usuario, que debería haber sido ya desterrada, toda vez que en un entorno visual el usuario debería poder moverse por los objetos sin un control restrictivo.

Hola,

Si, hay una rutina que te verifica que "X" campos no esten en blanco... solo le colocas a cada campo que no pueda quedar en blanco, en sus propiedad "Comment" un ASterisco (*) o el simbolo que deseas.

En tu linea de programacion, dentro del evento Grabar.Click colocas lo siguiente

LOCAL lnObjecto,lcContenido,lcNombre,lcFoco
FOR lnObjecto = 1 TO THISFORM.OBJECTS.COUNT
IF THISFORM.OBJECTS(lnObjecto).COMMENT="*"
lcNombre = THISFORM.OBJECTS(lnObjecto).NAME
lcContenido = "ThisForm." + lcNombre + ".Value"
IF EMPTY(&lcContenido)
MESSAGEBOX("Faltan Datos por Ingresar " ,"DATOS INCOMPLETOS")
lcFoco = "ThisForm." + lcNombre + ".SetFocus"
&lcFoco
RETURN 0
ENDIF
ENDIF
ENDFOR

Fijate bien en el "Thisform." porque debe ser la ruta completa, es decir, si usas PageFrame, pues debes agregar el nombre del pageframe y de la pagina...

En mi caso, uso un pageframe llamado PGFficha, que contiene PAGE1 y PAGE2

Todo los campos estan en el page1 asi que mi codigo debe decir
"THISFORM.PGFFICHA.PAGE1." en lugar de "THISFORM."

Prueba y veras que es interesante porque te manda exactamente al campo que esta en blanco y que no debe estarlo...

Saludos,

Victor,

Hola victor.
Maravilloso tú código, realmente interesante que ponga el cursor en el campo vacio.-
La único negativo que hay varias lineas que quisiera interpretar, voy a leer sobre Objectos
en VFP.-

Saludos y muchas pero muchas gracias.-
Daniel

Hola,

Claro es un codigo sencillo. Solo lee sobre propiedades y veras que lo entenderas a la perfeccion.

No es mi codigo, yo lo modifiqué un tanto para adecuarlo a mi sistema. Es un codigo libre que encontre creo que en otro sitio o aqui mismo, no recuerdo.

Interesante como la gente se ingenia para hacer las cosas mas sencillas y lo bueno es que lo comparten y asi nos facilita el asunto.

Yo no soy programador de profesion, soy medico y de 46 años pero me gusta el foxpro desde hace muchos años, primero con Dbase y Clipper.

En el VFP soy relativamente nuevo. Comencé en noviembre de 2008 y recibi la ayuda de un amigo en Peru...excelente amigo que me introdujo en este sistema que a mi parecer es muy muy bueno.

Saludos,

Victor,

Hola Doc
Que bien, bueno seria que nos leyéramos seguido para poder ayudarnos.-
Yo estoy estudiando C con todo solo que me pidieron un programita para vencimientos de productos y ya no tiene demasiado sentido hacerlo en FoxPro para windows y lo estoy intentando en VFP.-(Lenguaje que voy a seguir profundizando).-

Un gran abrazo desde Argentina.-
Daniel

Hola a todos.
Contarles a Víctor y a todos cual es el problema, cuando hago la validación con el código que posteo Víctor funciona a la perfección, directamente sobre los campos la cuestión es cuanto puse los TextBox en un contenedor no me funciona, hice todas las pruebas posible pera ya me agoté.-
Y ya que estamos en este caso en particular les hago otra pregunta, para validar cada campo antes que salga del mismo lo mas usual es poner un return .F. o que no salga dándole nuevamente el foco, que pasa si tengo x decir 10 campos y en el primero al operador de turno decide que se equivoco de producto, el programa no lo dejará salir ni si lo quiera coimear(corromper), hay alguna solución para este caso en particular.-

LOCAL lnObjecto,lcContenido,lcNombre,lcFoco
FOR lnObjecto = 1 TO THISFORM.OBJECTS.COUNT
IF THISFORM.OBJECTS(lnObjecto).COMMENT="*"
lcNombre = THISFORM.OBJECTS(lnObjecto).NAME
lcContenido = "ThisForm.cCampos." + lcNombre + ".Value"
IF EMPTY(&lcContenido)
MESSAGEBOX("Faltan Datos por Ingresar " ,"DATOS INCOMPLETOS")
lcFoco = "ThisForm.cCampos." + lcNombre + ".SetFocus"
&lcFoco
RETURN 0
ENDIF
ENDIF
ENDFOR

Saludos a todos.
Daniel

Solo le falta agregarle el nombre de tu contenedor.

LOCAL lnObjecto,lcContenido,lcNombre,lcFoco
FOR lnObjecto = 1 TO THISFORM.MI_CONTENEDOR.OBJECTS.COUNT
IF THISFORM.MI_CONTENEDOR.OBJECTS(lnObjecto).COMMENT="*"
lcNombre = THISFORM.MI_CONTENEDOR.OBJECTS(lnObjecto).NAME
lcContenido = "ThisForm.MI_CONTENEDOR.cCampos." + lcNombre + ".Value"
IF EMPTY(&lcContenido)
MESSAGEBOX("Faltan Datos por Ingresar " ,"DATOS INCOMPLETOS")
lcFoco = "ThisForm.MI_CONTENEDOR.cCampos." + lcNombre + ".SetFocus"
&lcFoco
RETURN 0
ENDIF
ENDIF
ENDFOR

holaa!! ok soy nueva en foxpro, con respecto a lo del la creacion del nuevo metodo como le digo al boton grabar que llame a ese metodo y que de manera de queno pase la prueba no grabe!? como seria el codigo?