Imports System.Data
Imports System.Data.SqlClient

Partial Class Buyer_AddAddress
    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

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        btnUpdate.Visible = False
        btnInsert.Visible = True
        If Session("BuyId") Is Nothing Then
            Response.Redirect("buyer-home.aspx?ses=expire")
            Exit Sub
        End If
        If Page.IsPostBack = False Then
            'If Request.QueryString("AddId") <> "" Then
            '    BindGrid()
            '    BindCountryStateCity()
            'ElseIf Request.QueryString("AddId") = "" Then
            '    BindListUser()
            '    BindGrid()
            txtusername.Focus()
            fillCombos()
            'End If
        End If
    End Sub

    Private Sub fillCombos()

        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
        drpCountry.Items.FindByText("India").Selected = True
        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

    End Sub

    Protected Sub btninsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnInsert.Click
        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

        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()




    End Sub

    Protected Sub btnupdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        Dim UserName As String = txtusername.Text
        Dim address As String = txtaddress.Text
        Dim zipcode As String = txtZipCode.Text


        Dim TelNo As String = txtmcode.Text & "-" & txtcitycode.Text & "-" & txtTelNo.Text
        Dim MobNo As String = txtmcode.Text & "-" & txtMobNo.Text

        Dim email As String = txtEmail.Text
        Dim Extno As String = txtextno.Text

        Dim country As String = drpCountry.SelectedValue
        Dim state As String = drpState.SelectedValue
        Dim city As String = drpCity.SelectedValue

        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_TelExtn='" & Extno & "',AddressBook_TelNumber='" & TelNo & "',AddressBook_MobNumber='" & MobNo & "',AddressBook_Email='" & email & "' where AddressBook_Kid='" & AddId & "'"
        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()
    End Sub

    Function 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 Function


    Protected Sub btnClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClose.Click
        'Response.Redirect("BuyerAddress.aspx")

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsPostBack Then
            Button1.Attributes.Add("OnClick", "Javascript:window.close();")
        End If


    End Sub

    
End Class