Cual es la sintaxis para el DATEPICKER

[andyglezl]

Hola gabriel

Para lo que explicas, seria mas o menos así...
en vez de DATEPICKER sería MONTHCALENDAR

Code: Select all

FUNCTION MAIN()
    DEFINE WINDOW Win_1 ;
        AT 0,0 ;
        WIDTH 400 ;
        HEIGHT 200 ;
        TITLE 'DatePicker Test' ;
        MAIN 

        @ 10,10 MONTHCALENDAR MC_1 Value Date() ;
                WEEKNUMBERS FONT "Arial" SIZE 9 ON CHANGE Busca( dtoc(Win_1.MC_1.Value) )

        @ 90,10 GRID MiGrid WIDTH 326 HEIGHT 415                  ;
                  HEADERS {"Hora","Empresa","Nombre","Registro"}  ;
                  WIDTHS  {50,100,100,50} FONT "Arial" SIZE 9

    END WINDOW
    ACTIVATE WINDOW Win_1
RETURN( Nil )
FUNCTION Busca( cFecha )

    Use MiDB ALIAS DB
    DBSeek( cFecha, .f. )
    Do while ( tu condicion )
        ...
        ...
        Win_1.MiGrid.AddItem( { HORA, EMPRESA, NOMBRE, REGISTRO } )
        ...
    ENDDO

RETURN( Nil ) 

[tonton2]

Bonsoir a tous , et bien sûr merci a toute l'équipe de sa précieuse aide.
Voila je n'arrive pas a trouver pourquoi la date ne s'affiche pas dans le MSGINFO.

Good evening everybody, and of course thank you to all the team for their valuable assistance.
That I can not seem to find why the date is not displayed in the msginfo.
Good continuation

Code: Select all

#include "hmg.ch"

Function Main

   DEFINE WINDOW affichedates ;
      AT 0,0 ;
      WIDTH 800 ;
      HEIGHT 650 ;
      TITLE "Recherche Par premiere implementation dns la grille" ;
      MAIN 
      DEFINE BUTTON SeleCredit
         ROW      520
         COL      20
         WIDTH   170
         CAPTION 'Afficher les dates...' // 'Click after selecting an item'
         ACTION  AfficheDate()
      END BUTTON  
      
      @ 522,260 LABEL lbl_1 ;
              WIDTH 20 ;
              HEIGHT 25 ;
              VALUE "Du " ;
              RIGHTALIGN                       
      @ 520,300 DATEPICKER Date_1 VALUE CTOD("01/05/2012")   
      
      @ 522,430 LABEL lbl_2 ;
              WIDTH 20 ;
              HEIGHT 25 ;
              VALUE " Au" ;
              RIGHTALIGN
      @ 520,460 DATEPICKER Date_2 VALUE date()  // CTOD("01/07/2013")       
 
    
   END WINDOW
   
   END WINDOW
   
   affichedates.CENTER
   affichedates.ACTIVATE
   // CENTER WINDOW Form_1
   
  

Return

Function AfficheDate()
    msginfo (ctod('affichedates.DATE_1.VALUE'))  
    msginfo (ctod('affichedates.DATE_2.VALUE'))   

Return nil 

[esgici]

Voila je n'arrive pas a trouver pourquoi la date ne s'affiche pas dans le MSGINFO.

Parce que vous n'avez pas besoin de CTOD() ( Valeur de contrôle de datepicker est déjà de type D )

Code: Select all

    msginfo ( affichedates.DATE_1.VALUE )    
    msginfo ( affichedates.DATE_2.VALUE ) 

Maassalam

[tonton2]

Good morning my friend,
Merci beaucoup pour la rapidite de la reponse
Thank you so much for the rapidity of the response

[esgici]

Pas de qoi mon ami

Viva HMG

[mustafa]

Hola gabrieloq
Te dejo un sample que en su dia formaba parte de
un programa que publique:

viewtopic.php?f=9&t=1059" onclick="window.open(this.href);return false;" onclick="window.open(this.href);return false;

Haber si te puede servir, te dejo los samples
en ingles y español.
sample_En.prg y sample_Es.prg
tienes que compilar con HMG 3.1.5

*------------------------------------------------*
Hello gabrieloq
I leave a sample that once was part of
a program to publis:

viewtopic.php?f=9&t=1059" onclick="window.open(this.href);return false;" onclick="window.open(this.href);return false;

Have if you can help, I'll let the samples
in English and Spanish
sample_En.prg and sample_Es.prg
HMG have to compile with 3.1.5

Mustafa

[esgici]

Hi All

Made some little modifications on DatePicker control demo, for emphasize some handy details of this control.

Some details on DatePicker control

DatePicker2.jpg (64.46 KiB) Viewed 3475 times

Code: Select all

/*
 *
 * HMG - Harbour Win32 GUI library Demo
 *
 * Copyright 2002 Roberto Lopez <mail.box.hmg@gmail.com>
 * http://www.hmgforum.com//
 *
 * Sligtly modified version of DatePicker demo.
 *  
*/

#include "hmg.ch"

Function Main

   SET DATE GERM
   SET CENT ON
   
	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 600 HEIGHT 500 ;
		TITLE "HMG DatePicker Demo" ;
		MAIN ;
		FONT "Arial" SIZE 10
      
      ON KEY ESCAPE ACTION ThisWindow.Release
      
		@ 10,10 LABEL Label_1 VALUE "Simple"
      
		@ 30,10 DATEPICKER Date_1 ; 
      VALUE DATE() ;
		TOOLTIP "DatePicker Control";
      ON CHANGE UpdaSBar()

		@ 10,410 LABEL Label_2 WIDTH 200 VALUE "ShowNone RightAlign"
		@ 30,410 DATEPICKER Date_2 ;
      VALUE DATE() ;
		TOOLTIP "DatePicker Control ShowNone RightAlign" ;
		SHOWNONE ;
		RIGHTALIGN;
      ON CHANGE UpdaSBar()

		@ 230,10 LABEL Label_3 WIDTH 200 VALUE "UpDown"
		@ 250,10 DATEPICKER Date_3 ;
      VALUE DATE() ;
		TOOLTIP "DatePicker Control UpDown" ;
		UPDOWN;
      ON CHANGE UpdaSBar()

		@ 230,410 LABEL Label_4 WIDTH 200 VALUE "ShowNone UpDown"
		@ 250,410 DATEPICKER Date_4 ;
      VALUE DATE() ;
		TOOLTIP "DatePicker Control ShowNone UpDown" ;
		SHOWNONE ;
		UPDOWN;
      ON CHANGE UpdaSBar()

      DEFINE STATUSBAR FONT 'Verdana' SIZE 8
          STATUSITEM ""
      END STATUSBAR
         
	END WINDOW

	CENTER WINDOW Form_1

	ACTIVATE WINDOW Form_1

Return Nil


PROCEDURE UpdaSBar()
   Form_1.StatusBar.Item(1) :=  This.Name + " : " + DTOC( This.Value )
RETURN // UpdaSBar()

Happy HMG'ing