Ayuda Problema Con Calendario DTPICKER URGENTE

[remtec]

Amigos

Muy buen dia.

Se me presento un problema con la opcion del Calendario DTPICKER.

El usuario debe seleccionar una Fecha y con On Change va a Buscar datos para llenar un Xbrowse.
En la función Buscar datos llena una Dbf de paso con los datos correspondiente a la fecha requerida, cuando no encuentra, muestra un aviso de datos no encontrados, para que el usuario seleccione otra fecha, todo esto esta muy bien.

EL problema se presenta cuando presiono el Boton < o > del calendario, pa cambiar de Mes, Aqui entra en forma automatica en un LOOP Infinito, mostrando los datos en Xbrowse cuando los encuentra o un aviso de " No Existen Datos Requeridos ", llenando la pantalla de estos avisos, no se puede cerrar y debo cerrar la aplicación por medio del administrador de tareas de Windows.

EL Boton de cambio de Mes, queda activado, por lo que el calendario comienza a cambiar de Mes, ya sea avanzando o retrocediendo según el boton que haya seleccionado.


Código del Ingreso de Fecha:

Code: Select all  Expand view

                REDEFINE DTPICKER oFecha VAR dFecha ID 103  OF  oDlg  FONT oFont2 PICTURE "@d" UPDATE ;
                                    ON CHANGE IF(!Procesa(dFecha,cFiltra),(MsgStop(Mensa),.F.), (oIngre:Refresh(),oSay:Refresh(),oFiltra:Refresh(), .T.) )

 

Saludos
Antonio

[Armando]

remtec:

Con este código

Code: Select all  Expand view

            REDEFINE dtPicker aGetsB[01] VAR dHoy ID 101 OF oDlg UPDATE;
                ON CHANGE FilBit(oDlg,oBrw);
                MESSAGE "Fecha de los vales que desea mostrar"
 

No me presenta el problema que mencionas, tal vez es la versión, uso FW1711

Saludos

[cnavarro]

También puedes intentar no utilizar la clausula ON CHANGE y utilizar la claúsula VALID en su lugar

[remtec]

Hola Cristobal

Muchas gracias a ambos por responder.

Probe la sugerencia de Cristobal, pero no VA a la Function a procesar datos, solo al hacer doble click.

Muchos Saludos
Antonio

Code: Select all  Expand view

                REDEFINE DTPICKER oFecha VAR dFecha ID 103  OF  oDlg  FONT oFont2 PICTURE "@d"  UPDATE;
                     Valid IF(!Procesa(dFecha,cFiltra),(MsgStop(Mensa),Mensa:="",.F.), (oIngre:Refresh(),oSay:Refresh(),oFiltra:Refresh(),oIngre:Setfocus(), .T.) )

 

[karinha]

Mira \samples\JOSELUIS.PRG

Saludos.

[karinha]

Haga algo +- asi:

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. )
 

Saludos.

[Armando]

Remtec:

Entonces es evidente que tu código está entrando en un circulo (loop), revisa
tu código.

Saludos

[remtec]

Hola Cristobal, Armando y Karinha.

Como estan, muchas gracias por sus ayuda.

Probe todas las opciones, pero siempre se me presentaba el Loop.

Termine haciendo lo que indico Armando, modifique el código donde mando a cargar datos, aunque no funciona como quería, dejo de presentar el problema del Loop, por lo que no me he complicado mas y lo deje como resulto.

Muchos Saludos.
Antonio