Pour choisir une date sur un calendrier
tout en fox.
Source / Exemple :
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
*
*
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.