Amigos
Muy buenas tardes.
Necesito saber como puedo Validar una fecha Seleccionada con el Calendario "DTPICKER":
REDEFINE DTPICKER oFecha2 VAR dFecha2 ID 103 OF oDlg FONT oFont1 PICTURE "@d" UPDATE
El Objetivo es ingresar una fecha valida, que permita validar que existan datos dentro de una DBF, mientras no encuentre datos, se debe seguir pidiendo seleccionar Fecha.
Muchos Saludos
Antonio.
Favor Urgente, como puedo Validar una Fecha con DTPICKER
Re: Favor Urgente, como puedo Validar una Fecha con DTPICKER
Code: Select all
#include "FiveWin.ch"
#include "dtpicker.ch"
STATIC lSalida := .F.
FUNCTION Main()
local oDlg, oBtn1, oBtn2, oGet1, oGet2
local dFechaIni := Date(), dFechaFin := Date() + 1
DEFINE DIALOG odlg RESOURCE "ENTFECHA" TITLE "Fechas de envío";
GRADIENT { { 0.25, nRGB( 219, 230, 244 ), nRGB( 207, 221, 239 ) },{ 0.75, nRGB( 201, 217, 237 ), nRGB( 231, 242, 255 ) } }
REDEFINE DTPICKER oGet1 VAR dFechaIni ID 221 DIALOG oDlg ;
VALID( dFechaIni >= CTOD("01/01/2018") )
REDEFINE DTPICKER oGet2 VAR dFechaFin ID 225 DIALOG oDlg ;
VALID( ValidarFechas( dFechaIni, dFechaFin ) )
// VALID dFechaIni <= dFechaFin
REDEFINE BUTTON obtn1 ID 222 DIALOG odlg ACTION lSalida := .T., oDlg:End()
REDEFINE BUTTON obtn2 ID 223 DIALOG odlg ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED ;
VALID ( lSalida )
RETURN NIL
FUNCTION ValidarFechas( dFechaIni, dFechaFin )
IF ( dFechaIni > dFechaFin )
alert( "La fecha final debe ser mayor a la fecha inicial" )
RETURN( .F. )
ENDIF
RETURN( .T. )
/* // .RC
#include <windows.h>
ENTFECHA DIALOGEX DISCARDABLE 24, 22, 177, 95
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU
CAPTION "Entrada de fechas"
FONT 8, "Arial"
{
CONTROL "&Aceptar", 222, "Button", WS_TABSTOP, 12, 57, 40, 14
CONTROL "&Cancelar", 223, "Button", WS_TABSTOP, 121, 57, 40, 14
CONTROL "Fecha inicial", -1, "Static", WS_GROUP, 9, 10, 43, 8
CONTROL "Fecha final", -1, "Static", WS_GROUP, 9, 33, 43, 8
CONTROL "", 225, "SysDateTimePick32", DTS_RIGHTALIGN|WS_TABSTOP, 65, 30, 100, 15
CONTROL "", 221, "SysDateTimePick32", DTS_RIGHTALIGN|WS_TABSTOP, 65, 7, 100, 15
}
*/
João Santos - São Paulo - Brasil
Re: Favor Urgente, como puedo Validar una Fecha con DTPICKER
Hola Karinha
Mil gracias, siempre atento y dispuesto ayudar.
Eres un Maestros.
Muchos saludos
Antonio
Mil gracias, siempre atento y dispuesto ayudar.
Eres un Maestros.
Muchos saludos
Antonio