Imports System.Data
Imports System.Data.SqlClient

Partial Class Buyer_BuyerAddress
    Inherits System.Web.UI.Page

    Dim strQuery As String = ""
    Dim flag As Boolean
    Dim drow As DetailsViewRow
    Dim query As String = ""
    Shared AddId As String
    Shared Kid As String
    Shared City_Kid As String
    Shared City_Code As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'btnUpdate.Visible = False
        'btnInsert.Visible = True
        Try

            Page.LoadControl("~/UserControl/buyeruserinfo.ascx")


            CType(CType(Me.Master.FindControl("Buyeruserinfo1"), UserControl).FindControl("Image6"), Image).Visible = True
            CType(CType(Me.Master.FindControl("Buyeruserinfo1"), UserControl).FindControl("lnkAddressBook"), LinkButton).Font.Bold = True
            CType(CType(Me.Master.FindControl("Buyeruserinfo1"), UserControl).FindControl("lnkAddressBook"), LinkButton).Font.Size = 10

            If Session("BuyId") Is Nothing Then
                Response.Redirect("buyer-home.aspx?ses=expire")
                Exit Sub
            End If

            If Page.IsPostBack = False Then

                txtcitycode.Attributes.Add("onkeypress", "return numbersonly(event)")
                txtextno.Attributes.Add("onkeypress", "return numbersonly(event)")
                txtmcode.Attributes.Add("onkeypress", "return numbersonly(event)")
                txtMobNo.Attributes.Add("onkeypress", "return numbersonly(event)")
                txttcode.Attributes.Add("onkeypress", "return numbersonly(event)")
                txtTelNo.Attributes.Add("onkeypress", "return numbersonly(event)")
                txtZipCode.Attributes.Add("onkeypress", "return numbersonly(event)")


                div1.Visible = False
                If Request.QueryString("AddId") <> "" Then
                    'BindGrid()
                    BindCountryStateCity()
                ElseIf Request.QueryString("AddId") = "" Then
                    BindListUser()
                    'BindGrid()
                    fillCombosDV()
                End If
            End If
        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try

    End Sub


    Private Sub BindListUser()
        Try
            strQuery = "SELECT AddressBook_Kid, AddressBook_UserName FROM AddressBook WHERE (AddressBook_BuyerID = '" & Session("BuyId").ToString().Trim & "') AND (AddressBook_Kid <> '1')"
            lstUserName.Visible = True
            Dim dt As DataTable = getTable(strQuery, "LIST_USER")
            lstUserName.DataSource = dt
            lstUserName.DataBind()
            lstUserName.DataTextField = "AddressBook_UserName"
            lstUserName.DataValueField = "AddressBook_Kid"
        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub

    Public Sub drpCountry_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        Try

            Dim drpCountry As DropDownList = CType(dvAddress.FindControl("drpCountry"), DropDownList)
            Dim drpState As DropDownList = CType(dvAddress.FindControl("drpState"), DropDownList)

            Dim strquery As String = "SELECT State_Master.State_Kid, State_Master.State_Name, Country_Master.Country_Name FROM Country_Master INNER JOIN State_Master ON Country_Master.Country_Kid = State_Master.State_CountryId WHERE State_Master.State_IsDeleted = '0' AND Country_Master.Country_Kid = '" & drpCountry.SelectedValue & "' ORDER BY State_Master.State_Name"
            Fill_Combo(strquery, drpState)

        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub

    Public Sub drpState_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        Try

            Dim drpState As DropDownList = CType(dvAddress.FindControl("drpState"), DropDownList)
            Dim drpCity As DropDownList = CType(dvAddress.FindControl("drpCity"), DropDownList)

            Dim strquery As String = "SELECT City_Master.City_Kid, City_Master.City_Name, State_Master.State_Name, City_Master.City_CompanyId FROM City_Master INNER JOIN  State_Master ON City_Master.City_StateId = State_Master.State_Kid WHERE City_Master.City_IsDeleted = '0' AND State_Master.State_Kid = '" & drpState.SelectedValue & "' order by City_Master.City_Name"
            Fill_Combo(strquery, drpCity)

        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub

    Private Sub BindCountryStateCity()
        Try
            Dim l1 As Label = CType(dvAddress.FindControl("lblAddressId"), Label)
            Kid = l1.Text.Trim
            Dim country As String = ReturnValue("SELECT AddressBook_CountryID FROM AddressBook WHERE (AddressBook_Kid = '" & Kid.Trim & "')")
            Dim State As String = ReturnValue("SELECT AddressBook_StateID FROM AddressBook WHERE (AddressBook_Kid = '" & Kid.Trim & "')")
            Dim City As String = ReturnValue("SELECT AddressBook_CityID FROM AddressBook WHERE (AddressBook_Kid = '" & Kid.Trim & "')")
            Dim drpCountry As DropDownList
            Dim drpState As DropDownList
            Dim drpCity As DropDownList

            drpCountry = CType(dvAddress.FindControl("drpCountry"), DropDownList)
            If Not drpCountry Is Nothing Then
                Fill_Combo("SELECT DISTINCT Country_Kid, Country_Name FROM Country_Master WHERE (Country_IsDeleted = '0')", drpCountry)
            End If
         

            drpState = CType(dvAddress.FindControl("drpState"), DropDownList)
            strQuery = "SELECT DISTINCT State_Kid, State_Name FROM State_Master WHERE (State_IsDeleted = '0')"
            If Not drpState Is Nothing Then
                Fill_Combo(strQuery, drpState)
            End If

            drpCity = CType(dvAddress.FindControl("drpCity"), DropDownList)
            strQuery = "SELECT DISTINCT City_Kid, City_Name FROM City_Master WHERE (City_IsDeleted = '0')"
            If Not drpCity Is Nothing Then
                Fill_Combo(strQuery, drpCity)
            End If

            'Set Value Of country,state and City in dvAddress
            '
            drpCountry.SelectedValue = country
            drpState.SelectedValue = State
            drpCity.SelectedValue = City
            Dim Phone As String
            Phone = CType(dvAddress.FindControl("txtTelNo"), TextBox).Text
            Dim CountryCode, CityCode, PhoneNo, telExtn As String
            CountryCode = Phone.Substring(0, Phone.IndexOf("-"))
            Phone = Phone.Substring(Phone.IndexOf("-") + 1)
            CityCode = Phone.Substring(0, Phone.IndexOf("-"))
            Phone = Phone.Substring(Phone.IndexOf("-") + 1)
            PhoneNo = Phone.Substring(0, Phone.IndexOf("-"))
            Phone = Phone.Substring(Phone.IndexOf("-") + 1)
            telExtn = Phone
            CType(dvAddress.FindControl("txtCountryCode"), TextBox).Text = CountryCode
            CType(dvAddress.FindControl("txtCityCode"), TextBox).Text = CityCode
            CType(dvAddress.FindControl("txtTelNo"), TextBox).Text = PhoneNo
            CType(dvAddress.FindControl("txtTelExtn"), TextBox).Text = telExtn


            Phone = CType(dvAddress.FindControl("txtMobNo"), TextBox).Text
            CountryCode = Phone.Substring(0, Phone.IndexOf("-"))
            Phone = Phone.Substring(Phone.IndexOf("-") + 1)
            CType(dvAddress.FindControl("txtMobCountryCode"), TextBox).Text = CountryCode
            CType(dvAddress.FindControl("txtMobNo"), TextBox).Text = Phone
        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub
    Private Sub fillCombosDV()
        Try
    
            Dim drpCountry As DropDownList
            Dim drpState As DropDownList
            Dim drpCity As DropDownList

            drpCountry = CType(dvAddress.FindControl("drpCountry"), DropDownList)
            strQuery = "SELECT DISTINCT Country_Kid, Country_Name FROM Country_Master WHERE (Country_IsDeleted = '0') order by Country_Name"
            If Not drpCountry Is Nothing Then
                Fill_Combo(strQuery, drpCountry)
            End If
          

            drpState = CType(dvAddress.FindControl("drpState"), DropDownList)
            strQuery = "SELECT DISTINCT State_Kid, State_Name FROM State_Master WHERE (State_IsDeleted = '0') order by State_Name"
            If Not drpState Is Nothing Then
                Fill_Combo(strQuery, drpState)
            End If

            drpCity = CType(dvAddress.FindControl("drpCity"), DropDownList)
            strQuery = "SELECT DISTINCT City_Kid, City_Name FROM City_Master WHERE (City_IsDeleted = '0') order by City_Name"
            If Not drpCity Is Nothing Then
                Fill_Combo(strQuery, drpCity)
            End If
        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub

    Private Sub BindGrid()
        Try

            strQuery = "SELECT dbo.AddressMaster.City_Kid," & _
                       "dbo.AddressMaster.City_Name, " & _
                       "dbo.AddressBook.AddressBook_Email, " & _
                       "dbo.AddressMaster.State_Name, " & _
                        "dbo.AddressBook.AddressBook_UserName, " & _
                        "dbo.AddressBook.AddressBook_Zipcode, " & _
                        "dbo.AddressMaster.Country_Name, " & _
                        "dbo.AddressBook.AddressBook_Add1, " & _
                        "dbo.AddressBook.AddressBook_TelExtn, " & _
                        "dbo.AddressBook.AddressBook_Kid, " & _
                        "dbo.AddressBook.AddressBook_CityID,dbo.AddressBook.AddressBook_StateID,dbo.AddressBook.AddressBook_TelNumber, " & _
                        "dbo.AddressBook.AddressBook_MobNumber,dbo.AddressBook.AddressBook_CountryID FROM dbo.AddressBook " & _
                        "INNER JOIN dbo.AddressMaster " & _
                        "ON dbo.AddressBook.AddressBook_CityID = dbo.AddressMaster.City_Kid " & _
                        "where dbo.AddressBook.AddressBook_Kid='" & lstUserName.SelectedValue & "'"
            dvAddress.Visible = True

            dvAddress.DataSource = ReturnDataTable(strQuery)
            dvAddress.DataBind()

            'Dim l1 As Label = CType(dvAddress.FindControl("lblAddressId"), Label)
            'l1.Visible = False
            'Dim l2 As Label = CType(dvAddress.FindControl("lblUserAddressId"), Label)
            'l2.Visible = False
        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub

    Protected Sub btnClose_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Response.Redirect("newBuyerSearch.aspx")
    End Sub

    Protected Sub lstUserName_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstUserName.SelectedIndexChanged
        Try
      
            Label3.Text = ""
            Kid = lstUserName.SelectedValue.Trim

            ' Kid = lstUserName.SelectedValue.Trim

            dvAddress.ChangeMode(DetailsViewMode.ReadOnly)
            BindGrid()
            div1.Visible = False
            dvAddress.Visible = True

            'dvAddress.DataSource = ReturnDataTable("SELECT dbo.AddressMaster.City_Kid, dbo.AddressMaster.City_Name, dbo.AddressMaster.State_Name, dbo.AddressBook.AddressBook_UserName, " & _
            '                             "dbo.AddressBook.AddressBook_Zipcode, dbo.AddressMaster.Country_Name,dbo.AddressBook.AddressBook_TelExtn,dbo.AddressBook.AddressBook_TelNumber, dbo.AddressBook.AddressBook_MobNumber,dbo.AddressBook.AddressBook_Add1, dbo.AddressBook.AddressBook_Kid, dbo.AddressBook.AddressBook_CityID, " & _
            '                   "dbo.AddressBook.AddressBook_StateID,dbo.AddressBook.AddressBook_Email,dbo.AddressBook.AddressBook_CountryID " & _
            '                    "FROM dbo.AddressBook INNER JOIN " & _
            '                    "dbo.AddressMaster ON dbo.AddressBook.AddressBook_CityID = dbo.AddressMaster.City_Kid " & _
            '                    "where dbo.AddressBook.AddressBook_BuyerID='" & Session("BuyId") & "' and dbo.AddressBook.AddressBook_Kid = '" & lstUserName.SelectedValue.Trim.Trim & "'")
            'dvAddress.DataBind()

        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub
    Private Sub InsertDetailsView(ByVal strCodition As String)
        Try
     
            Dim query As String = ""
            Dim drpCountry As DropDownList
            Dim drpState As DropDownList
            Dim drpCity As DropDownList

            Kid = dvAddress.SelectedValue
            Dim UserName As String = CType(dvAddress.FindControl("txtusername"), TextBox).Text
            Dim address As String = CType(dvAddress.FindControl("txtAddress"), TextBox).Text
            Dim zipcode As String = CType(dvAddress.FindControl("txtZipCode"), TextBox).Text
            Dim TelNo As String = CType(dvAddress.FindControl("txtTelNo"), TextBox).Text
            Dim MobNo As String = CType(dvAddress.FindControl("txtMobNo"), TextBox).Text
            Dim email As String = CType(dvAddress.FindControl("txtEmail"), TextBox).Text

            drpCountry = CType(dvAddress.FindControl("drpCountry"), DropDownList)
            drpState = CType(dvAddress.FindControl("drpState"), DropDownList)
            drpCity = CType(dvAddress.FindControl("drpCity"), DropDownList)

            Dim addressId As String = NewPrimaryKey(Me.Page)
            If strCodition = "Insert" Then
                'Dim addid As String = NewPrimaryKey(Me.Page)
                query = "insert into AddressBook(AddressBook_Kid,AddressBook_BuyerID,AddressBook_UserName,AddressBook_Add1,AddressBook_CityID,AddressBook_StateID,AddressBook_Zipcode,AddressBook_CountryID,AddressBook_TelNumber,AddressBook_MobNumber,AddressBook_Email,AddressBook_Flag,AddressBook_FinancialYearId,AddressBook_CompanyId,AddressBook_UserId) values('" & addressId & "','" & Session("BuyId") & "','" & UserName & "','" & address & "','" & drpCity.SelectedValue & "','" & drpState.SelectedValue & "','" & zipcode & "','" & drpCountry.SelectedValue & "','" & TelNo.Trim & "','" & MobNo.Trim & "','" & email & "','0','" & g_FinYear.Trim & "','" & g_Company.Trim & "','" & g_User.Trim & "')"
            ElseIf strCodition = "Update" Then
                Dim addid As String = CType(dvAddress.FindControl("lblAddressId"), Label).Text
                query = "update AddressBook set AddressBook_UserName='" & UserName & "',AddressBook_Add1='" & address & "',AddressBook_CityID='" & drpCity.SelectedValue & "',AddressBook_StateID='" & drpState.SelectedValue & "',AddressBook_CountryID='" & drpCountry.SelectedValue & "',AddressBook_Zipcode='" & zipcode & "',AddressBook_TelNumber='" & TelNo & "',AddressBook_MobNumber='" & MobNo & "',AddressBook_Email='" & email & "' where AddressBook_Kid='" & addid & "'"
            ElseIf strCodition = "Cancel" Then
                Dim addid As String = CType(dvAddress.FindControl("lblAddressId"), Label).Text
                If addid <> "" Then
                    query = "SELECT DISTINCT AddressBook.AddressBook_Kid, AddressBook.AddressBook_UserName, AddressBook.AddressBook_Add1, City_Master.City_Name, AddressBook.AddressBook_Zipcode, State_Master.State_Name, Country_Master.Country_Name, AddressBook.AddressBook_TelNumber,  AddressBook.AddressBook_TelExtn, AddressBook.AddressBook_MobNumber, AddressBook.AddressBook_Email,  AddressBook.AddressBook_CompanyId, AddressBook.AddressBook_BuyerID FROM AddressBook INNER JOIN City_Master ON AddressBook.AddressBook_CityID = City_Master.City_Kid INNER JOIN State_Master ON AddressBook.AddressBook_StateID = State_Master.State_Kid INNER JOIN Country_Master ON AddressBook.AddressBook_CountryID = Country_Master.Country_Kid WHERE (AddressBook.AddressBook_Kid = '" & addid & "')"
                Else
                    Response.Redirect("Address.aspx")
                End If

            End If

            Dim cmd As New SqlCommand
            Dim SqlCon As New SqlConnection(ConfigurationManager.AppSettings("ConnectionString"))
            cmd.CommandText = query
            cmd.Connection = SqlCon

            SqlCon.Open()
            cmd.ExecuteNonQuery()
            SqlCon.Close()
        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub

    Protected Sub dvAddress_ModeChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewModeEventArgs) Handles dvAddress.ModeChanging
        Kid = lstUserName.SelectedValue.Trim
        If e.NewMode = DetailsViewMode.Edit Then
            dvAddress.ChangeMode(DetailsViewMode.Edit)
            BindGrid()
            BindCountryStateCity()

        Else
            InsertDetailsView("Cancel")
            dvAddress.ChangeMode(DetailsViewMode.ReadOnly)
            BindGrid()
        End If
        ''e.NewMode = DetailsViewMode.Edit
        'Kid = lstUserName.SelectedValue.Trim
        'dvAddress.ChangeMode(DetailsViewMode.Edit)
        'dvAddress.DataSource = ReturnDataTable("SELECT dbo.AddressMaster.City_Kid, dbo.AddressMaster.City_Name, dbo.AddressMaster.State_Name, dbo.AddressBook.AddressBook_UserName, " & _
        '                             "dbo.AddressBook.AddressBook_Zipcode, dbo.AddressMaster.Country_Name,dbo.AddressBook.AddressBook_TelExtn,dbo.AddressBook.AddressBook_TelNumber, dbo.AddressBook.AddressBook_MobNumber,dbo.AddressBook.AddressBook_Add1, dbo.AddressBook.AddressBook_Kid, dbo.AddressBook.AddressBook_CityID, " & _
        '                   "dbo.AddressBook.AddressBook_StateID,dbo.AddressBook.AddressBook_Email,dbo.AddressBook.AddressBook_CountryID " & _
        '                    "FROM dbo.AddressBook INNER JOIN " & _
        '                    "dbo.AddressMaster ON dbo.AddressBook.AddressBook_CityID = dbo.AddressMaster.City_Kid " & _
        '                    "where dbo.AddressBook.AddressBook_BuyerID='" & Session("BuyId") & "' and dbo.AddressBook.AddressBook_Kid = '" & lstUserName.SelectedValue.Trim.Trim & "'")
        'dvAddress.DataBind()
        'BindCountryStateCity()
    End Sub
    Protected Sub dvAddress_ItemUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewUpdateEventArgs) Handles dvAddress.ItemUpdating
        Try
      
            Kid = lstUserName.SelectedValue.Trim
            update()
            dvAddress.ChangeMode(DetailsViewMode.ReadOnly)
            BindGrid()
            BindListUser()

            lstUserName_SelectedIndexChanged(sender, e)
        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub
    Public Sub update()
        Try
      
            Dim UserName As String = CType(dvAddress.FindControl("txtusername"), TextBox).Text
            Dim address As String = CType(dvAddress.FindControl("txtAddress"), TextBox).Text
            Dim zipcode As String = CType(dvAddress.FindControl("txtZipCode"), TextBox).Text
            Dim Extno As String = CType(dvAddress.FindControl("txtTelExtn"), TextBox).Text
            Dim TelNo As String = CType(dvAddress.FindControl("txtCountryCode"), TextBox).Text & "-" & CType(dvAddress.FindControl("txtcitycode"), TextBox).Text & "-" & CType(dvAddress.FindControl("txtTelNo"), TextBox).Text
            Dim MobNo As String = CType(dvAddress.FindControl("txtMobCountryCode"), TextBox).Text & "-" & CType(dvAddress.FindControl("txtMobNo"), TextBox).Text
            Dim email As String = CType(dvAddress.FindControl("txtEmail"), TextBox).Text

            Dim country As String = CType(dvAddress.FindControl("drpCountry"), DropDownList).SelectedValue
            Dim state As String = CType(dvAddress.FindControl("drpState"), DropDownList).SelectedValue
            Dim city As String = CType(dvAddress.FindControl("drpCity"), DropDownList).SelectedValue

            Dim addressId As String = NewPrimaryKey(Me.Page)
            addressId = RemoveLiterals(addressId)

            query = "update AddressBook set AddressBook_UserName='" & UserName & "',AddressBook_Add1='" & address & "',AddressBook_CityID='" & city & "',AddressBook_StateID='" & state & "',AddressBook_CountryID='" & country & "',AddressBook_Zipcode='" & zipcode & "',AddressBook_TelNumber='" & TelNo & "',AddressBook_MobNumber='" & MobNo & "',AddressBook_TelExtn ='" & Extno & "',AddressBook_Email='" & email & "' where AddressBook_Kid='" & lstUserName.SelectedValue.Trim & "'"

            'query = "Update AddressBook Set (AddressBook_Kid,AddressBook_BuyerID,AddressBook_UserName,AddressBook_Add1,AddressBook_CityID,AddressBook_StateID,AddressBook_Zipcode,AddressBook_CountryID,AddressBook_TelExtn,AddressBook_TelNumber,AddressBook_MobNumber,AddressBook_Email,AddressBook_Flag,AddressBook_FinancialYearId,AddressBook_CompanyId,AddressBook_UserId) values('" & lstUserName.SelectedValue.Trim & "','" & Session("BuyId") & "','" & UserName & "','" & address & "','" & city & "','" & state & "','" & zipcode & "','" & country & "','" & Extno.Trim & "','" & TelNo.Trim & "','" & MobNo.Trim & "','" & email & "','0','" & Session("g_FinYear") & "','" & Session("g_Company") & "','" & Session("UserId") & "')"

            Dim cmd As New SqlCommand
            Dim SqlCon As New SqlConnection(ConfigurationManager.AppSettings("ConnectionString"))
            cmd.CommandText = query
            cmd.Connection = SqlCon

            SqlCon.Open()
            cmd.ExecuteNonQuery()
            'BindGrid()

            SqlCon.Close()
            cmd.Dispose()
            SqlCon.Dispose()
        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub
    

    Public Sub clearfields()
        txtusername.Text = ""
        txtaddress.Text = ""
        txtZipCode.Text = ""
        txtTelNo.Text = ""
        txtMobNo.Text = ""
        txtEmail.Text = ""
        txtextno.Text = ""
        txtcitycode.Text = ""
        drpCountry.SelectedIndex = -1
        drpState.SelectedIndex = -1
        drpCity.SelectedIndex = -1

    End Sub

  
    Private Sub fillCombos()
        Try

            strQuery = "SELECT DISTINCT Country_Kid, Country_Name FROM Country_Master WHERE (Country_IsDeleted = '0') and Country_CompanyId='" & Session("g_Company").Trim & "'" & "order by Country_Name"
            If Not drpCountry Is Nothing Then
                Fill_Combo(strQuery, drpCountry)
            End If
         

            strQuery = "select Country_ISDCode from Country_Master where Country_Kid='" & drpCountry.SelectedValue & "'"
            txttcode.Text = ReturnValue(strQuery)
            txtmcode.Text = txttcode.Text
            strQuery = "SELECT DISTINCT State_Kid, State_Name FROM State_Master WHERE (State_IsDeleted = '0') order by State_Name "
            If Not drpState Is Nothing Then
                Fill_Combo(strQuery, drpState)
            End If
            'strQuery = "SELECT DISTINCT City_Kid, City_Name FROM City_Master WHERE (City_IsDeleted = '0') order by City_Name"
            'If Not drpCity Is Nothing Then
            '    Fill_Combo(strQuery, drpCity)
            'End If
        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try

    End Sub

    Protected Sub drpCountry_SelectedIndexChanged1(ByVal sender As Object, ByVal e As System.EventArgs) Handles drpCountry.SelectedIndexChanged
        Try

            If drpCountry.SelectedIndex > 0 Then
                Fill_Combo("Select State_Kid,State_Name from State_Master where State_IsDeleted='0' and state_CountryId='" & drpCountry.SelectedValue.Trim & "'and State_CompanyId='" & Session("g_Company").Trim & "'", drpState)
            End If
            drpState.Items.Clear()
            Fill_Combo("Select State_KId, State_Name from State_Master where State_CountryId ='" & drpCountry.SelectedItem.Value & "'and State_Isdeleted='0' and State_CompanyId ='" & Session("g_Company") & "'order by State_Name", drpState)
            drpCity.Items.Clear()
            drpCity.Items.Add("Select")

        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub

    Protected Sub drpState_SelectedIndexChanged1(ByVal sender As Object, ByVal e As System.EventArgs) Handles drpState.SelectedIndexChanged
        drpCity.Items.Clear()
        Fill_Combo("Select City_Kid,City_Name from City_Master where City_IsDeleted='0' and City_StateId='" & drpState.SelectedValue.Trim & "'order by City_Name", drpCity)
        'drpCity.Items.Add("-ADD NEW-")
    End Sub

    Protected Sub drpCity_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles drpCity.SelectedIndexChanged
        '  If (drpCity.SelectedItem.Value = "-ADD NEW-") Then
        '  txtcity.Visible = True
        '  btnAddCity.Visible = True
        'Else
        ' txtcity.Visible = False
        ' btnAddCity.Visible = False
        'End If

    End Sub
    Protected Sub GenerateCityCode()
        Try
            Dim i As String
            Dim qry As String
            Dim code As String
            City_Kid = NewPrimaryKey(Me)
            i = "1"
            i = Format(Val(i), "000")
            While True
                code = "CC" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & i
                qry = "select count(*) from CityMaster where City_Code='" & code & "'"
                If IsAlreadyPresent(qry) Then
                    i = Val(i) + 1
                    i = Format(Val(i), "000")
                Else
                    City_Code = code
                    Exit Sub
                End If
            End While
        Catch ex As Exception
            'CreateMessageAlert(Me, ex.Message, "StrKeyVal")     'Display the Error Message
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub
    'Protected Sub btnAddCity_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddCity.Click
    '    'If (txtcity.Text = "") Then
    '    '    CreateMessageAlert(Me, "Please Enter City Name...!!!", "StrKeyVal")
    '    '    txtcity.Focus()
    '    '    Exit Sub
    '    'End If
    '    GenerateCityCode()
    '    Dim Con As New SqlConnection
    '    Dim cmd As New SqlCommand
    '    Con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
    '    cmd.Connection = Con
    '    cmd.CommandText = "City_Master_Proc"
    '    cmd.CommandType = CommandType.StoredProcedure
    '    cmd.Parameters.Add(New SqlParameter("@City_Kid", Data.SqlDbType.NVarChar, 10)).Value = City_Kid
    '    cmd.Parameters.Add(New SqlParameter("@City_Code", Data.SqlDbType.NVarChar, 25)).Value = City_Code
    '    cmd.Parameters.Add(New SqlParameter("@City_Name", Data.SqlDbType.NVarChar, 100)).Value = txtcity.Text
    '    cmd.Parameters.Add(New SqlParameter("@City_StateID", Data.SqlDbType.NVarChar, 10)).Value = drpState.SelectedValue
    '    cmd.Parameters.Add(New SqlParameter("@City_CompanyID", Data.SqlDbType.NVarChar, 10)).Value = g_Company
    '    cmd.Parameters.Add(New SqlParameter("@City_FinancialYearId", Data.SqlDbType.NVarChar, 10)).Value = g_FinYear
    '    cmd.Parameters.Add(New SqlParameter("@City_UserID", Data.SqlDbType.NVarChar, 10)).Value = g_User
    '    cmd.Parameters.Add(New SqlParameter("@FormName", Data.SqlDbType.NVarChar, 0)).Value = Me.Title.ToString
    '    cmd.Parameters.Add(New SqlParameter("@Mode", Data.SqlDbType.Char, 15)).Value = "Insert"
    '    Con.Open()
    '    cmd.ExecuteNonQuery()
    '    Fill_Combo("Select City_KId, City_Name from City_Master where City_Isdeleted='0' and City_StateId ='" & drpState.SelectedItem.Value & "'order by City_Name", drpCity)
    '    drpCity.Items.FindByText(txtcity.Text).Selected = True
    'End Sub


    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        Try

            div1.Visible = True
            Label3.Text = ""
            dvAddress.Visible = False
            txtusername.Focus()
            fillCombos()
            clearfields()
        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub

    Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        Try

            Dim UserName As String = txtusername.Text
            Dim address As String = txtaddress.Text
            Dim zipcode As String = txtZipCode.Text
            Dim Extno As String = txtextno.Text
            Dim TelNo As String = txttcode.Text & "-" & txtcitycode.Text & "-" & txtTelNo.Text
            Dim MobNo As String = txtmcode.Text & "-" & txtMobNo.Text
            Dim email As String = txtEmail.Text

            Dim country As String = drpCountry.SelectedValue
            Dim state As String = drpState.SelectedValue
            Dim city As String = drpCity.SelectedValue
            If UserName = "" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;UserName can not Blank."
                Exit Sub
            ElseIf address = "" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Address can not Blank."
                Exit Sub
            ElseIf zipcode = "" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Pincode can not Blank."
                Exit Sub
            ElseIf Extno = "" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Extno can not Blank."
                Exit Sub
            ElseIf txttcode.Text = "" Or txtcitycode.Text = "" Or txtTelNo.Text = "" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Telephone No  can not Blank."
                Exit Sub
            ElseIf txtmcode.Text = "" Or txtMobNo.Text = "" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Modile No. can not Blank."
                Exit Sub
            ElseIf txtEmail.Text = "" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Email Id can not Blank."
                Exit Sub
            ElseIf drpCountry.SelectedItem.Text = "select" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Select Country."
                Exit Sub
            ElseIf drpState.SelectedItem.Text = "select" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Select State ."
                Exit Sub
            ElseIf drpCity.SelectedItem.Text = "select" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Select City ."
                Exit Sub
            End If
            Dim addressId As String = NewPrimaryKey(Me.Page)
            addressId = RemoveLiterals(addressId)
            query = "insert into AddressBook(AddressBook_Kid,AddressBook_BuyerID,AddressBook_UserName,AddressBook_Add1,AddressBook_CityID,AddressBook_StateID,AddressBook_Zipcode,AddressBook_CountryID,AddressBook_TelExtn,AddressBook_TelNumber,AddressBook_MobNumber,AddressBook_Email,AddressBook_Flag,AddressBook_FinancialYearId,AddressBook_CompanyId,AddressBook_UserId) values('" & addressId & "','" & Session("BuyId") & "','" & UserName & "','" & address & "','" & city & "','" & state & "','" & zipcode & "','" & country & "','" & Extno.Trim & "','" & TelNo.Trim & "','" & MobNo.Trim & "','" & email & "','0','" & Session("g_FinYear") & "','" & Session("g_Company") & "','" & Session("UserId") & "')"

            Dim cmd As New SqlCommand
            Dim SqlCon As New SqlConnection(ConfigurationManager.AppSettings("ConnectionString"))
            cmd.CommandText = query
            cmd.Connection = SqlCon

            SqlCon.Open()
            cmd.ExecuteNonQuery()
            clearfields()
            'BindGrid()
            SqlCon.Close()
            cmd.Dispose()
            SqlCon.Dispose()
            div1.Visible = False
            BindListUser()
            Label3.Text = ""

        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub

    Protected Sub ImageButton2_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        Try

            Dim UserName As String = txtusername.Text
            Dim address As String = txtaddress.Text
            Dim zipcode As String = txtZipCode.Text
            Dim Extno As String = txtextno.Text
            Dim TelNo As String = txttcode.Text & "-" & txtcitycode.Text & "-" & txtTelNo.Text
            Dim MobNo As String = txtmcode.Text & "-" & txtMobNo.Text
            Dim email As String = txtEmail.Text

            Dim country As String = drpCountry.SelectedValue
            Dim state As String = drpState.SelectedValue
            Dim city As String = drpCity.SelectedValue
            If UserName = "" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;UserName can not Blank."
                Exit Sub
            ElseIf address = "" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Address can not Blank."
                Exit Sub
            ElseIf zipcode = "" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Pincode can not Blank."
                Exit Sub
            ElseIf Extno = "" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Extno can not Blank."
                Exit Sub
            ElseIf txttcode.Text = "" Or txtcitycode.Text = "" Or txtTelNo.Text = "" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Telephone No  can not Blank."
                Exit Sub
            ElseIf txtmcode.Text = "" Or txtMobNo.Text = "" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Modile No. can not Blank."
                Exit Sub
            ElseIf txtEmail.Text = "" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Email Id can not Blank."
                Exit Sub
            ElseIf drpCountry.SelectedItem.Text = "select" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Select Country."
                Exit Sub
            ElseIf drpState.SelectedItem.Text = "select" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Select State ."
                Exit Sub
            ElseIf drpCity.SelectedItem.Text = "select" Then
                Label3.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Select City ."
                Exit Sub
            End If
            Dim addressId As String = NewPrimaryKey(Me.Page)
            addressId = RemoveLiterals(addressId)
            query = "insert into AddressBook(AddressBook_Kid,AddressBook_BuyerID,AddressBook_UserName,AddressBook_Add1,AddressBook_CityID,AddressBook_StateID,AddressBook_Zipcode,AddressBook_CountryID,AddressBook_TelExtn,AddressBook_TelNumber,AddressBook_MobNumber,AddressBook_Email,AddressBook_Flag,AddressBook_FinancialYearId,AddressBook_CompanyId,AddressBook_UserId) values('" & addressId & "','" & Session("BuyId") & "','" & UserName & "','" & address & "','" & city & "','" & state & "','" & zipcode & "','" & country & "','" & Extno.Trim & "','" & TelNo.Trim & "','" & MobNo.Trim & "','" & email & "','0','" & Session("g_FinYear") & "','" & Session("g_Company") & "','" & Session("UserId") & "')"

            Dim cmd As New SqlCommand
            Dim SqlCon As New SqlConnection(ConfigurationManager.AppSettings("ConnectionString"))
            cmd.CommandText = query
            cmd.Connection = SqlCon

            SqlCon.Open()
            cmd.ExecuteNonQuery()
            clearfields()
            'BindGrid()
            SqlCon.Close()
            cmd.Dispose()
            SqlCon.Dispose()
            'div1.Visible = False
            BindListUser()

            Label3.Text = ""

        Catch ex As Exception
            showmessage(ex.Message.ToString, lblerror)
        End Try
    End Sub

    Protected Sub ImageButton3_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        div1.Visible = False
    End Sub

   
 
End Class