or
| protected void RadGrid1_ColumnCreated(object sender, Telerik.Web.UI.GridColumnCreatedEventArgs e) |
| { |
| switch (e.Column.HeaderText) |
| { |
| case "DetailId": |
| e.Column.Display = false; |
| break; |
| } |
| } |
| <telerik:RadRotator ID="RadRotator1" runat="server" |
| DataSourceID="XmlDataSource1" Width="100%" FrameDuration="6000" |
| ScrollDirection="Left" ScrollDuration="800" Height="250px" |
| PauseOnMouseOver="False" ItemWidth="200px"> |
| <ItemTemplate> |
| <div class="tickdetail"> |
| <div class="clogo"><img src="<%# XPath("LogoFile") %>" alt=""/></div> |
| <div class="tickdesc" style="text-align:center"> |
| <telerik:RadTicker ID="Ticker1" runat="server" TickSpeed="50"> |
| <Items> |
| <telerik:RadTickerItem Text='<%# XPath("Description") %>' /> |
| </Items> |
| </telerik:RadTicker> |
| </div> |
| </div> |
| </ItemTemplate> |
| <SlideShowAnimation Duration="1000" Type="Fade" /> |
| </telerik:RadRotator> |

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