Validar Campos
Valero experto.
Tengo a bien solicitarte, dentro de lo posible, ayudarme a validar dos campos de un FORM.
El primer es validar un campo para que SOLO me acepte la letra M (para sexo Masculino) o la letra F (para sexo Femenino) y que si no se introduce una de estas dos opciones se dispare el mensaje "Debe digitar M (Si es Masculino) o F (Si es Femenino).
El Segundo es validar un campo fecha para que no me acepte fechas mayores que la actual y que al digitar los dígitos correspondientes al año, si digitarmeos (por ejemplo) 54, asuma que es 1954 y no 2054 como me lo esta haciendo.
Con gracias anticipadas
[email protected]
Efrain.
Tengo a bien solicitarte, dentro de lo posible, ayudarme a validar dos campos de un FORM.
El primer es validar un campo para que SOLO me acepte la letra M (para sexo Masculino) o la letra F (para sexo Femenino) y que si no se introduce una de estas dos opciones se dispare el mensaje "Debe digitar M (Si es Masculino) o F (Si es Femenino).
El Segundo es validar un campo fecha para que no me acepte fechas mayores que la actual y que al digitar los dígitos correspondientes al año, si digitarmeos (por ejemplo) 54, asuma que es 1954 y no 2054 como me lo esta haciendo.
Con gracias anticipadas
[email protected]
Efrain.
1 Respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
En el evento VALID del primer caso se debe incluir un código similar a:
IF UPPER( THIS.VALUE ) $ "MF"
RETURN .T.
ELSE
WAIT "Debe digitar M (Si es Masculino) o F (Si es Femenino)"
RETURN 0
Endif
Y para el segundo caso, lo que debes hacer es agregar la línea:
SET CENTURY TO 20 ROLLOVER 10
... bueno, eso digo yo.
Víctor.
IF UPPER( THIS.VALUE ) $ "MF"
RETURN .T.
ELSE
WAIT "Debe digitar M (Si es Masculino) o F (Si es Femenino)"
RETURN 0
Endif
Y para el segundo caso, lo que debes hacer es agregar la línea:
SET CENTURY TO 20 ROLLOVER 10
... bueno, eso digo yo.
Víctor.
