|
Trouver une ressource
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
Sources du même auteur
Sources de la même categorie
Sources en rapport avec celle ci
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
calendrier en foxpro [ par engelina33 ]
bonsoir,je veut créer un calendrier qui s'affiche en cliquant sur un boutant contenant les jours du moi courantet l'utilisateur sélectionne une date
calendrier [ par khnadou ]
j'espere de m'aider pour telecharger une calendrier, pour utiliser dans mon programmation avec orcle forms, j'ai besoin cette calendrier pour remplir
|
Téléchargements
Logiciels à télécharger sur le même thème :
|