66.142.0.142/66.142.0.142.tar/66.142.0.142/App_Code/viewClockInOutinfo.vb

Text File | 2014-01-07 | 40KB | 1,226 lines

Imports System.Data
Imports System.Data.Common
Imports System.Data.OleDb

'
' ASP.NET Maker 7 Project Class (Table)
'
Public Partial Class AspNetMaker7_tfpssnet
    Inherits System.Web.UI.Page

    Public viewClockInOut As cviewClockInOut

    ' Define table class
    Class cviewClockInOut
        Inherits AspNetMakerBase
        Implements IDisposable

        ' Used by system generated functions
        Private RsWrk As Object, sSqlWrk As String, sWhereWrk As String

        Private arwrk As Object

        Private armultiwrk() As String

        ' Constructor
        Public Sub New(ByRef APage As AspNetMakerPage)
            m_Page = APage
            m_ParentPage = APage.ParentPage
        End Sub

        ' Define table level constants
        Public UseTokenInUrl As Boolean = EW_USE_TOKEN_IN_URL

        ' Table variable
        Public ReadOnly Property TableVar() As String
            Get
                Return "viewClockInOut"
            End Get
        End Property

        ' Table name
        Public ReadOnly Property TableName() As String
            Get
                Return "viewClockInOut"
            End Get
        End Property

        ' Records per page
        Public Property RecordsPerPage() As Integer
            Get
                Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_REC_PER_PAGE)
            End Get
            Set(ByVal Value As Integer)
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_REC_PER_PAGE) = Value
            End Set
        End Property

        ' Start record number
        Public Property StartRecordNumber() As Integer
            Get
                Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_START_REC)
            End Get
            Set(ByVal Value As Integer)
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_START_REC) = Value
            End Set
        End Property

        ' Search Highlight Name
        Public ReadOnly Property HighlightName() As String
            Get
                Return "viewClockInOut_Highlight"
            End Get
        End Property

        ' Advanced search
        Public Function GetAdvancedSearch(ByRef fld As Object) As String
            Return Convert.ToString(ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ADVANCED_SEARCH & "_" & fld))
        End Function

        Public Sub SetAdvancedSearch(ByRef fld As Object, v As Object)
            If ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ADVANCED_SEARCH & "_" & fld) <> v Then
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ADVANCED_SEARCH & "_" & fld) = v
            End If
        End Sub

        ' Basic search keyword
        Public Property BasicSearchKeyword() As String
            Get
                Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_BASIC_SEARCH)
            End Get
            Set(ByVal Value As String)
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_BASIC_SEARCH) = Value
            End Set
        End Property

        ' Basic Search Type
        Public Property BasicSearchType() As String
            Get
                Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_BASIC_SEARCH_TYPE)
            End Get
            Set(ByVal Value As String)
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_BASIC_SEARCH_TYPE) = Value
            End Set
        End Property

        ' Search WHERE clause
        Public Property SearchWhere() As String
            Get
                Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_SEARCH_WHERE)
            End Get
            Set(ByVal Value As String)
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_SEARCH_WHERE) = Value
            End Set
        End Property

        ' Multiple column sort
        Public Sub UpdateSort(ofld, ctrl)
            Dim sSortField As String, sLastSort As String, sThisSort As String, sOrderBy As String
            If CurrentOrder = ofld.FldName Then
                sSortField = ofld.FldExpression
                sLastSort = ofld.Sort
                If CurrentOrderType = "ASC" OrElse CurrentOrderType = "DESC" Then
                    sThisSort = CurrentOrderType
                Else
                    If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
                End If
                ofld.Sort = sThisSort
                If ctrl Then
                    sOrderBy = SessionOrderBy
                    If sOrderBy.Contains(sSortField & " " & sLastSort) Then
                        sOrderBy = sOrderBy.Replace(sSortField & " " & sLastSort, sSortField & " " & sThisSort)
                    Else
                        If sOrderBy <> "" Then sOrderBy = sOrderBy & ", "
                        sOrderBy = sOrderBy & sSortField & " " & sThisSort
                    End If
                    SessionOrderBy = sOrderBy ' Save to Session
                Else
                    SessionOrderBy = sSortField & " " & sThisSort ' Save to Session
                End If
            Else
                If Not ctrl Then ofld.Sort = ""
            End If
        End Sub

        ' Session WHERE Clause
        Public Property SessionWhere() As String
            Get
                Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_WHERE)
            End Get
            Set(ByVal Value As String)
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_WHERE) = Value
            End Set
        End Property

        ' Session ORDER BY
        Public Property SessionOrderBy() As String
            Get
                Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ORDER_BY)
            End Get
            Set(ByVal Value As String)
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ORDER_BY) = Value
            End Set
        End Property

        ' Session key
        Public Function GetKey(ByRef fld As Object) As Object
            Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_KEY & "_" & fld)
        End Function

        Public Sub SetKey(ByRef fld As Object, ByRef v As Object)
            ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_KEY & "_" & fld) = v
        End Sub

        ' Table level SQL
        Public ReadOnly Property SqlSelect() As String
            Get ' Select
                Return "SELECT tblSchedule.schDate, tblSchedule.schDayOfWeek, tblSchedule.schEvtID, tblSchedule.schPartsID, tblSchedule.schCallTime, tblSchedule.schStartTime, tblSchedule.schEndTime, tblSchedule.schOutTime, tblSchedule.schLocID, tblSchedule.schEmpID, tblSchedule.schPosID, tblSchedule.schTypID, tblSchedule.schActualStart, tblSchedule.schActualEnd, tblSchedule.schStatus, tblSchedule.schNotes, tblSchedule.schDateCreated, tblSchedule.schSchID FROM tblSchedule"
            End Get
        End Property

        Public ReadOnly Property SqlWhere() As String
            Get ' Where
                Return ""
            End Get
        End Property

        Public ReadOnly Property SqlGroupBy() As String
            Get ' Group By
                Return ""
            End Get
        End Property

        Public ReadOnly Property SqlHaving() As String
            Get ' Having
                Return ""
            End Get
        End Property

        Public ReadOnly Property SqlOrderBy() As String
            Get ' Order By
                Return ""
            End Get
        End Property

        ' SQL variables
        Public CurrentFilter As String ' Current filter

        Public CurrentOrder As String ' Current order

        Public CurrentOrderType As String ' Current order type

        ' Get SQL
        Public Function GetSQL(where As String, orderby As String) As String
            Return ew_BuildSelectSql(SqlSelect, SqlWhere, SqlGroupBy, SqlHaving, SqlOrderBy, where, orderby)
        End Function

        ' Table SQL
        Public ReadOnly Property SQL() As String
            Get
                Dim sFilter As String, sSort As String
                sFilter = CurrentFilter

                ' Add user ID filter
                If Security.CurrentUserID <> "" And Not Security.IsAdmin Then ' Non system admin
                    sFilter = AddUserIDFilter(sFilter) ' Add user ID filter
                End If
                sSort = SessionOrderBy
                Return ew_BuildSelectSql(SqlSelect, SqlWhere, SqlGroupBy, SqlHaving, SqlOrderBy, sFilter, sSort)
            End Get
        End Property

        ' Return table SQL with list page filter
        Public ReadOnly Property ListSQL() As String
            Get
                Dim sFilter As String, sSort As String
                sFilter = SessionWhere
                If CurrentFilter <> "" Then
                    If sFilter <> "" Then
                        sFilter = "(" & sFilter & ") AND (" & CurrentFilter & ")"
                    Else
                        sFilter = CurrentFilter
                    End If
                End If

                ' Add user ID filter
                If Security.CurrentUserID <> "" And Not Security.IsAdmin Then ' Non system admin
                    sFilter = AddUserIDFilter(sFilter) ' Add user ID filter
                End If
                sSort = SessionOrderBy
                Return ew_BuildSelectSql(SqlSelect, SqlWhere, SqlGroupBy, SqlHaving, SqlOrderBy, sFilter, sSort)
            End Get
        End Property

        ' Return SQL for record count
        Public ReadOnly Property SelectCountSQL() As String
            Get
                Dim sFilter As String = SessionWhere
                If CurrentFilter <> "" Then
                    If sFilter <> "" Then
                        sFilter = "(" & sFilter & ") AND (" & CurrentFilter & ")"
                    Else
                        sFilter = CurrentFilter
                    End If
                End If

                ' Add user ID filter
                If Security.CurrentUserID <> "" And Not Security.IsAdmin Then ' Non system admin
                    sFilter = AddUserIDFilter(sFilter) ' Add user ID filter
                End If
                Return ew_BuildSelectSql("SELECT COUNT(*) FROM " & SqlSelect.Substring(14), SqlWhere, "", "", "", sFilter, "")
            End Get
        End Property

        ' Insert
        Public Function Insert(ByRef Rs As OrderedDictionary) As Integer
            Dim Sql As String = ""
            Dim names As String = ""
            Dim values As String = ""
            Dim value As Object
            Dim fld As cField
            For Each f As DictionaryEntry In Rs
                fld = FieldByName(f.Key)
                If fld IsNot Nothing Then
                    'names = names & fld.FldExpression & ","
                    names = names & f.Key & ","
                    values = values & EW_DB_SQLPARAM_SYMBOL
                    If EW_DB_SQLPARAM_SYMBOL <> "?" Then values = values & fld.FldVar
                    values = values & ","
                End If
            Next f
            If names.EndsWith(",") Then names = names.Remove(names.Length - 1)
            If values.EndsWith(",") Then values = values.Remove(values.Length - 1)
            If names = "" Then Return -1
            Sql = "INSERT INTO tblSchedule (" & names & ") VALUES (" & values & ")"
            Dim command As OleDbCommand = Conn.GetCommand(Sql)
            For Each f As DictionaryEntry In Rs
                fld = FieldByName(f.Key)
                If fld IsNot Nothing Then
                    value = f.Value
                    command.Parameters.Add(fld.FldVar, fld.FldDbType).Value = value
                End If
            Next
            Return command.ExecuteNonQuery()
        End Function

        ' Update
        Public Function Update(ByRef Rs As OrderedDictionary) As Integer
            Dim Sql As String = ""
            Dim values As String = ""
            Dim value As Object
            Dim fld As cField
            For Each f As DictionaryEntry In Rs
                fld = FieldByName(f.Key)
                If fld IsNot Nothing Then
                    values = values & fld.FldExpression & "=" & EW_DB_SQLPARAM_SYMBOL
                    If EW_DB_SQLPARAM_SYMBOL <> "?" Then values = values & fld.FldVar
                    values = values & ","
                End If
            Next f
            If values.EndsWith(",") Then values = values.Remove(values.Length - 1)
            If values = "" Then Return -1
            Sql = "UPDATE tblSchedule SET " & values
            If CurrentFilter <> "" Then Sql = Sql & " WHERE " & CurrentFilter
            Dim command As OleDbCommand = Conn.GetCommand(Sql)
            For Each f As DictionaryEntry In Rs
                fld = FieldByName(f.Key)
                If fld IsNot Nothing Then
                    value = f.Value
                    command.Parameters.Add(fld.FldVar, fld.FldDbType).Value = value
                End If
            Next
            Return command.ExecuteNonQuery()
        End Function

        ' Delete
        Public Function Delete(ByRef Rs As OrderedDictionary) As Integer
            Dim Sql As String
            Dim fld As cField
            Sql = "DELETE FROM tblSchedule WHERE "
            fld = FieldByName("schSchID")
            Sql = Sql & fld.FldExpression & "=" & ew_QuotedValue(Rs("schSchID"), EW_DATATYPE_NUMBER) & " AND "
            If Sql.EndsWith(" AND ") Then Sql = Sql.Remove(Sql.Length - 5)
            If CurrentFilter <> "" Then    Sql = Sql & " AND " & CurrentFilter
            Return Conn.Execute(Sql)
        End Function

        ' Key filter for table
        Private ReadOnly Property SqlKeyFilter() As String
            Get
                Return "tblSchedule.schSchID = @schSchID@"
            End Get
        End Property

        ' Return Key filter for table
        Public ReadOnly Property KeyFilter() As String
            Get
                Dim sKeyFilter As String
                sKeyFilter = SqlKeyFilter
                If Not IsNumeric(schSchID.CurrentValue) Then
                    sKeyFilter = "0=1" ' Invalid key
                End If
                sKeyFilter = sKeyFilter.Replace("@schSchID@", ew_AdjustSql(schSchID.CurrentValue)) ' Replace key value
                Return sKeyFilter
            End Get
        End Property

        ' Return URL
        Public ReadOnly Property ReturnUrl() As String
            Get ' Get referer URL automatically
                If HttpContext.Current.Request.ServerVariables("HTTP_REFERER") IsNot Nothing Then
                    If ew_ReferPage() <> ew_CurrentPage() AndAlso ew_ReferPage() <> "login.aspx" Then ' Referer not same page or login page
                        Dim url As String = HttpContext.Current.Request.ServerVariables("HTTP_REFERER")
                        If url.Contains("?a=") Then ' Remove action
                            Dim p1 As Integer = url.LastIndexOf("?a=")
                            Dim p2 As Integer = url.IndexOf("&", p1)
                            If p2 > -1 Then
                                url = url.Substring(0, p1 + 1) & url.Substring(p2 + 1)
                            Else
                                url = url.Substring(0, p1)
                            End If
                        End If
                        ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_RETURN_URL) = url ' Save to Session
                    End If
                End If
                If ew_NotEmpty(ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_RETURN_URL)) Then
                    Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_RETURN_URL)
                Else
                    Return "viewClockInOutlist.aspx"
                End If
            End Get
        End Property

        Public Function KeyUrl2(ByVal url As String, ByVal parm1 As String, ByVal parm2 As String) As String
            Dim sUrl As String : sUrl = url & "?"
            If parm1 <> "" Then sUrl = sUrl & parm1 & "&"
            If parm2 <> "" Then sUrl = sUrl & parm2 & "&"
            If Not IsDBNull(schSchID.CurrentValue) Then
                sUrl = sUrl & "schSchID=" & schSchID.CurrentValue
            Else
                KeyUrl2 = "javascript:alert('Invalid Record! Key is null');"
                Exit Function
            End If
            KeyUrl2 = sUrl
        End Function

        ' Edit url
        Public Function EditInUrl() As String
            EditInUrl = KeyUrl(ew_CurrentPage(), UrlParm("a=editIn"))
        End Function

        Public Function EditOutUrl() As String
            EditOutUrl = KeyUrl(ew_CurrentPage(), UrlParm("a=editOut"))
        End Function

        Public Function EditOutUrl2() As String
            EditOutUrl2 = KeyUrl(ew_CurrentPage(), UrlParm("a=editOutU"))
        End Function

        ' View URL
        Public Function ViewUrl() As String
            Return KeyUrl("viewClockInOutview.aspx", UrlParm(""))
        End Function

        ' Add URL
        Public Function AddUrl() As String
            AddUrl = "viewClockInOutadd.aspx"
            Dim sUrlParm As String
            sUrlParm = UrlParm("")
            If sUrlParm <> "" Then AddUrl = AddUrl & "?" & sUrlParm
        End Function

        ' Edit URL
        Public Function EditUrl() As String
            Return KeyUrl("viewClockInOutedit.aspx", UrlParm(""))
        End Function

        ' Inline edit URL
        Public Function InlineEditUrl() As String
            Return KeyUrl(ew_CurrentPage(), UrlParm("a=edit"))
        End Function

        ' Copy URL
        Public Function CopyUrl() As String
            Return KeyUrl("viewClockInOutadd.aspx", UrlParm(""))
        End Function

        ' Inline copy URL
        Public Function InlineCopyUrl() As String
            Return KeyUrl(ew_CurrentPage(), UrlParm("a=copy"))
        End Function

        ' Delete URL
        Public Function DeleteUrl() As String
            Return KeyUrl("viewClockInOutdelete.aspx", UrlParm(""))
        End Function

        ' Key URL
        Public Function KeyUrl(url As String, parm As String) As String
            Dim sUrl As String
            sUrl = url & "?"
            If parm <> "" Then sUrl = sUrl & parm & "&"
            If Not IsDbNull(schSchID.CurrentValue) Then
                sUrl = sUrl & "schSchID=" & schSchID.CurrentValue
            Else
                Return "javascript:alert('Invalid Record! Key is null');"
            End If
            Return sUrl
        End Function

        ' URL parm
        Function UrlParm(parm As String) As String
            Dim OutStr As String = ""
            If UseTokenInUrl Then
                OutStr = "t=viewClockInOut"
            End If
            If parm <> "" Then
                If OutStr <> "" Then OutStr = OutStr & "&"
                OutStr = OutStr & parm
            End If
            Return OutStr
        End Function

        ' Sort URL
        Public Function SortUrl(ByRef fld As cField) As String
            Dim OutStr As String = ""
            If CurrentAction <> "" OrElse Export <> "" OrElse (fld.FldType = 201 OrElse fld.FldType = 203 OrElse fld.FldType = 205) Then
                OutStr = ""
            Else
                OutStr = ew_CurrentPage()
                Dim sUrlParm As String
                sUrlParm = UrlParm("order=" & HttpContext.Current.Server.UrlEncode(fld.FldName) & "&ordertype=" & fld.ReverseSort)
                OutStr = OutStr & "?" & sUrlParm
            End If
            Return OutStr
        End Function

        ' Load rows based on filter
        Public Function LoadRs(sFilter As String) As OleDbDataReader
            Dim RsRows As OleDbDataReader

            ' Set up filter (SQL WHERE clause)
            CurrentFilter = sFilter
            Dim sSql As String = SQL()
            Try
                RsRows = Conn.GetDataReader(sSql)
                If RsRows.HasRows Then
                    Return RsRows
                Else
                    RsRows.Close()
                    RsRows.Dispose()
                End If
            Catch
            End Try
            Return Nothing
        End Function

        ' Load row values from recordset
        Public Sub LoadListRowValues(ByRef RsRow As OleDbDataReader)
            schSchID.DbValue = RsRow("schSchID")
            schDate.DbValue = RsRow("schDate")
            schEvtID.DbValue = RsRow("schEvtID")
            schPartsID.DbValue = RsRow("schPartsID")
            schCallTime.DbValue = RsRow("schCallTime")
            schStartTime.DbValue = RsRow("schStartTime")
            schEndTime.DbValue = RsRow("schEndTime")
            schOutTime.DbValue = RsRow("schOutTime")
            schLocID.DbValue = RsRow("schLocID")
            schEmpID.DbValue = RsRow("schEmpID")
            schPosID.DbValue = RsRow("schPosID")
            schTypID.DbValue = RsRow("schTypID")
            schNotes.DbValue = RsRow("schNotes")
            schActualStart.DbValue = RsRow("schActualStart")
            schActualEnd.DbValue = RsRow("schActualEnd")
            schDateCreated.DbValue = RsRow("schDateCreated")
            schStatus.DbValue = RsRow("schStatus")
            schDayOfWeek.DbValue = RsRow("schDayOfWeek")
        End Sub

        ' Render list row values
        Public Sub RenderListRow()

            ' Row Rendering event
            Row_Rendering()

            ' schDate
            schDate.ViewValue = schDate.CurrentValue
            schDate.ViewValue = ew_FormatDateTime(schDate.ViewValue, 6)
            schDate.CssStyle = ""
            schDate.CssClass = ""
            schDate.ViewCustomAttributes = ""

            ' schEvtID
            If ew_NotEmpty(schEvtID.CurrentValue) Then
                sSqlWrk = "SELECT [evtDescription] FROM [tblEvents] WHERE [evtID] = " & ew_AdjustSql(schEvtID.CurrentValue) & ""
                sSqlWrk = sSqlWrk & " ORDER BY [evtDescription] "
                RsWrk = Conn.GetTempDataReader(sSqlWrk)
                If RsWrk.Read() Then
                    schEvtID.ViewValue = RsWrk("evtDescription")
                Else
                    schEvtID.ViewValue = schEvtID.CurrentValue
                End If
                Conn.CloseTempDataReader()
            Else
                schEvtID.ViewValue = System.DBNull.Value
            End If
            schEvtID.CssStyle = ""
            schEvtID.CssClass = ""
            schEvtID.ViewCustomAttributes = ""

            ' schPartsID
            If ew_NotEmpty(schPartsID.CurrentValue) Then
                sSqlWrk = "SELECT [prtDescription] FROM [tblParts] WHERE [prtID] = " & ew_AdjustSql(schPartsID.CurrentValue) & ""
                sSqlWrk = sSqlWrk & " ORDER BY [prtDescription] "
                RsWrk = Conn.GetTempDataReader(sSqlWrk)
                If RsWrk.Read() Then
                    schPartsID.ViewValue = RsWrk("prtDescription")
                Else
                    schPartsID.ViewValue = schPartsID.CurrentValue
                End If
                Conn.CloseTempDataReader()
            Else
                schPartsID.ViewValue = System.DBNull.Value
            End If
            schPartsID.CssStyle = ""
            schPartsID.CssClass = ""
            schPartsID.ViewCustomAttributes = ""

            ' schCallTime
            schCallTime.ViewValue = schCallTime.CurrentValue
            schCallTime.ViewValue = ew_FormatDateTime(schCallTime.ViewValue, 14)
            schCallTime.CssStyle = ""
            schCallTime.CssClass = ""
            schCallTime.ViewCustomAttributes = ""

            ' schStartTime
            schStartTime.ViewValue = schStartTime.CurrentValue
            schStartTime.ViewValue = ew_FormatDateTime(schStartTime.ViewValue, 14)
            schStartTime.CssStyle = ""
            schStartTime.CssClass = ""
            schStartTime.ViewCustomAttributes = ""

            ' schEndTime
            schEndTime.ViewValue = schEndTime.CurrentValue
            schEndTime.ViewValue = ew_FormatDateTime(schEndTime.ViewValue, 14)
            schEndTime.CssStyle = ""
            schEndTime.CssClass = ""
            schEndTime.ViewCustomAttributes = ""

            ' schOutTime
            schOutTime.ViewValue = schOutTime.CurrentValue
            schOutTime.ViewValue = ew_FormatDateTime(schOutTime.ViewValue, 14)
            schOutTime.CssStyle = ""
            schOutTime.CssClass = ""
            schOutTime.ViewCustomAttributes = ""

            ' schLocID
            If ew_NotEmpty(schLocID.CurrentValue) Then
                sSqlWrk = "SELECT [locDescription] FROM [tblLocations] WHERE [locID] = " & ew_AdjustSql(schLocID.CurrentValue) & ""
                sSqlWrk = sSqlWrk & " ORDER BY [locDescription] "
                RsWrk = Conn.GetTempDataReader(sSqlWrk)
                If RsWrk.Read() Then
                    schLocID.ViewValue = RsWrk("locDescription")
                Else
                    schLocID.ViewValue = schLocID.CurrentValue
                End If
                Conn.CloseTempDataReader()
            Else
                schLocID.ViewValue = System.DBNull.Value
            End If
            schLocID.CssStyle = ""
            schLocID.CssClass = ""
            schLocID.ViewCustomAttributes = ""

            ' schEmpID
            If ew_NotEmpty(schEmpID.CurrentValue) Then
                sSqlWrk = "SELECT [empName] FROM [tblEmployees] WHERE [empID] = " & ew_AdjustSql(schEmpID.CurrentValue) & ""
                sSqlWrk = sSqlWrk & " ORDER BY [empFirstName] "
                RsWrk = Conn.GetTempDataReader(sSqlWrk)
                If RsWrk.Read() Then
                    schEmpID.ViewValue = RsWrk("empName")
                Else
                    schEmpID.ViewValue = schEmpID.CurrentValue
                End If
                Conn.CloseTempDataReader()
            Else
                schEmpID.ViewValue = System.DBNull.Value
            End If
            schEmpID.CssStyle = ""
            schEmpID.CssClass = ""
            schEmpID.ViewCustomAttributes = ""

            ' schPosID
            If ew_NotEmpty(schPosID.CurrentValue) Then
                sSqlWrk = "SELECT [posDescription] FROM [tblPositions] WHERE [posID] = " & ew_AdjustSql(schPosID.CurrentValue) & ""
                sSqlWrk = sSqlWrk & " ORDER BY [posDescription] "
                RsWrk = Conn.GetTempDataReader(sSqlWrk)
                If RsWrk.Read() Then
                    schPosID.ViewValue = RsWrk("posDescription")
                Else
                    schPosID.ViewValue = schPosID.CurrentValue
                End If
                Conn.CloseTempDataReader()
            Else
                schPosID.ViewValue = System.DBNull.Value
            End If
            schPosID.CssStyle = ""
            schPosID.CssClass = ""
            schPosID.ViewCustomAttributes = ""

            ' schTypID
            If ew_NotEmpty(schTypID.CurrentValue) Then
                sSqlWrk = "SELECT [typDescription] FROM [tblTypes] WHERE [typID] = " & ew_AdjustSql(schTypID.CurrentValue) & ""
                sSqlWrk = sSqlWrk & " ORDER BY [typDescription] "
                RsWrk = Conn.GetTempDataReader(sSqlWrk)
                If RsWrk.Read() Then
                    schTypID.ViewValue = RsWrk("typDescription")
                Else
                    schTypID.ViewValue = schTypID.CurrentValue
                End If
                Conn.CloseTempDataReader()
            Else
                schTypID.ViewValue = System.DBNull.Value
            End If
            schTypID.CssStyle = ""
            schTypID.CssClass = ""
            schTypID.ViewCustomAttributes = ""

            ' schActualStart
            schActualStart.ViewValue = schActualStart.CurrentValue
            schActualStart.ViewValue = ew_FormatDateTime(schActualStart.ViewValue, 14)
            schActualStart.CssStyle = ""
            schActualStart.CssClass = ""
            schActualStart.ViewCustomAttributes = ""

            ' schActualEnd
            schActualEnd.ViewValue = schActualEnd.CurrentValue
            schActualEnd.ViewValue = ew_FormatDateTime(schActualEnd.ViewValue, 14)
            schActualEnd.CssStyle = ""
            schActualEnd.CssClass = ""
            schActualEnd.ViewCustomAttributes = ""

            ' schDateCreated
            schDateCreated.ViewValue = schDateCreated.CurrentValue
            schDateCreated.ViewValue = ew_FormatDateTime(schDateCreated.ViewValue, 6)
            schDateCreated.CssStyle = ""
            schDateCreated.CssClass = ""
            schDateCreated.ViewCustomAttributes = ""

            ' schStatus
            If ew_NotEmpty(schStatus.CurrentValue) Then
                sSqlWrk = "SELECT [stDescription] FROM [tblScheduleStatus] WHERE [stID] = " & ew_AdjustSql(schStatus.CurrentValue) & ""
                sSqlWrk = sSqlWrk & " ORDER BY [stDescription] "
                RsWrk = Conn.GetTempDataReader(sSqlWrk)
                If RsWrk.Read() Then
                    schStatus.ViewValue = RsWrk("stDescription")
                Else
                    schStatus.ViewValue = schStatus.CurrentValue
                End If
                Conn.CloseTempDataReader()
            Else
                schStatus.ViewValue = System.DBNull.Value
            End If
            schStatus.CssStyle = ""
            schStatus.CssClass = ""
            schStatus.ViewCustomAttributes = ""

            ' schDayOfWeek
            If ew_NotEmpty(schDayOfWeek.CurrentValue) Then
                Select Case schDayOfWeek.CurrentValue
                    Case "1"
                        schDayOfWeek.ViewValue = "Sun"
                    Case "2"
                        schDayOfWeek.ViewValue = "Mon"
                    Case "3"
                        schDayOfWeek.ViewValue = "Tues"
                    Case "4"
                        schDayOfWeek.ViewValue = "Wed"
                    Case "5"
                        schDayOfWeek.ViewValue = "Thu"
                    Case "6"
                        schDayOfWeek.ViewValue = "Fri"
                    Case "7"
                        schDayOfWeek.ViewValue = "Sat"
                End Select
            Else
                schDayOfWeek.ViewValue = System.DBNull.Value
            End If
            schDayOfWeek.CssStyle = ""
            schDayOfWeek.CssClass = ""
            schDayOfWeek.ViewCustomAttributes = ""


            ' schDate
            schDate.HrefValue = ""

            ' schEvtID
            schEvtID.HrefValue = ""

            ' schPartsID
            schPartsID.HrefValue = ""

            ' schCallTime
            schCallTime.HrefValue = ""

            ' schStartTime
            schStartTime.HrefValue = ""

            ' schEndTime
            schEndTime.HrefValue = ""

            ' schOutTime
            schOutTime.HrefValue = ""

            ' schLocID
            schLocID.HrefValue = ""

            ' schEmpID
            schEmpID.HrefValue = ""

            ' schPosID
            schPosID.HrefValue = ""

            ' schTypID
            schTypID.HrefValue = ""

            ' schActualStart
            schActualStart.HrefValue = ""

            ' schActualEnd
            schActualEnd.HrefValue = ""

            ' schDateCreated
            schDateCreated.HrefValue = ""

            ' schStatus
            schStatus.HrefValue = ""

            ' schDayOfWeek
            schDayOfWeek.HrefValue = ""

            ' Row Rendered event
            Row_Rendered()
        End Sub

        ' Add user ID filter
        Public Function AddUserIDFilter(sFilter As String) As String
            Dim sFilterWrk As String
            sFilterWrk = Security.UserIDList
            If Not Security.IsAdmin AndAlso sFilterWrk <> "" Then
                sFilterWrk = "tblSchedule.schEmpID IN (" & sFilterWrk & ")"
                If sFilter <> "" Then sFilterWrk = "(" & sFilter & ") AND (" & sFilterWrk & ")"
            Else
                sFilterWrk = sFilter
            End If
            Return sFilterWrk
        End Function

        ' Get user ID subquery
        Public Function GetUserIDSubquery(ByRef fld As Object, ByRef masterfld As Object) As String
            Dim sWrk As String = ""
            Dim sSql As String = "SELECT " & masterfld.FldExpression & " FROM tblSchedule WHERE " & AddUserIDFilter("")
            If EW_USE_SUBQUERY_FOR_MASTER_USER_ID Then ' Use subquery
                sWrk = sSql
            Else ' List all values
                Dim RsUser As OleDbDataReader = Conn.GetTempDataReader(sSql)
                Try
                    Do While RsUser.Read()
                        If sWrk <> "" Then sWrk = sWrk & ","
                        sWrk = sWrk & ew_QuotedValue(RsUser(0), masterfld.FldDataType)
                    Loop
                Finally
                    Conn.CloseTempDataReader()
                End Try
            End If
            If sWrk <> "" Then
                sWrk = fld.FldExpression & " IN (" & sWrk & ")"
            End If
            Return sWrk
        End Function

        Public CurrentAction As String ' Current action

        Public EventCancelled As Boolean ' Event cancelled

        Public CancelMessage As String ' Cancel message

        ' Row Type
        Public RowType As Integer

        Public CssClass As String = "" ' CSS class

        Public CssStyle As String = "" ' CSS style

        Public RowClientEvents As String = "" ' Row client events

        ' Row Attribute
        Public ReadOnly Property RowAttributes() As String
            Get
                Dim sAtt As String = ""
                If ew_NotEmpty(CssStyle) Then
                    sAtt = sAtt & " style=""" & CssStyle.Trim() & """"
                End If
                If ew_NotEmpty(CssClass) Then
                    sAtt = sAtt & " class=""" & CssClass.Trim() & """"
                End If
                If m_Export = "" Then
                    If ew_NotEmpty(RowClientEvents) Then
                        sAtt = sAtt & " " & RowClientEvents.Trim()
                    End If
                End If
                Return sAtt
            End Get
        End Property

        ' Export
        Private m_Export As String

        Public Property Export() As String
            Get
                Return m_Export
            End Get
            Set(ByVal Value As String)
                m_Export = Value
            End Set
        End Property

        ' Export Original Value
        Public ExportOriginalValue As Boolean = EW_EXPORT_ORIGINAL_VALUE

        ' Export All
        Public ExportAll As Boolean = EW_EXPORT_ALL

        ' Send Email
        Public SendEmail As Boolean

        ' Custom Inner Html
        Public TableCustomInnerHtml As Object

        '
        '  Field objects
        '
        Public Function FieldByName(Name As String) As Object
            If Name = "schSchID" Then Return schSchID
            If Name = "schDate" Then Return schDate
            If Name = "schEvtID" Then Return schEvtID
            If Name = "schPartsID" Then Return schPartsID
            If Name = "schCallTime" Then Return schCallTime
            If Name = "schStartTime" Then Return schStartTime
            If Name = "schEndTime" Then Return schEndTime
            If Name = "schOutTime" Then Return schOutTime
            If Name = "schLocID" Then Return schLocID
            If Name = "schEmpID" Then Return schEmpID
            If Name = "schPosID" Then Return schPosID
            If Name = "schTypID" Then Return schTypID
            If Name = "schNotes" Then Return schNotes
            If Name = "schActualStart" Then Return schActualStart
            If Name = "schActualEnd" Then Return schActualEnd
            If Name = "schDateCreated" Then Return schDateCreated
            If Name = "schStatus" Then Return schStatus
            If Name = "schDayOfWeek" Then Return schDayOfWeek
            Return Nothing
        End Function

        ' schSchID
        Private m_schSchID As cField

        Public ReadOnly Property schSchID() As cField
            Get
                If m_schSchID Is Nothing Then m_schSchID = New cField("viewClockInOut", "x_schSchID", "schSchID", "tblSchedule.schSchID", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_schSchID
            End Get
        End Property

        ' schDate
        Private m_schDate As cField

        Public ReadOnly Property schDate() As cField
            Get
                If m_schDate Is Nothing Then m_schDate = New cField("viewClockInOut", "x_schDate", "schDate", "tblSchedule.schDate", 7, OleDbType.Date, EW_DATATYPE_DATE,  6)
                Return m_schDate
            End Get
        End Property

        ' schEvtID
        Private m_schEvtID As cField

        Public ReadOnly Property schEvtID() As cField
            Get
                If m_schEvtID Is Nothing Then m_schEvtID = New cField("viewClockInOut", "x_schEvtID", "schEvtID", "tblSchedule.schEvtID", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_schEvtID
            End Get
        End Property

        ' schPartsID
        Private m_schPartsID As cField

        Public ReadOnly Property schPartsID() As cField
            Get
                If m_schPartsID Is Nothing Then m_schPartsID = New cField("viewClockInOut", "x_schPartsID", "schPartsID", "tblSchedule.schPartsID", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_schPartsID
            End Get
        End Property

        ' schCallTime
        Private m_schCallTime As cField

        Public ReadOnly Property schCallTime() As cField
            Get
                If m_schCallTime Is Nothing Then m_schCallTime = New cField("viewClockInOut", "x_schCallTime", "schCallTime", "tblSchedule.schCallTime", 7, OleDbType.Date, EW_DATATYPE_DATE,  4)
                Return m_schCallTime
            End Get
        End Property

        ' schStartTime
        Private m_schStartTime As cField

        Public ReadOnly Property schStartTime() As cField
            Get
                If m_schStartTime Is Nothing Then m_schStartTime = New cField("viewClockInOut", "x_schStartTime", "schStartTime", "tblSchedule.schStartTime", 7, OleDbType.Date, EW_DATATYPE_DATE,  4)
                Return m_schStartTime
            End Get
        End Property

        ' schEndTime
        Private m_schEndTime As cField

        Public ReadOnly Property schEndTime() As cField
            Get
                If m_schEndTime Is Nothing Then m_schEndTime = New cField("viewClockInOut", "x_schEndTime", "schEndTime", "tblSchedule.schEndTime", 7, OleDbType.Date, EW_DATATYPE_DATE,  4)
                Return m_schEndTime
            End Get
        End Property

        ' schOutTime
        Private m_schOutTime As cField

        Public ReadOnly Property schOutTime() As cField
            Get
                If m_schOutTime Is Nothing Then m_schOutTime = New cField("viewClockInOut", "x_schOutTime", "schOutTime", "tblSchedule.schOutTime", 7, OleDbType.Date, EW_DATATYPE_DATE,  4)
                Return m_schOutTime
            End Get
        End Property

        ' schLocID
        Private m_schLocID As cField

        Public ReadOnly Property schLocID() As cField
            Get
                If m_schLocID Is Nothing Then m_schLocID = New cField("viewClockInOut", "x_schLocID", "schLocID", "tblSchedule.schLocID", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_schLocID
            End Get
        End Property

        ' schEmpID
        Private m_schEmpID As cField

        Public ReadOnly Property schEmpID() As cField
            Get
                If m_schEmpID Is Nothing Then m_schEmpID = New cField("viewClockInOut", "x_schEmpID", "schEmpID", "tblSchedule.schEmpID", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_schEmpID
            End Get
        End Property

        ' schPosID
        Private m_schPosID As cField

        Public ReadOnly Property schPosID() As cField
            Get
                If m_schPosID Is Nothing Then m_schPosID = New cField("viewClockInOut", "x_schPosID", "schPosID", "tblSchedule.schPosID", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_schPosID
            End Get
        End Property

        ' schTypID
        Private m_schTypID As cField

        Public ReadOnly Property schTypID() As cField
            Get
                If m_schTypID Is Nothing Then m_schTypID = New cField("viewClockInOut", "x_schTypID", "schTypID", "tblSchedule.schTypID", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_schTypID
            End Get
        End Property

        ' schNotes
        Private m_schNotes As cField

        Public ReadOnly Property schNotes() As cField
            Get
                If m_schNotes Is Nothing Then m_schNotes = New cField("viewClockInOut", "x_schNotes", "schNotes", "tblSchedule.schNotes", 203, OleDbType.LongVarWChar, EW_DATATYPE_MEMO,  0)
                Return m_schNotes
            End Get
        End Property

        ' schActualStart
        Private m_schActualStart As cField

        Public ReadOnly Property schActualStart() As cField
            Get
                If m_schActualStart Is Nothing Then m_schActualStart = New cField("viewClockInOut", "x_schActualStart", "schActualStart", "tblSchedule.schActualStart", 7, OleDbType.Date, EW_DATATYPE_DATE,  4)
                Return m_schActualStart
            End Get
        End Property

        ' schActualEnd
        Private m_schActualEnd As cField

        Public ReadOnly Property schActualEnd() As cField
            Get
                If m_schActualEnd Is Nothing Then m_schActualEnd = New cField("viewClockInOut", "x_schActualEnd", "schActualEnd", "tblSchedule.schActualEnd", 7, OleDbType.Date, EW_DATATYPE_DATE,  4)
                Return m_schActualEnd
            End Get
        End Property

        ' schDateCreated
        Private m_schDateCreated As cField

        Public ReadOnly Property schDateCreated() As cField
            Get
                If m_schDateCreated Is Nothing Then m_schDateCreated = New cField("viewClockInOut", "x_schDateCreated", "schDateCreated", "tblSchedule.schDateCreated", 7, OleDbType.Date, EW_DATATYPE_DATE,  6)
                Return m_schDateCreated
            End Get
        End Property

        ' schStatus
        Private m_schStatus As cField

        Public ReadOnly Property schStatus() As cField
            Get
                If m_schStatus Is Nothing Then m_schStatus = New cField("viewClockInOut", "x_schStatus", "schStatus", "tblSchedule.schStatus", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_schStatus
            End Get
        End Property

        ' schDayOfWeek
        Private m_schDayOfWeek As cField

        Public ReadOnly Property schDayOfWeek() As cField
            Get
                If m_schDayOfWeek Is Nothing Then m_schDayOfWeek = New cField("tblSchedule", "x_schDayOfWeek", "schDayOfWeek", "[schDayOfWeek]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER, 0)
                Return m_schDayOfWeek
            End Get
        End Property

        ' Table level events
        ' Recordset Selecting event
        Public Sub Recordset_Selecting(ByRef filter As String)

            ' Enter your code here
        End Sub

        ' Recordset Selected event
        Public Sub Recordset_Selected(rs As DbDataReader)

            'HttpContext.Current.Response.Write("Recordset Selected")
        End Sub

        ' Recordset Searching event
        Public Sub Recordset_Searching(ByRef filter As String)

            ' Enter your code here
        End Sub

        ' Row_Selecting event
        Public Sub Row_Selecting(ByRef filter As String)

            ' Enter your code here
        End Sub

        ' Row Selected event
        Public Sub Row_Selected(rs As DbDataReader)

            'HttpContext.Current.Response.Write("Row Selected")
        End Sub

        ' Row Rendering event
        Public Sub Row_Rendering()

            ' Enter your code here
        End Sub

        ' Row Rendered event
        Public Sub Row_Rendered()

            ' To view properties of field class, use:
            ' HttpContext.Current.Response.Write(<FieldName>.AsString())

        End Sub

        ' Row Inserting event
        Public Function Row_Inserting(ByRef rs As OrderedDictionary) As Boolean

            ' Enter your code here
            ' To cancel, set return value to False and error message to CancelMessage

            Return True
        End Function

        ' Row Inserted event
        Public Sub Row_Inserted(rs As OrderedDictionary)

            'HttpContext.Current.Response.Write("Row Inserted")
        End Sub

        ' Row Updating event
        Public Function Row_Updating(rsold As OrderedDictionary, ByRef rsnew As OrderedDictionary) As Boolean

            ' Enter your code here
            ' To cancel, set return value to False and error message to CancelMessage

            Return True
        End Function

        ' Row Updated event
        Public Sub Row_Updated(rsold As OrderedDictionary, rsnew As OrderedDictionary)

            'HttpContext.Current.Response.Write("Row Updated")
        End Sub

        ' Recordset Deleting event
        Public Function Row_Deleting(rs As OrderedDictionary) As Boolean

            ' Enter your code here
            ' To cancel, set return value to False and error message to CancelMessage

            Return True
        End Function

        ' Recordset Deleted event
        Public Sub Row_Deleted(rs As OrderedDictionary)

            'HttpContext.Current.Response.Write("Row Deleted")
        End Sub

        ' Email Sending event
        Public Function Email_Sending(ByRef Email As cEmail, Args As Hashtable) As Boolean

            'HttpContext.Current.Response.Write(Email.AsString())
            'HttpContext.Current.Response.End()

            Return True
        End Function

        ' Class terminate
        Public Sub Dispose() Implements IDisposable.Dispose
            If m_schSchID IsNot Nothing Then m_schSchID.Dispose()
            If m_schDate IsNot Nothing Then m_schDate.Dispose()
            If m_schEvtID IsNot Nothing Then m_schEvtID.Dispose()
            If m_schPartsID IsNot Nothing Then m_schPartsID.Dispose()
            If m_schCallTime IsNot Nothing Then m_schCallTime.Dispose()
            If m_schStartTime IsNot Nothing Then m_schStartTime.Dispose()
            If m_schEndTime IsNot Nothing Then m_schEndTime.Dispose()
            If m_schOutTime IsNot Nothing Then m_schOutTime.Dispose()
            If m_schLocID IsNot Nothing Then m_schLocID.Dispose()
            If m_schEmpID IsNot Nothing Then m_schEmpID.Dispose()
            If m_schPosID IsNot Nothing Then m_schPosID.Dispose()
            If m_schTypID IsNot Nothing Then m_schTypID.Dispose()
            If m_schNotes IsNot Nothing Then m_schNotes.Dispose()
            If m_schActualStart IsNot Nothing Then m_schActualStart.Dispose()
            If m_schActualEnd IsNot Nothing Then m_schActualEnd.Dispose()
            If m_schDateCreated IsNot Nothing Then m_schDateCreated.Dispose()
            If m_schStatus IsNot Nothing Then m_schStatus.Dispose()
            If m_schDayOfWeek IsNot Nothing Then m_schDayOfWeek.Dispose()
        End Sub
    End Class
End Class