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
| Sub SetAGs(ByVal _d As Date)
Dim _defaultformat = rb_format.SelectedValue
Dim _s As Integer
Dim current_d As Date
current_d = _d
For _s = 1 To ddl_semaine.SelectedValue
Dim myHeaderRow As New TableRow
Dim myContainerRow As New TableRow
For i As Integer = 1 To 7
Dim myHeaderCell As New TableCell
myHeaderCell.CssClass = "defaultheader"
Dim myLabel As Label = New Label()
myLabel.Text = CStr(Format(current_d, _defaultformat))
myHeaderCell.Controls.Add(myLabel)
Dim myCell As New TableCell
If Left(CStr(Format(current_d, "D")), 3) = "sam" Or Left(CStr(Format(current_d, "D")), 3) = "dim" Then
myCell.CssClass = "defaultwe"
Else
myCell.CssClass = "defaultday"
End If
Dim _l As List(Of TSoc) = New List(Of TSoc)
If ck_filtre.Checked = False Then
_l = Service.GetMeetings(current_d, ddl_countrie.SelectedValue)
For Each myMeeting In _l
Dim myLink As HyperLink = New HyperLink
Dim myliteral As Literal = New Literal
myliteral.Text = "<br />"
myLink.Text = myMeeting.Raison_Sociale
myLink.Target = "_blank"
myLink.NavigateUrl = "EditAssemblee.aspx?id=" & myMeeting.ID
If myMeeting.Code_Type_AG = 2 Then
myLink.ForeColor = Drawing.Color.Chocolate
Else
myLink.ForeColor = Drawing.Color.Green
End If
myCell.Controls.Add(myLink)
myCell.Controls.Add(myliteral)
Next
End If
_l = Service.GetMeetingsByDeadline(current_d, ddl_countrie.SelectedValue)
For Each myMeeting In _l
Dim myLink As HyperLink = New HyperLink
Dim myliteral As Literal = New Literal
myliteral.Text = "<br />"
myLink.Text = myMeeting.Raison_Sociale
myLink.NavigateUrl = "EditAssemblee.aspx?id=" & myMeeting.ID
myLink.Target = "_blank"
myLink.ForeColor = Drawing.Color.Red
myCell.Controls.Add(myLink)
myCell.Controls.Add(myliteral)
Next
myHeaderRow.Cells.Add(myHeaderCell)
myContainerRow.Cells.Add(myCell)
current_d = DateAdd(DateInterval.Day, 1, current_d)
Next
TCalendar.Rows.Add(myHeaderRow)
TCalendar.Rows.Add(myContainerRow)
Next
End Sub |
Partager