Amiga Silvia :
Realizar una validacion en un campo de tipo Fecha es relativamente facil...
Es importante antes inicializar adecuadamente el campo.
Propiedades :
ControlSource = "m.textnum"
Enabled = .F.
Format = "DK"
InputMask = "99/99/9999"
Name = "TextNum"
PROCEDURE GotFocus
=NUMLOCK(.T.)
ENDPROC
PROCEDURE Destroy
SET NOTIFY OFF
ENDPROC
PROCEDURE Init
SET NOTIFY ON
Thisform.TEXTNUM.Value = { } && Si esta ligado a una Tabla se omite esta linea
ENDPROC
PROCEDURE Valid && Aqui la Validacion
IF EMPTY(This.Value)
WAIT WINDOW "Debe Digitar la Fecha de Numeración" NOWAIT
?? CHR(7)
MESSAGEBOX("Ingrese la Fecha de Numeración",4+18,"Error")
RETURN 0
ENDIF
IF This.Value > DATE() && Evitar una fecha incorrecta
SET BELL TO 1900,1.75
?? CHR(7)
MESSAGEBOX("No se Acepta la Fecha Ingresada",0+64,"Aviso del Sistema")
RETURN 0
ENDIF
Espero haber respondido acertadamente a tu pregunta.
Saludos,
GABRIEL
(Lima-Perú)