66.142.0.142/66.142.0.142.tar/66.142.0.142/tblEventsadd.aspx.vb

Text File | 2015-05-13 | 20KB | 652 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 tblEventsadd
    Inherits AspNetMaker7_tfpssnet

    ' Page object
    Public tblEvents_add As ctblEvents_add

    '
    ' Page Class
    '
    Class ctblEvents_add
        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 tblEvents.UseTokenInUrl Then Url = Url & "t=" & tblEvents.TableVar & "&" ' Add page token
                Return Url
            End Get
        End Property

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

        ' tblEvents
        Public Property tblEvents() As ctblEvents
            Get
                Return ParentPage.tblEvents
            End Get
            Set(ByVal v As ctblEvents)
                ParentPage.tblEvents = v
            End Set
        End Property

        ' tblEvents
        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 = "add"
            m_PageObjName = "tblEvents_add"
            m_PageObjTypeName = "ctblEvents_add"

            ' Table Name
            m_TableName = "tblEvents"

            ' Initialize table object
            tblEvents = New ctblEvents(Me)
            tblEmployees = New ctblEmployees(Me)

            ' Connect to database
            Conn = New cConnection()
        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.CanAdd Then
                Security.SaveLastUrl()
                Page_Terminate("tblEventslist.aspx")
            End If

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

            ' User ID loaded event
            Security.UserID_Loaded()

            ' 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
            tblEvents.Dispose()
            tblEmployees.Dispose()

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

    Public x_ewPriv As Integer

    '
    ' Page main processing
    '
    Sub Page_Main()

        ' Load key values from QueryString
        Dim bCopy As Boolean = True
        If ew_Get("evtID") <> "" Then
            tblEvents.evtID.QueryStringValue = ew_Get("evtID")
        Else
            bCopy = False
        End If

        ' Create form object
        ObjForm = New cFormObj

        ' Process form if post back
        If ObjForm.GetValue("a_add") <> "" Then
            tblEvents.CurrentAction = ObjForm.GetValue("a_add") ' Get form action
            LoadFormValues() ' Load form values

            ' Validate Form
            If Not ValidateForm() Then
                tblEvents.CurrentAction = "I" ' Form error, reset action
                Message = ParentPage.gsFormError
            End If

        ' Not post back
        Else
            If bCopy Then
                tblEvents.CurrentAction = "C" ' Copy Record
            Else
                tblEvents.CurrentAction = "I" ' Display Blank Record
                LoadDefaultValues() ' Load default values
            End If
        End If

        ' Perform action based on action code
        Select Case tblEvents.CurrentAction
            Case "I" ' Blank record, no action required
            Case "C" ' Copy an existing record
                If Not LoadRow() Then ' Load record based on key
                    Message = "No records found" ' No record found
                    Page_Terminate("tblEventslist.aspx") ' No matching record, return to list
                End If
            Case "A" ' Add new record
                tblEvents.SendEmail = True ' Send email on add success
                If AddRow() Then ' Add successful
                    Message = "Add succeeded" ' Set up success message
                    Dim sReturnUrl As String = tblEvents.ReturnUrl
                    Page_Terminate(sReturnUrl) ' Clean up and return
                Else
                    RestoreFormValues() ' Add failed, restore form values
                End If
        End Select

        ' Render row based on row type
        tblEvents.RowType = EW_ROWTYPE_ADD ' Render add type

        ' Render row
        RenderRow()
    End Sub

    '
    ' Get upload file
    '
    Sub GetUploadFiles()

        ' Get upload data
    End Sub

    '
    ' Load default values
    '
    Sub LoadDefaultValues()
    End Sub

    '
    ' Load form values
    '
    Sub LoadFormValues()
            tblEvents.evtDescription.FormValue = ObjForm.GetValue("x_evtDescription")
            tblEvents.evtDescription.OldValue = ObjForm.GetValue("o_evtDescription")
            tblEvents.evtIsActive.FormValue = ObjForm.GetValue("x_evtIsActive")
            tblEvents.evtIsActive.OldValue = ObjForm.GetValue("o_evtIsActive")
            tblEvents.evtAllocateBilling.FormValue = ObjForm.GetValue("x_evtAllocateBilling")
            tblEvents.evtAllocateBilling.OldValue = ObjForm.GetValue("o_evtAllocateBilling")
            tblEvents.evtBillingNotes.FormValue = ObjForm.GetValue("x_evtBillingNotes")
            tblEvents.evtBillingNotes.OldValue = ObjForm.GetValue("o_evtBillingNotes")
            tblEvents.evtTierLevel.FormValue = ObjForm.GetValue("x_evtTierLevel")
            tblEvents.evtTierLevel.OldValue = ObjForm.GetValue("o_evtTierLevel")
            tblEvents.evtOverTimePriority.FormValue = ObjForm.GetValue("x_evtOverTimePriority")
            tblEvents.evtOverTimePriority.OldValue = ObjForm.GetValue("o_evtOverTimePriority")
            tblEvents.evtID.FormValue = ObjForm.GetValue("x_evtID")
    End Sub

    '
    ' Restore form values
    '
    Sub RestoreFormValues()
            tblEvents.evtDescription.CurrentValue = tblEvents.evtDescription.FormValue
            tblEvents.evtIsActive.CurrentValue = tblEvents.evtIsActive.FormValue
            tblEvents.evtAllocateBilling.CurrentValue = tblEvents.evtAllocateBilling.FormValue
            tblEvents.evtBillingNotes.CurrentValue = tblEvents.evtBillingNotes.FormValue
            tblEvents.evtTierLevel.CurrentValue = tblEvents.evtTierLevel.FormValue
            tblEvents.evtOverTimePriority.CurrentValue = tblEvents.evtOverTimePriority.FormValue
            tblEvents.evtID.CurrentValue = tblEvents.evtID.FormValue
    End Sub

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

        ' Row Selecting event
        tblEvents.Row_Selecting(sFilter)

        ' Load SQL based on filter
        tblEvents.CurrentFilter = sFilter
        Dim sSql As String = tblEvents.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
                tblEvents.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)
        tblEvents.evtID.DbValue = RsRow("evtID")
        tblEvents.evtDescription.DbValue = RsRow("evtDescription")
            tblEvents.evtIsActive.DbValue = IIf(ew_ConvertToBool(RsRow("evtIsActive")), "1", "0")
            tblEvents.evtAllocateBilling.DbValue = IIf(ew_ConvertToBool(RsRow("evtAllocateBilling")), "1", "0")
            tblEvents.evtBillingNotes.DbValue = RsRow("evtBillingNotes")
            tblEvents.evtTierLevel.DbValue = RsRow("evtTierLevel")
            tblEvents.evtOverTimePriority.DbValue = RsRow("evtOverTimePriority")
        End Sub

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

        ' Row Rendering event
        tblEvents.Row_Rendering()

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

            tblEvents.evtDescription.CellCssStyle = ""
            tblEvents.evtDescription.CellCssClass = ""

            ' evtIsActive

            tblEvents.evtIsActive.CellCssStyle = ""
            tblEvents.evtIsActive.CellCssClass = ""

            ' evtAllocateBilling

            tblEvents.evtAllocateBilling.CellCssStyle = ""
            tblEvents.evtAllocateBilling.CellCssClass = ""

            ' evtBillingNotes

            tblEvents.evtBillingNotes.CellCssStyle = ""
            tblEvents.evtBillingNotes.CellCssClass = ""

            ' evtTierLevel

            tblEvents.evtTierLevel.CellCssStyle = ""
            tblEvents.evtTierLevel.CellCssClass = ""

            ' evtOverTimePriority

            tblEvents.evtOverTimePriority.CellCssStyle = ""
            tblEvents.evtOverTimePriority.CellCssClass = ""

            '
        '  View  Row
        '

        If tblEvents.RowType = EW_ROWTYPE_VIEW Then ' View row

            ' evtID
            tblEvents.evtID.ViewValue = tblEvents.evtID.CurrentValue
            tblEvents.evtID.CssStyle = ""
            tblEvents.evtID.CssClass = ""
            tblEvents.evtID.ViewCustomAttributes = ""

            ' evtDescription
            tblEvents.evtDescription.ViewValue = tblEvents.evtDescription.CurrentValue
            tblEvents.evtDescription.CssStyle = ""
            tblEvents.evtDescription.CssClass = ""
            tblEvents.evtDescription.ViewCustomAttributes = ""

                ' evtIsActive
                If Convert.ToString(tblEvents.evtIsActive.CurrentValue) = "1" Then
                    tblEvents.evtIsActive.ViewValue = "Yes"
                Else
                    tblEvents.evtIsActive.ViewValue = "No"
                End If
                tblEvents.evtIsActive.CssStyle = ""
                tblEvents.evtIsActive.CssClass = ""
                tblEvents.evtIsActive.ViewCustomAttributes = ""

                ' evtAllocateBilling
                If Convert.ToString(tblEvents.evtAllocateBilling.CurrentValue) = "1" Then
                    tblEvents.evtAllocateBilling.ViewValue = "Yes"
                Else
                    tblEvents.evtAllocateBilling.ViewValue = "No"
                End If
                tblEvents.evtAllocateBilling.CssStyle = ""
                tblEvents.evtAllocateBilling.CssClass = ""
                tblEvents.evtAllocateBilling.ViewCustomAttributes = ""

                ' evtBillingNotes
                tblEvents.evtBillingNotes.ViewValue = tblEvents.evtBillingNotes.CurrentValue
                tblEvents.evtBillingNotes.CssStyle = ""
                tblEvents.evtBillingNotes.CssClass = ""
                tblEvents.evtBillingNotes.ViewCustomAttributes = ""

                ' evtTierLevel
                If Not IsDBNull(tblEvents.evtTierLevel.CurrentValue) Then
                    Select Case tblEvents.evtTierLevel.CurrentValue
                        Case "0"
                            tblEvents.evtTierLevel.ViewValue = "0"
                        Case "1"
                            tblEvents.evtTierLevel.ViewValue = "1"
                        Case "2"
                            tblEvents.evtTierLevel.ViewValue = "2"
                        Case "3"
                            tblEvents.evtTierLevel.ViewValue = "3"
                        Case "4"
                            tblEvents.evtTierLevel.ViewValue = "4"
                        Case "5"
                            tblEvents.evtTierLevel.ViewValue = "5"
                        Case Else
                            tblEvents.evtTierLevel.ViewValue = tblEvents.evtTierLevel.CurrentValue
                    End Select
                Else
                    tblEvents.evtTierLevel.ViewValue = System.DBNull.Value
                End If
                tblEvents.evtTierLevel.CssStyle = ""
                tblEvents.evtTierLevel.CssClass = ""
                tblEvents.evtTierLevel.ViewCustomAttributes = ""

                ' evtOverTimePriority
                tblEvents.evtOverTimePriority.ViewValue = tblEvents.evtOverTimePriority.CurrentValue
                tblEvents.evtOverTimePriority.CssStyle = ""
                tblEvents.evtOverTimePriority.CssClass = ""
                tblEvents.evtOverTimePriority.ViewCustomAttributes = ""

                ' View refer script
                ' evtDescription

                tblEvents.evtDescription.HrefValue = ""

                ' evtIsActive

                tblEvents.evtIsActive.HrefValue = ""

                ' evtAllocateBilling

                tblEvents.evtAllocateBilling.HrefValue = ""

                ' evtBillingNotes

                tblEvents.evtBillingNotes.HrefValue = ""

                ' evtTierLevel

                tblEvents.evtTierLevel.HrefValue = ""

                ' evtOverTimePriority

                tblEvents.evtOverTimePriority.HrefValue = ""

                '
        '  Add Row
        '

        ElseIf tblEvents.RowType = EW_ROWTYPE_ADD Then ' Add row

            ' evtDescription
            tblEvents.evtDescription.EditCustomAttributes = ""
            tblEvents.evtDescription.EditValue = ew_HtmlEncode(tblEvents.evtDescription.CurrentValue)

                ' empIsActive
                tblEvents.evtIsActive.EditCustomAttributes = ""
                tblEvents.evtIsActive.EditValue = ew_HtmlEncode(tblEvents.evtIsActive.CurrentValue)

                ' evtAllocateBilling
                tblEvents.evtAllocateBilling.EditCustomAttributes = ""
                tblEvents.evtAllocateBilling.EditValue = ew_HtmlEncode(tblEvents.evtAllocateBilling.CurrentValue)

                ' evtBillingNotes
                tblEvents.evtBillingNotes.EditCustomAttributes = ""
                tblEvents.evtBillingNotes.EditValue = ew_HtmlEncode(tblEvents.evtBillingNotes.CurrentValue)

                ' evtTierLevel
                tblEvents.evtTierLevel.EditCustomAttributes = ""
                arwrk = New ArrayList
                arwrk.Add(New String() {"0", "0"})
                arwrk.Add(New String() {"1", "1"})
                arwrk.Add(New String() {"2", "2"})
                arwrk.Add(New String() {"3", "3"})
                arwrk.Add(New String() {"4", "4"})
                arwrk.Add(New String() {"5", "5"})
                arwrk.Insert(0, New String() {"", "Please Select"})
                tblEvents.evtTierLevel.EditValue = arwrk

                ' evtOverTimePriority
                tblEvents.evtOverTimePriority.EditCustomAttributes = ""
                tblEvents.evtOverTimePriority.EditValue = ew_HtmlEncode(tblEvents.evtOverTimePriority.CurrentValue)

            End If

        ' Row Rendered event
        tblEvents.Row_Rendered()
    End Sub

    '
    ' Validate form
    '
    Function ValidateForm() As Boolean

        ' Initialize
        ParentPage.gsFormError = ""

        ' Check if validation required
        If Not EW_SERVER_VALIDATE Then Return (ParentPage.gsFormError = "")

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

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

    '
    ' Add record
    '
    Function AddRow() As Boolean
        Dim Rs As New OrderedDictionary
        Dim sSql As String, sFilter As String
        Dim bInsertRow As Boolean
        Dim RsChk As OleDbDataReader
        Dim sIdxErrMsg As String
        Dim LastInsertId As Object

        ' evtDescription
        tblEvents.evtDescription.SetDbValue(tblEvents.evtDescription.CurrentValue, System.DBNull.Value)
        Rs("evtDescription") = tblEvents.evtDescription.DbValue

            ' evtIsActive
            Rs("evtIsActive") = True

            ' evtAllocateBilling
            tblEvents.evtAllocateBilling.SetDbValue((tblEvents.evtAllocateBilling.CurrentValue <> "" And Not IsDBNull(tblEvents.evtAllocateBilling.CurrentValue)), System.DBNull.Value)
            Rs("evtAllocateBilling") = tblEvents.evtAllocateBilling.DbValue

            ' evtBillingNotes
            tblEvents.evtBillingNotes.SetDbValue(tblEvents.evtBillingNotes.CurrentValue, System.DBNull.Value)
            Rs("evtBillingNotes") = tblEvents.evtBillingNotes.DbValue

            ' evtTierLevel
            tblEvents.evtTierLevel.SetDbValue(tblEvents.evtTierLevel.CurrentValue, System.DBNull.Value)
            Rs("evtTierLevel") = tblEvents.evtTierLevel.DbValue

            ' evtOverTimePriority
            tblEvents.evtOverTimePriority.SetDbValue(tblEvents.evtOverTimePriority.CurrentValue, System.DBNull.Value)
            Rs("evtOverTimePriority") = tblEvents.evtOverTimePriority.DbValue

            ' Row Inserting event
        bInsertRow = tblEvents.Row_Inserting(Rs)
        If bInsertRow Then
            Try
                tblEvents.Insert(Rs)
                AddRow = True
            Catch e As Exception
                If EW_DEBUG_ENABLED Then Throw
                Message = e.Message
                AddRow = False
            End Try
        Else
            If tblEvents.CancelMessage <> "" Then
                Message = tblEvents.CancelMessage
                tblEvents.CancelMessage = ""
            Else
                Message = "Insert cancelled"
            End If
            AddRow = False
        End If
        If AddRow Then
            LastInsertId = Conn.GetLastInsertId()
            tblEvents.evtID.DbValue = LastInsertId
            Rs("evtID") = tblEvents.evtID.DbValue

            ' Row Inserted event
            tblEvents.Row_Inserted(Rs)
        End If
    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
        tblEvents_add = New ctblEvents_add(Me)
        tblEvents_add.Page_Init()

        ' Page main processing
        tblEvents_add.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 tblEvents_add IsNot Nothing Then tblEvents_add.Dispose()
    End Sub
End Class