or
<
telerik:RadDock ID="RadDock2" runat="server" Title="Conteudos da Tag '<%# Eval("Nome")%>'" EnableDrag="false">
| Public Function Active(ByVal PROJECTID As String, ByVal BEWERKINGID As String) As String | |
| Dim tellernull As Integer = 0 | |
| Dim tellerrood As Integer = 0 | |
| Dim telleroranje As Integer = 0 | |
| Dim tellergroen As Integer = 0 | |
| Dim datum As String = Now.ToShortDateString | |
| Dim retstring As String = "" | |
| Dim strSQL As String = "Select * from tblTasks where ProjectId = @ProjectId and BewerkingId=@BewerkingId and ReadyDate IS NULL" | |
| Dim command As New SqlCommand(strSQL) | |
| command.Parameters.AddWithValue("@ProjectId", PROJECTID) | |
| command.Parameters.AddWithValue("@BewerkingId", BEWERKINGID) | |
| Dim dr As SqlDataReader = DBPortal.OpenReader(command) | |
| While dr.Read | |
| If dr("EstimatedReadyDate") Is DBNull.Value Then | |
| tellernull += 1 | |
| Else | |
| 'begin eigen test code | |
| Dim EstimatedReadyDate As Date = dr("EstimatedReadyDate") | |
| Dim task As Integer = dr("TaskId") | |
| Dim TimeSpan As TimeSpan | |
| Dim NumberOfDays As Integer | |
| TimeSpan = EstimatedReadyDate.Subtract(Now) | |
| NumberOfDays = TimeSpan.Days | |
| If NumberOfDays <= 5 Then | |
| tellerrood += 1 | |
| Else | |
| If NumberOfDays >= 6 And NumberOfDays <= 10 Then | |
| telleroranje += 1 | |
| Else | |
| tellergroen += 1 | |
| End If | |
| End If | |
| End If | |
| End While | |
| dr.Close() | |
| retstring = "null " + tellernull.ToString + ", " + tellergroen.ToString + ", " + telleroranje.ToString + ", " + tellerrood.ToString | |
| Dim trow1 As String = "<tr>" | |
| Dim trow2 As String = "<tr>" | |
| If tellernull > 0 Then | |
| trow1 += "<td style='border: 0px'><a href='ShowDetails.aspx?projectid=" + PROJECTID.Trim + "&bewerkingid=" + BEWERKINGID.Trim + "&soort=nullact'><img src='images/bluelight_cross.png' border='0' alt='no enddate'></a></td>" | |
| trow2 += "<td style='border: 0px' align='center'>" + tellernull.ToString + "</td>" | |
| End If | |
| If tellerrood > 0 Then | |
| trow1 += "<td style='border: 0px'><a href='ShowDetails.aspx?projectid=" + PROJECTID.Trim + "&bewerkingid=" + BEWERKINGID.Trim + "&soort=roodact'><img src='images/redlight.png' border='0' alt='critical'></a></td>" | |
| trow2 += "<td style='border: 0px' align='center'>" + tellerrood.ToString + "</td>" | |
| End If | |
| If telleroranje > 0 Then | |
| trow1 += "<td style='border: 0px'><img src='images/orangelight.png' alt='almost critical'></td>" | |
| trow2 += "<td style='border: 0px' align='center' >" + telleroranje.ToString + "</td>" | |
| End If | |
| If tellergroen > 0 Then | |
| trow1 += "<td style='border: 0px'><img src='images/greenlight.png' alt='on schedule'></td>" | |
| trow2 += "<td style='border: 0px' align='center'>" + tellergroen.ToString + "</td>" | |
| End If | |
| trow1 += "</tr>" | |
| trow2 += "</tr>" | |
| retstring = "<table style='border: 0px'>" + trow1 + trow2 + "</table>" | |
| Return retstring | |
| End Function | |
| Public Function Finished(ByVal PROJECTID As String, ByVal BEWERKINGID As String) As String | |
| Dim tellernull As Integer = 0 | |
| Dim tellerrood As Integer = 0 | |
| Dim telleroranje As Integer = 0 | |
| Dim tellergroen As Integer = 0 | |
| Dim datum As String = Now.ToShortDateString | |
| Dim retstring As String = "" | |
| Dim strSQL As String = "Select * from tblTasks where ProjectId = @ProjectId and BewerkingId=@BewerkingId and ReadyDate IS NOT NULL" | |
| Dim command As New SqlCommand(strSQL) | |
| command.Parameters.AddWithValue("@ProjectId", PROJECTID) | |
| command.Parameters.AddWithValue("@BewerkingId", BEWERKINGID) | |
| Dim dr As SqlDataReader = DBPortal.OpenReader(command) | |
| While dr.Read | |
| If dr("EstimatedReadyDate") Is DBNull.Value Then | |
| tellernull += 1 | |
| Else | |
| 'begin eigen test code | |
| Dim EstimatedReadyDate As Date = dr("EstimatedReadyDate") | |
| Dim task As Integer = dr("BewerkingId") | |
| Dim TimeSpan As TimeSpan | |
| Dim NumberOfDays As Integer | |
| TimeSpan = EstimatedReadyDate.Subtract(Now) | |
| NumberOfDays = TimeSpan.Days | |
| If NumberOfDays <= 5 Then | |
| tellerrood += 1 | |
| Else | |
| If NumberOfDays >= 6 And NumberOfDays <= 10 Then | |
| telleroranje += 1 | |
| Else | |
| tellergroen += 1 | |
| End If | |
| End If | |
| End If | |
| End While | |
| dr.Close() | |
| retstring = "null " + tellernull.ToString + ", " + tellergroen.ToString + ", " + telleroranje.ToString + ", " + tellerrood.ToString | |
| Dim trow1 As String = "<tr>" | |
| Dim trow2 As String = "<tr>" | |
| If tellernull > 0 Then | |
| trow1 += "<td style='border: 0px'><a href='ShowDetails.aspx?projectid=" + PROJECTID.Trim + "&bewerkingid=" + BEWERKINGID.Trim + "&soort=nullfin'><img src='images/bluelight_cross.png' border='0' alt='no enddate'></a></td>" | |
| trow2 += "<td style='border: 0px' align='center'>" + tellernull.ToString + "</td>" | |
| End If | |
| If tellerrood > 0 Then | |
| trow1 += "<td style='border: 0px'><a href='ShowDetails.aspx?projectid=" + PROJECTID.Trim + "&bewerkingid=" + BEWERKINGID.Trim + "&soort=roodfin'><img src='images/redlight.png' border='0' alt='critical'></a></td>" | |
| trow2 += "<td style='border: 0px' align='center'>" + tellerrood.ToString + "</td>" | |
| End If | |
| If telleroranje > 0 Then | |
| trow1 += "<td style='border: 0px'><img src='images/orangelight.png' alt='almost critical'></td>" | |
| trow2 += "<td style='border: 0px' align='center' >" + telleroranje.ToString + "</td>" | |
| End If | |
| If tellergroen > 0 Then | |
| trow1 += "<td style='border: 0px'><img src='images/greenlight.png' alt='on schedule'></td>" | |
| trow2 += "<td style='border: 0px' align='center'>" + tellergroen.ToString + "</td>" | |
| End If | |
| trow1 += "</tr>" | |
| trow2 += "</tr>" | |
| 'retstring = "<table style='border: 0px'>" + trow1 + trow2 + "</table>" | |
| retstring = "<table border='0'>" + trow1 + trow2 + "</table>" | |
| Return retstring | |
| End Function |
| Protected Sub gvShowDetail_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles gvShowDetail.ItemDataBound | |
| Dim strid As String = "" | |
| Dim BewerkingId As String | |
| Dim Projectid As String | |
| BewerkingId = Request.QueryString("BewerkingId") | |
| ProjectId = Request.QueryString("ProjectId") | |
| Dim strSQL As String = "Select * from tblTasks where (ProjectId = @ProjectId) AND (BewerkingId = @BewerkingId)" | |
| Dim command As New SqlCommand(strSQL) | |
| command.Parameters.AddWithValue("@ProjectId", ProjectId) | |
| command.Parameters.AddWithValue("BewerkingId", BewerkingId) | |
| Dim dr As SqlDataReader = DBPortal.OpenReader(command) | |
| While dr.Read | |
| If dr("EstimatedReadyDate") Is DBNull.Value Then | |
| strid = "" | |
| Else | |
| If dr("ReadyDate") Is DBNull.Value Then | |
| Dim EstimatedReadyDate As Date = dr("EstimatedReadyDate") | |
| Dim task As Integer = dr("TaskId") | |
| Dim TimeSpan As TimeSpan | |
| Dim NumberOfDays As Integer | |
| Dim Soort As String | |
| Dim retstring As String = "" | |
| Soort = Request.QueryString("soort") | |
| TimeSpan = EstimatedReadyDate.Subtract(Now) | |
| NumberOfDays = TimeSpan.Days | |
| If Soort = "roodact" Then | |
| If NumberOfDays <= 5 Then | |
| 'roodact | |
| BewerkingId = Request.QueryString("BewerkingId") | |
| ProjectId = Request.QueryString("ProjectId") | |
| Dim strSQLRoodAct As String = "Select * from tblTasks where (ProjectId = @ProjectId) AND (BewerkingId = @BewerkingId)" | |
| Dim commandRoodact As New SqlCommand(strSQLRoodAct) | |
| commandRoodact.Parameters.AddWithValue("@ProjectId", ProjectId) | |
| commandRoodact.Parameters.AddWithValue("BewerkingId", BewerkingId) | |
| Dim drRoodAct As SqlDataReader = DBPortal.OpenReader(commandRoodact) | |
| drRoodAct.Close() | |
| End If | |
| End If | |
| End If | |
| End If | |
| End While | |
| dr.Close() | |
| End Sub | |

| Protected Sub grid_applications_ItemCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles grid_applications.ItemCommand |
| If e.CommandName = "RowClick" Then |
| Dim item As GridDataItem = e.Item |
| If item.Expanded = True Then |
| item.Expanded = False |
| Else |
| item.Expanded = True |
| End If |
| End If |
| End Sub |
| <NestedViewTemplate> |
| <asp:Label ID="GridRec" runat="server" Visible="false" Text='<%# Eval("record") %>' /> |
| <uc1:AppViewer ID="AppViewer1" runat="server" /> |
| </NestedViewTemplate> |
| <asp:SqlDataSource ID="srcOriginUsers" runat="server" |
| ConnectionString="" |
| SelectCommand="Dir.sp_DirectoryUserSelect" SelectCommandType="StoredProcedure" > |
| </asp:SqlDataSource> |
| <telerik:RadComboBox ID="lstFrom1" runat="server" DataSourceID="srcOriginUsers" |
| DataTextField="FirstName" DataValueField="Id" AppendDataBoundItems="true"> |
| <Items> |
| <telerik:RadComboBoxItem runat="server" Text="Aucun" /> |
| </Items> |
| <ItemTemplate> |
| <asp:Label ID="lbTitle" runat="server" Text='<%# Eval("LbTitle") %>' /> <asp:Label ID="lblFirstName" runat="server" Text='<%# Eval("FirstName") %>' /> <asp:Label ID="lblLastName" runat="server" Text='<%# Eval("LastName") %>' /> |
| </ItemTemplate> |
| </telerik:RadComboBox> |
| <telerik:RadComboBox ID="lstFrom2" runat="server" DataSourceID="srcOriginUsers" |
| DataTextField="FirstName" DataValueField="Id" AppendDataBoundItems="true"> |
| <Items> |
| <telerik:RadComboBoxItem runat="server" Text="Aucun" /> |
| </Items> |
| <ItemTemplate> |
| <asp:Label ID="lbTitle" runat="server" Text='<%# Eval("LbTitle") %>' /> <asp:Label ID="lblFirstName" runat="server" Text='<%# Eval("FirstName") %>' /> <asp:Label ID="lblLastName" runat="server" Text='<%# Eval("LastName") %>' /> |
| </ItemTemplate> |
| </telerik:RadComboBox> |