FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Ayuda Problema Con Calendario DTPICKER URGENTE
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Ayuda Problema Con Calendario DTPICKER URGENTE
Posted: Thu Mar 14, 2019 02:20 PM
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 (fw): Select all Collapse
聽 聽 聽 聽 聽 聽 聽 聽 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
FWH 22.10 - HARBOUR - PELLES C
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Ayuda Problema Con Calendario DTPICKER URGENTE
Posted: Fri Mar 15, 2019 04:48 AM
remtec:

Con este c贸digo

Code (fw): Select all Collapse
            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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ayuda Problema Con Calendario DTPICKER URGENTE
Posted: Fri Mar 15, 2019 09:17 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda Problema Con Calendario DTPICKER URGENTE
Posted: Sun Mar 17, 2019 07:27 PM
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 (fw): Select all Collapse
聽 聽 聽 聽 聽 聽 聽 聽 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.) )
FWH 22.10 - HARBOUR - PELLES C
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ayuda Problema Con Calendario DTPICKER URGENTE
Posted: Mon Mar 18, 2019 02:38 PM

Mira \samples\JOSELUIS.PRG

Saludos.

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ayuda Problema Con Calendario DTPICKER URGENTE
Posted: Mon Mar 18, 2019 02:51 PM
Haga algo +- asi:

Code (fw): Select all Collapse
#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.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Ayuda Problema Con Calendario DTPICKER URGENTE
Posted: Mon Mar 18, 2019 04:04 PM

Remtec:

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

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda Problema Con Calendario DTPICKER URGENTE
Posted: Mon Mar 18, 2019 07:51 PM

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

FWH 22.10 - HARBOUR - PELLES C

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions