Un autre calendrier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 024 fois - Téléchargée 25 fois

Contenu du snippet

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
*

  • -- 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

A voir également

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.