begin process at 2010 02 09 14:20:00
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Prog. Objet

 > UN AUTRE CALENDRIER

UN AUTRE CALENDRIER


 Information sur la source

 Description

Pour choisir une date sur un calendrier
tout en fox.

Source

  • parameters queldat
  • oform=createobject("choixdate")
  • oform.show()
  • return queldat
  • DEFINE CLASS choixdate AS form
  • Top = 33
  • Left = 55
  • Height = 277
  • Width = 368
  • DoCreate = .T.
  • ShowTips = .T.
  • BorderStyle = 2
  • Caption = " Le calendrier d'AUMERIC"
  • MaxButton = .F.
  • WindowType = 1
  • WindowState = 0
  • MacDesktop = 1
  • BackColor = RGB(213,236,253)
  • Name = "choixdate"
  • dateencours = date()
  • retour = .F.
  • oldselect = .F.
  • ADD OBJECT contai11 AS contai1 WITH ;
  • Top = 0, ;
  • Left = 0, ;
  • Width = 369, ;
  • Height = 277, ;
  • TabIndex = 5, ;
  • Name = "Contai11"
  • ADD OBJECT command1 AS commandbutton WITH ;
  • Top = 245, ;
  • Left = 36, ;
  • Height = 27, ;
  • Width = 84, ;
  • Picture = "wzback.bmp", ;
  • Caption = "<<", ;
  • Name = "Command1"
  • ADD OBJECT command2 AS commandbutton WITH ;
  • Top = 245, ;
  • Left = 166, ;
  • Height = 27, ;
  • Width = 84, ;
  • Picture = "wznext.bmp", ;
  • Caption = ">>", ;
  • Name = "Command2"
  • ADD OBJECT text1 AS textbox WITH ;
  • Height = 23, ;
  • Left = -74, ;
  • TabIndex = 6, ;
  • Top = 206, ;
  • Visible = .F., ;
  • Width = 100, ;
  • Name = "Text1"
  • ADD OBJECT cbo1 AS combobox WITH ;
  • BoundColumn = 2, ;
  • ColumnCount = 2, ;
  • ColumnWidths = "228,0", ;
  • RowSourceType = 1, ;
  • RowSource = "JANVIER,1,FEVRIER,2,MARS,3,AVRIL,4,MAI,5,JUIN,6,JUILLET,7,AOUT,8,SEPTEMBRE,9,OCTOBRE,10,NOVEMBRE,11,DECEMBRE,12", ;
  • Value = (month(thisform.dateencours)), ;
  • FirstElement = 1, ;
  • Height = 24, ;
  • Left = 7, ;
  • NumberOfElements = 0, ;
  • Style = 2, ;
  • TabIndex = 1, ;
  • ToolTipText = "Pour choisir le mois", ;
  • Top = 23, ;
  • Width = 108, ;
  • Name = "Cbo1"
  • ADD OBJECT spinner1 AS spinner WITH ;
  • Height = 24, ;
  • KeyboardHighValue = 2500, ;
  • KeyboardLowValue = 2000, ;
  • Left = 116, ;
  • SpinnerHighValue = 2500.00, ;
  • SpinnerLowValue = 2000.00, ;
  • TabIndex = 2, ;
  • ToolTipText = "Pour choisir l'année", ;
  • Top = 23, ;
  • Width = 121, ;
  • Value = (year(thisform.dateencours)), ;
  • Name = "Spinner1"
  • ADD OBJECT commandgroup1 AS commandgroup WITH ;
  • ButtonCount = 42, ;
  • Value = 1, ;
  • Height = 176, ;
  • Left = 4, ;
  • SpecialEffect = 0, ;
  • Top = 67, ;
  • Width = 360, ;
  • TabIndex = 7, ;
  • Name = "Commandgroup1", ;
  • Command1.Top = 5, ;
  • Command1.Left = 5, ;
  • Command1.Height = 27, ;
  • Command1.Width = 49, ;
  • Command1.FontBold = .F., ;
  • Command1.Caption = "Command1", ;
  • Command1.Style = 0, ;
  • Command1.Name = "Command1", ;
  • Command2.Top = 5, ;
  • Command2.Left = 55, ;
  • Command2.Height = 27, ;
  • Command2.Width = 49, ;
  • Command2.Caption = "Command2", ;
  • Command2.Name = "Command2", ;
  • Command3.Top = 5, ;
  • Command3.Left = 105, ;
  • Command3.Height = 27, ;
  • Command3.Width = 49, ;
  • Command3.Caption = "Command3", ;
  • Command3.Name = "Command3", ;
  • Command4.Top = 5, ;
  • Command4.Left = 154, ;
  • Command4.Height = 27, ;
  • Command4.Width = 49, ;
  • Command4.Caption = "Command4", ;
  • Command4.Name = "Command4", ;
  • Command5.Top = 5, ;
  • Command5.Left = 203, ;
  • Command5.Height = 27, ;
  • Command5.Width = 49, ;
  • Command5.Caption = "Command5", ;
  • Command5.Name = "Command5", ;
  • Command6.Top = 5, ;
  • Command6.Left = 252, ;
  • Command6.Height = 27, ;
  • Command6.Width = 49, ;
  • Command6.Caption = "Command6", ;
  • Command6.Name = "Command6", ;
  • Command7.Top = 5, ;
  • Command7.Left = 302, ;
  • Command7.Height = 27, ;
  • Command7.Width = 49, ;
  • Command7.Caption = "Command7", ;
  • Command7.Name = "Command7", ;
  • Command8.Top = 32, ;
  • Command8.Left = 5, ;
  • Command8.Height = 27, ;
  • Command8.Width = 49, ;
  • Command8.Caption = "Command8", ;
  • Command8.Name = "Command8", ;
  • Command9.Top = 32, ;
  • Command9.Left = 55, ;
  • Command9.Height = 27, ;
  • Command9.Width = 49, ;
  • Command9.Caption = "Command9", ;
  • Command9.Name = "Command9", ;
  • Command10.Top = 32, ;
  • Command10.Left = 105, ;
  • Command10.Height = 27, ;
  • Command10.Width = 49, ;
  • Command10.Caption = "Command10", ;
  • Command10.Name = "Command10", ;
  • Command11.Top = 32, ;
  • Command11.Left = 154, ;
  • Command11.Height = 27, ;
  • Command11.Width = 49, ;
  • Command11.Caption = "Command11", ;
  • Command11.Name = "Command11", ;
  • Command12.Top = 32, ;
  • Command12.Left = 203, ;
  • Command12.Height = 27, ;
  • Command12.Width = 49, ;
  • Command12.Caption = "Command12", ;
  • Command12.Name = "Command12", ;
  • Command13.Top = 32, ;
  • Command13.Left = 252, ;
  • Command13.Height = 27, ;
  • Command13.Width = 49, ;
  • Command13.Caption = "Command13", ;
  • Command13.Name = "Command13", ;
  • Command14.Top = 32, ;
  • Command14.Left = 302, ;
  • Command14.Height = 27, ;
  • Command14.Width = 49, ;
  • Command14.Caption = "Command14", ;
  • Command14.Name = "Command14", ;
  • Command15.Top = 59, ;
  • Command15.Left = 5, ;
  • Command15.Height = 27, ;
  • Command15.Width = 49, ;
  • Command15.Caption = "Command15", ;
  • Command15.Name = "Command15", ;
  • Command16.Top = 59, ;
  • Command16.Left = 55, ;
  • Command16.Height = 27, ;
  • Command16.Width = 49, ;
  • Command16.Caption = "Command16", ;
  • Command16.Name = "Command16", ;
  • Command17.Top = 59, ;
  • Command17.Left = 105, ;
  • Command17.Height = 27, ;
  • Command17.Width = 49, ;
  • Command17.Caption = "Command17", ;
  • Command17.Name = "Command17", ;
  • Command18.Top = 59, ;
  • Command18.Left = 154, ;
  • Command18.Height = 27, ;
  • Command18.Width = 49, ;
  • Command18.Caption = "Command18", ;
  • Command18.Name = "Command18", ;
  • Command19.Top = 59, ;
  • Command19.Left = 203, ;
  • Command19.Height = 27, ;
  • Command19.Width = 49, ;
  • Command19.Caption = "Command19", ;
  • Command19.Name = "Command19", ;
  • Command20.Top = 59, ;
  • Command20.Left = 252, ;
  • Command20.Height = 27, ;
  • Command20.Width = 49, ;
  • Command20.Caption = "Command20", ;
  • Command20.Name = "Command20", ;
  • Command21.Top = 59, ;
  • Command21.Left = 302, ;
  • Command21.Height = 27, ;
  • Command21.Width = 49, ;
  • Command21.Caption = "Command21", ;
  • Command21.Name = "Command21", ;
  • Command22.Top = 86, ;
  • Command22.Left = 6, ;
  • Command22.Height = 27, ;
  • Command22.Width = 49, ;
  • Command22.Caption = "Command22", ;
  • Command22.Name = "Command22", ;
  • Command23.Top = 86, ;
  • Command23.Left = 55, ;
  • Command23.Height = 27, ;
  • Command23.Width = 49, ;
  • Command23.Caption = "Command23", ;
  • Command23.Name = "Command23", ;
  • Command24.Top = 86, ;
  • Command24.Left = 105, ;
  • Command24.Height = 27, ;
  • Command24.Width = 49, ;
  • Command24.Caption = "Command24", ;
  • Command24.Name = "Command24", ;
  • Command25.Top = 86, ;
  • Command25.Left = 154, ;
  • Command25.Height = 27, ;
  • Command25.Width = 49, ;
  • Command25.Caption = "Command25", ;
  • Command25.Name = "Command25", ;
  • Command26.Top = 86, ;
  • Command26.Left = 203, ;
  • Command26.Height = 27, ;
  • Command26.Width = 49, ;
  • Command26.Caption = "Command26", ;
  • Command26.Name = "Command26", ;
  • Command27.Top = 86, ;
  • Command27.Left = 252, ;
  • Command27.Height = 27, ;
  • Command27.Width = 49, ;
  • Command27.Caption = "Command27", ;
  • Command27.Name = "Command27", ;
  • Command28.Top = 86, ;
  • Command28.Left = 302, ;
  • Command28.Height = 27, ;
  • Command28.Width = 49, ;
  • Command28.Caption = "Command28", ;
  • Command28.Name = "Command28", ;
  • Command29.Top = 114, ;
  • Command29.Left = 6, ;
  • Command29.Height = 27, ;
  • Command29.Width = 49, ;
  • Command29.Caption = "Command29", ;
  • Command29.Name = "Command29", ;
  • Command30.Top = 114, ;
  • Command30.Left = 55, ;
  • Command30.Height = 27, ;
  • Command30.Width = 49, ;
  • Command30.Caption = "Command30", ;
  • Command30.Name = "Command30", ;
  • Command31.Top = 114, ;
  • Command31.Left = 105, ;
  • Command31.Height = 27, ;
  • Command31.Width = 49, ;
  • Command31.Caption = "Command31", ;
  • Command31.Name = "Command31", ;
  • Command32.Top = 114, ;
  • Command32.Left = 154, ;
  • Command32.Height = 27, ;
  • Command32.Width = 49, ;
  • Command32.Caption = "Command32", ;
  • Command32.Name = "Command32", ;
  • Command33.Top = 114, ;
  • Command33.Left = 203, ;
  • Command33.Height = 27, ;
  • Command33.Width = 49, ;
  • Command33.Caption = "Command33", ;
  • Command33.Name = "Command33", ;
  • Command34.Top = 114, ;
  • Command34.Left = 252, ;
  • Command34.Height = 27, ;
  • Command34.Width = 49, ;
  • Command34.Caption = "Command34", ;
  • Command34.Name = "Command34", ;
  • Command35.Top = 114, ;
  • Command35.Left = 302, ;
  • Command35.Height = 27, ;
  • Command35.Width = 49, ;
  • Command35.Caption = "Command35", ;
  • Command35.Name = "Command35", ;
  • Command36.Top = 142, ;
  • Command36.Left = 6, ;
  • Command36.Height = 27, ;
  • Command36.Width = 49, ;
  • Command36.Caption = "Command36", ;
  • Command36.Name = "Command36", ;
  • Command37.Top = 142, ;
  • Command37.Left = 55, ;
  • Command37.Height = 27, ;
  • Command37.Width = 49, ;
  • Command37.Caption = "Command37", ;
  • Command37.Name = "Command37", ;
  • Command38.Top = 142, ;
  • Command38.Left = 105, ;
  • Command38.Height = 27, ;
  • Command38.Width = 49, ;
  • Command38.Caption = "Command38", ;
  • Command38.Name = "Command38", ;
  • Command39.Top = 142, ;
  • Command39.Left = 154, ;
  • Command39.Height = 27, ;
  • Command39.Width = 49, ;
  • Command39.Caption = "Command39", ;
  • Command39.Name = "Command39", ;
  • Command40.Top = 142, ;
  • Command40.Left = 203, ;
  • Command40.Height = 27, ;
  • Command40.Width = 49, ;
  • Command40.Caption = "Command40", ;
  • Command40.Name = "Command40", ;
  • Command41.Top = 142, ;
  • Command41.Left = 252, ;
  • Command41.Height = 27, ;
  • Command41.Width = 49, ;
  • Command41.Caption = "Command41", ;
  • Command41.Name = "Command41", ;
  • Command42.Top = 142, ;
  • Command42.Left = 302, ;
  • Command42.Height = 27, ;
  • Command42.Width = 49, ;
  • Command42.Caption = "Command42", ;
  • Command42.Name = "Command42"
  • ADD OBJECT text3 AS textbox WITH ;
  • Format = "D", ;
  • Height = 23, ;
  • Left = 240, ;
  • TabIndex = 3, ;
  • Top = 23, ;
  • Width = 100, ;
  • Name = "Text3"
  • ADD OBJECT bouton21 AS commandbutton WITH ;
  • Top = 243, ;
  • Left = 306, ;
  • Height = 29, ;
  • Width = 59, ;
  • Picture = "wzclose.bmp", ;
  • Caption = "Ok", ;
  • TabIndex = 4, ;
  • Name = "Bouton21"
  • ADD OBJECT label1 AS label WITH ;
  • FontName = "Arial Black", ;
  • FontSize = 10, ;
  • BackStyle = 0, ;
  • Caption = "L M M J V S D", ;
  • Height = 25, ;
  • Left = 26, ;
  • Top = 51, ;
  • Width = 324, ;
  • ForeColor = RGB(0,0,0), ;
  • DisabledForeColor = RGB(0,0,0), ;
  • Name = "Label1"
  • ADD OBJECT label2 AS label WITH ;
  • FontName = "Arial Black", ;
  • FontSize = 10, ;
  • BackStyle = 0, ;
  • Caption = "L M M J V S D", ;
  • Height = 25, ;
  • Left = 24, ;
  • Top = 49, ;
  • Width = 324, ;
  • ForeColor = RGB(255,255,255), ;
  • DisabledForeColor = RGB(255,255,255), ;
  • Name = "Label2"
  • ADD OBJECT label3 AS label WITH ;
  • BackStyle = 0, ;
  • Caption = "Date choisie", ;
  • Height = 16, ;
  • Left = 258, ;
  • Top = 8, ;
  • Width = 78, ;
  • Name = "Label3"
  • ADD OBJECT label4 AS label WITH ;
  • BackStyle = 0, ;
  • Caption = "Date choisie", ;
  • Height = 16, ;
  • Left = 257, ;
  • Top = 6, ;
  • Width = 78, ;
  • ForeColor = RGB(255,255,255), ;
  • DisabledForeColor = RGB(255,255,255), ;
  • Name = "Label4"
  • ADD OBJECT label5 AS label WITH ;
  • BackStyle = 0, ;
  • Caption = "Année", ;
  • Height = 16, ;
  • Left = 127, ;
  • Top = 9, ;
  • Width = 78, ;
  • Name = "Label5"
  • ADD OBJECT label6 AS label WITH ;
  • BackStyle = 0, ;
  • Caption = "Année", ;
  • Height = 16, ;
  • Left = 126, ;
  • Top = 7, ;
  • Width = 78, ;
  • ForeColor = RGB(255,255,255), ;
  • DisabledForeColor = RGB(255,255,255), ;
  • Name = "Label6"
  • ADD OBJECT label7 AS label WITH ;
  • BackStyle = 0, ;
  • Caption = "Mois", ;
  • Height = 16, ;
  • Left = 7, ;
  • Top = 9, ;
  • Width = 78, ;
  • Name = "Label7"
  • ADD OBJECT label8 AS label WITH ;
  • BackStyle = 0, ;
  • Caption = "Mois", ;
  • Height = 16, ;
  • Left = 6, ;
  • Top = 7, ;
  • Width = 78, ;
  • ForeColor = RGB(255,255,255), ;
  • DisabledForeColor = RGB(255,255,255), ;
  • Name = "Label8"
  • PROCEDURE Release
  • thisform.retour=thisform.text3.value
  • ENDPROC
  • PROCEDURE Init
  • parameters quoi
  • thisform.oldselect=select()
  • if empty(quoi)
  • thisform.dateencours=date()
  • else
  • thisform.dateencours=quoi
  • endif
  • ThisForm.Spinner1.value=year(thisform.dateencours)
  • ThisForm.Cbo1.listindex=month(thisform.dateencours)
  • ThisForm.Cbo1.value=month(thisform.dateencours)
  • ThisForm.Text3.value=thisform.dateencours
  • ENDPROC
  • PROCEDURE Unload
  • select (thisform.oldselect)
  • queldat=thisform.retour
  • return thisform.retour
  • ENDPROC
  • PROCEDURE contai11.MouseMove
  • LPARAMETERS nbutton,nshift,nxcoord,nycoord
  • *
  • ENDPROC
  • PROCEDURE command1.Click
  • ThisForm.Cbo1.value=iif(ThisForm.Cbo1.value>1,thisform.Cbo1.value-1,12)
  • ThisForm.Spinner1.value=iif(ThisForm.Cbo1.value=12,ThisForm.Spinner1.value-1,ThisForm.Spinner1.value)
  • thisform.refresh()
  • ENDPROC
  • PROCEDURE command2.Click
  • ThisForm.Cbo1.value=iif(ThisForm.Cbo1.value<12,thisform.Cbo1.value+1,1)
  • ThisForm.Spinner1.value=iif(ThisForm.Cbo1.value=1,ThisForm.Spinner1.value+1,ThisForm.Spinner1.value)
  • thisform.refresh()
  • ENDPROC
  • PROCEDURE text1.Refresh
  • private jourch
  • dimension calend(42)
  • for i=1 to 42
  • calend(i)=space(10)
  • next i
  • STORE SET('FDOW') TO gnPjds && Enregistre la valeur courante
  • SET FDOW TO 2 && Définit dimanche comme le premier jour de la semaine, ce qui est la valeur par défaut
  • for i = 1 to ThisForm.Commandgroup1.buttoncount
  • cmd="ThisForm.Commandgroup1.Command"+alltrim(str(i))+".caption=' '"
  • &cmd
  • next I
  • ThisForm.Text1.value=ctod("01/"+alltrim(str(This.Parent.Cbo1.value))+"/"+alltrim(str(This.Parent.Spinner1.value)))
  • finmois=ctod("01/"+alltrim(str(iif(This.Parent.Cbo1.value=12,0,This.Parent.Cbo1.value)+1))+"/"+alltrim(str(iif(This.Parent.Cbo1.value=12,This.Parent.Spinner1.value+1,This.Parent.Spinner1.value ))))
  • jourch=dow(thisform.text1.value,2)
  • j=1
  • for i = 1 to finmois-thisform.text1.value
  • cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".caption=alltrim(str(i))"
  • &cmd
  • cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".forecolor=rgb(0,0,0)"
  • &cmd
  • cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".fontbold=.f."
  • &cmd
  • if i==day(thisform.dateencours).and. ThisForm.Cbo1.value=month(thisform.dateencours) .and. ThisForm.Spinner1.value=year(thisform.dateencours)
  • cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".forecolor=rgb(0,0,128)"
  • &cmd
  • cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".fontbold=.T."
  • &cmd
  • endif
  • next I
  • SET FDOW TO &gnPjds && Restaure le jour d'origine
  • ENDPROC
  • PROCEDURE cbo1.InteractiveChange
  • ThisForm.Text1.refresh()
  • thisform.refresh()
  • ENDPROC
  • PROCEDURE cbo1.Init
  • this.listindex=month(date())
  • ENDPROC
  • PROCEDURE spinner1.InteractiveChange
  • ThisForm.Text1.refresh()
  • thisform.refresh()
  • ENDPROC
  • PROCEDURE commandgroup1.Command1.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command1.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command2.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command2.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command3.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command3.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command4.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command4.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command5.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command5.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command6.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command6.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command7.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command7.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command8.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command8.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command9.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command9.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command10.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command10.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command11.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command11.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command12.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command12.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command13.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command13.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command14.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command14.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command15.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command15.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command16.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command16.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command17.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command17.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command18.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command18.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command19.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command19.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command20.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command20.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command21.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command21.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command22.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command22.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command23.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command23.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command24.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command24.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command25.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command25.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command26.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command26.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command27.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command27.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command28.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command28.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command29.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command29.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command30.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command30.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command31.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command31.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command32.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command32.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command33.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command33.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command34.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command34.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command35.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command35.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command36.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command36.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command37.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command37.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command38.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command38.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command39.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command39.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command40.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command40.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command41.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command41.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command42.Click
  • if this.caption#""
  • ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
  • endif
  • ENDPROC
  • PROCEDURE commandgroup1.Command42.Refresh
  • if this.caption=""
  • this.enabled=.f.
  • else
  • THIS.enabled=.t.
  • endif
  • ENDPROC
  • PROCEDURE text3.ProgrammaticChange
  • ThisForm.Bouton21.click()
  • ENDPROC
  • PROCEDURE text3.KeyPress
  • LPARAMETERS nKeyCode, nShiftAltCtrl
  • ? nkeycode
  • ENDPROC
  • PROCEDURE bouton21.Click
  • thisform.release
  • ENDPROC
  • ENDDEFINE
  • *
  • *-- EndDefine: choixdate
  • **************************************************
  • *
  • DEFINE CLASS contai1 AS container
  • Width = 200
  • Height = 200
  • Picture = ""
  • BorderWidth = 3
  • SpecialEffect = 1
  • BackColor = RGB(0,128,192)
  • Name = "contai1"
  • PROCEDURE MouseMove
  • LPARAMETERS nButton, nShift, nXCoord, nYCoord
  • thisform.message.value=""
  • ENDPROC
  • ENDDEFINE
parameters  queldat
oform=createobject("choixdate")
oform.show()
return queldat

DEFINE CLASS choixdate AS form


Top = 33
Left = 55
Height = 277
Width = 368
DoCreate = .T.
ShowTips = .T.
BorderStyle = 2
Caption = " Le calendrier d'AUMERIC"
MaxButton = .F.
WindowType = 1
WindowState = 0
MacDesktop = 1
BackColor = RGB(213,236,253)
Name = "choixdate"
dateencours = date()
retour = .F.
oldselect = .F.


ADD OBJECT contai11 AS contai1 WITH ;
Top = 0, ;
Left = 0, ;
Width = 369, ;
Height = 277, ;
TabIndex = 5, ;
Name = "Contai11"


ADD OBJECT   command1 AS commandbutton WITH ;
Top = 245, ;
Left = 36, ;
Height = 27, ;
Width = 84, ;
Picture = "wzback.bmp", ;
Caption = "<<", ;
Name = "Command1"


ADD OBJECT  command2 AS commandbutton WITH ;
Top = 245, ;
Left = 166, ;
Height = 27, ;
Width = 84, ;
Picture = "wznext.bmp", ;
Caption = ">>", ;
Name = "Command2"


ADD OBJECT text1 AS textbox WITH ;
Height = 23, ;
Left = -74, ;
TabIndex = 6, ;
Top = 206, ;
Visible = .F., ;
Width = 100, ;
Name = "Text1"


ADD OBJECT cbo1 AS combobox WITH ;
BoundColumn = 2, ;
ColumnCount = 2, ;
ColumnWidths = "228,0", ;
RowSourceType = 1, ;
RowSource = "JANVIER,1,FEVRIER,2,MARS,3,AVRIL,4,MAI,5,JUIN,6,JUILLET,7,AOUT,8,SEPTEMBRE,9,OCTOBRE,10,NOVEMBRE,11,DECEMBRE,12", ;
Value = (month(thisform.dateencours)), ;
FirstElement = 1, ;
Height = 24, ;
Left = 7, ;
NumberOfElements = 0, ;
Style = 2, ;
TabIndex = 1, ;
ToolTipText = "Pour choisir le mois", ;
Top = 23, ;
Width = 108, ;
Name = "Cbo1"


ADD OBJECT spinner1 AS spinner WITH ;
Height = 24, ;
KeyboardHighValue = 2500, ;
KeyboardLowValue = 2000, ;
Left = 116, ;
SpinnerHighValue = 2500.00, ;
SpinnerLowValue = 2000.00, ;
TabIndex = 2, ;
ToolTipText = "Pour choisir l'année", ;
Top = 23, ;
Width = 121, ;
Value = (year(thisform.dateencours)), ;
Name = "Spinner1"


ADD OBJECT commandgroup1 AS commandgroup WITH ;
ButtonCount = 42, ;
Value = 1, ;
Height = 176, ;
Left = 4, ;
SpecialEffect = 0, ;
Top = 67, ;
Width = 360, ;
TabIndex = 7, ;
Name = "Commandgroup1", ;
Command1.Top = 5, ;
Command1.Left = 5, ;
Command1.Height = 27, ;
Command1.Width = 49, ;
Command1.FontBold = .F., ;
Command1.Caption = "Command1", ;
Command1.Style = 0, ;
Command1.Name = "Command1", ;
Command2.Top = 5, ;
Command2.Left = 55, ;
Command2.Height = 27, ;
Command2.Width = 49, ;
Command2.Caption = "Command2", ;
Command2.Name = "Command2", ;
Command3.Top = 5, ;
Command3.Left = 105, ;
Command3.Height = 27, ;
Command3.Width = 49, ;
Command3.Caption = "Command3", ;
Command3.Name = "Command3", ;
Command4.Top = 5, ;
Command4.Left = 154, ;
Command4.Height = 27, ;
Command4.Width = 49, ;
Command4.Caption = "Command4", ;
Command4.Name = "Command4", ;
Command5.Top = 5, ;
Command5.Left = 203, ;
Command5.Height = 27, ;
Command5.Width = 49, ;
Command5.Caption = "Command5", ;
Command5.Name = "Command5", ;
Command6.Top = 5, ;
Command6.Left = 252, ;
Command6.Height = 27, ;
Command6.Width = 49, ;
Command6.Caption = "Command6", ;
Command6.Name = "Command6", ;
Command7.Top = 5, ;
Command7.Left = 302, ;
Command7.Height = 27, ;
Command7.Width = 49, ;
Command7.Caption = "Command7", ;
Command7.Name = "Command7", ;
Command8.Top = 32, ;
Command8.Left = 5, ;
Command8.Height = 27, ;
Command8.Width = 49, ;
Command8.Caption = "Command8", ;
Command8.Name = "Command8", ;
Command9.Top = 32, ;
Command9.Left = 55, ;
Command9.Height = 27, ;
Command9.Width = 49, ;
Command9.Caption = "Command9", ;
Command9.Name = "Command9", ;
Command10.Top = 32, ;
Command10.Left = 105, ;
Command10.Height = 27, ;
Command10.Width = 49, ;
Command10.Caption = "Command10", ;
Command10.Name = "Command10", ;
Command11.Top = 32, ;
Command11.Left = 154, ;
Command11.Height = 27, ;
Command11.Width = 49, ;
Command11.Caption = "Command11", ;
Command11.Name = "Command11", ;
Command12.Top = 32, ;
Command12.Left = 203, ;
Command12.Height = 27, ;
Command12.Width = 49, ;
Command12.Caption = "Command12", ;
Command12.Name = "Command12", ;
Command13.Top = 32, ;
Command13.Left = 252, ;
Command13.Height = 27, ;
Command13.Width = 49, ;
Command13.Caption = "Command13", ;
Command13.Name = "Command13", ;
Command14.Top = 32, ;
Command14.Left = 302, ;
Command14.Height = 27, ;
Command14.Width = 49, ;
Command14.Caption = "Command14", ;
Command14.Name = "Command14", ;
Command15.Top = 59, ;
Command15.Left = 5, ;
Command15.Height = 27, ;
Command15.Width = 49, ;
Command15.Caption = "Command15", ;
Command15.Name = "Command15", ;
Command16.Top = 59, ;
Command16.Left = 55, ;
Command16.Height = 27, ;
Command16.Width = 49, ;
Command16.Caption = "Command16", ;
Command16.Name = "Command16", ;
Command17.Top = 59, ;
Command17.Left = 105, ;
Command17.Height = 27, ;
Command17.Width = 49, ;
Command17.Caption = "Command17", ;
Command17.Name = "Command17", ;
Command18.Top = 59, ;
Command18.Left = 154, ;
Command18.Height = 27, ;
Command18.Width = 49, ;
Command18.Caption = "Command18", ;
Command18.Name = "Command18", ;
Command19.Top = 59, ;
Command19.Left = 203, ;
Command19.Height = 27, ;
Command19.Width = 49, ;
Command19.Caption = "Command19", ;
Command19.Name = "Command19", ;
Command20.Top = 59, ;
Command20.Left = 252, ;
Command20.Height = 27, ;
Command20.Width = 49, ;
Command20.Caption = "Command20", ;
Command20.Name = "Command20", ;
Command21.Top = 59, ;
Command21.Left = 302, ;
Command21.Height = 27, ;
Command21.Width = 49, ;
Command21.Caption = "Command21", ;
Command21.Name = "Command21", ;
Command22.Top = 86, ;
Command22.Left = 6, ;
Command22.Height = 27, ;
Command22.Width = 49, ;
Command22.Caption = "Command22", ;
Command22.Name = "Command22", ;
Command23.Top = 86, ;
Command23.Left = 55, ;
Command23.Height = 27, ;
Command23.Width = 49, ;
Command23.Caption = "Command23", ;
Command23.Name = "Command23", ;
Command24.Top = 86, ;
Command24.Left = 105, ;
Command24.Height = 27, ;
Command24.Width = 49, ;
Command24.Caption = "Command24", ;
Command24.Name = "Command24", ;
Command25.Top = 86, ;
Command25.Left = 154, ;
Command25.Height = 27, ;
Command25.Width = 49, ;
Command25.Caption = "Command25", ;
Command25.Name = "Command25", ;
Command26.Top = 86, ;
Command26.Left = 203, ;
Command26.Height = 27, ;
Command26.Width = 49, ;
Command26.Caption = "Command26", ;
Command26.Name = "Command26", ;
Command27.Top = 86, ;
Command27.Left = 252, ;
Command27.Height = 27, ;
Command27.Width = 49, ;
Command27.Caption = "Command27", ;
Command27.Name = "Command27", ;
Command28.Top = 86, ;
Command28.Left = 302, ;
Command28.Height = 27, ;
Command28.Width = 49, ;
Command28.Caption = "Command28", ;
Command28.Name = "Command28", ;
Command29.Top = 114, ;
Command29.Left = 6, ;
Command29.Height = 27, ;
Command29.Width = 49, ;
Command29.Caption = "Command29", ;
Command29.Name = "Command29", ;
Command30.Top = 114, ;
Command30.Left = 55, ;
Command30.Height = 27, ;
Command30.Width = 49, ;
Command30.Caption = "Command30", ;
Command30.Name = "Command30", ;
Command31.Top = 114, ;
Command31.Left = 105, ;
Command31.Height = 27, ;
Command31.Width = 49, ;
Command31.Caption = "Command31", ;
Command31.Name = "Command31", ;
Command32.Top = 114, ;
Command32.Left = 154, ;
Command32.Height = 27, ;
Command32.Width = 49, ;
Command32.Caption = "Command32", ;
Command32.Name = "Command32", ;
Command33.Top = 114, ;
Command33.Left = 203, ;
Command33.Height = 27, ;
Command33.Width = 49, ;
Command33.Caption = "Command33", ;
Command33.Name = "Command33", ;
Command34.Top = 114, ;
Command34.Left = 252, ;
Command34.Height = 27, ;
Command34.Width = 49, ;
Command34.Caption = "Command34", ;
Command34.Name = "Command34", ;
Command35.Top = 114, ;
Command35.Left = 302, ;
Command35.Height = 27, ;
Command35.Width = 49, ;
Command35.Caption = "Command35", ;
Command35.Name = "Command35", ;
Command36.Top = 142, ;
Command36.Left = 6, ;
Command36.Height = 27, ;
Command36.Width = 49, ;
Command36.Caption = "Command36", ;
Command36.Name = "Command36", ;
Command37.Top = 142, ;
Command37.Left = 55, ;
Command37.Height = 27, ;
Command37.Width = 49, ;
Command37.Caption = "Command37", ;
Command37.Name = "Command37", ;
Command38.Top = 142, ;
Command38.Left = 105, ;
Command38.Height = 27, ;
Command38.Width = 49, ;
Command38.Caption = "Command38", ;
Command38.Name = "Command38", ;
Command39.Top = 142, ;
Command39.Left = 154, ;
Command39.Height = 27, ;
Command39.Width = 49, ;
Command39.Caption = "Command39", ;
Command39.Name = "Command39", ;
Command40.Top = 142, ;
Command40.Left = 203, ;
Command40.Height = 27, ;
Command40.Width = 49, ;
Command40.Caption = "Command40", ;
Command40.Name = "Command40", ;
Command41.Top = 142, ;
Command41.Left = 252, ;
Command41.Height = 27, ;
Command41.Width = 49, ;
Command41.Caption = "Command41", ;
Command41.Name = "Command41", ;
Command42.Top = 142, ;
Command42.Left = 302, ;
Command42.Height = 27, ;
Command42.Width = 49, ;
Command42.Caption = "Command42", ;
Command42.Name = "Command42"


ADD OBJECT text3 AS textbox WITH ;
Format = "D", ;
Height = 23, ;
Left = 240, ;
TabIndex = 3, ;
Top = 23, ;
Width = 100, ;
Name = "Text3"


ADD OBJECT bouton21 AS commandbutton WITH ;
Top = 243, ;
Left = 306, ;
Height = 29, ;
Width = 59, ;
Picture = "wzclose.bmp", ;
Caption = "Ok", ;
TabIndex = 4, ;
Name = "Bouton21"


ADD OBJECT label1 AS label WITH ;
FontName = "Arial Black", ;
FontSize = 10, ;
BackStyle = 0, ;
Caption = "L         M            M         J           V          S          D", ;
Height = 25, ;
Left = 26, ;
Top = 51, ;
Width = 324, ;
ForeColor = RGB(0,0,0), ;
DisabledForeColor = RGB(0,0,0), ;
Name = "Label1"


ADD OBJECT label2 AS label WITH ;
FontName = "Arial Black", ;
FontSize = 10, ;
BackStyle = 0, ;
Caption = "L         M            M         J           V          S          D", ;
Height = 25, ;
Left = 24, ;
Top = 49, ;
Width = 324, ;
ForeColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,255,255), ;
Name = "Label2"


ADD OBJECT label3 AS label WITH ;
BackStyle = 0, ;
Caption = "Date choisie", ;
Height = 16, ;
Left = 258, ;
Top = 8, ;
Width = 78, ;
Name = "Label3"


ADD OBJECT label4 AS label WITH ;
BackStyle = 0, ;
Caption = "Date choisie", ;
Height = 16, ;
Left = 257, ;
Top = 6, ;
Width = 78, ;
ForeColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,255,255), ;
Name = "Label4"


ADD OBJECT label5 AS label WITH ;
BackStyle = 0, ;
Caption = "Année", ;
Height = 16, ;
Left = 127, ;
Top = 9, ;
Width = 78, ;
Name = "Label5"


ADD OBJECT label6 AS label WITH ;
BackStyle = 0, ;
Caption = "Année", ;
Height = 16, ;
Left = 126, ;
Top = 7, ;
Width = 78, ;
ForeColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,255,255), ;
Name = "Label6"


ADD OBJECT label7 AS label WITH ;
BackStyle = 0, ;
Caption = "Mois", ;
Height = 16, ;
Left = 7, ;
Top = 9, ;
Width = 78, ;
Name = "Label7"


ADD OBJECT label8 AS label WITH ;
BackStyle = 0, ;
Caption = "Mois", ;
Height = 16, ;
Left = 6, ;
Top = 7, ;
Width = 78, ;
ForeColor = RGB(255,255,255), ;
DisabledForeColor = RGB(255,255,255), ;
Name = "Label8"


PROCEDURE Release
thisform.retour=thisform.text3.value
ENDPROC


PROCEDURE Init
parameters quoi

thisform.oldselect=select()
if empty(quoi)
   thisform.dateencours=date()
else
thisform.dateencours=quoi
endif

ThisForm.Spinner1.value=year(thisform.dateencours)
ThisForm.Cbo1.listindex=month(thisform.dateencours)
ThisForm.Cbo1.value=month(thisform.dateencours)
ThisForm.Text3.value=thisform.dateencours
ENDPROC


PROCEDURE Unload
select (thisform.oldselect)
queldat=thisform.retour
return thisform.retour
ENDPROC


PROCEDURE contai11.MouseMove
LPARAMETERS nbutton,nshift,nxcoord,nycoord
*
ENDPROC



PROCEDURE command1.Click
ThisForm.Cbo1.value=iif(ThisForm.Cbo1.value>1,thisform.Cbo1.value-1,12)
ThisForm.Spinner1.value=iif(ThisForm.Cbo1.value=12,ThisForm.Spinner1.value-1,ThisForm.Spinner1.value)
thisform.refresh()
ENDPROC


PROCEDURE command2.Click
ThisForm.Cbo1.value=iif(ThisForm.Cbo1.value<12,thisform.Cbo1.value+1,1)
ThisForm.Spinner1.value=iif(ThisForm.Cbo1.value=1,ThisForm.Spinner1.value+1,ThisForm.Spinner1.value)
thisform.refresh()
ENDPROC


PROCEDURE text1.Refresh
private jourch
dimension calend(42)
for i=1 to 42
calend(i)=space(10)
next i
STORE SET('FDOW') TO gnPjds  && Enregistre la valeur courante
SET FDOW TO 2  && Définit dimanche comme le premier jour de la semaine, ce qui est la valeur par défaut
for i = 1 to ThisForm.Commandgroup1.buttoncount
   cmd="ThisForm.Commandgroup1.Command"+alltrim(str(i))+".caption=' '"
&cmd
next I

ThisForm.Text1.value=ctod("01/"+alltrim(str(This.Parent.Cbo1.value))+"/"+alltrim(str(This.Parent.Spinner1.value)))
finmois=ctod("01/"+alltrim(str(iif(This.Parent.Cbo1.value=12,0,This.Parent.Cbo1.value)+1))+"/"+alltrim(str(iif(This.Parent.Cbo1.value=12,This.Parent.Spinner1.value+1,This.Parent.Spinner1.value  ))))
jourch=dow(thisform.text1.value,2)
j=1
for i = 1 to finmois-thisform.text1.value
cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".caption=alltrim(str(i))"
&cmd
cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".forecolor=rgb(0,0,0)"
 &cmd
 cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".fontbold=.f."
 &cmd
if i==day(thisform.dateencours).and.  ThisForm.Cbo1.value=month(thisform.dateencours) .and. ThisForm.Spinner1.value=year(thisform.dateencours)
 cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".forecolor=rgb(0,0,128)"
 &cmd
 cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".fontbold=.T."
 &cmd
endif
next I

SET FDOW TO &gnPjds  && Restaure le jour d'origine
ENDPROC


PROCEDURE cbo1.InteractiveChange

ThisForm.Text1.refresh()
thisform.refresh()
ENDPROC


PROCEDURE cbo1.Init
this.listindex=month(date())
ENDPROC


PROCEDURE spinner1.InteractiveChange

ThisForm.Text1.refresh()
thisform.refresh()
ENDPROC


PROCEDURE commandgroup1.Command1.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command1.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command2.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command2.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command3.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command3.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command4.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command4.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command5.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command5.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command6.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command6.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command7.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command7.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command8.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command8.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command9.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command9.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command10.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command10.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command11.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command11.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command12.Click

if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command12.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command13.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command13.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command14.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command14.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command15.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command15.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command16.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command16.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command17.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command17.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command18.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command18.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command19.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command19.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command20.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command20.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command21.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command21.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command22.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command22.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command23.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command23.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command24.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command24.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command25.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command25.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command26.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command26.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command27.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command27.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command28.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command28.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command29.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command29.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command30.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command30.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command31.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command31.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command32.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command32.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command33.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command33.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command34.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command34.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command35.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command35.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command36.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command36.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command37.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command37.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command38.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command38.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command39.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command39.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command40.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command40.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command41.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command41.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE commandgroup1.Command42.Click
if this.caption#""
  ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value)))
endif
ENDPROC


PROCEDURE commandgroup1.Command42.Refresh
if this.caption=""
  this.enabled=.f.
else
  THIS.enabled=.t.
endif
ENDPROC


PROCEDURE text3.ProgrammaticChange
ThisForm.Bouton21.click()
ENDPROC


PROCEDURE text3.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
? nkeycode
ENDPROC


PROCEDURE bouton21.Click
thisform.release
ENDPROC


ENDDEFINE
*
*-- EndDefine: choixdate
**************************************************
*
DEFINE CLASS contai1 AS container


Width = 200
Height = 200
Picture = ""
BorderWidth = 3
SpecialEffect = 1
BackColor = RGB(0,128,192)
Name = "contai1"


PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.message.value=""
ENDPROC


ENDDEFINE



 Sources du même auteur

Source avec Zip Source avec une capture ETAT DYNAMIQUE
CALCUL DE CLE IBAN
FTP AVEC THERMOMETRE
CREER UNE TABLE CONTENANT LA LITES COMPLÈTE DES OBJETS CONTE...
CALCULER LE NOMBRE D'HEURES DE NUITS D'UN CRÉNEAU HORAIRE

 Sources de la même categorie

CALCUL DE CLE IBAN par aumeric
CALCULER LE NOMBRE D'HEURES DE NUITS D'UN CRÉNEAU HORAIRE par aumeric
FONCTION DE CONVERSION DE CHIFFRES EN LETTRES par aumeric
RECHERCHE D'UNE VALEUR DE CLEF DANS LE REGISTRE par johnmary
Source avec Zip EXPÉDIER UN EMAIL : VFPWINSOCK / VFPSENDMAIL : EXPÉDITION DE... par FrancisFaure

 Sources en rapport avec celle ci

Source avec Zip SAISIE GRAPHIQUE D'UN CRÉNEAU HORAIRE par leissler
Source avec Zip Source avec une capture ETAT DYNAMIQUE par aumeric
CALCUL DE CLE IBAN par aumeric
FTP AVEC THERMOMETRE par aumeric
Source avec Zip UN CALENDRIER DANS UN ÉTAT par aumeric

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

calendrier en foxpro [ par engelina33 ] bonsoir,je veut créer un calendrier qui s'affiche  en cliquant sur un boutant contenant les jours du moi courantet l'utilisateur sélectionne une date calendrier [ par khnadou ] j'espere de m'aider pour telecharger une calendrier, pour utiliser dans mon programmation avec orcle forms, j'ai besoin cette calendrier pour remplir


Nos sponsors


Appels d'offres

Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,172 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales