66.142.0.142/66.142.0.142.tar/66.142.0.142/tblLPRlist.aspx.vb

Text File | 2010-09-12 | 48KB | 1,365 lines

Imports System.Data
Imports System.Data.Common
Imports System.Xml
Imports System.IO
Imports System.Data.OleDb

'
' ASP.NET code-behind class (Page)
'

Partial Class tblLPRlist
    Inherits AspNetMaker7_tfpssnet

    ' Page object
    Public tblLPR_list As ctblLPR_list

    '
    ' Page Class
    '
    Class ctblLPR_list
        Inherits AspNetMakerPage
        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

        ' Page URL
        Public ReadOnly Property PageUrl() As String
            Get
                Dim Url As String = ew_CurrentPage() & "?"
                If tblLPR.UseTokenInUrl Then Url = Url & "t=" & tblLPR.TableVar & "&" ' Add page token
                Return Url
            End Get
        End Property

        ' Validate page request
        Public Function IsPageRequest() As Boolean
            Dim Result As Boolean
            If tblLPR.UseTokenInUrl Then
                Result = False
                If ObjForm IsNot Nothing Then
                    Result = (tblLPR.TableVar = ObjForm.GetValue("t"))
                End If
                If ew_Get("t") <> "" Then
                    Result = (tblLPR.TableVar = ew_Get("t"))
                End If
                Return Result
            End If
            Return True
        End Function

        ' tblLPR
        Public Property tblLPR() As ctblLPR
            Get
                Return ParentPage.tblLPR
            End Get
            Set(ByVal v As ctblLPR)
                ParentPage.tblLPR = v
            End Set
        End Property

        ' tblLPR
        Public Property tblEmployees() As ctblEmployees
            Get
                Return ParentPage.tblEmployees
            End Get
            Set(ByVal v As ctblEmployees)
                ParentPage.tblEmployees = v
            End Set
        End Property

        '
        '  Constructor
        '  - init objects
        '  - open connection
        '
        Public Sub New(ByRef APage As AspNetMaker7_tfpssnet)
            m_ParentPage = APage
            m_Page = Me
            m_PageID = "list"
            m_PageObjName = "tblLPR_list"
            m_PageObjTypeName = "ctblLPR_list"

            ' Table Name
            m_TableName = "tblLPR"

            ' Initialize table object
            tblLPR = New ctblLPR(Me)
            tblEmployees = New ctblEmployees(Me)

            ' Connect to database
            Conn = New cConnection()

            ' Initialize list options
            ListOptions = New cListOptions
        End Sub

        '
        '  Subroutine Page_Init
        '  - called before page main
        '  - check Security
        '  - set up response header
        '  - call page load events
        '
        Public Sub Page_Init()
            Security = New cAdvancedSecurity(Me)
            If Not Security.IsLoggedIn() Then Security.AutoLogin()
            If Not Security.IsLoggedIn() Then
                Security.SaveLastUrl()
                Page_Terminate("login.aspx")
            End If

            ' Table Permission loading event
            Security.TablePermission_Loading()
            Security.LoadCurrentUserLevel(TableName)

            ' Table Permission loaded event
            Security.TablePermission_Loaded()
            If Not Security.CanList Then
                Security.SaveLastUrl()
                Page_Terminate("login.aspx")
            End If

            ' User ID loading event
            Security.UserID_Loading()
            If Security.IsLoggedIn() Then Call Security.LoadUserID()

            ' User ID loaded event
            Security.UserID_Loaded()
            If Security.IsLoggedIn() And ew_Empty(Security.CurrentUserID) Then
                Message = "You do not have the right permission to view the page"
                Page_Terminate("")
            End If
            tblLPR.Export = ew_Get("export") ' Get export parameter
            ParentPage.gsExport = tblLPR.Export ' Get export parameter, used in header
            ParentPage.gsExportFile = tblLPR.TableVar ' Get export file, used in header

            ' Global page loading event (in ewglobal*.vb)
            ParentPage.Page_Loading()

            ' Page load event, used in current page
            Page_Load()
        End Sub

        '
        '  Class terminate
        '  - clean up page object
        '
        Public Sub Dispose() Implements IDisposable.Dispose
            Page_Terminate("")
        End Sub

        '
        '  Sub Page_Terminate
        '  - called when exit page
        '  - clean up connection and objects
        '  - if URL specified, redirect to URL
        '
        Sub Page_Terminate(url As String)

            ' Page unload event, used in current page
            Page_Unload()

            ' Global page unloaded event (in ewglobal*.vb)
            ParentPage.Page_Unloaded()

            ' Close connection
            Conn.Dispose()
            Security = Nothing
            tblLPR.Dispose()
            tblEmployees.Dispose()
            ListOptions = Nothing

            ' Go to URL if specified
            If url <> "" Then
                HttpContext.Current.Response.Clear()
                HttpContext.Current.Response.Redirect(url)
            End If
        End Sub

    Public lDisplayRecs As Integer ' Number of display records

    Public lStartRec As Integer, lStopRec As Integer, lTotalRecs As Integer, lRecRange As Integer

    Public sSrchWhere As String

    Public lRecCnt As Integer

    Public lEditRowCnt As Integer

    Public lRowCnt As Integer, lRowIndex As Integer

    Public lOptionCnt As Integer

    Public lRecPerRow As Integer, lColCnt As Integer

    Public sDeleteConfirmMsg As String ' Delete confirm message

    Public sDbMasterFilter As String, sDbDetailFilter As String

    Public bMasterRecordExists As Boolean

    Public ListOptions As Object

    Public sMultiSelectKey As String

    Public x_ewPriv As Integer

    '
    ' Page main processing
    '
    Public Sub Page_Main()
        lDisplayRecs = 20
        lRecRange = EW_PAGER_RANGE
        lRecCnt = 0 ' Record count

        ' Search filters
        Dim sSrchAdvanced As String = "" ' Advanced search filter
        Dim sSrchBasic As String = "" ' Basic search filter
        Dim sFilter As String = ""
        sSrchWhere = "" ' Search WHERE clause

        ' Master/Detail
        sDbMasterFilter = "" ' Master filter
        sDbDetailFilter = "" ' Detail filter
        If IsPageRequest Then ' Validate request

            ' Set up records per page dynamically
            SetUpDisplayRecs()

            ' Handle reset command
            ResetCmd()

            ' Get advanced search criteria
            LoadSearchValues()
            If ValidateSearch() Then
                    sSrchAdvanced = AdvancedSearchWhere()
                Else
                    Message = ParentPage.gsSearchError
                End If

                ' Get basic search criteria
                If ParentPage.gsSearchError = "" Then
                    sSrchBasic = BasicSearchWhere()
                End If

                ' Set Up Sorting Order
                SetUpSortOrder()
            End If

            ' Restore display records
            If (tblLPR.RecordsPerPage = -1 OrElse tblLPR.RecordsPerPage > 0) Then
                lDisplayRecs = tblLPR.RecordsPerPage ' Restore from Session
            Else
                lDisplayRecs = 20 ' Load default
            End If

            ' Load Sorting Order
            LoadSortOrder()

            ' Build search criteria
            If sSrchAdvanced <> "" Then
                If sSrchWhere <> "" Then
                    sSrchWhere = "(" & sSrchWhere & ") AND (" & sSrchAdvanced & ")"
                Else
                    sSrchWhere = sSrchAdvanced
                End If
            End If
            If sSrchBasic <> "" Then
                If sSrchWhere <> "" Then
                    sSrchWhere = "(" & sSrchWhere & ") AND (" & sSrchBasic & ")"
                Else
                    sSrchWhere = sSrchBasic
                End If
            End If

            ' Recordset Searching event
            tblLPR.Recordset_Searching(sSrchWhere)

            ' Save search criteria
            If sSrchWhere <> "" Then
                If sSrchBasic = "" Then ResetBasicSearchParms()
                If sSrchAdvanced = "" Then ResetAdvancedSearchParms()
                tblLPR.SearchWhere = sSrchWhere ' Save to Session
                lStartRec = 1 ' Reset start record counter
                tblLPR.StartRecordNumber = lStartRec
            Else
                RestoreSearchParms()
            End If

            ' Build filter
            sFilter = ""
            If Not Security.CanList Then
                sFilter = "(0=1)" ' Filter all records
            End If
            If sDbDetailFilter <> "" Then
                If sFilter <> "" Then
                    sFilter = "(" & sFilter & ") AND (" & sDbDetailFilter & ")"
                Else
                    sFilter = sDbDetailFilter
                End If
            End If
            If sSrchWhere <> "" Then
                If sFilter <> "" Then
                    sFilter = "(" & sFilter & ") AND (" & sSrchWhere & ")"
                Else
                    sFilter = sSrchWhere
                End If
            End If

            ' Set up filter in Session
            tblLPR.SessionWhere = sFilter
            tblLPR.CurrentFilter = ""
    End Sub

    '
    ' Set up number of records displayed per page
    '
    Sub SetUpDisplayRecs()
        Dim sWrk As String
        sWrk = ew_Get(EW_TABLE_REC_PER_PAGE)
        If sWrk <> "" Then
            If IsNumeric(sWrk) Then
                lDisplayRecs = ew_ConvertToInt(sWrk)
            Else
                If ew_SameText(sWrk, "all") Then ' Display all records
                    lDisplayRecs = -1
                Else
                    lDisplayRecs = 20 ' Non-numeric, load default
                End If
            End If
            tblLPR.RecordsPerPage = lDisplayRecs ' Save to Session

            ' Reset start position
            lStartRec = 1
            tblLPR.StartRecordNumber = lStartRec
        End If
    End Sub

    '
    ' Return Advanced Search WHERE based on QueryString parameters
    '
    Function AdvancedSearchWhere() As String
        If Not Security.CanSearch Then Return ""
        Dim sWhere As String = ""
            If ew_Session("tfpssnet_Status_UserLevel") <> 3 Then
                BuildSearchSql(sWhere, tblLPR.lprEmpID, False) ' lprEmpID
            End If
            BuildSearchSql(sWhere, tblLPR.lprDate, False) ' lprDate
            BuildSearchSql(sWhere, tblLPR.lprLocationID, False) ' lprLocationID
            BuildSearchSql(sWhere, tblLPR.lprFixtureLocationID, False) ' lprFixtureLocationID
            BuildSearchSql(sWhere, tblLPR.lprFixtureTypeID, False) ' lprFixtureTypeID
            BuildSearchSql(sWhere, tblLPR.lprFixtureNumber, False) ' lprFixtureNumber
            BuildSearchSql(sWhere, tblLPR.lprChannelNumber, False) ' lprChannelNumber
            BuildSearchSql(sWhere, tblLPR.lprPriority, False) ' lprPriority
            BuildSearchSql(sWhere, tblLPR.lprShortDesc, False) ' lprShortDesc
            BuildSearchSql(sWhere, tblLPR.lprSTID, False) ' lprSTID
            BuildSearchSql(sWhere, tblLPR.lprSTChangedBy, False) ' lprSTChangedBy
            BuildSearchSql(sWhere, tblLPR.lprDesc, False) ' lprDesc
            BuildSearchSql(sWhere, tblLPR.lprCreatedBy, False) ' lprCreatedBy
            BuildSearchSql(sWhere, tblLPR.lprCreatedOn, False) ' lprCreatedOn
            BuildSearchSql(sWhere, tblLPR.lprModifiedBy, False) ' lprModifiedBy
            BuildSearchSql(sWhere, tblLPR.lprModifiedOn, False) ' lprModifiedOn

            ' Set up search parm
            If sWhere <> "" Then
                SetSearchParm(tblLPR.lprEmpID) ' lprEmpID
                SetSearchParm(tblLPR.lprDate) ' lprDate
                SetSearchParm(tblLPR.lprLocationID) ' lprLocationID
                SetSearchParm(tblLPR.lprFixtureLocationID) ' lprFixtureLocationID
                SetSearchParm(tblLPR.lprFixtureTypeID) ' lprFixtureTypeID
                SetSearchParm(tblLPR.lprFixtureNumber) ' lprFixtureNumber
                SetSearchParm(tblLPR.lprChannelNumber) ' lprChannelNumber
                SetSearchParm(tblLPR.lprPriority) ' lprPriority
                SetSearchParm(tblLPR.lprShortDesc) ' lprShortDesc
                SetSearchParm(tblLPR.lprSTID) ' lprSTID
                SetSearchParm(tblLPR.lprSTChangedBy) ' lprSTChangedBy
                SetSearchParm(tblLPR.lprDesc) ' lprDesc
                SetSearchParm(tblLPR.lprCreatedBy) ' lprCreatedBy
                SetSearchParm(tblLPR.lprCreatedOn) ' lprCreatedOn
                SetSearchParm(tblLPR.lprModifiedBy) ' lprModifiedBy
                SetSearchParm(tblLPR.lprModifiedOn) ' lprModifiedOn
            End If
            Return sWhere
        End Function

    '
    ' Build search SQL
    '
    Sub BuildSearchSql(ByRef Where As String, ByRef Fld As Object, MultiValue As Boolean)
        Dim FldParm As String = Fld.FldVar.Substring(2)
        Dim FldVal As String = Fld.AdvancedSearch.SearchValue
        Dim FldOpr As String = Fld.AdvancedSearch.SearchOperator
        Dim FldCond As String = Fld.AdvancedSearch.SearchCondition
        Dim FldVal2 As String = Fld.AdvancedSearch.SearchValue2
        Dim FldOpr2 As String = Fld.AdvancedSearch.SearchOperator2
        Dim sWrk As String = ""
        FldOpr = FldOpr.Trim().ToUpper()
        If (FldOpr = "") Then FldOpr = "="
        FldOpr2 = FldOpr2.Trim().ToUpper()
        If FldOpr2 = "" Then FldOpr2 = "="
        If EW_SEARCH_MULTI_VALUE_OPTION = 1 Then MultiValue = False
        If FldOpr <> "LIKE" Then MultiValue = False
        If FldOpr2 <> "LIKE" AndAlso FldVal2 <> "" Then MultiValue = False
        If MultiValue Then
            Dim sWrk1 As String, sWrk2 As String

            ' Field value 1
            If FldVal <> "" Then
                sWrk1 = ew_GetMultiSearchSql(Fld, FldVal)
            Else
                sWrk1 = ""
            End If

            ' Field value 2
            If FldVal2 <> "" AndAlso FldCond <> "" Then
                sWrk2 = ew_GetMultiSearchSql(Fld, FldVal2)
            Else
                sWrk2 = ""
            End If

            ' Build final SQL
            sWrk = sWrk1
            If sWrk2 <> "" Then
                If sWrk <> "" Then
                    sWrk = "(" & sWrk & ") " & FldCond & " (" & sWrk2 & ")"
                Else
                    sWrk = sWrk2
                End If
            End If
        Else
            FldVal = ConvertSearchValue(Fld, FldVal)
            FldVal2 = ConvertSearchValue(Fld, FldVal2)
            sWrk = ew_GetSearchSql(Fld, FldVal, FldOpr, FldCond, FldVal2, FldOpr2)
        End If
        If sWrk <> "" Then
            If Where <> "" Then Where = Where & " AND "
            Where = Where & "(" & sWrk & ")"
        End If
    End Sub

    '
    ' Set search parm
    '
    Sub SetSearchParm(ByRef Fld As Object)
        Dim FldParm As String = Fld.FldVar.Substring(2)
        tblLPR.SetAdvancedSearch("x_" & FldParm, Fld.AdvancedSearch.SearchValue)
        tblLPR.SetAdvancedSearch("z_" & FldParm, Fld.AdvancedSearch.SearchOperator)
        tblLPR.SetAdvancedSearch("v_" & FldParm, Fld.AdvancedSearch.SearchCondition)
        tblLPR.SetAdvancedSearch("y_" & FldParm, Fld.AdvancedSearch.SearchValue2)
        tblLPR.SetAdvancedSearch("w_" & FldParm, Fld.AdvancedSearch.SearchOperator2)
    End Sub

    '
    ' Convert search value
    '
    Function ConvertSearchValue(ByRef Fld As cField, FldVal As Object) As Object
        If Fld.FldDataType = EW_DATATYPE_BOOLEAN Then
            If ew_NotEmpty(FldVal) Then Return IIf(FldVal="1", "True", "False")
        ElseIf Fld.FldDataType = EW_DATATYPE_DATE Then
            If ew_NotEmpty(FldVal) Then Return ew_UnFormatDateTime(FldVal, Fld.FldDateTimeFormat)
        End If
        Return FldVal
    End Function

    '
    ' Return Basic Search SQL
    '
    Function BasicSearchSQL(Keyword As String) As String
        Dim sKeyword As String, sSql As String = ""
        sKeyword = ew_AdjustSql(Keyword)
        sSql = sSql & "[lprFixtureNumber] LIKE '%" & sKeyword & "%' OR "
        If IsNumeric(sKeyword) Then sSql = sSql & "[lprChannelNumber] = " & sKeyword & " OR "
        sSql = sSql & "[lprShortDesc] LIKE '%" & sKeyword & "%' OR "
        sSql = sSql & "[lprDesc] LIKE '%" & sKeyword & "%' OR "
        If sSql.EndsWith(" OR ") Then sSql = sSql.SubString(0, sSql.Length-4)
        Return sSql
    End Function

    '
    ' Return Basic Search WHERE based on search keyword and type
    '
    Function BasicSearchWhere() As String
        Dim sSearchStr As String = "", sSearchKeyword As String, sSearchType As String
        Dim sSearch As String, arKeyword() As String, sKeyword As String
        If Not Security.CanSearch Then Return ""
        sSearchKeyword = ew_Get(EW_TABLE_BASIC_SEARCH)
        sSearchType = ew_Get(EW_TABLE_BASIC_SEARCH_TYPE)
        If sSearchKeyword <> "" Then
            sSearch = sSearchKeyword.Trim()
            If sSearchType <> "" Then
                While InStr(sSearch, "  ") > 0
                    sSearch = sSearch.Replace("  ", " ")
                End While
                arKeyword = sSearch.Trim().Split(New Char() {" "c})
                For Each sKeyword In arKeyword
                    If sSearchStr <> "" Then sSearchStr = sSearchStr & " " & sSearchType & " "
                    sSearchStr = sSearchStr & "(" & BasicSearchSQL(sKeyword) & ")"
                Next
            Else
                sSearchStr = BasicSearchSQL(sSearch)
            End If
        End If
        If sSearchKeyword <> "" then
            tblLPR.BasicSearchKeyword = sSearchKeyword
            tblLPR.BasicSearchType = sSearchType
        End If
        Return sSearchStr
    End Function

    '
    ' Clear all search parameters
    '
    Sub ResetSearchParms()

        ' Clear search where
        sSrchWhere = ""
        tblLPR.SearchWhere = sSrchWhere

        ' Clear basic search parameters
        ResetBasicSearchParms()

        ' Clear advanced search parameters
        ResetAdvancedSearchParms()
    End Sub

    '
    ' Clear all basic search parameters
    '
    Sub ResetBasicSearchParms()

        ' Clear basic search parameters
        tblLPR.BasicSearchKeyword = ""
        tblLPR.BasicSearchType = ""
    End Sub

    '
    ' Clear all advanced search parameters
    '
    Sub ResetAdvancedSearchParms()
        tblLPR.SetAdvancedSearch("x_lprEmpID", "")
        tblLPR.SetAdvancedSearch("x_lprDate", "")
        tblLPR.SetAdvancedSearch("v_lprDate", "AND")
        tblLPR.SetAdvancedSearch("y_lprDate", "")
        tblLPR.SetAdvancedSearch("x_lprLocationID", "")
        tblLPR.SetAdvancedSearch("x_lprFixtureLocationID", "")
        tblLPR.SetAdvancedSearch("x_lprFixtureTypeID", "")
        tblLPR.SetAdvancedSearch("x_lprFixtureNumber", "")
        tblLPR.SetAdvancedSearch("x_lprChannelNumber", "")
        tblLPR.SetAdvancedSearch("x_lprPriority", "")
        tblLPR.SetAdvancedSearch("x_lprShortDesc", "")
        tblLPR.SetAdvancedSearch("x_lprSTID", "")
        tblLPR.SetAdvancedSearch("x_lprSTChangedBy", "")
        tblLPR.SetAdvancedSearch("x_lprDesc", "")
        tblLPR.SetAdvancedSearch("x_lprCreatedBy", "")
        tblLPR.SetAdvancedSearch("x_lprCreatedOn", "")
        tblLPR.SetAdvancedSearch("x_lprModifiedBy", "")
        tblLPR.SetAdvancedSearch("x_lprModifiedOn", "")
    End Sub

    '
    ' Restore all search parameters
    '
    Sub RestoreSearchParms()
        sSrchWhere = tblLPR.SearchWhere

        ' Restore advanced search settings
        If ParentPage.gsSearchError = "" Then
            RestoreAdvancedSearchParms()
        End If
    End Sub

    '
    ' Restore all advanced search parameters
    '
    Sub RestoreAdvancedSearchParms()
        tblLPR.lprEmpID.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprEmpID")
        tblLPR.lprDate.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprDate")
        tblLPR.lprDate.AdvancedSearch.SearchCondition = tblLPR.GetAdvancedSearch("v_lprDate")
        tblLPR.lprDate.AdvancedSearch.SearchValue2 = tblLPR.GetAdvancedSearch("y_lprDate")
        tblLPR.lprLocationID.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprLocationID")
        tblLPR.lprFixtureLocationID.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprFixtureLocationID")
        tblLPR.lprFixtureTypeID.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprFixtureTypeID")
        tblLPR.lprFixtureNumber.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprFixtureNumber")
        tblLPR.lprChannelNumber.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprChannelNumber")
        tblLPR.lprPriority.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprPriority")
        tblLPR.lprShortDesc.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprShortDesc")
        tblLPR.lprSTID.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprSTID")
        tblLPR.lprSTChangedBy.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprSTChangedBy")
        tblLPR.lprDesc.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprDesc")
        tblLPR.lprCreatedBy.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprCreatedBy")
        tblLPR.lprCreatedOn.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprCreatedOn")
        tblLPR.lprModifiedBy.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprModifiedBy")
        tblLPR.lprModifiedOn.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprModifiedOn")
    End Sub

    '
    ' Set up Sort parameters based on Sort Links clicked
    '
    Sub SetUpSortOrder()
        Dim sOrderBy As String
        Dim sSortField As String, sLastSort As String, sThisSort As String
        Dim bCtrl As Boolean

        ' Check for Ctrl pressed
        bCtrl = (ew_Get("ctrl") <> "")

        ' Check for an Order parameter
        If ew_Get("order") <> "" Then
            tblLPR.CurrentOrder = ew_Get("order")
            tblLPR.CurrentOrderType = ew_Get("ordertype")
            tblLPR.UpdateSort(tblLPR.lprEmpID, bCtrl) ' lprEmpID
            tblLPR.UpdateSort(tblLPR.lprDate, bCtrl) ' lprDate
            tblLPR.UpdateSort(tblLPR.lprLocationID, bCtrl) ' lprLocationID
            tblLPR.UpdateSort(tblLPR.lprFixtureLocationID, bCtrl) ' lprFixtureLocationID
            tblLPR.UpdateSort(tblLPR.lprFixtureTypeID, bCtrl) ' lprFixtureTypeID
            tblLPR.UpdateSort(tblLPR.lprFixtureNumber, bCtrl) ' lprFixtureNumber
            tblLPR.UpdateSort(tblLPR.lprChannelNumber, bCtrl) ' lprChannelNumber
            tblLPR.UpdateSort(tblLPR.lprPriority, bCtrl) ' lprPriority
            tblLPR.UpdateSort(tblLPR.lprShortDesc, bCtrl) ' lprShortDesc
            tblLPR.UpdateSort(tblLPR.lprSTID, bCtrl) ' lprSTID
            tblLPR.UpdateSort(tblLPR.lprSTChangedBy, bCtrl) ' lprSTChangedBy
            tblLPR.StartRecordNumber = 1 ' Reset start position
        End If
    End Sub

    '
    ' Load Sort Order parameters
    '
    Sub LoadSortOrder()
        Dim sOrderBy As String
        sOrderBy = tblLPR.SessionOrderBy ' Get order by from Session
        If sOrderBy = "" Then
            If tblLPR.SqlOrderBy <> "" Then
                sOrderBy = tblLPR.SqlOrderBy
                tblLPR.SessionOrderBy = sOrderBy
                tblLPR.lprDate.Sort = "DESC"
                tblLPR.lprEmpID.Sort = "ASC"
            End If
        End If
    End Sub

    '
    ' Reset command based on querystring parameter "cmd"
    ' - reset: reset search parameters
    ' - resetall: reset search and master/detail parameters
    ' - resetsort: reset sort parameters
    '
    Sub ResetCmd()
        Dim sCmd As String

        ' Get reset cmd
        If ew_Get("cmd") <> "" Then
            sCmd = ew_Get("cmd")

            ' Reset search criteria
            If ew_SameText(sCmd, "reset") OrElse ew_SameText(sCmd, "resetall") Then
                ResetSearchParms()
            End If

            ' Reset sort criteria
            If ew_SameText(sCmd, "resetsort") Then
                Dim sOrderBy As String = ""
                tblLPR.SessionOrderBy = sOrderBy
                tblLPR.lprEmpID.Sort = ""
                tblLPR.lprDate.Sort = ""
                tblLPR.lprLocationID.Sort = ""
                tblLPR.lprFixtureLocationID.Sort = ""
                tblLPR.lprFixtureTypeID.Sort = ""
                tblLPR.lprFixtureNumber.Sort = ""
                tblLPR.lprChannelNumber.Sort = ""
                tblLPR.lprPriority.Sort = ""
                tblLPR.lprShortDesc.Sort = ""
                tblLPR.lprSTID.Sort = ""
                tblLPR.lprSTChangedBy.Sort = ""
            End If

            ' Reset start position
            lStartRec = 1
            tblLPR.StartRecordNumber = lStartRec
        End If
    End Sub

    Public Pager As Object

    '
    ' Set up Starting Record parameters
    '
    Sub SetUpStartRec()
        Dim nPageNo As Integer

        ' Exit if lDisplayRecs = 0
        If lDisplayRecs = 0 Then Exit Sub
        If IsPageRequest Then ' Validate request

            ' Check for a "start" parameter
            If ew_Get(EW_TABLE_START_REC) <> "" AndAlso IsNumeric(ew_Get(EW_TABLE_START_REC)) Then
                lStartRec = ew_ConvertToInt(ew_Get(EW_TABLE_START_REC))
                tblLPR.StartRecordNumber = lStartRec
            ElseIf ew_Get(EW_TABLE_PAGE_NO) <> "" AndAlso IsNumeric(ew_Get(EW_TABLE_PAGE_NO)) Then
                nPageNo = ew_ConvertToInt(ew_Get(EW_TABLE_PAGE_NO))
                lStartRec = (nPageNo-1)*lDisplayRecs+1
                If lStartRec <= 0 Then
                    lStartRec = 1
                ElseIf lStartRec >= ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 Then
                    lStartRec = ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1
                End If
                tblLPR.StartRecordNumber = lStartRec
            End If
        End If
        lStartRec = tblLPR.StartRecordNumber

        ' Check if correct start record counter
        If lStartRec <= 0 Then ' Avoid invalid start record counter
            lStartRec = 1 ' Reset start record counter
            tblLPR.StartRecordNumber = lStartRec
        ElseIf lStartRec > lTotalRecs Then ' Avoid starting record > total records
            lStartRec = ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to last page first record
            tblLPR.StartRecordNumber = lStartRec
        ElseIf (lStartRec-1) Mod lDisplayRecs <> 0 Then
            lStartRec = ((lStartRec-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to page boundary
            tblLPR.StartRecordNumber = lStartRec
        End If
    End Sub

    '
    ' Load default values
    '
    Sub LoadDefaultValues()
        tblLPR.lprPriority.CurrentValue = 2
    End Sub

    '
    '  Load search values for validation
    '
    Sub LoadSearchValues()
        tblLPR.lprEmpID.AdvancedSearch.SearchValue = ew_Get("x_lprEmpID")
        tblLPR.lprEmpID.AdvancedSearch.SearchOperator = ew_Get("z_lprEmpID")
        tblLPR.lprDate.AdvancedSearch.SearchValue = ew_Get("x_lprDate")
        tblLPR.lprDate.AdvancedSearch.SearchOperator = ew_Get("z_lprDate")
        tblLPR.lprDate.AdvancedSearch.SearchCondition = ew_Get("v_lprDate")
        tblLPR.lprDate.AdvancedSearch.SearchValue2 = ew_Get("y_lprDate")
        tblLPR.lprDate.AdvancedSearch.SearchOperator2 = ew_Get("w_lprDate")
        tblLPR.lprLocationID.AdvancedSearch.SearchValue = ew_Get("x_lprLocationID")
        tblLPR.lprLocationID.AdvancedSearch.SearchOperator = ew_Get("z_lprLocationID")
        tblLPR.lprFixtureLocationID.AdvancedSearch.SearchValue = ew_Get("x_lprFixtureLocationID")
        tblLPR.lprFixtureLocationID.AdvancedSearch.SearchOperator = ew_Get("z_lprFixtureLocationID")
        tblLPR.lprFixtureTypeID.AdvancedSearch.SearchValue = ew_Get("x_lprFixtureTypeID")
        tblLPR.lprFixtureTypeID.AdvancedSearch.SearchOperator = ew_Get("z_lprFixtureTypeID")
        tblLPR.lprFixtureNumber.AdvancedSearch.SearchValue = ew_Get("x_lprFixtureNumber")
        tblLPR.lprFixtureNumber.AdvancedSearch.SearchOperator = ew_Get("z_lprFixtureNumber")
        tblLPR.lprChannelNumber.AdvancedSearch.SearchValue = ew_Get("x_lprChannelNumber")
        tblLPR.lprChannelNumber.AdvancedSearch.SearchOperator = ew_Get("z_lprChannelNumber")
        tblLPR.lprPriority.AdvancedSearch.SearchValue = ew_Get("x_lprPriority")
        tblLPR.lprPriority.AdvancedSearch.SearchOperator = ew_Get("z_lprPriority")
        tblLPR.lprShortDesc.AdvancedSearch.SearchValue = ew_Get("x_lprShortDesc")
        tblLPR.lprShortDesc.AdvancedSearch.SearchOperator = ew_Get("z_lprShortDesc")
        tblLPR.lprSTID.AdvancedSearch.SearchValue = ew_Get("x_lprSTID")
        tblLPR.lprSTID.AdvancedSearch.SearchOperator = ew_Get("z_lprSTID")
        tblLPR.lprSTChangedBy.AdvancedSearch.SearchValue = ew_Get("x_lprSTChangedBy")
        tblLPR.lprSTChangedBy.AdvancedSearch.SearchOperator = ew_Get("z_lprSTChangedBy")
        tblLPR.lprDesc.AdvancedSearch.SearchValue = ew_Get("x_lprDesc")
        tblLPR.lprDesc.AdvancedSearch.SearchOperator = ew_Get("z_lprDesc")
        tblLPR.lprCreatedBy.AdvancedSearch.SearchValue = ew_Get("x_lprCreatedBy")
        tblLPR.lprCreatedBy.AdvancedSearch.SearchOperator = ew_Get("z_lprCreatedBy")
        tblLPR.lprCreatedOn.AdvancedSearch.SearchValue = ew_Get("x_lprCreatedOn")
        tblLPR.lprCreatedOn.AdvancedSearch.SearchOperator = ew_Get("z_lprCreatedOn")
        tblLPR.lprModifiedBy.AdvancedSearch.SearchValue = ew_Get("x_lprModifiedBy")
        tblLPR.lprModifiedBy.AdvancedSearch.SearchOperator = ew_Get("z_lprModifiedBy")
        tblLPR.lprModifiedOn.AdvancedSearch.SearchValue = ew_Get("x_lprModifiedOn")
        tblLPR.lprModifiedOn.AdvancedSearch.SearchOperator = ew_Get("z_lprModifiedOn")
    End Sub

    '
    ' Load recordset
    '
    Function LoadRecordset() As OleDbDataReader

        ' Recordset Selecting event
        tblLPR.Recordset_Selecting(tblLPR.CurrentFilter)

        ' Load list page SQL
        Dim sSql As String = tblLPR.ListSQL

        ' Write SQL for debug
        If EW_DEBUG_ENABLED Then ew_Write(sSql)

        ' Count
        lTotalRecs = -1
        Try
            If sSql.StartsWith("SELECT * FROM ", StringComparison.InvariantCultureIgnoreCase) AndAlso _
                ew_Empty(tblLPR.SqlGroupBy) AndAlso _
                ew_Empty(tblLPR.SqlHaving) Then
                Dim sCntSql As String = tblLPR.SelectCountSQL

                ' Write SQL for debug
                If EW_DEBUG_ENABLED Then ew_Write("<br>" & sCntSql)
                lTotalRecs = Conn.ExecuteScalar(sCntSql)
            End If
        Catch
        End Try

        ' Load recordset
        Dim Rs As OleDbDataReader = Conn.GetDataReader(sSql)
        If lTotalRecs < 0 AndAlso Rs.HasRows Then
            lTotalRecs = 0
            While Rs.Read()
                lTotalRecs = lTotalRecs + 1
            End While
            Rs.Close()
            Rs = Conn.GetDataReader(sSql)
        End If

        ' Recordset Selected event
        tblLPR.Recordset_Selected(Rs)
        Return Rs
    End Function

    '
    ' Load row based on key values
    '
    Function LoadRow() As Boolean
        Dim RsRow As OleDbDataReader
        Dim sFilter As String = tblLPR.KeyFilter

        ' Row Selecting event
        tblLPR.Row_Selecting(sFilter)

        ' Load SQL based on filter
        tblLPR.CurrentFilter = sFilter
        Dim sSql As String = tblLPR.SQL

        ' Write SQL for debug
        If EW_DEBUG_ENABLED Then ew_Write(sSql)
        Try
            RsRow = Conn.GetTempDataReader(sSql)
            If Not RsRow.Read() Then
                Return False
            Else
                LoadRowValues(RsRow) ' Load row values

                ' Row Selected event
                tblLPR.Row_Selected(RsRow)
                Return True
            End If
        Catch
            If EW_DEBUG_ENABLED Then Throw
            Return False
        Finally
            Conn.CloseTempDataReader()
        End Try
    End Function

    '
    ' Load row values from recordset
    '
    Sub LoadRowValues(ByRef RsRow As OleDbDataReader)
        tblLPR.lprID.DbValue = RsRow("lprID")
        tblLPR.lprEmpID.DbValue = RsRow("lprEmpID")
        tblLPR.lprDate.DbValue = RsRow("lprDate")
        tblLPR.lprLocationID.DbValue = RsRow("lprLocationID")
        tblLPR.lprFixtureLocationID.DbValue = RsRow("lprFixtureLocationID")
        tblLPR.lprFixtureTypeID.DbValue = RsRow("lprFixtureTypeID")
        tblLPR.lprFixtureNumber.DbValue = RsRow("lprFixtureNumber")
        tblLPR.lprChannelNumber.DbValue = RsRow("lprChannelNumber")
        tblLPR.lprPriority.DbValue = RsRow("lprPriority")
        tblLPR.lprShortDesc.DbValue = RsRow("lprShortDesc")
        tblLPR.lprSTID.DbValue = RsRow("lprSTID")
        tblLPR.lprSTChangedBy.DbValue = RsRow("lprSTChangedBy")
        tblLPR.lprDesc.DbValue = RsRow("lprDesc")
        tblLPR.lprCreatedBy.DbValue = RsRow("lprCreatedBy")
        tblLPR.lprCreatedOn.DbValue = RsRow("lprCreatedOn")
        tblLPR.lprModifiedBy.DbValue = RsRow("lprModifiedBy")
        tblLPR.lprModifiedOn.DbValue = RsRow("lprModifiedOn")
    End Sub

    '
    ' Render row values based on field settings
    '
    Sub RenderRow()

        ' Row Rendering event
        tblLPR.Row_Rendering()

        '
        '  Common render codes for all row types
        '
        ' lprEmpID

        tblLPR.lprEmpID.CellCssStyle = ""
        tblLPR.lprEmpID.CellCssClass = ""

        ' lprDate
        tblLPR.lprDate.CellCssStyle = ""
        tblLPR.lprDate.CellCssClass = ""

        ' lprLocationID
        tblLPR.lprLocationID.CellCssStyle = ""
        tblLPR.lprLocationID.CellCssClass = ""

        ' lprFixtureLocationID
        tblLPR.lprFixtureLocationID.CellCssStyle = ""
        tblLPR.lprFixtureLocationID.CellCssClass = ""

        ' lprFixtureTypeID
        tblLPR.lprFixtureTypeID.CellCssStyle = ""
        tblLPR.lprFixtureTypeID.CellCssClass = ""

        ' lprFixtureNumber
        tblLPR.lprFixtureNumber.CellCssStyle = ""
        tblLPR.lprFixtureNumber.CellCssClass = ""

        ' lprChannelNumber
        tblLPR.lprChannelNumber.CellCssStyle = ""
        tblLPR.lprChannelNumber.CellCssClass = ""

        ' lprPriority
        tblLPR.lprPriority.CellCssStyle = ""
        tblLPR.lprPriority.CellCssClass = ""

        ' lprShortDesc
        tblLPR.lprShortDesc.CellCssStyle = ""
        tblLPR.lprShortDesc.CellCssClass = ""

        ' lprSTID
        tblLPR.lprSTID.CellCssStyle = ""
        tblLPR.lprSTID.CellCssClass = ""

        ' lprSTChangedBy
        tblLPR.lprSTChangedBy.CellCssStyle = ""
        tblLPR.lprSTChangedBy.CellCssClass = ""

        '
        '  View  Row
        '

        If tblLPR.RowType = EW_ROWTYPE_VIEW Then ' View row

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

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

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

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

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

            ' lprFixtureNumber
            tblLPR.lprFixtureNumber.ViewValue = tblLPR.lprFixtureNumber.CurrentValue
            If ew_Empty(tblLPR.Export) Then tblLPR.lprFixtureNumber.ViewValue = ew_Highlight(tblLPR.HighlightName, tblLPR.lprFixtureNumber.ViewValue, tblLPR.BasicSearchKeyword, tblLPR.BasicSearchType, tblLPR.GetAdvancedSearch("x_lprFixtureNumber"))
            tblLPR.lprFixtureNumber.CssStyle = ""
            tblLPR.lprFixtureNumber.CssClass = ""
            tblLPR.lprFixtureNumber.ViewCustomAttributes = ""

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

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

            ' lprShortDesc
            tblLPR.lprShortDesc.ViewValue = tblLPR.lprShortDesc.CurrentValue
            If ew_Empty(tblLPR.Export) Then tblLPR.lprShortDesc.ViewValue = ew_Highlight(tblLPR.HighlightName, tblLPR.lprShortDesc.ViewValue, tblLPR.BasicSearchKeyword, tblLPR.BasicSearchType, tblLPR.GetAdvancedSearch("x_lprShortDesc"))
            tblLPR.lprShortDesc.CssStyle = ""
            tblLPR.lprShortDesc.CssClass = ""
            tblLPR.lprShortDesc.ViewCustomAttributes = ""

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

            ' lprSTChangedBy
            tblLPR.lprSTChangedBy.ViewValue = tblLPR.lprSTChangedBy.CurrentValue
            If ew_Empty(tblLPR.Export) Then tblLPR.lprSTChangedBy.ViewValue = ew_Highlight(tblLPR.HighlightName, tblLPR.lprSTChangedBy.ViewValue, "", "", tblLPR.GetAdvancedSearch("x_lprSTChangedBy"))
            tblLPR.lprSTChangedBy.CssStyle = ""
            tblLPR.lprSTChangedBy.CssClass = ""
            tblLPR.lprSTChangedBy.ViewCustomAttributes = ""

            ' lprCreatedBy
            tblLPR.lprCreatedBy.ViewValue = tblLPR.lprCreatedBy.CurrentValue
            If ew_Empty(tblLPR.Export) Then tblLPR.lprCreatedBy.ViewValue = ew_Highlight(tblLPR.HighlightName, tblLPR.lprCreatedBy.ViewValue, "", "", tblLPR.GetAdvancedSearch("x_lprCreatedBy"))
            tblLPR.lprCreatedBy.CssStyle = ""
            tblLPR.lprCreatedBy.CssClass = ""
            tblLPR.lprCreatedBy.ViewCustomAttributes = ""

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

            ' lprModifiedBy
            tblLPR.lprModifiedBy.ViewValue = tblLPR.lprModifiedBy.CurrentValue
            If ew_Empty(tblLPR.Export) Then tblLPR.lprModifiedBy.ViewValue = ew_Highlight(tblLPR.HighlightName, tblLPR.lprModifiedBy.ViewValue, "", "", tblLPR.GetAdvancedSearch("x_lprModifiedBy"))
            tblLPR.lprModifiedBy.CssStyle = ""
            tblLPR.lprModifiedBy.CssClass = ""
            tblLPR.lprModifiedBy.ViewCustomAttributes = ""

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

            ' View refer script
            ' lprEmpID

            tblLPR.lprEmpID.HrefValue = ""

            ' lprDate
            tblLPR.lprDate.HrefValue = ""

            ' lprLocationID
            tblLPR.lprLocationID.HrefValue = ""

            ' lprFixtureLocationID
            tblLPR.lprFixtureLocationID.HrefValue = ""

            ' lprFixtureTypeID
            tblLPR.lprFixtureTypeID.HrefValue = ""

            ' lprFixtureNumber
            tblLPR.lprFixtureNumber.HrefValue = ""

            ' lprChannelNumber
            tblLPR.lprChannelNumber.HrefValue = ""

            ' lprPriority
            tblLPR.lprPriority.HrefValue = ""

            ' lprShortDesc
            tblLPR.lprShortDesc.HrefValue = ""

            ' lprSTID
            tblLPR.lprSTID.HrefValue = ""

            ' lprSTChangedBy
            tblLPR.lprSTChangedBy.HrefValue = ""

        '
        '  Search Row
        '

        ElseIf tblLPR.RowType = EW_ROWTYPE_SEARCH Then ' Search row

            ' lprEmpID
            tblLPR.lprEmpID.EditCustomAttributes = ""
            If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin
                tblLPR.lprEmpID.AdvancedSearch.SearchValue = Security.CurrentUserID
            If ew_NotEmpty(tblLPR.lprEmpID.AdvancedSearch.SearchValue) Then
                sSqlWrk = "SELECT [empName] FROM [tblEmployees] WHERE [empID] = " & ew_AdjustSql(tblLPR.lprEmpID.AdvancedSearch.SearchValue) & ""
                        sSqlWrk = sSqlWrk & " ORDER BY [empFirstName] "
                RsWrk = Conn.GetTempDataReader(sSqlWrk)
                If RsWrk.Read() Then
                    tblLPR.lprEmpID.EditValue = RsWrk("empName")
                Else
                    tblLPR.lprEmpID.EditValue = tblLPR.lprEmpID.AdvancedSearch.SearchValue
                End If
                Conn.CloseTempDataReader()
            Else
                tblLPR.lprEmpID.EditValue = System.DBNull.Value
            End If
            tblLPR.lprEmpID.CssStyle = ""
            tblLPR.lprEmpID.CssClass = ""
            tblLPR.lprEmpID.ViewCustomAttributes = ""
            Else
            sSqlWrk = "SELECT [empID], [empName], '' AS Disp2Fld, '' AS SelectFilterFld FROM [tblEmployees]"
            sWhereWrk = ""
            sWhereWrk = tblEmployees.AddUserIDFilter(sWhereWrk)
            If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk
                    sSqlWrk = sSqlWrk & " ORDER BY [empFirstName] "
            arwrk = Conn.GetRows(sSqlWrk)
            arwrk.Insert(0, New Object(){"", "Please Select"})
            tblLPR.lprEmpID.EditValue = arwrk
            End If

            ' lprDate
            tblLPR.lprDate.EditCustomAttributes = ""
            tblLPR.lprDate.EditValue = tblLPR.lprDate.AdvancedSearch.SearchValue
            tblLPR.lprDate.EditCustomAttributes = ""
            tblLPR.lprDate.EditValue2 = tblLPR.lprDate.AdvancedSearch.SearchValue2

            ' lprLocationID
            tblLPR.lprLocationID.EditCustomAttributes = ""
            sSqlWrk = "SELECT [locID], [locDescription], '' AS Disp2Fld, '' AS SelectFilterFld FROM [tblLocations]"
            sWhereWrk = ""
            If sWhereWrk <> "" Then sWhereWrk = "(" & sWhereWrk & ") AND "
            sWhereWrk = sWhereWrk & "(" & "[locLighting]=True" & ")"
            If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk
            sSqlWrk = sSqlWrk & " ORDER BY [locDescription] "
            arwrk = Conn.GetRows(sSqlWrk)
            arwrk.Insert(0, New Object(){"", "Please Select"})
            tblLPR.lprLocationID.EditValue = arwrk

            ' lprFixtureLocationID
            tblLPR.lprFixtureLocationID.EditCustomAttributes = ""

            ' lprFixtureTypeID
            tblLPR.lprFixtureTypeID.EditCustomAttributes = ""

            ' lprFixtureNumber
            tblLPR.lprFixtureNumber.EditCustomAttributes = ""
            tblLPR.lprFixtureNumber.EditValue = ew_HtmlEncode(tblLPR.lprFixtureNumber.AdvancedSearch.SearchValue)

            ' lprChannelNumber
            tblLPR.lprChannelNumber.EditCustomAttributes = ""
            tblLPR.lprChannelNumber.EditValue = ew_HtmlEncode(tblLPR.lprChannelNumber.AdvancedSearch.SearchValue)

            ' lprPriority
            tblLPR.lprPriority.EditCustomAttributes = ""
            arwrk = New ArrayList
                arwrk.Add(New String() {"0", "Not Specified"})
                arwrk.Add(New String() {"1", "Low"})
                arwrk.Add(New String() {"2", "Medium"})
                arwrk.Add(New String() {"3", "High"})
            arwrk.Insert(0, New String() {"", "Please Select"})
            tblLPR.lprPriority.EditValue = arwrk

            ' lprShortDesc
            tblLPR.lprShortDesc.EditCustomAttributes = ""
            tblLPR.lprShortDesc.EditValue = ew_HtmlEncode(tblLPR.lprShortDesc.AdvancedSearch.SearchValue)

            ' lprSTID
            tblLPR.lprSTID.EditCustomAttributes = ""
            sSqlWrk = "SELECT [lstID], [lstDescription], '' AS Disp2Fld, '' AS SelectFilterFld FROM [tblLPRStatus]"
            sWhereWrk = ""
            If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk
            sSqlWrk = sSqlWrk & " ORDER BY [lstDescription] "
            arwrk = Conn.GetRows(sSqlWrk)
            arwrk.Insert(0, New Object(){"", "Please Select"})
            tblLPR.lprSTID.EditValue = arwrk

            ' lprSTChangedBy
            tblLPR.lprSTChangedBy.EditCustomAttributes = ""
            tblLPR.lprSTChangedBy.EditValue = ew_HtmlEncode(tblLPR.lprSTChangedBy.AdvancedSearch.SearchValue)
        End If

        ' Row Rendered event
        tblLPR.Row_Rendered()
    End Sub

    '
    ' Validate search
    '
    Function ValidateSearch() As Boolean

        ' Initialize
        ParentPage.gsSearchError = ""

        ' Check if validation required
        If Not EW_SERVER_VALIDATE Then Return True ' Skip
        If Not ew_CheckUSDate(tblLPR.lprDate.AdvancedSearch.SearchValue) Then
            If ParentPage.gsSearchError <> "" Then ParentPage.gsSearchError = ParentPage.gsSearchError & "<br />"
            ParentPage.gsSearchError = ParentPage.gsSearchError & "Incorrect date, format = mm/dd/yyyy - Date"
        End If
        If Not ew_CheckUSDate(tblLPR.lprDate.AdvancedSearch.SearchValue2) Then
            If ParentPage.gsSearchError <> "" Then ParentPage.gsSearchError = ParentPage.gsSearchError & "<br />"
            ParentPage.gsSearchError = ParentPage.gsSearchError & "Incorrect date, format = mm/dd/yyyy - Date"
        End If

        ' Return validate result
        Dim Valid As Boolean = (ParentPage.gsSearchError = "")

        ' Form_CustomValidate event
        Dim sFormCustomError As String = ""
        Valid = Valid And Form_CustomValidate(sFormCustomError)
        If sFormCustomError <> "" Then
            If ParentPage.gsSearchError <> "" Then ParentPage.gsSearchError = ParentPage.gsSearchError & "<br />"
            ParentPage.gsSearchError = ParentPage.gsSearchError & sFormCustomError
        End If
        Return Valid
    End Function

    '
    ' Load advanced search
    '
    Sub LoadAdvancedSearch()
        tblLPR.lprEmpID.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprEmpID")
        tblLPR.lprDate.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprDate")
        tblLPR.lprDate.AdvancedSearch.SearchCondition = tblLPR.GetAdvancedSearch("v_lprDate")
        tblLPR.lprDate.AdvancedSearch.SearchValue2 = tblLPR.GetAdvancedSearch("y_lprDate")
        tblLPR.lprLocationID.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprLocationID")
        tblLPR.lprFixtureLocationID.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprFixtureLocationID")
        tblLPR.lprFixtureTypeID.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprFixtureTypeID")
        tblLPR.lprFixtureNumber.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprFixtureNumber")
        tblLPR.lprChannelNumber.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprChannelNumber")
        tblLPR.lprPriority.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprPriority")
        tblLPR.lprShortDesc.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprShortDesc")
        tblLPR.lprSTID.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprSTID")
        tblLPR.lprSTChangedBy.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprSTChangedBy")
        tblLPR.lprDesc.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprDesc")
        tblLPR.lprCreatedBy.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprCreatedBy")
        tblLPR.lprCreatedOn.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprCreatedOn")
        tblLPR.lprModifiedBy.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprModifiedBy")
        tblLPR.lprModifiedOn.AdvancedSearch.SearchValue = tblLPR.GetAdvancedSearch("x_lprModifiedOn")
    End Sub

    '
    ' Show link optionally based on user ID
    '
    Function ShowOptionLink() As Boolean
        If Security.IsLoggedIn() AndAlso Not Security.IsAdmin() Then
            Return Security.IsValidUserID(tblLPR.lprEmpID.CurrentValue)
        End If
        Return True
    End Function

        ' Page Load event
        Public Sub Page_Load()

            'HttpContext.Current.Response.Write("Page Load")
        End Sub

        ' Page Unload event
        Public Sub Page_Unload()

            'HttpContext.Current.Response.Write("Page Unload")
        End Sub

    ' Form Custom Validate event
    Public Function Form_CustomValidate(ByRef CustomError As String) As Boolean

        'Return error message in CustomError
        Return True
    End Function
    End Class

    '
    ' ASP.NET Page_Load event
    '

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.Buffer = EW_RESPONSE_BUFFER
        Response.Cache.SetCacheability(HttpCacheability.NoCache)

        ' Page init
        tblLPR_list = New ctblLPR_list(Me)
        tblLPR_list.Page_Init()

        ' Page main processing
        tblLPR_list.Page_Main()
    End Sub

    '
    ' ASP.NET Page_Unload event
    '

    Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload

        ' Dispose page object
        If tblLPR_list IsNot Nothing Then tblLPR_list.Dispose()
    End Sub
End Class