FoxPro/Visual FoxPro - Comparar fechas

 
Vista:

Comparar fechas

Publicado por Silvia (63 intervenciones) el 21/08/2007 13:11:20
Quisiera saber como comparar una fecha con 0, ó mejor dicho como saber que en un campo de fecha no hay fecha metida

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Comparar fechas

Publicado por Plinio (7841 intervenciones) el 21/08/2007 13:52:17
IF EMPTY(Thisform.txtFecha.value) &&Si es un objecto

IF EMPTY(tabla.campo_fecha) &&Si es un campo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Comparar fechas

Publicado por Gabriel (427 intervenciones) el 21/08/2007 21:54:42
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ú)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar