home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / viewScheduleview.aspx.vb < prev    next >
Text File  |  2010-08-24  |  21KB  |  698 lines
  1. Imports System.Data
  2. Imports System.Data.Common
  3. Imports System.Xml
  4. Imports System.IO
  5. Imports System.Data.OleDb
  6.  
  7. '
  8. ' ASP.NET code-behind class (Page)
  9. '
  10.  
  11. Partial Class viewScheduleview
  12.     Inherits AspNetMaker7_tfpssnet
  13.  
  14.     ' Page object
  15.     Public viewSchedule_view As cviewSchedule_view
  16.  
  17.     '
  18.     ' Page Class
  19.     '
  20.     Class cviewSchedule_view
  21.         Inherits AspNetMakerPage
  22.         Implements IDisposable        
  23.  
  24.         ' Used by system generated functions
  25.         Private RsWrk As Object, sSqlWrk As String, sWhereWrk As String
  26.  
  27.         Private arwrk As Object
  28.  
  29.         Private armultiwrk() As String        
  30.  
  31.         ' Page URL
  32.         Public ReadOnly Property PageUrl() As String
  33.             Get
  34.                 Dim Url As String = ew_CurrentPage() & "?"
  35.                 If viewSchedule.UseTokenInUrl Then Url = Url & "t=" & viewSchedule.TableVar & "&" ' Add page token
  36.                 Return Url    
  37.             End Get
  38.         End Property
  39.  
  40.         ' Validate page request
  41.         Public Function IsPageRequest() As Boolean
  42.             Dim Result As Boolean
  43.             If viewSchedule.UseTokenInUrl Then
  44.                 Result = False
  45.                 If ObjForm IsNot Nothing Then
  46.                     Result = (viewSchedule.TableVar = ObjForm.GetValue("t"))
  47.                 End If
  48.                 If ew_Get("t") <> "" Then
  49.                     Result = (viewSchedule.TableVar = ew_Get("t"))
  50.                 End If
  51.                 Return Result
  52.             End If
  53.             Return True            
  54.         End Function    
  55.  
  56.         ' viewSchedule
  57.         Public Property viewSchedule() As cviewSchedule
  58.             Get                
  59.                 Return ParentPage.viewSchedule
  60.             End Get
  61.             Set(ByVal v As cviewSchedule)
  62.                 ParentPage.viewSchedule = v    
  63.             End Set    
  64.         End Property
  65.  
  66.         ' viewSchedule
  67.         Public Property tblEmployees() As ctblEmployees
  68.             Get                
  69.                 Return ParentPage.tblEmployees
  70.             End Get
  71.             Set(ByVal v As ctblEmployees)
  72.                 ParentPage.tblEmployees = v    
  73.             End Set    
  74.         End Property
  75.  
  76.         '
  77.         '  Constructor
  78.         '  - init objects
  79.         '  - open connection
  80.         '
  81.         Public Sub New(ByRef APage As AspNetMaker7_tfpssnet)                
  82.             m_ParentPage = APage
  83.             m_Page = Me    
  84.             m_PageID = "view"
  85.             m_PageObjName = "viewSchedule_view"
  86.             m_PageObjTypeName = "cviewSchedule_view"
  87.  
  88.             ' Table Name
  89.             m_TableName = "viewSchedule"
  90.  
  91.             ' Initialize table object
  92.             viewSchedule = New cviewSchedule(Me)
  93.             tblEmployees = New ctblEmployees(Me)
  94.  
  95.             ' Connect to database
  96.             Conn = New cConnection()
  97.         End Sub
  98.  
  99.         '
  100.         '  Subroutine Page_Init
  101.         '  - called before page main
  102.         '  - check Security
  103.         '  - set up response header
  104.         '  - call page load events
  105.         '
  106.         Public Sub Page_Init()
  107.             Security = New cAdvancedSecurity(Me)
  108.             If Not Security.IsLoggedIn() Then Security.AutoLogin()
  109.             If Not Security.IsLoggedIn() Then
  110.                 Security.SaveLastUrl()
  111.                 Page_Terminate("login.aspx")
  112.             End If
  113.  
  114.             ' Table Permission loading event
  115.             Security.TablePermission_Loading()
  116.             Security.LoadCurrentUserLevel(TableName)
  117.  
  118.             ' Table Permission loaded event
  119.             Security.TablePermission_Loaded()
  120.             If Not Security.CanView Then
  121.                 Security.SaveLastUrl()
  122.                 Page_Terminate("viewSchedulelist.aspx")
  123.             End If
  124.  
  125.             ' User ID loading event
  126.             Security.UserID_Loading()
  127.             If Security.IsLoggedIn() Then Call Security.LoadUserID()
  128.  
  129.             ' User ID loaded event
  130.             Security.UserID_Loaded()
  131.             If Security.IsLoggedIn() And ew_Empty(Security.CurrentUserID) Then
  132.                 Message = "You do not have the right permission to view the page"
  133.                 Page_Terminate("viewSchedulelist.aspx")
  134.             End If
  135.  
  136.             ' Global page loading event (in ewglobal*.vb)
  137.             ParentPage.Page_Loading()
  138.  
  139.             ' Page load event, used in current page
  140.             Page_Load()
  141.         End Sub
  142.  
  143.         '
  144.         '  Class terminate
  145.         '  - clean up page object
  146.         '
  147.         Public Sub Dispose() Implements IDisposable.Dispose
  148.             Page_Terminate("")
  149.         End Sub
  150.  
  151.         '
  152.         '  Sub Page_Terminate
  153.         '  - called when exit page
  154.         '  - clean up connection and objects
  155.         '  - if URL specified, redirect to URL
  156.         '
  157.         Sub Page_Terminate(url As String)
  158.  
  159.             ' Page unload event, used in current page
  160.             Page_Unload()
  161.  
  162.             ' Global page unloaded event (in ewglobal*.vb)
  163.             ParentPage.Page_Unloaded()
  164.  
  165.             ' Close connection
  166.             Conn.Dispose()
  167.             Security = Nothing
  168.             viewSchedule.Dispose()
  169.             tblEmployees.Dispose()
  170.  
  171.             ' Go to URL if specified
  172.             If url <> "" Then
  173.                 HttpContext.Current.Response.Clear()
  174.                 HttpContext.Current.Response.Redirect(url)
  175.             End If
  176.         End Sub
  177.  
  178.     Public lDisplayRecs As Integer ' Number of display records
  179.  
  180.     Public lStartRec As Integer, lStopRec As Integer, lTotalRecs As Integer, lRecRange As Integer
  181.  
  182.     Public lRecCnt As Integer
  183.  
  184.     Public sSrchWhere As String
  185.  
  186.     '
  187.     ' Page main processing
  188.     '
  189.     Sub Page_Main()
  190.         Dim sReturnUrl As String = ""
  191.         Dim bMatchRecord As Boolean = False
  192.         If IsPageRequest Then ' Validate request
  193.             If ew_Get("schSchID") <> "" Then
  194.                 viewSchedule.schSchID.QueryStringValue = ew_Get("schSchID")
  195.             Else
  196.                 sReturnUrl = "viewSchedulelist.aspx" ' Return to list
  197.             End If
  198.  
  199.             ' Get action
  200.             viewSchedule.CurrentAction = "I" ' Display form
  201.             Select Case viewSchedule.CurrentAction
  202.                 Case "I" ' Get a record to display
  203.                     If Not LoadRow() Then ' Load record based on key
  204.                         Message = "No records found" ' Set no record message
  205.                         sReturnUrl = "viewSchedulelist.aspx" ' No matching record, return to list
  206.                     End If
  207.             End Select
  208.         Else
  209.             sReturnUrl = "viewSchedulelist.aspx" ' Not page request, return to list
  210.         End If
  211.         If sReturnUrl <> "" Then Page_Terminate(sReturnUrl)
  212.  
  213.         ' Render row
  214.         viewSchedule.RowType = EW_ROWTYPE_VIEW
  215.         RenderRow()
  216.     End Sub
  217.  
  218.     Public Pager As Object
  219.  
  220.     '
  221.     ' Set up Starting Record parameters
  222.     '
  223.     Sub SetUpStartRec()
  224.         Dim nPageNo As Integer
  225.  
  226.         ' Exit if lDisplayRecs = 0
  227.         If lDisplayRecs = 0 Then Exit Sub
  228.         If IsPageRequest Then ' Validate request
  229.  
  230.             ' Check for a "start" parameter
  231.             If ew_Get(EW_TABLE_START_REC) <> "" AndAlso IsNumeric(ew_Get(EW_TABLE_START_REC)) Then
  232.                 lStartRec = ew_ConvertToInt(ew_Get(EW_TABLE_START_REC))
  233.                 viewSchedule.StartRecordNumber = lStartRec
  234.             ElseIf ew_Get(EW_TABLE_PAGE_NO) <> "" AndAlso IsNumeric(ew_Get(EW_TABLE_PAGE_NO)) Then
  235.                 nPageNo = ew_ConvertToInt(ew_Get(EW_TABLE_PAGE_NO))
  236.                 lStartRec = (nPageNo-1)*lDisplayRecs+1
  237.                 If lStartRec <= 0 Then
  238.                     lStartRec = 1
  239.                 ElseIf lStartRec >= ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 Then
  240.                     lStartRec = ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1
  241.                 End If
  242.                 viewSchedule.StartRecordNumber = lStartRec
  243.             End If
  244.         End If
  245.         lStartRec = viewSchedule.StartRecordNumber
  246.  
  247.         ' Check if correct start record counter
  248.         If lStartRec <= 0 Then ' Avoid invalid start record counter
  249.             lStartRec = 1 ' Reset start record counter
  250.             viewSchedule.StartRecordNumber = lStartRec
  251.         ElseIf lStartRec > lTotalRecs Then ' Avoid starting record > total records
  252.             lStartRec = ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to last page first record
  253.             viewSchedule.StartRecordNumber = lStartRec
  254.         ElseIf (lStartRec-1) Mod lDisplayRecs <> 0 Then
  255.             lStartRec = ((lStartRec-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to page boundary
  256.             viewSchedule.StartRecordNumber = lStartRec
  257.         End If
  258.     End Sub
  259.  
  260.     '
  261.     ' Load default values
  262.     '
  263.     Sub LoadDefaultValues()
  264.     End Sub
  265.  
  266.     '
  267.     ' Load row based on key values
  268.     '
  269.     Function LoadRow() As Boolean
  270.         Dim RsRow As OleDbDataReader
  271.         Dim sFilter As String = viewSchedule.KeyFilter
  272.  
  273.         ' Row Selecting event
  274.         viewSchedule.Row_Selecting(sFilter)
  275.  
  276.         ' Load SQL based on filter
  277.         viewSchedule.CurrentFilter = sFilter
  278.         Dim sSql As String = viewSchedule.SQL
  279.  
  280.         ' Write SQL for debug
  281.         If EW_DEBUG_ENABLED Then ew_Write(sSql)
  282.         Try
  283.             RsRow = Conn.GetTempDataReader(sSql)    
  284.             If Not RsRow.Read() Then
  285.                 Return False
  286.             Else                
  287.                 LoadRowValues(RsRow) ' Load row values
  288.  
  289.                 ' Row Selected event
  290.                 viewSchedule.Row_Selected(RsRow)
  291.                 Return True    
  292.             End If
  293.         Catch
  294.             If EW_DEBUG_ENABLED Then Throw
  295.             Return False
  296.         Finally
  297.             Conn.CloseTempDataReader()
  298.         End Try
  299.     End Function
  300.  
  301.     '
  302.     ' Load row values from recordset
  303.     '
  304.     Sub LoadRowValues(ByRef RsRow As OleDbDataReader)
  305.         viewSchedule.schSchID.DbValue = RsRow("schSchID")
  306.         viewSchedule.schDate.DbValue = RsRow("schDate")
  307.         viewSchedule.schEvtID.DbValue = RsRow("schEvtID")
  308.         viewSchedule.schPartsID.DbValue = RsRow("schPartsID")
  309.         viewSchedule.schCallTime.DbValue = RsRow("schCallTime")
  310.         viewSchedule.schStartTime.DbValue = RsRow("schStartTime")
  311.         viewSchedule.schEndTime.DbValue = RsRow("schEndTime")
  312.         viewSchedule.schOutTime.DbValue = RsRow("schOutTime")
  313.         viewSchedule.schLocID.DbValue = RsRow("schLocID")
  314.         viewSchedule.schEmpID.DbValue = RsRow("schEmpID")
  315.         viewSchedule.schPosID.DbValue = RsRow("schPosID")
  316.         viewSchedule.schTypID.DbValue = RsRow("schTypID")
  317.         viewSchedule.schNotes.DbValue = RsRow("schNotes")
  318.         viewSchedule.schActualStart.DbValue = RsRow("schActualStart")
  319.         viewSchedule.schActualEnd.DbValue = RsRow("schActualEnd")
  320.         viewSchedule.schDateCreated.DbValue = RsRow("schDateCreated")
  321.         viewSchedule.schStatus.DbValue = RsRow("schStatus")
  322.     End Sub
  323.  
  324.     '
  325.     ' Render row values based on field settings
  326.     '
  327.     Sub RenderRow()
  328.  
  329.         ' Row Rendering event
  330.         viewSchedule.Row_Rendering()
  331.  
  332.         '
  333.         '  Common render codes for all row types
  334.         '
  335.         ' schDate
  336.  
  337.         viewSchedule.schDate.CellCssStyle = ""
  338.         viewSchedule.schDate.CellCssClass = ""
  339.  
  340.         ' schEvtID
  341.         viewSchedule.schEvtID.CellCssStyle = ""
  342.         viewSchedule.schEvtID.CellCssClass = ""
  343.  
  344.         ' schPartsID
  345.         viewSchedule.schPartsID.CellCssStyle = ""
  346.         viewSchedule.schPartsID.CellCssClass = ""
  347.  
  348.         ' schCallTime
  349.         viewSchedule.schCallTime.CellCssStyle = ""
  350.         viewSchedule.schCallTime.CellCssClass = ""
  351.  
  352.         ' schStartTime
  353.         viewSchedule.schStartTime.CellCssStyle = ""
  354.         viewSchedule.schStartTime.CellCssClass = ""
  355.  
  356.         ' schEndTime
  357.         viewSchedule.schEndTime.CellCssStyle = ""
  358.         viewSchedule.schEndTime.CellCssClass = ""
  359.  
  360.         ' schOutTime
  361.         viewSchedule.schOutTime.CellCssStyle = ""
  362.         viewSchedule.schOutTime.CellCssClass = ""
  363.  
  364.         ' schLocID
  365.         viewSchedule.schLocID.CellCssStyle = ""
  366.         viewSchedule.schLocID.CellCssClass = ""
  367.  
  368.         ' schEmpID
  369.         viewSchedule.schEmpID.CellCssStyle = ""
  370.         viewSchedule.schEmpID.CellCssClass = ""
  371.  
  372.         ' schPosID
  373.         viewSchedule.schPosID.CellCssStyle = ""
  374.         viewSchedule.schPosID.CellCssClass = ""
  375.  
  376.         ' schTypID
  377.         viewSchedule.schTypID.CellCssStyle = ""
  378.         viewSchedule.schTypID.CellCssClass = ""
  379.  
  380.         ' schNotes
  381.         viewSchedule.schNotes.CellCssStyle = ""
  382.         viewSchedule.schNotes.CellCssClass = ""
  383.  
  384.         ' schActualStart
  385.         viewSchedule.schActualStart.CellCssStyle = ""
  386.         viewSchedule.schActualStart.CellCssClass = ""
  387.  
  388.         ' schActualEnd
  389.         viewSchedule.schActualEnd.CellCssStyle = ""
  390.         viewSchedule.schActualEnd.CellCssClass = ""
  391.  
  392.         ' schDateCreated
  393.         viewSchedule.schDateCreated.CellCssStyle = ""
  394.         viewSchedule.schDateCreated.CellCssClass = ""
  395.  
  396.         ' schStatus
  397.         viewSchedule.schStatus.CellCssStyle = ""
  398.         viewSchedule.schStatus.CellCssClass = ""
  399.  
  400.         '
  401.         '  View  Row
  402.         '
  403.  
  404.         If viewSchedule.RowType = EW_ROWTYPE_VIEW Then ' View row
  405.  
  406.             ' schDate
  407.             viewSchedule.schDate.ViewValue = viewSchedule.schDate.CurrentValue
  408.             viewSchedule.schDate.ViewValue = ew_FormatDateTime(viewSchedule.schDate.ViewValue, 6)
  409.             viewSchedule.schDate.CssStyle = ""
  410.             viewSchedule.schDate.CssClass = ""
  411.             viewSchedule.schDate.ViewCustomAttributes = ""
  412.  
  413.             ' schEvtID
  414.             If ew_NotEmpty(viewSchedule.schEvtID.CurrentValue) Then
  415.                 sSqlWrk = "SELECT [evtDescription] FROM [tblEvents] WHERE [evtID] = " & ew_AdjustSql(viewSchedule.schEvtID.CurrentValue) & ""
  416.                 sSqlWrk = sSqlWrk & " ORDER BY [evtDescription] "
  417.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  418.                 If RsWrk.Read() Then
  419.                     viewSchedule.schEvtID.ViewValue = RsWrk("evtDescription")
  420.                 Else
  421.                     viewSchedule.schEvtID.ViewValue = viewSchedule.schEvtID.CurrentValue
  422.                 End If
  423.                 Conn.CloseTempDataReader()
  424.             Else
  425.                 viewSchedule.schEvtID.ViewValue = System.DBNull.Value
  426.             End If
  427.             viewSchedule.schEvtID.CssStyle = ""
  428.             viewSchedule.schEvtID.CssClass = ""
  429.             viewSchedule.schEvtID.ViewCustomAttributes = ""
  430.  
  431.             ' schPartsID
  432.             If ew_NotEmpty(viewSchedule.schPartsID.CurrentValue) Then
  433.                 sSqlWrk = "SELECT [prtDescription] FROM [tblParts] WHERE [prtID] = " & ew_AdjustSql(viewSchedule.schPartsID.CurrentValue) & ""
  434.                 sSqlWrk = sSqlWrk & " ORDER BY [prtDescription] "
  435.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  436.                 If RsWrk.Read() Then
  437.                     viewSchedule.schPartsID.ViewValue = RsWrk("prtDescription")
  438.                 Else
  439.                     viewSchedule.schPartsID.ViewValue = viewSchedule.schPartsID.CurrentValue
  440.                 End If
  441.                 Conn.CloseTempDataReader()
  442.             Else
  443.                 viewSchedule.schPartsID.ViewValue = System.DBNull.Value
  444.             End If
  445.             viewSchedule.schPartsID.CssStyle = ""
  446.             viewSchedule.schPartsID.CssClass = ""
  447.             viewSchedule.schPartsID.ViewCustomAttributes = ""
  448.  
  449.             ' schCallTime
  450.             viewSchedule.schCallTime.ViewValue = viewSchedule.schCallTime.CurrentValue
  451.                 viewSchedule.schCallTime.ViewValue = ew_FormatDateTime(viewSchedule.schCallTime.ViewValue, 14)
  452.             viewSchedule.schCallTime.CssStyle = ""
  453.             viewSchedule.schCallTime.CssClass = ""
  454.             viewSchedule.schCallTime.ViewCustomAttributes = ""
  455.  
  456.             ' schStartTime
  457.             viewSchedule.schStartTime.ViewValue = viewSchedule.schStartTime.CurrentValue
  458.                 viewSchedule.schStartTime.ViewValue = ew_FormatDateTime(viewSchedule.schStartTime.ViewValue, 14)
  459.             viewSchedule.schStartTime.CssStyle = ""
  460.             viewSchedule.schStartTime.CssClass = ""
  461.             viewSchedule.schStartTime.ViewCustomAttributes = ""
  462.  
  463.             ' schEndTime
  464.             viewSchedule.schEndTime.ViewValue = viewSchedule.schEndTime.CurrentValue
  465.                 viewSchedule.schEndTime.ViewValue = ew_FormatDateTime(viewSchedule.schEndTime.ViewValue, 14)
  466.             viewSchedule.schEndTime.CssStyle = ""
  467.             viewSchedule.schEndTime.CssClass = ""
  468.             viewSchedule.schEndTime.ViewCustomAttributes = ""
  469.  
  470.             ' schOutTime
  471.             viewSchedule.schOutTime.ViewValue = viewSchedule.schOutTime.CurrentValue
  472.                 viewSchedule.schOutTime.ViewValue = ew_FormatDateTime(viewSchedule.schOutTime.ViewValue, 14)
  473.             viewSchedule.schOutTime.CssStyle = ""
  474.             viewSchedule.schOutTime.CssClass = ""
  475.             viewSchedule.schOutTime.ViewCustomAttributes = ""
  476.  
  477.             ' schLocID
  478.             If ew_NotEmpty(viewSchedule.schLocID.CurrentValue) Then
  479.                 sSqlWrk = "SELECT [locDescription] FROM [tblLocations] WHERE [locID] = " & ew_AdjustSql(viewSchedule.schLocID.CurrentValue) & ""
  480.                 sSqlWrk = sSqlWrk & " ORDER BY [locDescription] "
  481.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  482.                 If RsWrk.Read() Then
  483.                     viewSchedule.schLocID.ViewValue = RsWrk("locDescription")
  484.                 Else
  485.                     viewSchedule.schLocID.ViewValue = viewSchedule.schLocID.CurrentValue
  486.                 End If
  487.                 Conn.CloseTempDataReader()
  488.             Else
  489.                 viewSchedule.schLocID.ViewValue = System.DBNull.Value
  490.             End If
  491.             viewSchedule.schLocID.CssStyle = ""
  492.             viewSchedule.schLocID.CssClass = ""
  493.             viewSchedule.schLocID.ViewCustomAttributes = ""
  494.  
  495.             ' schEmpID
  496.             If ew_NotEmpty(viewSchedule.schEmpID.CurrentValue) Then
  497.                 sSqlWrk = "SELECT [empName] FROM [tblEmployees] WHERE [empID] = " & ew_AdjustSql(viewSchedule.schEmpID.CurrentValue) & ""
  498.                     sSqlWrk = sSqlWrk & " ORDER BY [empFirstName] "
  499.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  500.                 If RsWrk.Read() Then
  501.                     viewSchedule.schEmpID.ViewValue = RsWrk("empName")
  502.                 Else
  503.                     viewSchedule.schEmpID.ViewValue = viewSchedule.schEmpID.CurrentValue
  504.                 End If
  505.                 Conn.CloseTempDataReader()
  506.             Else
  507.                 viewSchedule.schEmpID.ViewValue = System.DBNull.Value
  508.             End If
  509.             viewSchedule.schEmpID.CssStyle = ""
  510.             viewSchedule.schEmpID.CssClass = ""
  511.             viewSchedule.schEmpID.ViewCustomAttributes = ""
  512.  
  513.             ' schPosID
  514.             If ew_NotEmpty(viewSchedule.schPosID.CurrentValue) Then
  515.                 sSqlWrk = "SELECT [posDescription] FROM [tblPositions] WHERE [posID] = " & ew_AdjustSql(viewSchedule.schPosID.CurrentValue) & ""
  516.                 sSqlWrk = sSqlWrk & " ORDER BY [posDescription] "
  517.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  518.                 If RsWrk.Read() Then
  519.                     viewSchedule.schPosID.ViewValue = RsWrk("posDescription")
  520.                 Else
  521.                     viewSchedule.schPosID.ViewValue = viewSchedule.schPosID.CurrentValue
  522.                 End If
  523.                 Conn.CloseTempDataReader()
  524.             Else
  525.                 viewSchedule.schPosID.ViewValue = System.DBNull.Value
  526.             End If
  527.             viewSchedule.schPosID.CssStyle = ""
  528.             viewSchedule.schPosID.CssClass = ""
  529.             viewSchedule.schPosID.ViewCustomAttributes = ""
  530.  
  531.             ' schTypID
  532.             If ew_NotEmpty(viewSchedule.schTypID.CurrentValue) Then
  533.                 sSqlWrk = "SELECT [typDescription] FROM [tblTypes] WHERE [typID] = " & ew_AdjustSql(viewSchedule.schTypID.CurrentValue) & ""
  534.                 sSqlWrk = sSqlWrk & " ORDER BY [typDescription] "
  535.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  536.                 If RsWrk.Read() Then
  537.                     viewSchedule.schTypID.ViewValue = RsWrk("typDescription")
  538.                 Else
  539.                     viewSchedule.schTypID.ViewValue = viewSchedule.schTypID.CurrentValue
  540.                 End If
  541.                 Conn.CloseTempDataReader()
  542.             Else
  543.                 viewSchedule.schTypID.ViewValue = System.DBNull.Value
  544.             End If
  545.             viewSchedule.schTypID.CssStyle = ""
  546.             viewSchedule.schTypID.CssClass = ""
  547.             viewSchedule.schTypID.ViewCustomAttributes = ""
  548.  
  549.             ' schNotes
  550.             viewSchedule.schNotes.ViewValue = viewSchedule.schNotes.CurrentValue
  551.             viewSchedule.schNotes.CssStyle = ""
  552.             viewSchedule.schNotes.CssClass = ""
  553.             viewSchedule.schNotes.ViewCustomAttributes = ""
  554.  
  555.             ' schActualStart
  556.             viewSchedule.schActualStart.ViewValue = viewSchedule.schActualStart.CurrentValue
  557.                 viewSchedule.schActualStart.ViewValue = ew_FormatDateTime(viewSchedule.schActualStart.ViewValue, 14)
  558.             viewSchedule.schActualStart.CssStyle = ""
  559.             viewSchedule.schActualStart.CssClass = ""
  560.             viewSchedule.schActualStart.ViewCustomAttributes = ""
  561.  
  562.             ' schActualEnd
  563.             viewSchedule.schActualEnd.ViewValue = viewSchedule.schActualEnd.CurrentValue
  564.                 viewSchedule.schActualEnd.ViewValue = ew_FormatDateTime(viewSchedule.schActualEnd.ViewValue, 14)
  565.             viewSchedule.schActualEnd.CssStyle = ""
  566.             viewSchedule.schActualEnd.CssClass = ""
  567.             viewSchedule.schActualEnd.ViewCustomAttributes = ""
  568.  
  569.             ' schDateCreated
  570.             viewSchedule.schDateCreated.ViewValue = viewSchedule.schDateCreated.CurrentValue
  571.             viewSchedule.schDateCreated.ViewValue = ew_FormatDateTime(viewSchedule.schDateCreated.ViewValue, 6)
  572.             viewSchedule.schDateCreated.CssStyle = ""
  573.             viewSchedule.schDateCreated.CssClass = ""
  574.             viewSchedule.schDateCreated.ViewCustomAttributes = ""
  575.  
  576.             ' schStatus
  577.             If ew_NotEmpty(viewSchedule.schStatus.CurrentValue) Then
  578.                 sSqlWrk = "SELECT [stDescription] FROM [tblScheduleStatus] WHERE [stID] = " & ew_AdjustSql(viewSchedule.schStatus.CurrentValue) & ""
  579.                 sSqlWrk = sSqlWrk & " ORDER BY [stDescription] "
  580.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  581.                 If RsWrk.Read() Then
  582.                     viewSchedule.schStatus.ViewValue = RsWrk("stDescription")
  583.                 Else
  584.                     viewSchedule.schStatus.ViewValue = viewSchedule.schStatus.CurrentValue
  585.                 End If
  586.                 Conn.CloseTempDataReader()
  587.             Else
  588.                 viewSchedule.schStatus.ViewValue = System.DBNull.Value
  589.             End If
  590.             viewSchedule.schStatus.CssStyle = ""
  591.             viewSchedule.schStatus.CssClass = ""
  592.             viewSchedule.schStatus.ViewCustomAttributes = ""
  593.  
  594.             ' View refer script
  595.             ' schDate
  596.  
  597.             viewSchedule.schDate.HrefValue = ""
  598.  
  599.             ' schEvtID
  600.             viewSchedule.schEvtID.HrefValue = ""
  601.  
  602.             ' schPartsID
  603.             viewSchedule.schPartsID.HrefValue = ""
  604.  
  605.             ' schCallTime
  606.             viewSchedule.schCallTime.HrefValue = ""
  607.  
  608.             ' schStartTime
  609.             viewSchedule.schStartTime.HrefValue = ""
  610.  
  611.             ' schEndTime
  612.             viewSchedule.schEndTime.HrefValue = ""
  613.  
  614.             ' schOutTime
  615.             viewSchedule.schOutTime.HrefValue = ""
  616.  
  617.             ' schLocID
  618.             viewSchedule.schLocID.HrefValue = ""
  619.  
  620.             ' schEmpID
  621.             viewSchedule.schEmpID.HrefValue = ""
  622.  
  623.             ' schPosID
  624.             viewSchedule.schPosID.HrefValue = ""
  625.  
  626.             ' schTypID
  627.             viewSchedule.schTypID.HrefValue = ""
  628.  
  629.             ' schNotes
  630.             viewSchedule.schNotes.HrefValue = ""
  631.  
  632.             ' schActualStart
  633.             viewSchedule.schActualStart.HrefValue = ""
  634.  
  635.             ' schActualEnd
  636.             viewSchedule.schActualEnd.HrefValue = ""
  637.  
  638.             ' schDateCreated
  639.             viewSchedule.schDateCreated.HrefValue = ""
  640.  
  641.             ' schStatus
  642.             viewSchedule.schStatus.HrefValue = ""
  643.         End If
  644.  
  645.         ' Row Rendered event
  646.         viewSchedule.Row_Rendered()
  647.     End Sub
  648.  
  649.     '
  650.     ' Show link optionally based on user ID
  651.     '
  652.     Function ShowOptionLink() As Boolean        
  653.         If Security.IsLoggedIn() AndAlso Not Security.IsAdmin() Then
  654.             Return Security.IsValidUserID(viewSchedule.schEmpID.CurrentValue)
  655.         End If
  656.         Return True
  657.     End Function
  658.  
  659.         ' Page Load event
  660.         Public Sub Page_Load()
  661.  
  662.             'HttpContext.Current.Response.Write("Page Load")
  663.         End Sub
  664.  
  665.         ' Page Unload event
  666.         Public Sub Page_Unload()
  667.  
  668.             'HttpContext.Current.Response.Write("Page Unload")
  669.         End Sub
  670.     End Class
  671.  
  672.     '
  673.     ' ASP.NET Page_Load event
  674.     '
  675.  
  676.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  677.         Response.Buffer = EW_RESPONSE_BUFFER
  678.         Response.Cache.SetCacheability(HttpCacheability.NoCache)
  679.  
  680.         ' Page init
  681.         viewSchedule_view = New cviewSchedule_view(Me)        
  682.         viewSchedule_view.Page_Init()
  683.  
  684.         ' Page main processing
  685.         viewSchedule_view.Page_Main()
  686.     End Sub
  687.  
  688.     '
  689.     ' ASP.NET Page_Unload event
  690.     '
  691.  
  692.     Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
  693.  
  694.         ' Dispose page object
  695.         If viewSchedule_view IsNot Nothing Then viewSchedule_view.Dispose()
  696.     End Sub
  697. End Class
  698.