home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / ltgFixtureNoteview.aspx.vb < prev    next >
Text File  |  2014-01-25  |  18KB  |  600 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 ltgFixtureNoteview
  12.     Inherits AspNetMaker7_tfpssnet
  13.  
  14.     ' Page object
  15.     Public ltgFixtureNote_view As cltgFixtureNote_view
  16.  
  17.     '
  18.     ' Page Class
  19.     '
  20.     Class cltgFixtureNote_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 ltgFixtureNote.UseTokenInUrl Then Url = Url & "t=" & ltgFixtureNote.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 ltgFixtureNote.UseTokenInUrl Then
  44.                 Result = False
  45.                 If ObjForm IsNot Nothing Then
  46.                     Result = (ltgFixtureNote.TableVar = ObjForm.GetValue("t"))
  47.                 End If
  48.                 If ew_Get("t") <> "" Then
  49.                     Result = (ltgFixtureNote.TableVar = ew_Get("t"))
  50.                 End If
  51.                 Return Result
  52.             End If
  53.             Return True            
  54.         End Function    
  55.  
  56.         ' ltgFixtureNote
  57.         Public Property ltgFixtureNote() As cltgFixtureNote
  58.             Get                
  59.                 Return ParentPage.ltgFixtureNote
  60.             End Get
  61.             Set(ByVal v As cltgFixtureNote)
  62.                 ParentPage.ltgFixtureNote = v    
  63.             End Set    
  64.         End Property
  65.  
  66.         ' ltgFixtureNote
  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.         ' ltgFixtureNote
  77.         Public Property ltgFixtureMaster() As cltgFixtureMaster
  78.             Get                
  79.                 Return ParentPage.ltgFixtureMaster
  80.             End Get
  81.             Set(ByVal v As cltgFixtureMaster)
  82.                 ParentPage.ltgFixtureMaster = v    
  83.             End Set    
  84.         End Property
  85.  
  86.         '
  87.         '  Constructor
  88.         '  - init objects
  89.         '  - open connection
  90.         '
  91.         Public Sub New(ByRef APage As AspNetMaker7_tfpssnet)                
  92.             m_ParentPage = APage
  93.             m_Page = Me    
  94.             m_PageID = "view"
  95.             m_PageObjName = "ltgFixtureNote_view"
  96.             m_PageObjTypeName = "cltgFixtureNote_view"
  97.  
  98.             ' Table Name
  99.             m_TableName = "ltgFixtureNote"
  100.  
  101.             ' Initialize table object
  102.             ltgFixtureNote = New cltgFixtureNote(Me)
  103.             tblEmployees = New ctblEmployees(Me)
  104.             ltgFixtureMaster = New cltgFixtureMaster(Me)
  105.  
  106.             ' Connect to database
  107.             Conn = New cConnection()
  108.         End Sub
  109.  
  110.         '
  111.         '  Subroutine Page_Init
  112.         '  - called before page main
  113.         '  - check Security
  114.         '  - set up response header
  115.         '  - call page load events
  116.         '
  117.         Public Sub Page_Init()
  118.             Security = New cAdvancedSecurity(Me)
  119.             If Not Security.IsLoggedIn() Then Security.AutoLogin()
  120.             If Not Security.IsLoggedIn() Then
  121.                 Security.SaveLastUrl()
  122.                 Page_Terminate("login.aspx")
  123.             End If
  124.  
  125.             ' Table Permission loading event
  126.             Security.TablePermission_Loading()
  127.             Security.LoadCurrentUserLevel(TableName)
  128.  
  129.             ' Table Permission loaded event
  130.             Security.TablePermission_Loaded()
  131.             If Not Security.CanView Then
  132.                 Security.SaveLastUrl()
  133.                 Page_Terminate("ltgFixtureNotelist.aspx")
  134.             End If
  135.  
  136.             ' User ID loading event
  137.             Security.UserID_Loading()
  138.             If Security.IsLoggedIn() Then Call Security.LoadUserID()
  139.  
  140.             ' User ID loaded event
  141.             Security.UserID_Loaded()
  142.  
  143.             ' Global page loading event (in ewglobal*.vb)
  144.             ParentPage.Page_Loading()
  145.  
  146.             ' Page load event, used in current page
  147.             Page_Load()
  148.         End Sub
  149.  
  150.         '
  151.         '  Class terminate
  152.         '  - clean up page object
  153.         '
  154.         Public Sub Dispose() Implements IDisposable.Dispose
  155.             Page_Terminate("")
  156.         End Sub
  157.  
  158.         '
  159.         '  Sub Page_Terminate
  160.         '  - called when exit page
  161.         '  - clean up connection and objects
  162.         '  - if URL specified, redirect to URL
  163.         '
  164.         Sub Page_Terminate(url As String)
  165.  
  166.             ' Page unload event, used in current page
  167.             Page_Unload()
  168.  
  169.             ' Global page unloaded event (in ewglobal*.vb)
  170.             ParentPage.Page_Unloaded()
  171.  
  172.             ' Close connection
  173.             Conn.Dispose()
  174.             Security = Nothing
  175.             ltgFixtureNote.Dispose()
  176.             tblEmployees.Dispose()
  177.             ltgFixtureMaster.Dispose()
  178.  
  179.             ' Go to URL if specified
  180.             If url <> "" Then
  181.                 HttpContext.Current.Response.Clear()
  182.                 HttpContext.Current.Response.Redirect(url)
  183.             End If
  184.         End Sub
  185.  
  186.     Public lDisplayRecs As Integer ' Number of display records
  187.  
  188.     Public lStartRec As Integer, lStopRec As Integer, lTotalRecs As Integer, lRecRange As Integer
  189.  
  190.     Public lRecCnt As Integer
  191.  
  192.     Public sSrchWhere As String
  193.  
  194.     '
  195.     ' Page main processing
  196.     '
  197.     Sub Page_Main()
  198.         Dim sReturnUrl As String = ""
  199.         Dim bMatchRecord As Boolean = False
  200.         If IsPageRequest Then ' Validate request
  201.             If ew_Get("notID") <> "" Then
  202.                 ltgFixtureNote.notID.QueryStringValue = ew_Get("notID")
  203.             Else
  204.                 sReturnUrl = "ltgFixtureNotelist.aspx" ' Return to list
  205.             End If
  206.  
  207.             ' Get action
  208.             ltgFixtureNote.CurrentAction = "I" ' Display form
  209.             Select Case ltgFixtureNote.CurrentAction
  210.                 Case "I" ' Get a record to display
  211.                     If Not LoadRow() Then ' Load record based on key
  212.                         Message = "No records found" ' Set no record message
  213.                         sReturnUrl = "ltgFixtureNotelist.aspx" ' No matching record, return to list
  214.                     End If
  215.             End Select
  216.         Else
  217.             sReturnUrl = "ltgFixtureNotelist.aspx" ' Not page request, return to list
  218.         End If
  219.         If sReturnUrl <> "" Then Page_Terminate(sReturnUrl)
  220.  
  221.         ' Render row
  222.         ltgFixtureNote.RowType = EW_ROWTYPE_VIEW
  223.         RenderRow()
  224.     End Sub
  225.  
  226.     Public Pager As Object
  227.  
  228.     '
  229.     ' Set up Starting Record parameters
  230.     '
  231.     Sub SetUpStartRec()
  232.         Dim nPageNo As Integer
  233.  
  234.         ' Exit if lDisplayRecs = 0
  235.         If lDisplayRecs = 0 Then Exit Sub
  236.         If IsPageRequest Then ' Validate request
  237.  
  238.             ' Check for a "start" parameter
  239.             If ew_Get(EW_TABLE_START_REC) <> "" AndAlso IsNumeric(ew_Get(EW_TABLE_START_REC)) Then
  240.                 lStartRec = ew_ConvertToInt(ew_Get(EW_TABLE_START_REC))
  241.                 ltgFixtureNote.StartRecordNumber = lStartRec
  242.             ElseIf ew_Get(EW_TABLE_PAGE_NO) <> "" AndAlso IsNumeric(ew_Get(EW_TABLE_PAGE_NO)) Then
  243.                 nPageNo = ew_ConvertToInt(ew_Get(EW_TABLE_PAGE_NO))
  244.                 lStartRec = (nPageNo-1)*lDisplayRecs+1
  245.                 If lStartRec <= 0 Then
  246.                     lStartRec = 1
  247.                 ElseIf lStartRec >= ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 Then
  248.                     lStartRec = ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1
  249.                 End If
  250.                 ltgFixtureNote.StartRecordNumber = lStartRec
  251.             End If
  252.         End If
  253.         lStartRec = ltgFixtureNote.StartRecordNumber
  254.  
  255.         ' Check if correct start record counter
  256.         If lStartRec <= 0 Then ' Avoid invalid start record counter
  257.             lStartRec = 1 ' Reset start record counter
  258.             ltgFixtureNote.StartRecordNumber = lStartRec
  259.         ElseIf lStartRec > lTotalRecs Then ' Avoid starting record > total records
  260.             lStartRec = ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to last page first record
  261.             ltgFixtureNote.StartRecordNumber = lStartRec
  262.         ElseIf (lStartRec-1) Mod lDisplayRecs <> 0 Then
  263.             lStartRec = ((lStartRec-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to page boundary
  264.             ltgFixtureNote.StartRecordNumber = lStartRec
  265.         End If
  266.     End Sub
  267.  
  268.     '
  269.     ' Load default values
  270.     '
  271.     Sub LoadDefaultValues()
  272.     End Sub
  273.  
  274.     '
  275.     ' Load row based on key values
  276.     '
  277.     Function LoadRow() As Boolean
  278.         Dim RsRow As OleDbDataReader
  279.         Dim sFilter As String = ltgFixtureNote.KeyFilter
  280.  
  281.         ' Row Selecting event
  282.         ltgFixtureNote.Row_Selecting(sFilter)
  283.  
  284.         ' Load SQL based on filter
  285.         ltgFixtureNote.CurrentFilter = sFilter
  286.         Dim sSql As String = ltgFixtureNote.SQL
  287.  
  288.         ' Write SQL for debug
  289.         If EW_DEBUG_ENABLED Then ew_Write(sSql)
  290.         Try
  291.             RsRow = Conn.GetTempDataReader(sSql)    
  292.             If Not RsRow.Read() Then
  293.                 Return False
  294.             Else                
  295.                 LoadRowValues(RsRow) ' Load row values
  296.  
  297.                 ' Row Selected event
  298.                 ltgFixtureNote.Row_Selected(RsRow)
  299.                 Return True    
  300.             End If
  301.         Catch
  302.             If EW_DEBUG_ENABLED Then Throw
  303.             Return False
  304.         Finally
  305.             Conn.CloseTempDataReader()
  306.         End Try
  307.     End Function
  308.  
  309.     '
  310.     ' Load row values from recordset
  311.     '
  312.     Sub LoadRowValues(ByRef RsRow As OleDbDataReader)
  313.         ltgFixtureNote.notID.DbValue = RsRow("notID")
  314.         ltgFixtureNote.notFixID.DbValue = RsRow("notFixID")
  315.         ltgFixtureNote.notTypeID.DbValue = RsRow("notTypeID")
  316.         ltgFixtureNote.notDate.DbValue = RsRow("notDate")
  317.         ltgFixtureNote.notShortDesc.DbValue = RsRow("notShortDesc")
  318.         ltgFixtureNote.notNote.DbValue = RsRow("notNote")
  319.         ltgFixtureNote.notLPRStatusID.DbValue = RsRow("notLPRStatusID")
  320.         ltgFixtureNote.notPriority.DbValue = RsRow("notPriority")
  321.         ltgFixtureNote.notIsActive.DbValue = IIf(ew_ConvertToBool(RsRow("notIsActive")), "1", "0")
  322.         ltgFixtureNote.notCreatedBy.DbValue = RsRow("notCreatedBy")
  323.         ltgFixtureNote.notCreatedOn.DbValue = RsRow("notCreatedOn")
  324.         ltgFixtureNote.notModifiedBy.DbValue = RsRow("notModifiedBy")
  325.         ltgFixtureNote.notModifiedOn.DbValue = RsRow("notModifiedOn")
  326.     End Sub
  327.  
  328.     '
  329.     ' Render row values based on field settings
  330.     '
  331.     Sub RenderRow()
  332.  
  333.         ' Row Rendering event
  334.         ltgFixtureNote.Row_Rendering()
  335.  
  336.         '
  337.         '  Common render codes for all row types
  338.         '
  339.         ' notFixID
  340.  
  341.         ltgFixtureNote.notFixID.CellCssStyle = ""
  342.         ltgFixtureNote.notFixID.CellCssClass = ""
  343.  
  344.         ' notTypeID
  345.         ltgFixtureNote.notTypeID.CellCssStyle = ""
  346.         ltgFixtureNote.notTypeID.CellCssClass = ""
  347.  
  348.         ' notDate
  349.         ltgFixtureNote.notDate.CellCssStyle = ""
  350.         ltgFixtureNote.notDate.CellCssClass = ""
  351.  
  352.         ' notShortDesc
  353.         ltgFixtureNote.notShortDesc.CellCssStyle = ""
  354.         ltgFixtureNote.notShortDesc.CellCssClass = ""
  355.  
  356.         ' notNote
  357.         ltgFixtureNote.notNote.CellCssStyle = ""
  358.         ltgFixtureNote.notNote.CellCssClass = ""
  359.  
  360.         ' notLPRStatusID
  361.         ltgFixtureNote.notLPRStatusID.CellCssStyle = ""
  362.         ltgFixtureNote.notLPRStatusID.CellCssClass = ""
  363.  
  364.         ' notPriority
  365.         ltgFixtureNote.notPriority.CellCssStyle = ""
  366.         ltgFixtureNote.notPriority.CellCssClass = ""
  367.  
  368.         ' notIsActive
  369.         ltgFixtureNote.notIsActive.CellCssStyle = ""
  370.         ltgFixtureNote.notIsActive.CellCssClass = ""
  371.  
  372.         ' notCreatedBy
  373.         ltgFixtureNote.notCreatedBy.CellCssStyle = ""
  374.         ltgFixtureNote.notCreatedBy.CellCssClass = ""
  375.  
  376.         ' notCreatedOn
  377.         ltgFixtureNote.notCreatedOn.CellCssStyle = ""
  378.         ltgFixtureNote.notCreatedOn.CellCssClass = ""
  379.  
  380.         ' notModifiedBy
  381.         ltgFixtureNote.notModifiedBy.CellCssStyle = ""
  382.         ltgFixtureNote.notModifiedBy.CellCssClass = ""
  383.  
  384.         ' notModifiedOn
  385.         ltgFixtureNote.notModifiedOn.CellCssStyle = ""
  386.         ltgFixtureNote.notModifiedOn.CellCssClass = ""
  387.  
  388.         '
  389.         '  View  Row
  390.         '
  391.  
  392.         If ltgFixtureNote.RowType = EW_ROWTYPE_VIEW Then ' View row
  393.  
  394.             ' notID
  395.             ltgFixtureNote.notID.ViewValue = ltgFixtureNote.notID.CurrentValue
  396.             ltgFixtureNote.notID.CssStyle = ""
  397.             ltgFixtureNote.notID.CssClass = ""
  398.             ltgFixtureNote.notID.ViewCustomAttributes = ""
  399.  
  400.             ' notFixID
  401.             ltgFixtureNote.notFixID.ViewValue = ltgFixtureNote.notFixID.CurrentValue
  402.             ltgFixtureNote.notFixID.CssStyle = ""
  403.             ltgFixtureNote.notFixID.CssClass = ""
  404.             ltgFixtureNote.notFixID.ViewCustomAttributes = ""
  405.  
  406.             ' notTypeID
  407.             If ew_NotEmpty(ltgFixtureNote.notTypeID.CurrentValue) Then
  408.                 sSqlWrk = "SELECT [ntyDescription] FROM [ltgFixtureNoteType] WHERE [ntyID] = " & ew_AdjustSql(ltgFixtureNote.notTypeID.CurrentValue) & ""
  409.                 sSqlWrk = sSqlWrk & " AND (" & "[ntyIsActive]=True" & ")"
  410.                 sSqlWrk = sSqlWrk & " ORDER BY [ntyDescription] "
  411.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  412.                 If RsWrk.Read() Then
  413.                     ltgFixtureNote.notTypeID.ViewValue = RsWrk("ntyDescription")
  414.                 Else
  415.                     ltgFixtureNote.notTypeID.ViewValue = ltgFixtureNote.notTypeID.CurrentValue
  416.                 End If
  417.                 Conn.CloseTempDataReader()
  418.             Else
  419.                 ltgFixtureNote.notTypeID.ViewValue = System.DBNull.Value
  420.             End If
  421.             ltgFixtureNote.notTypeID.CssStyle = ""
  422.             ltgFixtureNote.notTypeID.CssClass = ""
  423.             ltgFixtureNote.notTypeID.ViewCustomAttributes = ""
  424.  
  425.             ' notDate
  426.             ltgFixtureNote.notDate.ViewValue = ltgFixtureNote.notDate.CurrentValue
  427.             ltgFixtureNote.notDate.ViewValue = ew_FormatDateTime(ltgFixtureNote.notDate.ViewValue, 6)
  428.             ltgFixtureNote.notDate.CssStyle = ""
  429.             ltgFixtureNote.notDate.CssClass = ""
  430.             ltgFixtureNote.notDate.ViewCustomAttributes = ""
  431.  
  432.             ' notShortDesc
  433.             ltgFixtureNote.notShortDesc.ViewValue = ltgFixtureNote.notShortDesc.CurrentValue
  434.             ltgFixtureNote.notShortDesc.CssStyle = ""
  435.             ltgFixtureNote.notShortDesc.CssClass = ""
  436.             ltgFixtureNote.notShortDesc.ViewCustomAttributes = ""
  437.  
  438.             ' notNote
  439.             ltgFixtureNote.notNote.ViewValue = ltgFixtureNote.notNote.CurrentValue
  440.             ltgFixtureNote.notNote.CssStyle = ""
  441.             ltgFixtureNote.notNote.CssClass = ""
  442.             ltgFixtureNote.notNote.ViewCustomAttributes = ""
  443.  
  444.             ' notLPRStatusID
  445.             If ew_NotEmpty(ltgFixtureNote.notLPRStatusID.CurrentValue) Then
  446.                 sSqlWrk = "SELECT [lstDescription] FROM [tblLPRStatus] WHERE [lstID] = " & ew_AdjustSql(ltgFixtureNote.notLPRStatusID.CurrentValue) & ""
  447.                 sSqlWrk = sSqlWrk & " AND (" & "[lstIsActive]=True" & ")"
  448.                 sSqlWrk = sSqlWrk & " ORDER BY [lstDescription] "
  449.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  450.                 If RsWrk.Read() Then
  451.                     ltgFixtureNote.notLPRStatusID.ViewValue = RsWrk("lstDescription")
  452.                 Else
  453.                     ltgFixtureNote.notLPRStatusID.ViewValue = ltgFixtureNote.notLPRStatusID.CurrentValue
  454.                 End If
  455.                 Conn.CloseTempDataReader()
  456.             Else
  457.                 ltgFixtureNote.notLPRStatusID.ViewValue = System.DBNull.Value
  458.             End If
  459.             ltgFixtureNote.notLPRStatusID.CssStyle = ""
  460.             ltgFixtureNote.notLPRStatusID.CssClass = ""
  461.             ltgFixtureNote.notLPRStatusID.ViewCustomAttributes = ""
  462.  
  463.             ' notPriority
  464.             If Not IsDBNull(ltgFixtureNote.notPriority.CurrentValue) Then
  465.                 Select Case ltgFixtureNote.notPriority.CurrentValue
  466.                     Case "1"
  467.                         ltgFixtureNote.notPriority.ViewValue = "High"
  468.                     Case "2"
  469.                         ltgFixtureNote.notPriority.ViewValue = "Medium"
  470.                     Case "3"
  471.                         ltgFixtureNote.notPriority.ViewValue = "Low"
  472.                     Case Else
  473.                         ltgFixtureNote.notPriority.ViewValue = ltgFixtureNote.notPriority.CurrentValue
  474.                 End Select
  475.             Else
  476.                 ltgFixtureNote.notPriority.ViewValue = System.DBNull.Value
  477.             End If
  478.             ltgFixtureNote.notPriority.CssStyle = ""
  479.             ltgFixtureNote.notPriority.CssClass = ""
  480.             ltgFixtureNote.notPriority.ViewCustomAttributes = ""
  481.  
  482.             ' notIsActive
  483.             If Convert.ToString(ltgFixtureNote.notIsActive.CurrentValue) = "1" Then
  484.                 ltgFixtureNote.notIsActive.ViewValue = "Yes"
  485.             Else
  486.                 ltgFixtureNote.notIsActive.ViewValue = "No"
  487.             End If
  488.             ltgFixtureNote.notIsActive.CssStyle = ""
  489.             ltgFixtureNote.notIsActive.CssClass = ""
  490.             ltgFixtureNote.notIsActive.ViewCustomAttributes = ""
  491.  
  492.             ' notCreatedBy
  493.             ltgFixtureNote.notCreatedBy.ViewValue = ltgFixtureNote.notCreatedBy.CurrentValue
  494.             ltgFixtureNote.notCreatedBy.CssStyle = ""
  495.             ltgFixtureNote.notCreatedBy.CssClass = ""
  496.             ltgFixtureNote.notCreatedBy.ViewCustomAttributes = ""
  497.  
  498.             ' notCreatedOn
  499.             ltgFixtureNote.notCreatedOn.ViewValue = ltgFixtureNote.notCreatedOn.CurrentValue
  500.             ltgFixtureNote.notCreatedOn.ViewValue = ew_FormatDateTime(ltgFixtureNote.notCreatedOn.ViewValue, 6)
  501.             ltgFixtureNote.notCreatedOn.CssStyle = ""
  502.             ltgFixtureNote.notCreatedOn.CssClass = ""
  503.             ltgFixtureNote.notCreatedOn.ViewCustomAttributes = ""
  504.  
  505.             ' notModifiedBy
  506.             ltgFixtureNote.notModifiedBy.ViewValue = ltgFixtureNote.notModifiedBy.CurrentValue
  507.             ltgFixtureNote.notModifiedBy.CssStyle = ""
  508.             ltgFixtureNote.notModifiedBy.CssClass = ""
  509.             ltgFixtureNote.notModifiedBy.ViewCustomAttributes = ""
  510.  
  511.             ' notModifiedOn
  512.             ltgFixtureNote.notModifiedOn.ViewValue = ltgFixtureNote.notModifiedOn.CurrentValue
  513.             ltgFixtureNote.notModifiedOn.ViewValue = ew_FormatDateTime(ltgFixtureNote.notModifiedOn.ViewValue, 6)
  514.             ltgFixtureNote.notModifiedOn.CssStyle = ""
  515.             ltgFixtureNote.notModifiedOn.CssClass = ""
  516.             ltgFixtureNote.notModifiedOn.ViewCustomAttributes = ""
  517.  
  518.             ' View refer script
  519.             ' notFixID
  520.  
  521.             ltgFixtureNote.notFixID.HrefValue = ""
  522.  
  523.             ' notTypeID
  524.             ltgFixtureNote.notTypeID.HrefValue = ""
  525.  
  526.             ' notDate
  527.             ltgFixtureNote.notDate.HrefValue = ""
  528.  
  529.             ' notShortDesc
  530.             ltgFixtureNote.notShortDesc.HrefValue = ""
  531.  
  532.             ' notNote
  533.             ltgFixtureNote.notNote.HrefValue = ""
  534.  
  535.             ' notLPRStatusID
  536.             ltgFixtureNote.notLPRStatusID.HrefValue = ""
  537.  
  538.             ' notPriority
  539.             ltgFixtureNote.notPriority.HrefValue = ""
  540.  
  541.             ' notIsActive
  542.             ltgFixtureNote.notIsActive.HrefValue = ""
  543.  
  544.             ' notCreatedBy
  545.             ltgFixtureNote.notCreatedBy.HrefValue = ""
  546.  
  547.             ' notCreatedOn
  548.             ltgFixtureNote.notCreatedOn.HrefValue = ""
  549.  
  550.             ' notModifiedBy
  551.             ltgFixtureNote.notModifiedBy.HrefValue = ""
  552.  
  553.             ' notModifiedOn
  554.             ltgFixtureNote.notModifiedOn.HrefValue = ""
  555.         End If
  556.  
  557.         ' Row Rendered event
  558.         ltgFixtureNote.Row_Rendered()
  559.     End Sub
  560.  
  561.         ' Page Load event
  562.         Public Sub Page_Load()
  563.  
  564.             'HttpContext.Current.Response.Write("Page Load")
  565.         End Sub
  566.  
  567.         ' Page Unload event
  568.         Public Sub Page_Unload()
  569.  
  570.             'HttpContext.Current.Response.Write("Page Unload")
  571.         End Sub
  572.     End Class
  573.  
  574.     '
  575.     ' ASP.NET Page_Load event
  576.     '
  577.  
  578.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  579.         Response.Buffer = EW_RESPONSE_BUFFER
  580.         Response.Cache.SetCacheability(HttpCacheability.NoCache)
  581.  
  582.         ' Page init
  583.         ltgFixtureNote_view = New cltgFixtureNote_view(Me)        
  584.         ltgFixtureNote_view.Page_Init()
  585.  
  586.         ' Page main processing
  587.         ltgFixtureNote_view.Page_Main()
  588.     End Sub
  589.  
  590.     '
  591.     ' ASP.NET Page_Unload event
  592.     '
  593.  
  594.     Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
  595.  
  596.         ' Dispose page object
  597.         If ltgFixtureNote_view IsNot Nothing Then ltgFixtureNote_view.Dispose()
  598.     End Sub
  599. End Class
  600.