66.142.0.142/66.142.0.142.tar/66.142.0.142/App_Code/tblLPRinfo.vb

Text File | 2010-08-24 | 36KB | 1,105 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 tblLPR As ctblLPR

    ' Define table class
    Class ctblLPR
        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 "tblLPR"
            End Get
        End Property

        ' Table name
        Public ReadOnly Property TableName() As String
            Get
                Return "tblLPR"
            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 "tblLPR_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 * FROM [tblLPR]"
            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 "[lprDate] DESC,[lprEmpID] ASC"
            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 And ew_Session("tfpssnet_Status_UserLevel") <> -1 And ew_Session("tfpssnet_status_Userlevel") <> 3 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 And ew_Session("tfpssnet_Status_UserLevel") <> -1 And ew_Session("tfpssnet_status_Userlevel") <> 3 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 And ew_Session("tfpssnet_Status_UserLevel") <> -1 And ew_Session("tfpssnet_status_Userlevel") <> 3 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 & ","
                    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 [tblLPR] (" & 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 [tblLPR] 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 [tblLPR] WHERE "
            fld = FieldByName("lprID")
            Sql = Sql & fld.FldExpression & "=" & ew_QuotedValue(Rs("lprID"), 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 "[lprID] = @lprID@"
            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(lprID.CurrentValue) Then
                    sKeyFilter = "0=1" ' Invalid key
                End If
                sKeyFilter = sKeyFilter.Replace("@lprID@", ew_AdjustSql(lprID.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 "tblLPRlist.aspx"
                End If
            End Get
        End Property

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

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

        ' Edit URL
        Public Function EditUrl() As String
            Return KeyUrl("tblLPRedit.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("tblLPRadd.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("tblLPRdelete.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(lprID.CurrentValue) Then
                sUrl = sUrl & "lprID=" & lprID.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=tblLPR"
            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)
            lprID.DbValue = RsRow("lprID")
            lprEmpID.DbValue = RsRow("lprEmpID")
            lprDate.DbValue = RsRow("lprDate")
            lprLocationID.DbValue = RsRow("lprLocationID")
            lprFixtureLocationID.DbValue = RsRow("lprFixtureLocationID")
            lprFixtureTypeID.DbValue = RsRow("lprFixtureTypeID")
            lprFixtureNumber.DbValue = RsRow("lprFixtureNumber")
            lprChannelNumber.DbValue = RsRow("lprChannelNumber")
            lprPriority.DbValue = RsRow("lprPriority")
            lprShortDesc.DbValue = RsRow("lprShortDesc")
            lprSTID.DbValue = RsRow("lprSTID")
            lprSTChangedBy.DbValue = RsRow("lprSTChangedBy")
            lprDesc.DbValue = RsRow("lprDesc")
            lprCreatedBy.DbValue = RsRow("lprCreatedBy")
            lprCreatedOn.DbValue = RsRow("lprCreatedOn")
            lprModifiedBy.DbValue = RsRow("lprModifiedBy")
            lprModifiedOn.DbValue = RsRow("lprModifiedOn")
        End Sub

        ' Render list row values
        Public Sub RenderListRow()

            ' Row Rendering event
            Row_Rendering()

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

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

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

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

            ' lprFixtureTypeID
            If ew_NotEmpty(lprFixtureTypeID.CurrentValue) Then
                sSqlWrk = "SELECT [ftyDescription] FROM [tblLPRFixtureType] WHERE [ftyID] = " & ew_AdjustSql(lprFixtureTypeID.CurrentValue) & ""
                RsWrk = Conn.GetTempDataReader(sSqlWrk)
                If RsWrk.Read() Then
                    lprFixtureTypeID.ViewValue = RsWrk("ftyDescription")
                Else
                    lprFixtureTypeID.ViewValue = lprFixtureTypeID.CurrentValue
                End If
                Conn.CloseTempDataReader()
            Else
                lprFixtureTypeID.ViewValue = System.DBNull.Value
            End If
            lprFixtureTypeID.CssStyle = ""
            lprFixtureTypeID.CssClass = ""
            lprFixtureTypeID.ViewCustomAttributes = ""

            ' lprFixtureNumber
            lprFixtureNumber.ViewValue = lprFixtureNumber.CurrentValue
            lprFixtureNumber.CssStyle = ""
            lprFixtureNumber.CssClass = ""
            lprFixtureNumber.ViewCustomAttributes = ""

            ' lprChannelNumber
            lprChannelNumber.ViewValue = lprChannelNumber.CurrentValue
            lprChannelNumber.CssStyle = ""
            lprChannelNumber.CssClass = ""
            lprChannelNumber.ViewCustomAttributes = ""

            ' lprPriority
            If Not IsDBNull(lprPriority.CurrentValue) Then
                Select Case lprPriority.CurrentValue
                    Case "0"
                        lprPriority.ViewValue = "Not Specified"
                    Case "1"
                        lprPriority.ViewValue = "Low"
                    Case "2"
                        lprPriority.ViewValue = "Medium"
                    Case "3"
                        lprPriority.ViewValue = "High"
                    Case Else
                        lprPriority.ViewValue = lprPriority.CurrentValue
                End Select
            Else
                lprPriority.ViewValue = System.DBNull.Value
            End If
            lprPriority.CssStyle = ""
            lprPriority.CssClass = ""
            lprPriority.ViewCustomAttributes = ""

            ' lprShortDesc
            lprShortDesc.ViewValue = lprShortDesc.CurrentValue
            lprShortDesc.CssStyle = ""
            lprShortDesc.CssClass = ""
            lprShortDesc.ViewCustomAttributes = ""

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

            ' lprSTChangedBy
            lprSTChangedBy.ViewValue = lprSTChangedBy.CurrentValue
            lprSTChangedBy.CssStyle = ""
            lprSTChangedBy.CssClass = ""
            lprSTChangedBy.ViewCustomAttributes = ""

            ' lprEmpID
            lprEmpID.HrefValue = ""

            ' lprDate
            lprDate.HrefValue = ""

            ' lprLocationID
            lprLocationID.HrefValue = ""

            ' lprFixtureLocationID
            lprFixtureLocationID.HrefValue = ""

            ' lprFixtureTypeID
            lprFixtureTypeID.HrefValue = ""

            ' lprFixtureNumber
            lprFixtureNumber.HrefValue = ""

            ' lprChannelNumber
            lprChannelNumber.HrefValue = ""

            ' lprPriority
            lprPriority.HrefValue = ""

            ' lprShortDesc
            lprShortDesc.HrefValue = ""

            ' lprSTID
            lprSTID.HrefValue = ""

            ' lprSTChangedBy
            lprSTChangedBy.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 And ew_Session("tfpssnet_Status_UserLevel") <> -1 And ew_Session("tfpssnet_status_Userlevel") <> 3 AndAlso sFilterWrk <> "" Then
                sFilterWrk = "[lprEmpID] 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 [tblLPR] 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 = "lprID" Then Return lprID
            If Name = "lprEmpID" Then Return lprEmpID
            If Name = "lprDate" Then Return lprDate
            If Name = "lprLocationID" Then Return lprLocationID
            If Name = "lprFixtureLocationID" Then Return lprFixtureLocationID
            If Name = "lprFixtureTypeID" Then Return lprFixtureTypeID
            If Name = "lprFixtureNumber" Then Return lprFixtureNumber
            If Name = "lprChannelNumber" Then Return lprChannelNumber
            If Name = "lprPriority" Then Return lprPriority
            If Name = "lprShortDesc" Then Return lprShortDesc
            If Name = "lprSTID" Then Return lprSTID
            If Name = "lprSTChangedBy" Then Return lprSTChangedBy
            If Name = "lprDesc" Then Return lprDesc
            If Name = "lprCreatedBy" Then Return lprCreatedBy
            If Name = "lprCreatedOn" Then Return lprCreatedOn
            If Name = "lprModifiedBy" Then Return lprModifiedBy
            If Name = "lprModifiedOn" Then Return lprModifiedOn
            Return Nothing
        End Function

        ' lprID
        Private m_lprID As cField

        Public ReadOnly Property lprID() As cField
            Get
                If m_lprID Is Nothing Then m_lprID = New cField("tblLPR", "x_lprID", "lprID", "[lprID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_lprID
            End Get
        End Property

        ' lprEmpID
        Private m_lprEmpID As cField

        Public ReadOnly Property lprEmpID() As cField
            Get
                If m_lprEmpID Is Nothing Then m_lprEmpID = New cField("tblLPR", "x_lprEmpID", "lprEmpID", "[lprEmpID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_lprEmpID
            End Get
        End Property

        ' lprDate
        Private m_lprDate As cField

        Public ReadOnly Property lprDate() As cField
            Get
                If m_lprDate Is Nothing Then m_lprDate = New cField("tblLPR", "x_lprDate", "lprDate", "[lprDate]", 135, OleDbType.DBTimeStamp, EW_DATATYPE_DATE,  6)
                Return m_lprDate
            End Get
        End Property

        ' lprLocationID
        Private m_lprLocationID As cField

        Public ReadOnly Property lprLocationID() As cField
            Get
                If m_lprLocationID Is Nothing Then m_lprLocationID = New cField("tblLPR", "x_lprLocationID", "lprLocationID", "[lprLocationID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_lprLocationID
            End Get
        End Property

        ' lprFixtureLocationID
        Private m_lprFixtureLocationID As cField

        Public ReadOnly Property lprFixtureLocationID() As cField
            Get
                If m_lprFixtureLocationID Is Nothing Then m_lprFixtureLocationID = New cField("tblLPR", "x_lprFixtureLocationID", "lprFixtureLocationID", "[lprFixtureLocationID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_lprFixtureLocationID
            End Get
        End Property

        ' lprFixtureTypeID
        Private m_lprFixtureTypeID As cField

        Public ReadOnly Property lprFixtureTypeID() As cField
            Get
                If m_lprFixtureTypeID Is Nothing Then m_lprFixtureTypeID = New cField("tblLPR", "x_lprFixtureTypeID", "lprFixtureTypeID", "[lprFixtureTypeID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_lprFixtureTypeID
            End Get
        End Property

        ' lprFixtureNumber
        Private m_lprFixtureNumber As cField

        Public ReadOnly Property lprFixtureNumber() As cField
            Get
                If m_lprFixtureNumber Is Nothing Then m_lprFixtureNumber = New cField("tblLPR", "x_lprFixtureNumber", "lprFixtureNumber", "[lprFixtureNumber]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING,  0)
                Return m_lprFixtureNumber
            End Get
        End Property

        ' lprChannelNumber
        Private m_lprChannelNumber As cField

        Public ReadOnly Property lprChannelNumber() As cField
            Get
                If m_lprChannelNumber Is Nothing Then m_lprChannelNumber = New cField("tblLPR", "x_lprChannelNumber", "lprChannelNumber", "[lprChannelNumber]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_lprChannelNumber
            End Get
        End Property

        ' lprPriority
        Private m_lprPriority As cField

        Public ReadOnly Property lprPriority() As cField
            Get
                If m_lprPriority Is Nothing Then m_lprPriority = New cField("tblLPR", "x_lprPriority", "lprPriority", "[lprPriority]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_lprPriority
            End Get
        End Property

        ' lprShortDesc
        Private m_lprShortDesc As cField

        Public ReadOnly Property lprShortDesc() As cField
            Get
                If m_lprShortDesc Is Nothing Then m_lprShortDesc = New cField("tblLPR", "x_lprShortDesc", "lprShortDesc", "[lprShortDesc]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING,  0)
                Return m_lprShortDesc
            End Get
        End Property

        ' lprSTID
        Private m_lprSTID As cField

        Public ReadOnly Property lprSTID() As cField
            Get
                If m_lprSTID Is Nothing Then m_lprSTID = New cField("tblLPR", "x_lprSTID", "lprSTID", "[lprSTID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_lprSTID
            End Get
        End Property

        ' lprSTChangedBy
        Private m_lprSTChangedBy As cField

        Public ReadOnly Property lprSTChangedBy() As cField
            Get
                If m_lprSTChangedBy Is Nothing Then m_lprSTChangedBy = New cField("tblLPR", "x_lprSTChangedBy", "lprSTChangedBy", "[lprSTChangedBy]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING,  0)
                Return m_lprSTChangedBy
            End Get
        End Property

        ' lprDesc
        Private m_lprDesc As cField

        Public ReadOnly Property lprDesc() As cField
            Get
                If m_lprDesc Is Nothing Then m_lprDesc = New cField("tblLPR", "x_lprDesc", "lprDesc", "[lprDesc]", 203, OleDbType.LongVarWChar, EW_DATATYPE_MEMO,  0)
                Return m_lprDesc
            End Get
        End Property

        ' lprCreatedBy
        Private m_lprCreatedBy As cField

        Public ReadOnly Property lprCreatedBy() As cField
            Get
                If m_lprCreatedBy Is Nothing Then m_lprCreatedBy = New cField("tblLPR", "x_lprCreatedBy", "lprCreatedBy", "[lprCreatedBy]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING,  0)
                Return m_lprCreatedBy
            End Get
        End Property

        ' lprCreatedOn
        Private m_lprCreatedOn As cField

        Public ReadOnly Property lprCreatedOn() As cField
            Get
                If m_lprCreatedOn Is Nothing Then m_lprCreatedOn = New cField("tblLPR", "x_lprCreatedOn", "lprCreatedOn", "[lprCreatedOn]", 135, OleDbType.DBTimeStamp, EW_DATATYPE_DATE,  6)
                Return m_lprCreatedOn
            End Get
        End Property

        ' lprModifiedBy
        Private m_lprModifiedBy As cField

        Public ReadOnly Property lprModifiedBy() As cField
            Get
                If m_lprModifiedBy Is Nothing Then m_lprModifiedBy = New cField("tblLPR", "x_lprModifiedBy", "lprModifiedBy", "[lprModifiedBy]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING,  0)
                Return m_lprModifiedBy
            End Get
        End Property

        ' lprModifiedOn
        Private m_lprModifiedOn As cField

        Public ReadOnly Property lprModifiedOn() As cField
            Get
                If m_lprModifiedOn Is Nothing Then m_lprModifiedOn = New cField("tblLPR", "x_lprModifiedOn", "lprModifiedOn", "[lprModifiedOn]", 135, OleDbType.DBTimeStamp, EW_DATATYPE_DATE,  6)
                Return m_lprModifiedOn
            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_lprID IsNot Nothing Then m_lprID.Dispose()
            If m_lprEmpID IsNot Nothing Then m_lprEmpID.Dispose()
            If m_lprDate IsNot Nothing Then m_lprDate.Dispose()
            If m_lprLocationID IsNot Nothing Then m_lprLocationID.Dispose()
            If m_lprFixtureLocationID IsNot Nothing Then m_lprFixtureLocationID.Dispose()
            If m_lprFixtureTypeID IsNot Nothing Then m_lprFixtureTypeID.Dispose()
            If m_lprFixtureNumber IsNot Nothing Then m_lprFixtureNumber.Dispose()
            If m_lprChannelNumber IsNot Nothing Then m_lprChannelNumber.Dispose()
            If m_lprPriority IsNot Nothing Then m_lprPriority.Dispose()
            If m_lprShortDesc IsNot Nothing Then m_lprShortDesc.Dispose()
            If m_lprSTID IsNot Nothing Then m_lprSTID.Dispose()
            If m_lprSTChangedBy IsNot Nothing Then m_lprSTChangedBy.Dispose()
            If m_lprDesc IsNot Nothing Then m_lprDesc.Dispose()
            If m_lprCreatedBy IsNot Nothing Then m_lprCreatedBy.Dispose()
            If m_lprCreatedOn IsNot Nothing Then m_lprCreatedOn.Dispose()
            If m_lprModifiedBy IsNot Nothing Then m_lprModifiedBy.Dispose()
            If m_lprModifiedOn IsNot Nothing Then m_lprModifiedOn.Dispose()
        End Sub
    End Class
End Class