1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150
|
Private Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles cndInscr.DayRender
Dim Loop1 As Integer
Dim vacationStyle As New Style
Dim stDispoAm As New Style
Dim stDispoPm As New Style
Dim stDispoJour As New Style
Dim stNonDispo As New Style
Dim stReserver As New Style
Dim tmpDate As Date
'Rendre indisponible des jours selon une regle.... Du genre peut pa réserver moins de deux jours en avance!
Select Case Today.DayOfWeek
Case DayOfWeek.Monday, DayOfWeek.Tuesday, DayOfWeek.Wednesday
tmpDate = DateAdd("d", 1, Today)
Case DayOfWeek.Thursday
tmpDate = DateAdd("d", 3, Today)
Case DayOfWeek.Friday
tmpDate = DateAdd("d", 3, Today)
End Select
With stDispoAm
.BackColor = System.Drawing.Color.Blue
.ForeColor = System.Drawing.Color.Black
End With
With stDispoAm
.BackColor = System.Drawing.Color.Yellow
.ForeColor = System.Drawing.Color.Black
End With
With stDispoPm
.BackColor = System.Drawing.Color.Green
.ForeColor = System.Drawing.Color.Black
End With
With stReserver
.BorderStyle = BorderStyle.Solid
.BorderColor = System.Drawing.Color.Black
End With
With stDispoJour
.BackColor = System.Drawing.Color.LightBlue
.ForeColor = System.Drawing.Color.Black
End With
With stNonDispo
.BackColor = System.Drawing.Color.Red
.ForeColor = System.Drawing.Color.Black
End With
' Les weekend en gris!.
Dim weekendStyle As New Style
weekendStyle.BackColor = System.Drawing.Color.LightGray
Dim NormalStyle As New Style
NormalStyle.BackColor = System.Drawing.Color.White
e.Day.IsSelectable = False
'Si weekend ou ferier
If (e.Day.IsWeekend) Or e.Day.Date = #12/25/2006# Or e.Day.Date = #1/1/2007# Then
e.Cell.ApplyStyle(weekendStyle)
Else
For Loop1 = 0 To dtDates.Rows.Count - 1
' cndInscr.SelectedDates.Add(dtDates.Rows(Loop1).Item("Jour"))
If e.Day.Date = DateTime.Parse(dtDates.Rows(Loop1).Item("Jour"), iCulture) Then
Select Case dtDates.Rows(Loop1).Item("Res")
Case 1
If Not e.Day.IsSelected Then e.Cell.ApplyStyle(stDispoAm)
If e.Day.Date > tmpDate And lblAdmin.Value <> "Oui" Then
e.Day.IsSelectable = True
ElseIf lblAdmin.Value = "Oui" Then
e.Day.IsSelectable = True
Else
e.Day.IsSelectable = False
End If
If e.Day.IsSelected And cmdDelete.Visible = False And e.Day.Date > tmpDate Then
cmdReserverAM.Enabled = True
cmdReserverPM.Enabled = False
End If
Case 2
If Not e.Day.IsSelected Then e.Cell.ApplyStyle(stDispoPm)
If e.Day.Date > tmpDate And lblAdmin.Value <> "Oui" Then
e.Day.IsSelectable = True
ElseIf lblAdmin.Value = "Oui" Then
e.Day.IsSelectable = True
Else
e.Day.IsSelectable = False
End If
If e.Day.IsSelected And cmdDelete.Visible = False Then
cmdReserverAM.Enabled = False
cmdReserverPM.Enabled = True
End If
Case 3
If Not e.Day.IsSelected Then e.Cell.ApplyStyle(stDispoJour)
If e.Day.Date > tmpDate And lblAdmin.Value <> "Oui" Then
e.Day.IsSelectable = True
ElseIf lblAdmin.Value = "Oui" Then
e.Day.IsSelectable = True
'ElseIf Today.Now.TimeOfDay.Hours < 12 And e.Day.Date = Today Then
' e.Day.IsSelectable = True
End If
If e.Day.Date > tmpDate And e.Day.IsSelected And cmdDelete.Visible = False Then
cmdReserverAM.Enabled = True
cmdReserverPM.Enabled = True
ElseIf e.Day.Date = tmpDate And e.Day.IsSelected And cmdDelete.Visible = False And Now.TimeOfDay.Hours < 12 Then
cmdReserverAM.Enabled = False
cmdReserverPM.Enabled = True
ElseIf e.Day.Date = tmpDate Then
cmdReserverAM.Enabled = False
cmdReserverPM.Enabled = False
End If
Case 0
If Not e.Day.IsSelected Then e.Cell.ApplyStyle(stNonDispo)
If lblAdmin.Value <> "Oui" Then
e.Day.IsSelectable = False
ElseIf lblAdmin.Value = "Oui" Then
e.Day.IsSelectable = True
End If
If e.Day.IsSelected And cmdDelete.Visible = False Then
cmdReserverAM.Enabled = False
cmdReserverPM.Enabled = False
End If
End Select
If dtDates.Rows(Loop1).Item("tot") > 0 And lblAdmin.Value = "Oui" Then
e.Cell.Controls.Add(New LiteralControl("*"))
End If
End If
Next
End If
If Not gUser(1) Is Nothing Then
If e.Day.Date.ToString = CDate(DateTime.Parse(gUser(1), iCulture)).ToString Then
e.Cell.ApplyStyle(stReserver)
End If
End If
If e.Day.IsOtherMonth Then
e.Cell.ApplyStyle(NormalStyle)
e.Cell.Controls.Clear()
End If
cndInscr.SelectedDayStyle.BackColor = System.Drawing.Color.DarkBlue
End Sub |
Partager