Favor Urgente, como puedo Validar una Fecha con DTPICKER

[remtec]

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.

[karinha]

Code: Select all  Expand view

#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
}
*/
 

Saludos

[remtec]

Hola Karinha

Mil gracias, siempre atento y dispuesto ayudar.

Eres un Maestros.

Muchos saludos

Antonio