begin process at 2008 05 13 22:58:55
1 171 546 membres
684 nouveaux aujourd'hui
13 960 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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
    Aucun commentaire pour le moment.

Ajouter un commentaire

Appels d'offres

creation d un acces s...
Budget : 130€
Creation site adulte
Budget : 500€
Modification d-un comp...
Budget : 2 000€

Pub



CalendriCode

Mai 2008
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS