26 de mayo de 2010

Un sencillo método para validar que no se dejen determinados datos vacíos en un formulario.

Primeramente coloca un * (asterisco) en la propiedad Comment a los objetos que deseas validar.

Posteriormente coloca el siguiente código en el borón Grabar del formulario.

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("Es necesario capturar el dato " + ;
        SUBSTR(lcNombre,4), 16, "No es posible")
      lcFoco = "ThisForm." + lcNombre + ".SetFocus"
      &lcFoco
      RETURN
    ENDIF
  ENDIF
ENDFOR

Saludos.

Jesus Caro V.