66.142.0.142/66.142.0.142.tar/66.142.0.142/rptEventReport.aspx.vb

Text File | 2010-09-29 | 25KB | 415 lines

Imports System.Data
Imports System.Data.OleDb
Imports ceTe.DynamicPDF
Imports ceTe.DynamicPDF.PageElements
Imports System.Web.UI

Public Class rptEventReport
    Inherits AspNetMaker7_tfpssnet

#Region " Web Form Designer Generated Code "

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

    End Sub


    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

    'Groups for header elements
    Private m_objPageHeader As Group = New Group
    'Groups for footer elements
    Private m_objPageFooter As Group = New Group

    'Page Dimensions of pages
    Private Shared s_objPageDimensions As PageDimensions = New PageDimensions(PageSize.Letter, PageOrientation.Portrait, 54.0F)
    'Current page that elements are being added to
    Private m_objCurrentPage As ceTe.DynamicPDF.Page
    'Top Y coordinate for the body of the report
    Private m_fltBodyTop As Single = 82
    'Bottom Y coordinate for the body of the report
    Private m_fltBodyBottom As Single = s_objPageDimensions.Body.Bottom - s_objPageDimensions.Body.Top
    'Current Y coordinate where elements are being added
    Private m_fltCurrentY As Single
    'Used to control the alternating background
    Private m_blnAlternateBG As Boolean

    Private sStartDate As String, sEndDate As String, tmpCount As Long, SortOption As Long, tmpEventID As Long, tmpLastEventID As Long = 9999999
    Private sEmployeeName As String, tmpLastPart As String = "ZZZZZZZZZ", tmpLastDate As String = "12/31/2999"
    Private tmpEventTotalMinutes As Long, tmpDayTotalMinutes As Long, tmpEmpCount As Long
    Private tmpLastDeptAcctCode As String, tmpLastDeptDesc As String, tmpLastTypeDesc As String
    Private tmpTotalHours As Double, tmpActualTotalHours As Double
    Private tmpTotalAmount As Double, tmpActualTotalAmount As Double
    Private tmpDTotalHours As Double, tmpDActualTotalHours As Double
    Private tmpDTotalAmount As Double, tmpDActualTotalAmount As Double
    Private tmpGTotalHours As Double, tmpGActualTotalHours As Double
    Private tmpGTotalAmount As Double, tmpGActualTotalAmount As Double

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sStartDate = Session("tmpStartDate")
        sEndDate = Session("tmpEndDate")
        tmpEventID = Session("tmpEvent")

        'Create a document and set it's properties
        Dim objDocument As Document = New Document
        objDocument.Creator = "rptEventReport.aspx"
        objDocument.Author = "Tony L. Clayton"
        objDocument.Title = "PSS Event Report"
        objDocument.InitialPageZoom = PageZoom.FitWidth

        'Adds elements to the header groups
        SetPageHeader()
        SetPageFooter()

        'Establises connection to the database
        Dim objconnection As OleDbConnection = GetOpenDBConn()
        Dim objData As OleDbDataReader = GetData(objconnection)

        'Builds the report
        BuildDocument(objDocument, objData)

        'Cleans up database connections
        objData.Close()
        objconnection.Close()

        'Outputs the SimpleReport to the current web page
        objDocument.DrawToWeb("rptEventReport.pdf")
        Response.End()
    End Sub

    Private Sub SetPageHeader()
        'Adds elements to the header group
        With m_objPageHeader
            .Add(New Image(Server.MapPath("images\logo.png"), 0, 0, 0.7F))
            .Add(New Image(Server.MapPath("images\logo.png"), 405, 0, 0.7F))

            .Add(New Label("P R O D U C T I O N   S E R V I C E S   S C H E D U L I N G   S Y S T E M", 0, 0, 504, 10, Font.HelveticaBold, 8, TextAlign.Center))
            .Add(New Label("Event Report", 0, 12, 504, 16, Font.HelveticaBold, 16, TextAlign.Center))
            .Add(New Label("As of " & ew_FormatDateTime(Now(), vbLongDate), 0, 30, 504, 9, Font.HelveticaBold, 9, TextAlign.Center))

            .Add(New Label("From " & ew_FormatDateTime(sStartDate, vbShortDate) & " through " & ew_FormatDateTime(sEndDate, vbShortDate), 0, 40, 504, 9, Font.HelveticaBold, 9, TextAlign.Right))
            '.Add(New Label(Session("tmpEventText"), 1, 40, 504, 14, Font.HelveticaBold, 14, TextAlign.Left))

            .Add(New Rectangle(120, 57, 70, (10), Grayscale.Black, New WebColor("000000"), 0.0F))
            .Add(New Label("Variance", 120, 56, 50, 9, Font.TimesBold, 9, TextAlign.Right, RgbColor.White))
            .Add(New Rectangle(200, 57, 145, (10), Grayscale.Black, New WebColor("000000"), 0.0F))
            .Add(New Label("Scheduled", 240, 56, 50, 9, Font.TimesBold, 9, TextAlign.Right, RgbColor.White))
            .Add(New Rectangle(352, 57, 150, (10), Grayscale.Black, New WebColor("000000"), 0.0F))
            .Add(New Label("Actual", 390, 56, 50, 9, Font.TimesBold, 9, TextAlign.Right, RgbColor.White))

            .Add(New Label("Employee", 5, 68, 50, 9, Font.TimesBold, 9))
            .Add(New Label("Position", 80, 68, 50, 9, Font.TimesBold, 9))
            .Add(New Label("Hours", 115, 68, 40, 9, Font.TimesBold, 9, TextAlign.Right))
            .Add(New Label("Amount", 150, 68, 40, 9, Font.TimesBold, 9, TextAlign.Right))
            .Add(New Label("In", 195, 68, 40, 9, Font.TimesBold, 9, TextAlign.Right))
            .Add(New Label("Out", 237, 68, 40, 9, Font.TimesBold, 9, TextAlign.Right))
            .Add(New Label("Hours", 265, 68, 40, 9, Font.TimesBold, 9, TextAlign.Right))
            .Add(New Label("Amount", 300, 68, 40, 9, Font.TimesBold, 9, TextAlign.Right))
            .Add(New Label("In", 345, 68, 40, 9, Font.TimesBold, 9, TextAlign.Right))
            .Add(New Label("Out", 390, 68, 40, 9, Font.TimesBold, 9, TextAlign.Right))
            .Add(New Label("Hours", 420, 68, 40, 9, Font.TimesBold, 9, TextAlign.Right))
            .Add(New Label("Amount", 460, 68, 40, 9, Font.TimesBold, 9, TextAlign.Right))

            m_objPageHeader.Add(New Line(0, 80, 504, 80))
        End With
    End Sub

    Private Sub SetPageFooter()
        'Adds elements to the footer group
        Dim objLabel As PageNumberingLabel = New PageNumberingLabel("Page %%CP%% of %%TP%%", 0, 692, 504, 8, Font.HelveticaBold, 8, TextAlign.Right)
        'objLabel.HasPageNumbering = True
        m_objPageFooter.Add(objLabel)
    End Sub

    Private Sub AddNewPage(ByVal document As Document)
        'Adds a new page to the document
        m_objCurrentPage = New ceTe.DynamicPDF.Page(s_objPageDimensions)
        m_objCurrentPage.Elements.Add(m_objPageHeader)
        m_objCurrentPage.Elements.Add(m_objPageFooter)

        'Uncomment the line below to add a layout grid to the each page
        'm_objCurrentPage.Elements.Add(New LayoutGrid)

        m_fltCurrentY = m_fltBodyTop
        m_blnAlternateBG = False

        document.Pages.Add(m_objCurrentPage)
    End Sub

    Private Sub BuildDocument(ByVal document As Document, ByVal data As OleDbDataReader)
        'Builds the PDF document with data from the DataReader
        AddNewPage(document)
        While data.Read()
            AddRecord(document, data)
        End While
        PrintTotals()
    End Sub

    Private Sub AddRecord(ByVal document As Document, ByVal data As OleDbDataReader)
        Dim intReqHeight As Integer
        intReqHeight = 9

        'Adds a new page to the document if needed
        If m_fltCurrentY > m_fltBodyBottom - 20 Then AddNewPage(document)

        If tmpLastDate <> data("schDate") Then
            If tmpLastDate <> "12/31/2999" Then
                'Adds alternating background to document if needed
                If m_blnAlternateBG Then
                    m_objCurrentPage.Elements.Add(New Rectangle(0, m_fltCurrentY, 504, (intReqHeight + 4), Grayscale.Black, New WebColor("E0E0FF"), 0.0F))
                End If
                m_objCurrentPage.Elements.Add(New Line(125, m_fltCurrentY, 155, m_fltCurrentY))
                m_objCurrentPage.Elements.Add(New Line(160, m_fltCurrentY, 190, m_fltCurrentY))
                m_objCurrentPage.Elements.Add(New Line(280, m_fltCurrentY, 305, m_fltCurrentY))
                m_objCurrentPage.Elements.Add(New Line(315, m_fltCurrentY, 340, m_fltCurrentY))
                m_objCurrentPage.Elements.Add(New Line(430, m_fltCurrentY, 460, m_fltCurrentY))
                m_objCurrentPage.Elements.Add(New Line(470, m_fltCurrentY, 500, m_fltCurrentY))
                m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpDActualTotalHours - tmpDTotalHours, 2, -2, -2, -2), 115, m_fltCurrentY, 40, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
                m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpDActualTotalAmount - tmpDTotalAmount, 2, -2, -2, -2), 150, m_fltCurrentY, 40, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
                m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpDTotalHours, 2, -2, -2, -2), 255, m_fltCurrentY, 50, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
                m_objCurrentPage.Elements.Add(New TextArea(FormatCurrency(tmpDTotalAmount, 2, -2, -2, -2), 300, m_fltCurrentY, 40, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
                m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpDActualTotalHours, 2, -2, -2, -2), 410, m_fltCurrentY, 50, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
                m_objCurrentPage.Elements.Add(New TextArea(FormatCurrency(tmpDActualTotalAmount, 2, -2, -2, -2), 450, m_fltCurrentY, 50, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
                m_blnAlternateBG = Not m_blnAlternateBG
                m_fltCurrentY += intReqHeight + 5
                tmpDTotalHours = 0
                tmpDActualTotalHours = 0
                tmpDTotalAmount = 0
                tmpDActualTotalAmount = 0
            End If
        End If

        If tmpLastEventID = 9999999 Then
            m_objCurrentPage.Elements.Add(New TextArea(data("evtDescription"), 1, m_fltCurrentY, 100, intReqHeight, Font.TimesBold, 12))
            m_fltCurrentY += intReqHeight + 5
        End If
        If data("evtID") <> tmpLastEventID And tmpLastEventID <> 9999999 Then
            PrintTotals()
            AddNewPage(document)
            m_objCurrentPage.Elements.Add(New TextArea(data("evtDescription"), 1, m_fltCurrentY, 100, intReqHeight, Font.TimesBold, 12))
            m_fltCurrentY += intReqHeight + 5
            tmpLastPart = ""
        End If
        tmpLastEventID = data("evtID")

        If tmpLastPart <> data("prtDescription") Then
            If tmpLastPart <> "ZZZZZZZZZ" Then
                m_fltCurrentY += intReqHeight
            End If
            If Not IsDBNull(data("prtDescription")) Then
                m_objCurrentPage.Elements.Add(New TextArea(data("prtDescription"), 1, m_fltCurrentY, 100, intReqHeight, Font.TimesBold, 10))
            End If
            If Not IsDBNull(data("schStartTime")) And Not IsDBNull(data("schEndTime")) Then
                m_objCurrentPage.Elements.Add(New TextArea(ew_FormatDateTime(data("schStartTime"), 14) & " - " & ew_FormatDateTime(data("schEndTime"), 14), 100, m_fltCurrentY, 150, intReqHeight, Font.TimesBold, 10))
            End If
            If Not IsDBNull(data("schDate")) Then
                m_objCurrentPage.Elements.Add(New TextArea(FormatDateTime(data("schDate"), DateFormat.LongDate), 200, m_fltCurrentY, 200, intReqHeight, Font.TimesBold, 10))
            End If
            m_blnAlternateBG = True
            m_fltCurrentY += intReqHeight + 5
        End If

        'Adds alternating background to document if needed
        If m_blnAlternateBG Then
            m_objCurrentPage.Elements.Add(New Rectangle(0, m_fltCurrentY, 504, (intReqHeight + 4), Grayscale.Black, New WebColor("E0E0FF"), 0.0F))
        End If

        m_objCurrentPage.Elements.Add(New TextArea(data("empName"), 5, m_fltCurrentY, 80, intReqHeight, Font.TimesRoman, 10))
        m_objCurrentPage.Elements.Add(New TextArea(data("posDescription"), 80, m_fltCurrentY, 60, intReqHeight, Font.TimesRoman, 10))
        If Not IsDBNull(data("TotalHours")) Then
            tmpTotalHours = data("TotalHours")
        Else
            tmpTotalHours = 0
        End If
        If Not IsDBNull(data("ActualTotalHours")) Then
            tmpActualTotalHours = data("ActualTotalHours")
        Else
            tmpActualTotalHours = 0
        End If
        m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpActualTotalHours - tmpTotalHours, 2, -2, -2, -2), 115, m_fltCurrentY, 40, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
        If Not IsDBNull(data("ShiftAmount")) Then
            tmpTotalAmount = data("ShiftAmount")
        Else
            tmpTotalAmount = 0
        End If
        If Not IsDBNull(data("ActualAmount")) Then
            tmpActualTotalAmount = data("ActualAmount")
        Else
            tmpActualTotalAmount = 0
        End If
        m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpActualTotalAmount - tmpTotalAmount, 2, -2, -2, -2), 150, m_fltCurrentY, 40, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))

        If Not IsDBNull(data("schCallTime")) Then
            m_objCurrentPage.Elements.Add(New TextArea(ew_FormatDateTime(data("schCallTime"), 14), 195, m_fltCurrentY, 40, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
        End If
        If Not IsDBNull(data("schOutTime")) Then
            m_objCurrentPage.Elements.Add(New TextArea(ew_FormatDateTime(data("schOutTime"), 14), 237, m_fltCurrentY, 40, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
        End If
        If tmpTotalHours <> 0 Then
            m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpTotalHours, 2, -2, -2, -2), 255, m_fltCurrentY, 50, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
        End If
        If tmpTotalAmount <> 0 Then
            m_objCurrentPage.Elements.Add(New TextArea(FormatCurrency(tmpTotalAmount, 2, -2, -2, -2), 300, m_fltCurrentY, 40, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
        End If

        If Not IsDBNull(data("schActualStart")) Then
            m_objCurrentPage.Elements.Add(New TextArea(ew_FormatDateTime(data("schActualStart"), 14), 345, m_fltCurrentY, 40, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
        End If
        If Not IsDBNull(data("schActualEnd")) Then
            m_objCurrentPage.Elements.Add(New TextArea(ew_FormatDateTime(data("schActualEnd"), 14), 390, m_fltCurrentY, 40, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
        End If
        If tmpActualTotalHours <> 0 Then
            m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpActualTotalHours, 2, -2, -2, -2), 410, m_fltCurrentY, 50, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
        End If
        If tmpActualTotalAmount <> 0 Then
            m_objCurrentPage.Elements.Add(New TextArea(FormatCurrency(tmpActualTotalAmount, 2, -2, -2, -2), 450, m_fltCurrentY, 50, intReqHeight, Font.TimesRoman, 10, TextAlign.Right))
        End If

        tmpDTotalHours = tmpDTotalHours + tmpTotalHours
        tmpDActualTotalHours = tmpDActualTotalHours + tmpActualTotalHours
        tmpDTotalAmount = tmpDTotalAmount + tmpTotalAmount
        tmpDActualTotalAmount = tmpDActualTotalAmount + tmpActualTotalAmount
        tmpGTotalHours = tmpGTotalHours + tmpTotalHours
        tmpGActualTotalHours = tmpGActualTotalHours + tmpActualTotalHours
        tmpGTotalAmount = tmpGTotalAmount + tmpTotalAmount
        tmpGActualTotalAmount = tmpGActualTotalAmount + tmpActualTotalAmount

        If IsDBNull(data("prtDescription")) Then
            tmpLastPart = ""
        Else
            tmpLastPart = data("prtDescription")
        End If
        tmpLastDate = data("schDate")
        If IsDBNull(data("depAcctCode")) Then
            tmpLastDeptAcctCode = ""
        Else
            tmpLastDeptAcctCode = data("depAcctCode")
        End If
        If IsDBNull(data("depDescription")) Then
            tmpLastDeptDesc = ""
        Else
            tmpLastDeptDesc = data("depDescription")
        End If
        If IsDBNull(data("typDescription")) Then
            tmpLastTypeDesc = ""
        Else
            tmpLastTypeDesc = data("typDescription")
        End If
        'Toggles alternating background
        m_blnAlternateBG = Not m_blnAlternateBG
        'Increments the current Y position on the page
        m_fltCurrentY += intReqHeight + 5
        tmpCount += 1

    End Sub

    Private Function GetOpenDBConn() As OleDbConnection
        'Creates and opens a database connection
        Dim sConnStr As String = EW_DB_CONNECTION_STRING
        Dim objConnection As New OleDbConnection(sConnStr)
        objConnection.Open()
        Return objConnection
    End Function

    Private Function GetData(ByVal connection As OleDbConnection) As OleDbDataReader
        'Creates a DataReader for the report
        Dim strSQL As String
        Dim objCommand As OleDbCommand = connection.CreateCommand()
        strSQL = "SELECT tblSchedule.schDate, tblEvents.evtID, tblEvents.evtDescription, " _
& "tblDepartments.depAcctCode, tblSchedule.schDepID, tblPositions.posDescription, " _
& "tblParts.prtDescription, tblLocations.locDescription, tblSchedule.schStartTime, tblSchedule.schEndTime, " _
& "tblEmployees.empFirstName, tblEmployees.empLastName, tblEmployees.empName, tblSchedule.schCallTime, " _
& "tblSchedule.schOutTime, tblTypes.typDescription, " _
& "tblEmployees.empRate, tblDepartments.depDescription, tblSchedule.schActualStart, tblSchedule.schActualEnd, " _
& "tblEmployeeStatus.tscStatus, " _
& "IIf((DateDiff('n',[schCallTime],[schOutTime])/60)=24,0,(DateDiff('n',[schCallTime],[schOutTime])/60)) AS [TotalHours],  " _
& "IIf((DateDiff('n',[schActualStart],[schActualEnd])/60)=24,0,(DateDiff('n',[schActualStart],[schActualEnd])/60)) AS [ActualTotalHours], " _
& "([ActualTotalHours]*[empRate]) AS [ActualAmount], ([TotalHours]*[empRate]) AS [ShiftAmount]," _
& "IIf([evtDescription]='Projects' Or [evtDescription]='VIP Management' Or [evtDescription]='Weekend Services','0','1') AS [tmpOrder] " _
& "FROM tblPositions RIGHT JOIN (tblTypes RIGHT JOIN (tblParts RIGHT JOIN (tblLocations RIGHT JOIN (tblEvents RIGHT JOIN ((tblEmployeeStatus RIGHT JOIN tblEmployees ON tblEmployeeStatus.ID = tblEmployees.empStatusID) INNER JOIN (tblDepartments RIGHT JOIN tblSchedule ON tblDepartments.depID = tblSchedule.schDepID) ON tblEmployees.empID = tblSchedule.schEmpID) ON tblEvents.evtID = tblSchedule.schEvtID) ON tblLocations.locID = tblSchedule.schLocID) ON tblParts.prtID = tblSchedule.schPartsID) ON tblTypes.typID = tblSchedule.schTypID) ON tblPositions.posID = tblSchedule.schPosID " _
& "WHERE (evtDescription IS NOT NULL) AND "
        If Not IsDBNull(sStartDate) Then
            strSQL = strSQL & "(schDate >= #" & sStartDate & "#) "
        End If
        If Not IsDBNull(sEndDate) Then
            If Not IsDBNull(sEndDate) Then
                strSQL = strSQL & " AND "
            End If
            strSQL = strSQL & "(schDate <= #" & sEndDate & "#) "
        End If
        If tmpEventID <> 0 Then
            strSQL = strSQL & " AND (evtID = " & tmpEventID & ") "
        End If
        strSQL = strSQL & "ORDER BY evtDescription, schDate, prtDescription "
        Session("strSQL") = strSQL
        objCommand.CommandText = strSQL
        Dim objDataReader As OleDbDataReader = objCommand.ExecuteReader()

        Return objDataReader
    End Function

    Sub PrintTotals()
        'Adds alternating background to document if needed
        If m_blnAlternateBG Then
            m_objCurrentPage.Elements.Add(New Rectangle(0, m_fltCurrentY, 504, (10 + 4), Grayscale.Black, New WebColor("E0E0FF"), 0.0F))
        End If
        m_objCurrentPage.Elements.Add(New Line(125, m_fltCurrentY, 155, m_fltCurrentY))
        m_objCurrentPage.Elements.Add(New Line(160, m_fltCurrentY, 190, m_fltCurrentY))
        m_objCurrentPage.Elements.Add(New Line(280, m_fltCurrentY, 305, m_fltCurrentY))
        m_objCurrentPage.Elements.Add(New Line(315, m_fltCurrentY, 340, m_fltCurrentY))
        m_objCurrentPage.Elements.Add(New Line(430, m_fltCurrentY, 460, m_fltCurrentY))
        m_objCurrentPage.Elements.Add(New Line(470, m_fltCurrentY, 500, m_fltCurrentY))
        m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpDActualTotalHours - tmpDTotalHours, 2, -2, -2, -2), 115, m_fltCurrentY, 40, 10, Font.TimesRoman, 10, TextAlign.Right))
        m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpDActualTotalAmount - tmpDTotalAmount, 2, -2, -2, -2), 150, m_fltCurrentY, 40, 10, Font.TimesRoman, 10, TextAlign.Right))
        m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpDTotalHours, 2, -2, -2, -2), 255, m_fltCurrentY, 50, 10, Font.TimesRoman, 10, TextAlign.Right))
        m_objCurrentPage.Elements.Add(New TextArea(FormatCurrency(tmpDTotalAmount, 2, -2, -2, -2), 300, m_fltCurrentY, 40, 10, Font.TimesRoman, 10, TextAlign.Right))
        m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpDActualTotalHours, 2, -2, -2, -2), 410, m_fltCurrentY, 50, 10, Font.TimesRoman, 10, TextAlign.Right))
        m_objCurrentPage.Elements.Add(New TextArea(FormatCurrency(tmpDActualTotalAmount, 2, -2, -2, -2), 450, m_fltCurrentY, 50, 10, Font.TimesRoman, 10, TextAlign.Right))
        'Toggles alternating background
        m_blnAlternateBG = Not m_blnAlternateBG
        'Increments the current Y position on the page
        m_fltCurrentY += 20 + 5

        'Adds alternating background to document if needed
        If m_blnAlternateBG Then
            m_objCurrentPage.Elements.Add(New Rectangle(0, m_fltCurrentY, 504, (10 + 4), Grayscale.Black, New WebColor("E0E0FF"), 0.0F))
        End If
        m_objCurrentPage.Elements.Add(New Line(115, m_fltCurrentY, 145, m_fltCurrentY))
        m_objCurrentPage.Elements.Add(New Line(150, m_fltCurrentY, 190, m_fltCurrentY))
        m_objCurrentPage.Elements.Add(New Line(270, m_fltCurrentY, 295, m_fltCurrentY))
        m_objCurrentPage.Elements.Add(New Line(300, m_fltCurrentY, 340, m_fltCurrentY))
        m_objCurrentPage.Elements.Add(New Line(420, m_fltCurrentY, 450, m_fltCurrentY))
        m_objCurrentPage.Elements.Add(New Line(460, m_fltCurrentY, 500, m_fltCurrentY))
        m_objCurrentPage.Elements.Add(New TextArea("Event Totals: ", 30, m_fltCurrentY, 140, 10, Font.TimesBold, 10, TextAlign.Left))
        m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpGActualTotalHours - tmpGTotalHours, 2, -2, -2, -2), 105, m_fltCurrentY, 40, 10, Font.TimesBold, 10, TextAlign.Right))
        m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpGActualTotalAmount - tmpGTotalAmount, 2, -2, -2, -2), 150, m_fltCurrentY, 40, 10, Font.TimesBold, 10, TextAlign.Right))
        m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpGTotalHours, 2, -2, -2, -2), 245, m_fltCurrentY, 50, 10, Font.TimesBold, 10, TextAlign.Right))
        m_objCurrentPage.Elements.Add(New TextArea(FormatCurrency(tmpGTotalAmount, 2, -2, -2, -2), 300, m_fltCurrentY, 40, 10, Font.TimesBold, 10, TextAlign.Right))
        m_objCurrentPage.Elements.Add(New TextArea(FormatNumber(tmpGActualTotalHours, 2, -2, -2, -2), 400, m_fltCurrentY, 50, 10, Font.TimesBold, 10, TextAlign.Right))
        m_objCurrentPage.Elements.Add(New TextArea(FormatCurrency(tmpGActualTotalAmount, 2, -2, -2, -2), 450, m_fltCurrentY, 50, 10, Font.TimesBold, 10, TextAlign.Right))
        'Toggles alternating background
        m_blnAlternateBG = Not m_blnAlternateBG
        'Increments the current Y position on the page
        m_fltCurrentY += 10 + 5

        m_objCurrentPage.Elements.Add(New TextArea("Department Cost Allocation:", 1, m_fltCurrentY, 140, 10, Font.TimesBold, 10, TextAlign.Left))
        'Toggles alternating background
        m_blnAlternateBG = Not m_blnAlternateBG
        'Increments the current Y position on the page
        m_fltCurrentY += 20 + 5

        m_objCurrentPage.Elements.Add(New TextArea(tmpLastDeptDesc & "     (# " & tmpLastDeptAcctCode & " )     " & tmpLastTypeDesc, 20, m_fltCurrentY, 400, 10, Font.TimesBold, 10, TextAlign.Left))
        'Toggles alternating background
        m_blnAlternateBG = Not m_blnAlternateBG
        'Increments the current Y position on the page
        m_fltCurrentY += 20 + 5
    End Sub
End Class