Imports System
Imports System.Data
Imports System.Data.SqlClient


Partial Class Buyer_EditAccountInfo
    Inherits System.Web.UI.Page
    Shared g_User As String
    Shared g_Company As String
    Shared g_FinYear As String
    Dim mode As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            ddlState.Enabled = False
            ddlCity.Enabled = False

            Dim dt As New DataTable
            Dim parent As String
            parent = "Root Category"
            g_User = "000008I"
            g_Company = "00006Z4"
            g_FinYear = "000010N"

            Fill_Combo("select Country_Kid,Country_Name from Country_Master where Country_IsDeleted='0' " & _
                        " and Country_CompanyId='" & g_Company.Trim & "' order by Country_Name", ddlCountry)
            ddlCountry.ClearSelection()
            ddlCountry.Items.FindByText("India").Selected = True
            ddlCountry_SelectedIndexChanged(sender, e)
            dt = ReturnDataTable("Select Distinct Category_Kid, Category_Name from Category_Master where Category_UserId = '" & g_User & "' and Category_CompanyId = '" & g_Company & "' and Category_Isdeleted = '0' and Category_ParentId = '" & parent & "'")
            chkCategory.DataSource = dt
            chkCategory.DataTextField = "Category_Name"
            chkCategory.DataValueField = "Category_Kid"
            chkCategory.DataBind()
            getExistingData()
        End If
        txtTelCountryCode.MaxLength = 3
        txtTelCityCode.MaxLength = 5
        txtTelNumber.MaxLength = 8
        txtTelExt.MaxLength = 5
        txtFaxCityCode.MaxLength = 5
        txtFaxCountryCode.MaxLength = 3
        txtFaxNumber.MaxLength = 8
        txtMobCountryCode.MaxLength = 3
        txtMobNumber.MaxLength = 10
       
        Label14.Visible = False
        txtAddCity.Visible = False
        btnAddCity.Visible = False
        TR2.Visible = False
        getMobileCode()

    End Sub
    Private Sub getExistingData()
        Dim dt As DataTable = getTable("Select BuyerRegister_Kid, BuyerRegister_Name, BuyerRegister_EmailId, BuyerRegister_TelephoneNo, BuyerRegister_TelephoneExt,BuyerRegister_MobileNo, BuyerRegister_FaxNo, BuyerRegister_Address, BuyerRegister_PinCode, BuyerRegister_CountryId, BuyerRegister_StateId, BuyerRegister_CityId, BuyerRegister_CompanyName, BuyerRegister_WebSite, BuyerRegister_Category from BuyerRegister where BuyerRegister_Kid='" & Session("BuyId") & "' and BuyerRegister_IsDeleted = N'0'", "PR")
        If dt.Rows.Count > 0 Then
            Dim cat(15) As String
            Dim i As Integer
            Dim j As Integer = 0
            FillComboWithOthers("SELECT     State_Kid, State_Name     FROM State_Master WHERE     State_IsDeleted = N'0' AND State_CompanyId = '" & g_Company & "'", ddlState)
            FillComboWithOthers("SELECT     City_Kid, City_Name     FROM City_Master WHERE     City_IsDeleted = N'0' AND City_CompanyId = '" & g_Company & "' ", ddlCity)


            txtName.Text = chkDBNull(dt.Rows(0).Item("BuyerRegister_Name")).ToString
            lblUserId.Text = chkDBNull(dt.Rows(0).Item("BuyerRegister_EmailId")).ToString
            Dim pcountry1, pcity1, phoneno1, mcountry1, mobile1, fcountry1, fcity1, faxno1 As String

            If IsDBNull(dt.Rows(0).Item("BuyerRegister_TelephoneNo")) Then
            Else
                phoneno1 = dt.Rows(0).Item("BuyerRegister_TelephoneNo").ToString
                pcountry1 = phoneno1.Substring(0, phoneno1.IndexOf("-"))
                phoneno1 = phoneno1.Substring(phoneno1.IndexOf("-") + 1)
                pcity1 = phoneno1.Substring(0, phoneno1.IndexOf("-"))
                phoneno1 = phoneno1.Substring(phoneno1.IndexOf("-") + 1)
                txtTelCountryCode.Text = pcountry1
                txtTelCityCode.Text = pcity1
                txtTelNumber.Text = phoneno1
            End If

            If IsDBNull(dt.Rows(0).Item("BuyerRegister_MobileNo")) Then
            Else
                mobile1 = dt.Rows(0).Item("BuyerRegister_MobileNo").ToString
                mcountry1 = mobile1.Substring(0, mobile1.IndexOf("-"))
                mobile1 = mobile1.Substring(mobile1.IndexOf("-") + 1)
                txtMobCountryCode.Text = mcountry1
                txtMobNumber.Text = mobile1
            End If



            txtTelExt.Text = chkDBNull(dt.Rows(0).Item("BuyerRegister_TelephoneExt")).ToString

            If IsDBNull(dt.Rows(0).Item("BuyerRegister_FaxNo")) Then
            Else
                faxno1 = dt.Rows(0).Item("BuyerRegister_FaxNo").ToString
                fcountry1 = faxno1.Substring(0, faxno1.IndexOf("-"))
                faxno1 = faxno1.Substring(faxno1.IndexOf("-") + 1)
                fcity1 = faxno1.Substring(0, faxno1.IndexOf("-"))
                faxno1 = faxno1.Substring(faxno1.IndexOf("-") + 1)
                txtFaxCountryCode.Text = fcountry1
                txtFaxCityCode.Text = fcity1
                txtFaxNumber.Text = faxno1
            End If

            txtAddress.Text = chkDBNull(dt.Rows(0).Item("BuyerRegister_Address")).ToString
            txtPinCode.Text = chkDBNull(dt.Rows(0).Item("BuyerRegister_PinCode")).ToString
            txtCompanyName.Text = chkDBNull(dt.Rows(0).Item("BuyerRegister_CompanyName")).ToString
            txtWebSite.Text = chkDBNull(dt.Rows(0).Item("BuyerRegister_WebSite")).ToString

            Dim Category As String = dt.Rows(0).Item("BuyerRegister_Category").ToString
            For i = 0 To 15
                cat(i) = Category.Substring(0, Category.IndexOf("-")).ToString
                Dim s1 As String = cat(i).ToString
                chkCategory.Items.FindByText(s1.Trim).Selected = True
                j = cat(i).ToString.Length + 1
                Category = Category.Remove(0, j)

                If Category = "" Then
                    Exit For
                End If
            Next


            ddlCountry.SelectedIndex = ddlCountry.Items.IndexOf(ddlCountry.Items.FindByValue(dt.Rows(0).Item("BuyerRegister_CountryId").ToString))
            ddlState.SelectedIndex = ddlState.Items.IndexOf(ddlState.Items.FindByValue(dt.Rows(0).Item("BuyerRegister_StateId").ToString))
            ddlCity.SelectedIndex = ddlCity.Items.IndexOf(ddlCity.Items.FindByValue(dt.Rows(0).Item("BuyerRegister_CityId").ToString))
            BtnSave.Text = "Update"
            EnableControls(True)

        ElseIf dt.Rows.Count = 0 Then

            BtnSave.Text = "Save"
            EnableControls(True)

        End If
        dt = Nothing
    End Sub
    Private Sub EnableControls(ByVal bool As Boolean)

        txtAddCity.Enabled = bool
        txtAddress.Enabled = bool
        txtCompanyName.Enabled = bool
        txtFaxCityCode.Enabled = bool
        txtFaxCountryCode.Enabled = bool
        txtFaxNumber.Enabled = bool
        txtMobCountryCode.Enabled = bool
        txtMobNumber.Enabled = bool
        txtName.Enabled = bool
        txtPinCode.Enabled = bool


        txtTelCityCode.Enabled = bool
        txtTelCountryCode.Enabled = bool
        txtTelExt.Enabled = bool
        txtTelNumber.Enabled = bool
        lblUserId.Enabled = bool

        txtWebSite.Enabled = bool
        ddlCity.Enabled = bool
        ddlCountry.Enabled = bool
        ddlState.Enabled = bool

    End Sub

    Protected Sub BtnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSave.Click
        If BtnSave.Text = "Save" Then
            mode = "Insert"

        ElseIf BtnSave.Text = "Update" Then
            mode = "Update"
            Try
                ''Dim EMailid As String
                ''EMailid = ReturnValue("Select BuyerRegister_EmailId from buyerregister where BuyerRegister_EmailId='" & Trim(lblUserId.Text) & "'")
                ''If Trim(lblUserId.Text) = EMailid Then
                ''    'lblUserId.Text = ""
                ''    lblUserId.Focus()
                ''    Label17.Visible = True
                ''    Label17.Text = "This E-Mail Id already registred please choose another E-Mail Id."
                ''    Exit Sub
                ''End If
                Dim val As String
                val = ""
                Dim id As String
                Dim i, j As Integer
                i = chkCategory.Items.Count
                For j = 0 To i - 1
                    If chkCategory.Items(j).Selected = True Then
                        val += chkCategory.Items(j).Text & " - "
                        'id = chkCategory.Items(j).Value
                    End If
                Next

                Dim telephoneno As String
                telephoneno = txtTelCountryCode.Text & "-" & txtTelCityCode.Text & "-" & txtTelNumber.Text

                Dim MobileNo As String
                MobileNo = txtMobCountryCode.Text & "-" & txtMobNumber.Text

                Dim FaxNo As String
                FaxNo = txtFaxCountryCode.Text & "-" & txtFaxCityCode.Text & "-" & txtFaxNumber.Text
                If val = "" Then
                    CreateMessageAlert(Me, "Please Select One Category.", "StrKeyVal")
                    Exit Sub
                End If


                If ddlCountry.SelectedItem.Text = "Select" Then
                    CreateMessageAlert(Me, "Please Select Couuntry.", "StrKeyVal")
                    ddlCountry.Focus()
                    Exit Sub
                End If

                If ddlState.Items.Count = 0 Then
                    CreateMessageAlert(Me, "Please Select State..!!!", "StrKeyVal")
                    ddlState.Focus()
                    Exit Sub
                End If
                If ddlState.SelectedItem.Text = "Select" Then
                    CreateMessageAlert(Me, "Please Select State.", "StrKeyVal")
                    ddlState.Focus()
                    Exit Sub
                End If

                If ddlState.SelectedItem.Text = "-Other-" Then
                    CreateMessageAlert(Me, "Please Select State.", "StrKeyVal")
                    ddlState.ClearSelection()
                    ddlState.Focus()
                    Exit Sub
                End If

                If ddlCity.SelectedItem.Text = "Select" Then
                    CreateMessageAlert(Me, "Please Select City.", "StrKeyVal")
                    ddlCity.Focus()
                    Exit Sub
                End If

                If ddlCity.SelectedItem.Text = "-Other-" Then
                    CreateMessageAlert(Me, "Please Select City.", "StrKeyVal")
                    ddlCity.ClearSelection()
                    ddlCity.Focus()
                    Exit Sub
                End If

                Dim country As String
                country = ddlCountry.SelectedItem.Value

                Dim State As String
                State = ddlState.SelectedItem.Value

                Dim OtherState As String
                If State = "Select" Then
                    OtherState = ddlState.SelectedItem.Text
                    State = ""
                Else
                    OtherState = ""
                End If


                Dim City As String
                City = ddlCity.SelectedItem.Value

                Dim OtherCity As String
                If City = "Select" Then
                    OtherCity = ddlCity.SelectedItem.Text
                    City = ""
                Else
                    OtherCity = ""
                End If

                Dim con As New SqlConnection                                                    'Define connection variable for connecting to SQL-Server
                con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")    'Read the ConnectionString from web.config File
                con.Open()
                Dim cmd As New SqlCommand                                                       'Define command variable to execute the query
                cmd.CommandType = CommandType.StoredProcedure                                   'Set the Command Type to Stored procedure
                cmd.CommandText = "BuyerRegister_Proc"                                        'Assign the Name of Stored Procedure, to Execute
                cmd.Connection = con                                                            'Assign the connection
                txtCode.Text = ReturnValue("select BuyerRegister_Code from BuyerRegister where BuyerRegister_Kid='" & Session("BuyId").ToString & "' and BuyerRegister_IsDeleted = N'0' ")
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_Kid", SqlDbType.NVarChar, 10)).Value = Session("BuyId").ToString()      'Add Parameter Banke_Kid and assign the value  to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_Code", SqlDbType.NVarChar, 25)).Value = Trim(txtCode.Text)       'Add Parameter Banke_Code and assign the value of txtBankCode TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_Name", SqlDbType.NVarChar, 100)).Value = Trim(txtName.Text)       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_EmailId", SqlDbType.NVarChar, 50)).Value = Trim(lblUserId.Text)       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_TelephoneNo", SqlDbType.NVarChar, 50)).Value = telephoneno.ToString       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_TelephoneExt", SqlDbType.NVarChar, 50)).Value = Trim(txtTelExt.Text)       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_MobileNo", SqlDbType.NVarChar, 50)).Value = Trim(MobileNo.ToString)       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_FaxNo", SqlDbType.NVarChar, 50)).Value = Trim(FaxNo.ToString)       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_Address", SqlDbType.NVarChar, 200)).Value = Trim(txtAddress.Text)       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_PinCode", SqlDbType.Decimal)).Value = Convert.ToDecimal(Trim(txtPinCode.Text))       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_CountryId", SqlDbType.NVarChar, 10)).Value = Trim(country.ToString)       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_StateId", SqlDbType.NVarChar, 10)).Value = Trim(State.ToString)       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_OtherState", SqlDbType.NVarChar, 50)).Value = Trim(OtherState.ToString)       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_CityId", SqlDbType.NVarChar, 10)).Value = Trim(City.ToString)       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_OtherCity", SqlDbType.NVarChar, 50)).Value = Trim(OtherCity)       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_CompanyName", SqlDbType.NVarChar, 50)).Value = Trim(txtCompanyName.Text)       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_WebSite", SqlDbType.NVarChar, 50)).Value = Trim(txtWebSite.Text)       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_Category", SqlDbType.NVarChar, 250)).Value = Trim(val.ToString)       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_FinancialYearId", SqlDbType.NVarChar, 10)).Value = g_FinYear.ToString       'Add Parameter Bank_Name and assign the value of txtBankName TextField to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_CompanyId", SqlDbType.NVarChar, 10)).Value = Trim(g_Company.ToString)       'Add Parameter Company_Code and assign the value of Session("g_Company") to it
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_UserId", SqlDbType.NVarChar, 10)).Value = Trim(g_User.ToString)             'Add Parameter UserCode and assign the value of Session("g_User").toString to it
                Dim passwrd As String = ReturnValue("select BuyerRegister_AdminUserId from BuyerRegister where BuyerRegister_Kid='" & Session("BuyId").ToString & "' and BuyerRegister_IsDeleted = N'0'  ")
                cmd.Parameters.Add(New SqlParameter("@BuyerRegister_AdminUserId", SqlDbType.NVarChar, 50)).Value = passwrd.ToString                          'Add Parameter FormName and assign the name of form to it
                cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 100)).Value = "Register"                           'Add Parameter FormName and assign the name of form to it
                cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.VarChar, 50)).Value = mode.ToString()                                  'Add Parameter Mode and assign the DML Operation to Execute (Insert)
                cmd.ExecuteNonQuery()
                con.Close()
                CreateMessageAlert(Me, "Successfully Submitted.", "StrKeyVal")
                clearfields()

                Response.Redirect("AccountInfo.aspx")
            Catch ex As Exception
                ex.Message.ToString()
                'CreateMessageAlert(Me, ex.Message, "StrKeyVal")
            End Try
        End If
    End Sub
    Private Sub getMobileCode()
        txtTelCountryCode.Text = ReturnValue("select Country_ISDCode from country_master where country_kid='" & ddlCountry.SelectedValue.Trim & "'")
        txtMobCountryCode.Text = ReturnValue("select Country_ISDCode from country_master where country_kid='" & ddlCountry.SelectedValue.Trim & "'")
        txtFaxCountryCode.Text = ReturnValue("select Country_ISDCode from country_master where country_kid='" & ddlCountry.SelectedValue.Trim & "'")
    End Sub
    Public Sub clearfields()
        txtAddress.Text = ""
        txtCode.Text = ""
        txtCompanyName.Text = ""
        txtFaxCityCode.Text = ""
        txtFaxCountryCode.Text = ""
        txtFaxNumber.Text = ""
        TxtKid.Text = ""
        txtMobCountryCode.Text = ""
        txtMobNumber.Text = ""
        ' txtOtherCity.Text = ""
        ' txtOtherState.Text = ""
        txtTelCityCode.Text = ""
        txtTelCountryCode.Text = ""
        txtTelExt.Text = ""
        txtTelNumber.Text = ""
        lblUserId.Text = ""
        txtWebSite.Text = ""
        txtPinCode.Text = ""
        ddlCity.ClearSelection()
        ddlState.Items.Clear()
        ddlCountry.Items.Clear()
        ddlState.Enabled = False
        ddlCountry.Enabled = False
    End Sub


    Protected Sub ddlCountry_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlCountry.SelectedIndexChanged
        If ddlCountry.SelectedIndex > 0 Then
            ddlState.Items.Clear()
            Fill_Combo("Select State_Kid, State_Name from State_Master where State_IsDeleted='0' and State_CountryID='" & ddlCountry.SelectedValue.Trim & "' and State_CompanyId='" & g_Company.Trim & "' order by State_Name", ddlState)
            ddlState.Enabled = True
            ddlCity.Enabled = False
        End If
    End Sub

    Protected Sub ddlState_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlState.SelectedIndexChanged
        If ddlState.SelectedIndex > 0 Then
            ddlCity.Items.Clear()
            FillComboWithOthers("Select City_Kid, City_Name from City_Master where City_IsDeleted='0' and City_StateID='" & ddlState.SelectedValue.Trim & "' and City_CompanyId='" & g_Company.Trim & "' order by City_Name", ddlCity)
            ddlCity.Enabled = True
            ddlCity.Visible = True
            Label9.Visible = True
            TR1.Visible = True
        End If
    End Sub

    Protected Sub ddlCity_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlCity.SelectedIndexChanged
        If ddlCity.SelectedItem.Text.Trim = "Others" Then
            btnAddCity.Visible = True
            txtAddCity.Visible = True
            ddlCity.Visible = False
            Label14.Visible = True
            Label9.Visible = False
            TR1.Visible = False
            TR2.Visible = True
            Exit Sub
        End If
    End Sub
    Protected Sub btnAddCity_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        ''Dim cmd As New Data.SqlClient.SqlCommand()
        ''Dim sqlcoll As Data.SqlClient.SqlParameterCollection = cmd.Parameters
        ''sqlcoll.Add("@City_Kid", Data.SqlDbType.NVarChar, 50).Value = NewPrimaryKey(Me)
        ''sqlcoll.Add("@City_Code", Data.SqlDbType.NVarChar, 50).Value = Generate_Code("select count(*) from City_Master where City_Code='", "CC")
        ''sqlcoll.Add("@City_Name", Data.SqlDbType.NVarChar, 50).Value = txtAddCity.Text.Trim
        ''sqlcoll.Add("@City_StateID", Data.SqlDbType.NVarChar, 50).Value = ddlState.SelectedValue.Trim
        ''sqlcoll.Add("@City_CompanyID", Data.SqlDbType.NVarChar, 50).Value = g_Company
        ''sqlcoll.Add("@City_UserID", Data.SqlDbType.NVarChar, 50).Value = g_User
        ''sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString
        ''sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Insert"
        ''ExecQuery("City_Master_Proc", sqlcoll)
        ''FillComboWithOthers("Select City_Kid, City_Name from City_Master where City_IsDeleted='0' and City_StateID='" & ddlState.SelectedValue.Trim & "' and City_CompanyId='" & g_Company.Trim & "' order by City_Name", ddlCity)
        ''ddlCity.ClearSelection()
        ''ddlCity.Items.FindByText(txtAddCity.Text.Trim).Selected = True
        ''txtAddCity.Text = ""
        ''btnAddCity.Visible = False
        ''txtAddCity.Visible = False
        If txtAddCity.Text <> Nothing Then
            Dim cmd As New Data.SqlClient.SqlCommand()
            Dim sqlcoll As Data.SqlClient.SqlParameterCollection = cmd.Parameters
            sqlcoll.Add("@City_Kid", Data.SqlDbType.NVarChar, 50).Value = NewPrimaryKey(Me)
            sqlcoll.Add("@City_Code", Data.SqlDbType.NVarChar, 50).Value = Generate_Code("select count(*) from City_Master where City_Code='", "CC")
            sqlcoll.Add("@City_Name", Data.SqlDbType.NVarChar, 50).Value = txtAddCity.Text.Trim
            sqlcoll.Add("@City_StateID", Data.SqlDbType.NVarChar, 50).Value = ddlState.SelectedValue.Trim
            sqlcoll.Add("@City_CompanyID", Data.SqlDbType.NVarChar, 50).Value = g_Company
            sqlcoll.Add("@City_UserID", Data.SqlDbType.NVarChar, 50).Value = g_User
            sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString
            sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Insert"
            ExecQuery("City_Master_Proc", sqlcoll)
            FillComboWithOthers("Select City_Kid, City_Name from City_Master where City_IsDeleted='0' and City_StateID='" & ddlState.SelectedValue.Trim & "' and City_CompanyId='" & g_Company.Trim & "' order by City_Name", ddlCity)
            ddlCity.ClearSelection()
            ddlCity.Items.FindByText(txtAddCity.Text.Trim).Selected = True
            txtAddCity.Text = ""
            TR1.Visible = True
            btnAddCity.Visible = False
            txtAddCity.Visible = False
            Label14.Visible = False
            ddlCity.Visible = True
            TR2.Visible = False
        Else
            TR1.Visible = False
            Label13.Visible = True
            btnAddCity.Visible = True
            txtAddCity.Visible = True
            Label14.Visible = True
            TR2.Visible = True
            Label16.Text = "Please Enter City Name."
        End If
    End Sub

    


    Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Response.Redirect("AccountInfo.aspx")
    End Sub
   
End Class