UN AUTRE CALENDRIER

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

• ETAT DYNAMIQUE
• CALCUL DE CLE IBAN
• FTP AVEC THERMOMETRE
• CREER UNE TABLE CONTENANT LA LITES COMPLÈTE DES OBJETS CONTENUS DANS UN FORMULAIRE
• CALCULER LE NOMBRE D'HEURES DE NUITS D'UN CRÉNEAU HORAIRE

• CALCUL DE CLE IBAN
• CALCULER LE NOMBRE D'HEURES DE NUITS D'UN CRÉNEAU HORAIRE
• FONCTION DE CONVERSION DE CHIFFRES EN LETTRES
• RECHERCHE D'UNE VALEUR DE CLEF DANS LE REGISTRE
• EXPÉDIER UN EMAIL : VFPWINSOCK / VFPSENDMAIL : EXPÉDITION DE MAIL DIRECTEMENT EN APPELANT WINSOCK

• ETAT DYNAMIQUE
• CALCUL DE CLE IBAN
• FTP AVEC THERMOMETRE
• UN CALENDRIER DANS UN ÉTAT
• UNE CLASSE CALENDRIER EN FOXPRO (À PARTIR DE VFP6 ET +)