Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.IO
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Partial Class Admin_16buttons_msg_master
    Inherits System.Web.UI.Page
    Dim Category(10) As String
    Dim i As Integer
    Dim sproduct As Integer
    Dim dt1 As DataTable
    Dim categories As DataTable
    Dim count As Integer
    Dim parentid As String
    Dim BtnMsg As New clsbuttonsmsg


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Put user code to initialize the page here
        Try
            If Session("AdminID") Is Nothing Then
                Response.Redirect("AdminLogin.aspx?sesn=expire")
                Exit Sub
            End If
            If IsNothing(Session("btnmsgCategory")) Then
                Dim catds As New DataSet
                BtnMsg.ProcMode = "Select"
                catds = clsbuttonsmsg.SelectAllCategory(BtnMsg)
                Session("btnmsgCategory") = catds.Tables(0)
            End If
            If Not Me.Page.IsPostBack Then
                If Session("AdminID") = Nothing Then
                    Response.Redirect("AdminLogin.aspx")
                End If
                LoadCategory()
                ' gvProducts.Visible = False
                '------getting the value of subcatid from the getparents function that declared in this form--------
                btnUpdate.Visible = True

                sproduct = 0
                g_FinYear = Session("g_FinYear").ToString()
                g_Company = Session("g_Company").ToString()
                g_User = Session("g_User").ToString()
                i = 0

                Session("c") = Nothing
                ddlsubCategory1.Visible = False
                ddlsubCategory2.Visible = False

            End If
            controlsenable(False)
            ddlCategory.Visible = True
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "strkeyval")
        End Try
    End Sub
    Private Sub LoadCategory()
        Try
            Dim dt As DataTable
            CType(Session("btnmsgCategory"), DataTable).DefaultView.RowFilter = "Category_ParentId='Root Category'"
            dt = CType(Session("btnmsgCategory"), DataTable).DefaultView.ToTable
            CType(Session("btnmsgCategory"), DataTable).RejectChanges()
            ddlCategory.DataSource = dt
            ddlCategory.DataValueField = "Category_Kid"
            ddlCategory.DataTextField = "Category_Name"
            ddlCategory.DataBind()
            ddlCategory.Items.Insert(0, New ListItem("Select Main Category", "0"))
            ddlsubCategory1.Visible = False
            ddlsubCategory2.Visible = False
            ddlCategory.BackColor = Drawing.Color.LightYellow
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "strkeyval")
        End Try
    End Sub
    
    Protected Sub getbtnMsg(ByVal catid As String)
        Try
            clearcontrols()
            btnUpdate.Visible = True
            Dim dt As DataTable
            Dim BtnMsgDS As New DataSet
            BtnMsg.ProcMode = "Select"
            BtnMsg.categoryid = catid
            BtnMsgDS = clsbuttonsmsg.SelectBtnMsg(BtnMsg)
            dt = BtnMsgDS.Tables(0)
            If dt.Rows.Count > 0 Then
                btnSave.Visible = False
                btnUpdate.Visible = True
                btnDelete.Visible = True
                txtApplications.Text = dt.Rows(0).Item("Applications").ToString
                txtFeatures.Text = dt.Rows(0).Item("Features").ToString
                txtTechSpecification.Text = dt.Rows(0).Item("TechSpecification").ToString
                txtMSDS.Text = dt.Rows(0).Item("MSDS").ToString
                txtSpecialInstruction.Text = dt.Rows(0).Item("SpecialInstruction").ToString
                txtCatalog.Text = dt.Rows(0).Item("Catalog").ToString
                txtCertificate.Text = dt.Rows(0).Item("Certificate").ToString
                txtConsumables.Text = dt.Rows(0).Item("Consumables").ToString
                txtGuarantyWarranty.Text = dt.Rows(0).Item("GuarantyWarranty").ToString
                txtIncludedAccessories.Text = dt.Rows(0).Item("IncludedAccessories").ToString
                txtInstallationCommissioning.Text = dt.Rows(0).Item("InstallationCommissioning").ToString
                txtOptionalAccessories.Text = dt.Rows(0).Item("OptionalAccessories").ToString
                txtPackaging.Text = dt.Rows(0).Item("Packaging").ToString
                txtSpareParts.Text = dt.Rows(0).Item("SpareParts").ToString
                txtUserManual.Text = dt.Rows(0).Item("UserManual").ToString
                txtWearTear.Text = dt.Rows(0).Item("Wear_Tear").ToString
            Else
                btnSave.Visible = True
                btnUpdate.Visible = False
                btnDelete.Visible = False
                clearcontrols()
            End If

        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "strkeyval")
        End Try
    End Sub
    Private Sub clearcontrols()
        txtApplications.Text = ""
        txtFeatures.Text = ""
        txtTechSpecification.Text = ""
        txtMSDS.Text = ""
        txtSpecialInstruction.Text = ""
        txtCatalog.Text = ""
        txtCertificate.Text = ""
        txtConsumables.Text = ""
        txtGuarantyWarranty.Text = ""
        txtIncludedAccessories.Text = ""
        txtInstallationCommissioning.Text = ""
        txtOptionalAccessories.Text = ""
        txtPackaging.Text = ""
        txtSpareParts.Text = ""
        txtUserManual.Text = ""
        txtWearTear.Text = ""
    End Sub
    Private Sub controlsenable(ByVal flag As Boolean)
        txtApplications.Enabled = flag
        txtFeatures.Enabled = flag
        txtTechSpecification.Enabled = flag
        txtMSDS.Enabled = flag
        txtSpecialInstruction.Enabled = flag
        txtCatalog.Enabled = flag
        txtCertificate.Enabled = flag
        txtConsumables.Enabled = flag
        txtGuarantyWarranty.Enabled = flag
        txtIncludedAccessories.Enabled = flag
        txtInstallationCommissioning.Enabled = flag
        txtOptionalAccessories.Enabled = flag
        txtPackaging.Enabled = flag
        txtSpareParts.Enabled = flag
        txtUserManual.Enabled = flag
        txtWearTear.Enabled = flag
    End Sub
    Public Function fillcategory(ByVal strCatID As String) As String

        Dim str As String
        Dim strValue As String = "Product Category  > "
        Dim strV(10) As String
        Dim count As Integer = 0
        str = strCatID
        While str <> "Root Category"
            strV(count) = CType(Session("btnmsgCategory"), DataTable).Select("Category_KID='" & str & "'")(0).Item("Category_Name").ToString
            count = count + 1
            'strValue += "<b>" & str & "<b>  >  "
            str = CType(Session("btnmsgCategory"), DataTable).Select("Category_KID='" & str & "'")(0).Item("Category_ParentID")
        End While

        Dim i As Integer
        Array.Reverse(strV)
        For i = 0 To strV.Length - 1
            If IsNothing(strV(i)) Then
            Else
                strValue += "<b>  " & strV(i).ToString & "  </b>  >  "
            End If

        Next
        Return strValue


    End Function
    Protected Sub ddlCategory_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        ' gvProducts.Visible = False
        hfSourceCategoryID.Value = ""
        Try
            If ddlCategory.SelectedIndex > 0 Then
                ddlsubCategory1.Visible = True
                Dim dt As DataTable
                CType(Session("btnmsgCategory"), DataTable).DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(ddlCategory.SelectedItem.Value.ToString) & "'"
                dt = CType(Session("btnmsgCategory"), DataTable).DefaultView.ToTable
                CType(Session("btnmsgCategory"), DataTable).RejectChanges()
                ddlsubCategory1.DataSource = dt
                ddlsubCategory1.DataValueField = "Category_Kid"
                ddlsubCategory1.DataTextField = "Category_Name"
                ddlsubCategory1.DataBind()
                ddlsubCategory1.Items.Insert(0, New ListItem("Select Sub Category", 0))
                ddlsubCategory1.Visible = True
                ddlsubCategory2.Visible = False
                'Dim dr() As DataRow = CType(Session("btnmsgCategory"), DataTable).Select("Category_KId = '" & ddlSource.SelectedItem.Value.ToString & "'")(0).Item("Category_Name").ToString
                ddlCategory.BackColor = Drawing.Color.White
                ddlsubCategory1.BackColor = Drawing.Color.LightYellow
                lblSourceCategoryHierarchy.Text = fillcategory(RemoveLiterals(ddlCategory.SelectedItem.Value.ToString))
            End If
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "strkeyval")
        End Try
    End Sub

    Protected Sub ddlsubCategory1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            hfSourceCategoryID.Value = ""
            If ddlsubCategory1.SelectedIndex > 0 Then
                Dim dt As DataTable
                CType(Session("btnmsgCategory"), DataTable).DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(ddlsubCategory1.SelectedItem.Value.ToString) & "'"
                dt = CType(Session("btnmsgCategory"), DataTable).DefaultView.ToTable
                CType(Session("btnmsgCategory"), DataTable).RejectChanges()

                'lblSourceCategoryHierarchy.Text += "<b> >  " + CType(Session("btnmsgCategory"), DataTable).Select("Category_KId = '" & ddlSubCat1.SelectedItem.Value.ToString & "'")(0).Item("Category_Name").ToString + "</b>"
                lblSourceCategoryHierarchy.Text = fillcategory(RemoveLiterals(ddlsubCategory1.SelectedItem.Value.ToString))

                If dt.Rows.Count > 0 Then
                    ddlsubCategory2.Visible = True
                    ddlsubCategory2.DataSource = dt
                    ddlsubCategory2.DataValueField = "Category_Kid"
                    ddlsubCategory2.DataTextField = "Category_Name"
                    ddlsubCategory2.DataBind()
                    ddlsubCategory2.Items.Insert(0, New ListItem("Select Sub Category", 0))
                    lblSourceLastCat.Text = ""
                    ddlsubCategory1.BackColor = Drawing.Color.White
                    ddlsubCategory2.BackColor = Drawing.Color.LightYellow
                    controlsenable(False)
                Else
                    hfSourceCategoryID.Value = RemoveLiterals(ddlsubCategory1.SelectedItem.Value.ToString)
                    getbtnMsg(RemoveLiterals(ddlsubCategory1.SelectedItem.Value.ToString))
                    'ddlSource.BackColor = Drawing.Color.White
                    ddlsubCategory1.BackColor = Drawing.Color.Yellow
                    lblSourceLastCat.Visible = True
                    lblSourceLastCat.Text = "Last Category Selected."
                    controlsenable(True)
                End If
            Else
                ddlsubCategory2.Visible = False
            End If
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "strkeyval")
        End Try
    End Sub

    Protected Sub ddlsubCategory2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            hfSourceCategoryID.Value = ""
            If ddlsubCategory2.SelectedIndex > 0 Then
                Dim dt As DataTable
                CType(Session("btnmsgCategory"), DataTable).DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(ddlsubCategory2.SelectedItem.Value.ToString) & "'"
                dt = CType(Session("btnmsgCategory"), DataTable).DefaultView.ToTable
                CType(Session("btnmsgCategory"), DataTable).RejectChanges()
                'lblSourceCategoryHierarchy.Text += "<b> >  " + CType(Session("btnmsgCategory"), DataTable).Select("Category_KId = '" & ddlSubCat2.SelectedItem.Value.ToString & "'")(0).Item("Category_Name").ToString + "</b>"
                lblSourceCategoryHierarchy.Text = fillcategory(RemoveLiterals(ddlsubCategory2.SelectedItem.Value.ToString))
                If dt.Rows.Count > 0 Then
                    'ddlSubCat1.Visible = True
                    ddlsubCategory1.DataSource = dt
                    ddlsubCategory1.DataValueField = "Category_Kid"
                    ddlsubCategory1.DataTextField = "Category_Name"
                    ddlsubCategory1.DataBind()
                    ddlsubCategory1.Items.Insert(0, New ListItem("Select Sub Category", 0))
                    lblSourceLastCat.Text = ""
                    ddlsubCategory2.Visible = False
                    'ddlSubCat2.BackColor = Drawing.Color.White
                    ddlsubCategory1.BackColor = Drawing.Color.LightYellow
                    controlsenable(False)
                Else
                    hfSourceCategoryID.Value = RemoveLiterals(ddlsubCategory2.SelectedItem.Value.ToString)
                    getbtnMsg(RemoveLiterals(ddlsubCategory2.SelectedItem.Value.ToString))
                    ddlsubCategory2.BackColor = Drawing.Color.Yellow
                    lblSourceLastCat.Visible = True
                    lblSourceLastCat.Text = "Last Category Selected."
                    controlsenable(True)
                End If
            Else
                'ddlSubCat2.Visible = False
            End If
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "strkeyval")
        End Try
    End Sub
    'Private Sub LoadSubCategory1(ByVal intId As String)
    '    Try
    '        Dim strsql As String
    '        'strsql = "Select cat_id as id,catname as Name from categorymaster where parent_id=" & intId & "order by catname asc"
    '        strsql = "SELECT Category_Kid as id, Category_Name as Name FROM Category_Master WHERE Category_ParentId = '" & intId & "' and Category_Isdeleted='0' ORDER BY Category_Name"
    '        If con.State = ConnectionState.Open Then
    '            con.Close()
    '        End If
    '        con.Open()

    '        Dim cmd As New SqlCommand(strsql, con)
    '        Dim mReader As SqlDataReader
    '        mReader = cmd.ExecuteReader
    '        ddlsubCategory1.Items.Clear()
    '        ddlsubCategory1.Items.Add(New ListItem("Select Subcategory", "-2"))
    '        If mReader.Read Then
    '            ddlsubCategory1.Items.Add(New ListItem(mReader("Name"), RemoveLiterals(mReader("id"))))
    '            While mReader.Read
    '                ddlsubCategory1.Items.Add(New ListItem(mReader("Name"), RemoveLiterals(mReader("id"))))
    '            End While
    '            Label14.Visible = False
    '            Label15.Visible = True
    '            Label16.Visible = False
    '            ddlCategory.ForeColor = Drawing.Color.Black
    '            ddlsubCategory1.ForeColor = Drawing.Color.Red
    '            ddlsubCategory2.ForeColor = Drawing.Color.Black
    '            ddlsubCategory1.Visible = True
    '            ddlsubCategory2.Visible = False
    '            Label15.Text = "Select the next level"
    '        Else
    '            'Response.Write("check")
    '            ddlsubCategory1.Visible = False
    '            ddlsubCategory2.Visible = False
    '            Label14.Visible = False
    '            Label15.Visible = False
    '            Label16.Visible = False
    '            lblSourceLastCat.Visible = True
    '            lblSourceLastCat.Text = "Last category selected."
    '            controlsenable(True)

    '            Session("CategoryId") = intId

    '            'Response.Redirect("Product_Information.aspx?CatID =" & intId)
    '        End If
    '        mReader.Close()

    '    Catch ex As Exception
    '        CreateMessageAlert(Me, ex.Message, "strkeyval")
    '    End Try
    'End Sub
    'Private Sub LoadSubCategory2(ByVal intId As String)
    '    Try
    '        Dim strsql As String
    '        'strsql = "select cat_id as id,catname as Name from categorymaster where parent_id=" & intId & "order by catname asc"
    '        strsql = "SELECT Category_Kid as id, Category_Name as Name FROM Category_Master WHERE Category_ParentId = '" & intId & "' and Category_Isdeleted='0' ORDER BY Category_Name"
    '        If con.State = ConnectionState.Open Then
    '            con.Close()
    '        End If
    '        con.Open()

    '        Dim cmd As New SqlCommand(strsql, con)
    '        Dim mReader As SqlDataReader
    '        mReader = cmd.ExecuteReader
    '        ddlsubCategory2.Items.Clear()
    '        ddlsubCategory2.Items.Add(New ListItem("Select Subcategory", "-3"))
    '        If mReader.Read Then
    '            ddlsubCategory2.Items.Add(New ListItem(mReader("Name"), RemoveLiterals(mReader("id"))))
    '            While mReader.Read
    '                ddlsubCategory2.Items.Add(New ListItem(mReader("Name"), RemoveLiterals(mReader("id"))))
    '            End While
    '            Label14.Visible = False
    '            Label15.Visible = False
    '            Label16.Visible = True
    '            ddlCategory.ForeColor = Drawing.Color.Black
    '            ddlsubCategory1.ForeColor = Drawing.Color.Black
    '            ddlsubCategory2.ForeColor = Drawing.Color.Red
    '            Label16.Text = "Select the next level"
    '            ddlsubCategory2.Visible = True
    '        Else
    '            ddlsubCategory2.Visible = False
    '            Label14.Visible = False
    '            Label15.Visible = False
    '            Label16.Visible = False
    '            lblSourceLastCat.Visible = True
    '            lblSourceLastCat.Text = "Last category selected."
    '           controlsenable(True)

    '            Session("CategoryId") = intId

    '            'Response.Redirect("Product_Information.aspx?CatID =" & intId)
    '        End If
    '        mReader.Close()

    '    Catch ex As Exception
    '        CreateMessageAlert(Me, ex.Message, "strkeyval")
    '    End Try

    'End Sub
    'Private Sub LoadSubCategory3(ByVal intId As String)
    '    Try
    '        Dim strsql As String
    '        'strsql = "select cat_id as id,catname as Name from categorymaster where parent_id=" & intId & "order by catname asc"
    '        strsql = "SELECT Category_Kid as id, Category_Name as Name FROM Category_Master WHERE Category_ParentId = '" & intId & "' and Category_Isdeleted='0' ORDER BY Category_Name"
    '        If con.State = ConnectionState.Open Then
    '            con.Close()
    '        End If
    '        con.Open()

    '        Dim cmd As New SqlCommand(strsql, con)
    '        Dim mReader As SqlDataReader
    '        mReader = cmd.ExecuteReader
    '        ddlCategory.Items.Clear()
    '        ddlCategory.Items.Add(New ListItem("Select Subcategory", "-4"))
    '        If mReader.Read Then
    '            ddlCategory.Items.Add(New ListItem(mReader("Name"), mReader("id")))
    '            While mReader.Read
    '                ddlCategory.Items.Add(New ListItem(mReader("Name"), mReader("id")))
    '            End While
    '            Label14.Visible = True
    '            Label15.Visible = False
    '            Label16.Visible = False
    '            ddlsubCategory1.Visible = False
    '            ddlsubCategory2.Visible = False
    '            ddlCategory.ForeColor = Drawing.Color.Red
    '            ddlsubCategory1.ForeColor = Drawing.Color.Black
    '            ddlsubCategory2.ForeColor = Drawing.Color.Black
    '            Label14.Text = "Select the next level"
    '        Else
    '            Label14.Visible = False
    '            Label15.Visible = False
    '            Label16.Visible = False
    '            lblSourceLastCat.Visible = True
    '            lblSourceLastCat.Text = "Last category selected."
    '            controlsenable(True)
    '            Session("CategoryId") = intId

    '            'Response.Redirect("Product_Information.aspx?CatID=" & intId)
    '        End If
    '        mReader.Close()

    '    Catch ex As Exception
    '        CreateMessageAlert(Me, ex.Message, "strkeyval")
    '    End Try
    'End Sub

    Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        Try
            Dim catid As String = hfSourceCategoryID.Value
            BtnMsg.categoryid = catid
            BtnMsg.MsgApplications = txtApplications.Text.Trim
            BtnMsg.MsgFeatures = txtFeatures.Text.Trim
            BtnMsg.MsgTechSpecification = txtTechSpecification.Text.Trim
            BtnMsg.MsgMSDS = txtMSDS.Text.Trim
            BtnMsg.MsgSpecialInstruction = txtSpecialInstruction.Text.Trim
            BtnMsg.MsgCatalog = txtCatalog.Text.Trim
            BtnMsg.MsgCertificate = txtCertificate.Text.Trim
            BtnMsg.MsgConsumables = txtConsumables.Text.Trim
            BtnMsg.MsgGuarantyWarranty = txtGuarantyWarranty.Text.Trim
            BtnMsg.MsgInstallationCommissioning = txtInstallationCommissioning.Text.Trim
            BtnMsg.MsgIncludedAccessories = txtIncludedAccessories.Text.Trim
            BtnMsg.MsgOptionalAccessories = txtOptionalAccessories.Text.Trim
            BtnMsg.MsgPackaging = txtPackaging.Text.Trim
            BtnMsg.MsgSpareParts = txtSpareParts.Text.Trim
            BtnMsg.MsgUserManual = txtUserManual.Text.Trim
            BtnMsg.MsgWearTear = txtWearTear.Text.Trim
            BtnMsg.FormName = "16buttons-msg-master"
            BtnMsg.ProcMode = "Update"
            clsbuttonsmsg.InsertBtnMsg(BtnMsg)
            clearcontrols()
            controlsenable(False)
            
            showmessage("Messages Successfully Updated.", lblerror)

        Catch ex As Exception

        End Try
    End Sub

    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Try

            Dim catid As String = hfSourceCategoryID.Value
            BtnMsg.categoryid = catid
            BtnMsg.MsgApplications = txtApplications.Text.Trim
            BtnMsg.MsgFeatures = txtFeatures.Text.Trim
            BtnMsg.MsgTechSpecification = txtTechSpecification.Text.Trim
            BtnMsg.MsgMSDS = txtMSDS.Text.Trim
            BtnMsg.MsgSpecialInstruction = txtSpecialInstruction.Text.Trim
            BtnMsg.MsgCatalog = txtCatalog.Text.Trim
            BtnMsg.MsgCertificate = txtCertificate.Text.Trim
            BtnMsg.MsgConsumables = txtConsumables.Text.Trim
            BtnMsg.MsgGuarantyWarranty = txtGuarantyWarranty.Text.Trim
            BtnMsg.MsgInstallationCommissioning = txtInstallationCommissioning.Text.Trim
            BtnMsg.MsgIncludedAccessories = txtIncludedAccessories.Text.Trim
            BtnMsg.MsgOptionalAccessories = txtOptionalAccessories.Text.Trim
            BtnMsg.MsgPackaging = txtPackaging.Text.Trim
            BtnMsg.MsgSpareParts = txtSpareParts.Text.Trim
            BtnMsg.MsgUserManual = txtUserManual.Text.Trim
            BtnMsg.MsgWearTear = txtWearTear.Text.Trim
            BtnMsg.FormName = "16buttons-msg-master"
            BtnMsg.ProcMode = "Insert"
            clsbuttonsmsg.InsertBtnMsg(BtnMsg)
            clearcontrols()
            controlsenable(False)
            showmessage("Messages Successfully Saved.", lblerror)

        Catch ex As Exception

        End Try
    End Sub

    Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Try

            Dim catid As String = hfSourceCategoryID.Value
            BtnMsg.categoryid = catid
            BtnMsg.MsgApplications = txtApplications.Text.Trim
            BtnMsg.MsgFeatures = txtFeatures.Text.Trim
            BtnMsg.MsgTechSpecification = txtTechSpecification.Text.Trim
            BtnMsg.MsgMSDS = txtMSDS.Text.Trim
            BtnMsg.MsgSpecialInstruction = txtSpecialInstruction.Text.Trim
            BtnMsg.MsgCatalog = txtCatalog.Text.Trim
            BtnMsg.MsgCertificate = txtCertificate.Text.Trim
            BtnMsg.MsgConsumables = txtConsumables.Text.Trim
            BtnMsg.MsgGuarantyWarranty = txtGuarantyWarranty.Text.Trim
            BtnMsg.MsgInstallationCommissioning = txtInstallationCommissioning.Text.Trim
            BtnMsg.MsgIncludedAccessories = txtIncludedAccessories.Text.Trim
            BtnMsg.MsgOptionalAccessories = txtOptionalAccessories.Text.Trim
            BtnMsg.MsgPackaging = txtPackaging.Text.Trim
            BtnMsg.MsgSpareParts = txtSpareParts.Text.Trim
            BtnMsg.MsgUserManual = txtUserManual.Text.Trim
            BtnMsg.MsgWearTear = txtWearTear.Text.Trim
            BtnMsg.FormName = "16buttons-msg-master"
            BtnMsg.ProcMode = "Delete"
            clsbuttonsmsg.InsertBtnMsg(BtnMsg)
            clearcontrols()
            controlsenable(False)
            showmessage("Messages Successfully Deleted.", lblerror)

        Catch ex As Exception

        End Try
    End Sub

    Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        LoadCategory()
        clearcontrols()
        controlsenable(False)
        lblSourceCategoryHierarchy.Text = ""
    End Sub
End Class