timesheetreport.aspx.vb

Beginning VB.NET DatabasesAll_Code.rar

Public Class TimeSheetReport
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private blnEvenRow As Boolean = True

    Private strReport As String
    Private strWeekEndingDate As String

    Private objTimeSheetDS As New DataSet

    Private Sub Page_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        strReport = Request.QueryString("Report")
        strWeekEndingDate = Request.QueryString("WeekEndingDate")
    End Sub

    Public Sub Main()
        Dim objReports As New TimeSheetsWS.Reports
        Select Case strReport
            Case "TimesheetsDue"
                objTimeSheetDS = objReports.TimeSheetsDue( _
                    New Guid(Request.QueryString("ManagerID")), _
                    strWeekEndingDate)
                Call WriteReportHeader()
                Call ProcessShortReport()
            Case "TimesheetsSubmitted"
                objTimeSheetDS = objReports.TimeSheetsSubmitted( _
                    New Guid(Request.QueryString("ManagerID")), _
                    strWeekEndingDate)
                Call WriteReportHeader()
                Call ProcessShortReport()
            Case "TimesheetsMTD"
                objTimeSheetDS = objReports.TimeSheetsMTD( _
                    New Guid(Request.QueryString("ManagerID")))
                Call WriteReportHeader()
                Call ProcessLongReport()
            Case "TimesheetsQTD"
                objTimeSheetDS = objReports.TimeSheetsQTD( _
                    New Guid(Request.QueryString("ManagerID")))
                Call WriteReportHeader()
                Call ProcessLongReport()
            Case "TimesheetsYTD"
                objTimeSheetDS = objReports.TimeSheetsYTD( _
                    New Guid(Request.QueryString("ManagerID")))
                Call WriteReportHeader()
                Call ProcessLongReport()
        End Select
        objReports.Dispose()
        objReports = Nothing
    End Sub

    Private Sub WriteReportHeader()
        Response.Write("<table cellspacing=""0"" cellpadding=""3""" & _
            "border=""0"" style=""background-color:White;" & _
            "font-family:Verdana;font-size:10pt;"">" & ControlChars.CrLf)

        Response.Write("<tr>" & ControlChars.CrLf)
        Response.Write("<td colspan=""3"" align=""center""" & _
            "style=""color:White;background-color:#006699;" & _
            "font-weight:bold;font-size:12pt;"">" & _
            objTimeSheetDS.Tables("ReportHeader").Rows(0).Item("Title") & _
            "</td>" & ControlChars.CrLf)
        Response.Write("</tr>" & ControlChars.CrLf)

        Response.Write("<tr>" & ControlChars.CrLf)
        Response.Write("<td nowrap><b>Manager:</b> " & _
            objTimeSheetDS.Tables("ReportHeader").Rows(0).Item("ManagerName") & _
            "</td>" & ControlChars.CrLf)
        Response.Write("<td width=""100%"">&nbsp;</td>" & ControlChars.CrLf)
        Select Case strReport
            Case "TimesheetsDue", "TimesheetsSubmitted"
                Response.Write("<td align=""right"" nowrap>" & _
                    "<b>Week Ending Date:</b> " & _
                    Format(objTimeSheetDS.Tables("ReportHeader").Rows(0).Item( _
                    "Date"), "Short Date") & "</td>" & ControlChars.CrLf)
            Case "TimesheetsMTD", "TimesheetsQTD", "TimesheetsYTD"
                Response.Write("<td align=""right"" nowrap>" & _
                    "<b>Report Date:</b> " & _
                    Format(objTimeSheetDS.Tables("ReportHeader").Rows(0).Item( _
                    "Date"), "Short Date") & "</td>" & ControlChars.CrLf)
        End Select
        Response.Write("</tr>" & ControlChars.CrLf)

        Response.Write("<tr>" & ControlChars.CrLf)
        Response.Write("<td colspan=""3"" width=""100%"">" & _
            "<hr color=""#006699""></td>")
        Response.Write("</tr>" & ControlChars.CrLf)

        Response.Write("<tr>" & ControlChars.CrLf)
        Response.Write("<td colspan=""3"" width=""100%"">&nbsp;</td>")
        Response.Write("</tr>" & ControlChars.CrLf)

        Response.Write("</table>")
    End Sub

    Private Sub ProcessShortReport()
        Response.Write("<table cellspacing=""0"" cellpadding=""3""" & _
            "border=""0"" style=""background-color:White;" & _
            "font-family:Verdana;font-size:8pt;"">" & ControlChars.CrLf)

        Response.Write("<tr style=""color:White;" & _
            "background-color:SteelBlue;font-weight:bold;"">" & _
            ControlChars.CrLf)
        Response.Write("<td nowrap width=""200px"">Employee</td>" & _
        ControlChars.CrLf)
        Response.Write("<td nowrap>Total Hours</td>" & ControlChars.CrLf)
        Response.Write("<td width=""100%"">&nbsp;</td>" & ControlChars.CrLf)
        Response.Write("</tr>" & ControlChars.CrLf)

        For intIndex As Integer = 0 To _
            objTimeSheetDS.Tables("TimeSheets").Rows.Count - 1
            blnEvenRow = Not blnEvenRow
            If blnEvenRow Then
                Response.Write("<tr style=""background-color:WhiteSmoke;"">" & _
                    ControlChars.CrLf)
            Else
                Response.Write("<tr>" & ControlChars.CrLf)
            End If
            If strReport = "TimesheetsDue" Then
                Response.Write("<td><a href=""mailto:" & _
                    objTimeSheetDS.Tables("TimeSheets").Rows(intIndex).Item( _
                    "Email") & "?subject=Timesheet Due&body=Your timesheet " & _
                    "for week ending date " & strWeekEndingDate & _
                    " is due. Please submit your timesheet for approval."">" & _
                    objTimeSheetDS.Tables("TimeSheets").Rows(intIndex).Item( _
                    "UserName") & "</a></td>" & ControlChars.CrLf)
            Else
                Response.Write("<td>" & _
                    objTimeSheetDS.Tables("TimeSheets").Rows(intIndex).Item( _
                    "UserName") & "</td>" & ControlChars.CrLf)
            End If
            Response.Write("<td align=""right"">" & objTimeSheetDS.Tables( _
                "TimeSheets").Rows(intIndex).Item("TotalHours") & "</td>" & _
                ControlChars.CrLf)
            Response.Write("<td>&nbsp;</td>" & ControlChars.CrLf)
            Response.Write("</tr>" & ControlChars.CrLf)
        Next

        Response.Write("</table>")
    End Sub

    Private Sub ProcessLongReport()
        Response.Write("<table cellspacing=""0"" cellpadding=""3""" & _
            "border=""0"" style=""background-color:White;" & _
            "font-family:Verdana;font-size:8pt;"">" & ControlChars.CrLf)

        Response.Write("<tr style=""color:White;" & _
            "background-color:SteelBlue;font-weight:bold;"">" & _
            ControlChars.CrLf)
        Response.Write("<td nowrap width=""200px"">Employee</td>" & _
            ControlChars.CrLf)
        Response.Write("<td nowrap>Total Hours</td>" & ControlChars.CrLf)
        Response.Write("<td width=""5px"">&nbsp;</td>" & ControlChars.CrLf)
        Response.Write("<td nowrap>Week Ending Date</td>" & ControlChars.CrLf)
        Response.Write("<td width=""5px"">&nbsp;</td>" & ControlChars.CrLf)
        Response.Write("<td nowrap>Approval Date</td>" & ControlChars.CrLf)
        Response.Write("<td width=""100%"">&nbsp;</td>" & ControlChars.CrLf)
        Response.Write("</tr>" & ControlChars.CrLf)

        For intIndex As Integer = 0 To _
            objTimeSheetDS.Tables("TimeSheets").Rows.Count - 1
            blnEvenRow = Not blnEvenRow
            If blnEvenRow Then
                Response.Write("<tr style=""background-color:WhiteSmoke;"">" & _
                    ControlChars.CrLf)
            Else
                Response.Write("<tr>" & ControlChars.CrLf)
            End If
            Response.Write("<td>" & objTimeSheetDS.Tables( _
                "TimeSheets").Rows(intIndex).Item("UserName") & "</td>" & _
                ControlChars.CrLf)
            Response.Write("<td align=""right"">" & _
                objTimeSheetDS.Tables("TimeSheets").Rows(intIndex).Item( _
                "TotalHours") & "</td>" & ControlChars.CrLf)
            Response.Write("<td>&nbsp;</td>" & ControlChars.CrLf)
            Response.Write("<td align=""right"">" & objTimeSheetDS.Tables( _
                "TimeSheets").Rows(intIndex).Item("WeekEndingDate") & "</td>" & _
                ControlChars.CrLf)
            Response.Write("<td>&nbsp;</td>" & ControlChars.CrLf)
            Response.Write("<td align=""right"">")
            If IsDBNull(objTimeSheetDS.Tables( _
                "TimeSheets").Rows(intIndex).Item("ApprovalDate")) Then
                Response.Write("</td>" & ControlChars.CrLf)
            Else
                Response.Write(Format(objTimeSheetDS.Tables( _
                    "TimeSheets").Rows(intIndex).Item( _
                    "ApprovalDate"), "Short Date") & "</td>" & ControlChars.CrLf)
            End If
            Response.Write("<td>&nbsp;</td>" & ControlChars.CrLf)
            Response.Write("</tr>" & ControlChars.CrLf)
        Next

        Response.Write("</table>")
    End Sub
End Class