Imports System.IO
Partial Class MemberApp_Master
    Inherits System.Web.UI.Page
    Shared dtContactPerson, dtShipAdd, dtAssocMem As New Data.DataTable
    Shared intcountSA As Int32 = 1
    Shared intcountCP As Int32 = 1
    Shared intcountAM As Int32 = 1
    Shared g_User As String
    Shared g_Company As String
    Shared strPath As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Page.IsPostBack = False Then
            LoadData()
            ClearFields()
            g_User = "U1"
            g_Company = "COM1"
            'g_User = Session("g_User").ToString
            'g_Company = Session("g_Company").ToString
            Fill_Combo("select Country_Kid,Country_Name from Country_Master where Country_IsDeleted='0' " & _
            " and Country_CompanyId='" & g_Company.Trim & "' and Country_UserId='" & g_User.Trim & "'", ddlCountry)
            Fill_Combo("select Certification_Kid,Certification_Name from Certification_Master where Certification_IsDeleted='0' " & _
                       " and Certification_CompanyId='" & g_Company.Trim & "' and Certification_UserId='" & g_User.Trim & "'", ddlQualityCertificate)
            AddAttributes()
            fillTypeOfOrganization()
            fillyear()
            fillTypeOfBusiness()
            fillWeekelyHoliday()
            fillTimeFrom()
            fillTimeTo()
            PnlMemberDetails.Visible = True
            PnlPayDetails.Visible = False
            PnlShipAdd.Visible = False
            PnlContactPerson.Visible = False
        End If
        If FileUploadLogo.FileName.Trim.Length > 0 Then
            If Path.GetExtension(FileUploadLogo.FileName).ToLower = ".jpg" Or Path.GetExtension(FileUploadLogo.FileName).ToLower = ".jpeg" Or Path.GetExtension(FileUploadLogo.FileName).ToLower = ".gif" Then
                ViewState.Add("Image", UploadProductImage())
                lblMAError.Visible = False
            Else
                lblMAError.Visible = True
                lblMAError.Text = "Upload .gif or .jpg file !!"
            End If
        End If
    End Sub
    Protected Sub btntabMember_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btntabMember.Click
        PnlMemberDetails.Visible = True
        PnlPayDetails.Visible = False
        PnlShipAdd.Visible = False
        PnlContactPerson.Visible = False
    End Sub
    Protected Sub btnCp_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCp.Click
        If txtName.Text.Trim.Length = 0 Then
            lblMAError.Visible = True
            lblMAError.Text = "Name Can't be blank !!"
            Exit Sub
        End If
        If ddlTypeOfOrganization.SelectedIndex = 0 Then
            lblMAError.Visible = True
            lblMAError.Text = "Select Type of organization !!"
            Exit Sub
        End If
        If txtCompanyRegNo.Text.Trim.Length = 0 Then
            lblMAError.Visible = True
            lblMAError.Text = "Company Reg. No. Can't be blank !!"
            Exit Sub
        End If
        If gvAssociateMembershipDetails.Rows.Count = 0 Then
            btnAddMore_Click(sender, e)
        End If
        lblMAError.Visible = False
        PnlContactPerson.Visible = True
        PnlMemberDetails.Visible = False
        PnlPayDetails.Visible = False
        PnlShipAdd.Visible = False
      End Sub
    Protected Sub btnSA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSA.Click
        If txtCPName.Text.Trim.Length = 0 AndAlso gvContactPerson.Rows.Count = 0 Then
            lblCPError.Visible = True
            lblCPError.Text = "Contact Person Name Can't be blank !!"
            Exit Sub
        End If
        If txtCPDesignation.Text.Trim.Length = 0 AndAlso gvContactPerson.Rows.Count = 0 Then
            lblCPError.Visible = True
            lblCPError.Text = "Contact Person Designation Can't be blank !!"
            Exit Sub
        End If
        If gvContactPerson.Rows.Count = 0 Then
            btnCPAdd_Click(sender, e)
        End If
        lblCPError.Visible = False
        PnlShipAdd.Visible = True
        PnlMemberDetails.Visible = False
        PnlPayDetails.Visible = False
        PnlContactPerson.Visible = False
    End Sub
    Protected Sub btnPD_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPD.Click
        If txtShippingAddress.Text.Trim.Length = 0 AndAlso gvShippingDetails.Rows.Count = 0 Then
            lblSAError.Visible = True
            lblSAError.Text = "Address Can't be blank !!"
            Exit Sub
        End If
        If gvShippingDetails.Rows.Count = 0 Then
            btnSAAdd_Click(sender, e)
        End If
        lblSAError.Visible = False
        PnlPayDetails.Visible = True
        PnlMemberDetails.Visible = False
        PnlShipAdd.Visible = False
        PnlContactPerson.Visible = False
    End Sub
    Protected Sub ddlBankID_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlBankID.SelectedIndexChanged
        If ddlBankID.SelectedIndex > 0 Then
            Fill_Combo("Select Branch_Kid,Branch_Name from Branch_Master where Branch_IsDeleted='0' and Branch_BankId='" & ddlBankID.SelectedValue.Trim & "'and Branch_CompanyId='" & g_Company.Trim & "' and Branch_UserId='" & g_User.Trim & "'", ddlBranch)
        End If
    End Sub
    Protected Sub ddlShippingCountry_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlShippingCountry.SelectedIndexChanged
        If ddlShippingCountry.SelectedIndex > 0 Then
            Fill_Combo("Select State_Kid,State_Name from State_Master where State_IsDeleted='0' and state_CountryId='" & ddlShippingCountry.SelectedValue.Trim & "'and State_CompanyId='" & g_Company.Trim & "' and State_UserId='" & g_User.Trim & "'", ddlShipState)
        End If
    End Sub
    Protected Sub ddlShipState_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlShipState.SelectedIndexChanged
        If ddlShipState.SelectedIndex > 0 Then
            Fill_Combo("Select City_Kid,City_Name from City_Master where City_IsDeleted='0' and City_StateId='" & ddlShipState.SelectedValue.Trim & "'", ddlShipCity)
        End If
    End Sub
    Protected Sub ddlShipCity_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlShipCity.SelectedIndexChanged
        If ddlShipCity.SelectedIndex > 0 Then
            Fill_Combo("Select Location_Kid,Location_Name from Location_Master where Location_IsDeleted='0' and Location_CityId='" & ddlShipCity.SelectedValue.Trim & "' and Location_CompanyId='" & g_Company.Trim & "' and Location_UserId='" & g_User.Trim & "'", ddlShippingLocation)
        End If
    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_CompanyId='" & g_Company.Trim & "' and State_UserId='" & g_User.Trim & "'", ddlState)
        End If
    End Sub
    Protected Sub ddlCity_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlCity.SelectedIndexChanged
        If ddlCity.SelectedIndex > 0 Then
            ddlLocation.Items.Clear()
            Fill_Combo("Select Location_Kid, Location_Name from Location_Master where Location_IsDeleted='0' and Location_CompanyId='" & g_Company.Trim & "' and Location_UserId='" & g_User.Trim & "'", ddlLocation)
        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()
            Fill_Combo("Select City_Kid, City_Name from City_Master where City_IsDeleted='0' and City_CompanyId='" & g_Company.Trim & "' and City_UserId='" & g_User.Trim & "'", ddlCity)
        End If
    End Sub
    Protected Sub btnSAAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSAAdd.Click
        AddShipAdd()
    End Sub
    Protected Sub btnCPAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCPAdd.Click
        If txtCPName.Text.Trim.Length = 0 Then
            lblCPError.Visible = True
            lblCPError.Text = "Contact Person Name cannt be blank !!"
            Exit Sub
        End If
        If txtCPDesignation.Text.Trim.Length = 0 Then
            lblCPError.Visible = True
            lblCPError.Text = "Contact Person Designation cannt be blank !!"
            Exit Sub
        End If
        lblCPError.Visible = False
        AddContactPerson()
    End Sub
    Protected Sub btnCPRemove_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCPRemove.Click
        RemoveContactPerson()
    End Sub
    Protected Sub btnSARemove_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSARemove.Click
        RemoveShipAdd()
    End Sub
    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs)
       
        If ddlBankID.SelectedIndex = 0 Then
            lblPayError.Visible = True
            lblPayError.Text = "Select Bank Name !!"
            Exit Sub
        End If
        If ddlBranch.SelectedIndex = 0 Then
            lblPayError.Visible = True
            lblPayError.Text = "Select Branch !!"
            Exit Sub
        End If
        If ddlPaymentMode.SelectedIndex = 0 Then
            lblPayError.Visible = True
            lblPayError.Text = "Select Mode of Payment !!"
            Exit Sub
        End If
        If txtInstrumentNo.Text.Trim.Length = 0 Then
            lblPayError.Visible = True
            lblPayError.Text = "Instrument No. Can't be blank !!"
            Exit Sub
        End If
        If txtAmount.Text.Trim.Length = 0 Then
            lblPayError.Visible = True
            lblPayError.Text = "Amount Can't be blank !!"
            Exit Sub
        End If
        lblPayError.Visible = False
        InsertData()
        ClearFields()
    End Sub
    Protected Sub btnAddMore_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        AssocMemberDetails()
    End Sub
    Private Sub fillTimeFrom()
        Fill_Time(ddlFromHour, ddlFromMinute, ddlFromAmPm)
        ddlFromHour.ClearSelection()
        ddlFromMinute.ClearSelection()
        ddlFromAmPm.ClearSelection()
    End Sub
    Private Sub fillTimeTo()
        Fill_Time(ddlToHour, ddlToMinute, ddlToAmPm)
        ddlToHour.ClearSelection()
        ddlToMinute.ClearSelection()
        ddlToAmPm.ClearSelection()
    End Sub
    Private Sub fillWeekelyHoliday()
        ddlWeekelyHoliday.Items.Add("Select")
        ddlWeekelyHoliday.Items.Add("Sunday")
        ddlWeekelyHoliday.Items.Add("Monday")
        ddlWeekelyHoliday.Items.Add("Tuesday")
        ddlWeekelyHoliday.Items.Add("Wednesday")
        ddlWeekelyHoliday.Items.Add("Thursday")
        ddlWeekelyHoliday.Items.Add("Friday")
        ddlWeekelyHoliday.Items.Add("Saturday")
        ddlWeekelyHoliday.SelectedIndex = 0

    End Sub
    Private Sub fillTypeOfOrganization()
        ddlTypeOfOrganization.Items.Add("Select")
        ddlTypeOfOrganization.Items.Add("Pvt Ltd.")
        ddlTypeOfOrganization.Items.Add("Ltd.")
        ddlTypeOfOrganization.Items.Add("PartnerShip")
        ddlTypeOfOrganization.SelectedIndex = 0
    End Sub
    Private Sub fillTypeOfBusiness()
        ddlTypeOfBusiness.Items.Add("Select")
        ddlTypeOfBusiness.Items.Add("Manufacturer")
        ddlTypeOfBusiness.Items.Add("Supplier")
        ddlTypeOfBusiness.Items.Add("Trader")
        ddlTypeOfBusiness.SelectedIndex = 0
    End Sub
    Private Sub fillyear()
        Try
            ddlYearOfEstablishment.Items.Clear()
            Dim l As Long
            l = 1900
            ddlYearOfEstablishment.Items.Add("YYYY")
            For l = 1900 To 2007
                ddlYearOfEstablishment.Items.Add(l.ToString)
            Next
            'ddlYear.Items.Add("---")
            ddlYearOfEstablishment.SelectedIndex = 0
        Catch ex As Exception
            CreateMessageAlert(Me, ex.Message, "StrKeyVal")
        End Try
    End Sub

    Private Sub AddAttributes()
        txtAmount.Attributes.Add("onkeypress", "return CheckNumericValue(event)")
        txtCPExtNo.Attributes.Add("onkeypress", "return CheckNumericValue(event)")
        txtTurnOver.Attributes.Add("onkeypress", "return CheckNumericValue(event)")
        txtExportTurnOver.Attributes.Add("onkeypress", "return CheckNumericValue(event)")
        txtTotalFactoryStrength.Attributes.Add("onkeypress", "return CheckNumericValue(event)")
        txtTotalOfficeStrength.Attributes.Add("onkeypress", "return CheckNumericValue(event)")
        txtTollFreePhoneNo.Attributes.Add("onkeypress", "return CheckNumericValue(event)")
        txtZipCode.Attributes.Add("onkeypress", "return CheckNumericValue(event)")
        txtCPMobileNo.Attributes.Add("onkeypress", "return CheckNumericValue(event)")
        txtCPPhoneNo.Attributes.Add("onkeypress", "return CheckNumericValue(event)")
        txtCPTollFreePhoneNo.Attributes.Add("onkeypress", "return CheckNumericValue(event)")
        'btnSave.Attributes.Add("OnClick", "return ChkNull()")
        'btnCPAdd.Attributes.Add("OnClick", "return ChkCPNull()")
    End Sub
    Private Sub AssocMemberDetails()
        If dtAssocMem.Columns.Count = 0 Then
            With dtAssocMem
                .Columns.Add("AssociateMembershipDetailsApp_CompanyName", GetType(System.String))
                .Columns.Add("AssociateMembershipDetailsApp_ProdServ", GetType(System.String))
                .Columns.Add("AssociateMembershipDetailsApp_Location", GetType(System.String))
            End With
        End If
        If txtCompanyName.Text.Trim.Length = 0 And txtProductOrService.Text.Trim.Length = 0 And Location.Text.Trim.Length = 0 Then
            Exit Sub
        End If
        Dim drRow As System.Data.DataRow
        drRow = dtAssocMem.NewRow()
        drRow.Item("AssociateMembershipDetailsApp_CompanyName") = txtCompanyName.Text.Trim
        drRow.Item("AssociateMembershipDetailsApp_ProdServ") = txtProductOrService.Text.Trim
        drRow.Item("AssociateMembershipDetailsApp_Location") = Location.Text.Trim
        dtAssocMem.Rows.Add(drRow)
        gvAssociateMembershipDetails.DataSource = dtAssocMem
        gvAssociateMembershipDetails.DataBind()
        txtCompanyName.Text = ""
        txtProductOrService.Text = ""
        Location.Text = ""
    End Sub
    Private Sub AddShipAdd()
        If dtShipAdd.Columns.Count = 0 Then
            With dtShipAdd
                .Columns.Add("SupplierAppShippingAddress_Kid", GetType(System.String))
                .Columns.Add("SupplierAppShippingAddress_Code", GetType(System.String))
                .Columns.Add("SupplierAppShippingAddress_ShippingAddress", GetType(System.String))
                .Columns.Add("SupplierAppShippingAddress_LocationId", GetType(System.String))
                .Columns.Add("LocationName", GetType(System.String))
            End With
        End If
        Dim drRow As System.Data.DataRow
        drRow = dtShipAdd.NewRow()
        drRow.Item("SupplierAppShippingAddress_Kid") = NewPrimaryKey(Me)
        drRow.Item("SupplierAppShippingAddress_Code") = txtshippingcode.Text.Trim
        drRow.Item("SupplierAppShippingAddress_ShippingAddress") = txtShippingAddress.Text.Trim
        drRow.Item("SupplierAppShippingAddress_LocationId") = ddlShippingLocation.SelectedValue.Trim
        drRow.Item("LocationName") = ddlShippingLocation.SelectedItem.Text.Trim
        dtShipAdd.Rows.Add(drRow)
        gvShippingDetails.Columns(1).Visible = True
        gvShippingDetails.DataSource = dtShipAdd
        gvShippingDetails.DataBind()
        gvShippingDetails.Columns(1).Visible = False
        intcountSA += 1
        txtshippingcode.Text = "SSA" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & Format(intcountSA, "000")
        txtShippingAddress.Text = ""
        ddlShipCity.ClearSelection()
        ddlShipCity.SelectedIndex = 0
        ddlShippingCountry.ClearSelection()
        ddlShippingCountry.SelectedIndex = 0
        ddlShipState.ClearSelection()
        ddlShipState.SelectedIndex = 0
        ddlShippingLocation.ClearSelection()
        ddlShippingLocation.SelectedIndex = 0
    End Sub
    Private Sub AddContactPerson()
        If dtContactPerson.Columns.Count = 0 Then
            With dtContactPerson
                .Columns.Add("SupplierAppContactPerson_Kid", GetType(System.String))
                .Columns.Add("SupplierAppContactPerson_Code", GetType(System.String))
                .Columns.Add("SupplierAppContactPerson_Name", GetType(System.String))
                .Columns.Add("SupplierAppContactPerson_Designation", GetType(System.String))
                .Columns.Add("SupplierAppContactPerson_PhoneNo", GetType(System.String))
                .Columns.Add("SupplierAppContactPerson_ExtNo", GetType(System.String))
                .Columns.Add("SupplierAppContactPerson_MobileNo", GetType(System.String))
                .Columns.Add("SupplierAppContactPerson_EmailId", GetType(System.String))
                .Columns.Add("SupplierAppContactPerson_TollFreePhoneExtn", GetType(System.String))
            End With
        End If
        Dim drRow As System.Data.DataRow
        drRow = dtContactPerson.NewRow()
        drRow.Item("SupplierAppContactPerson_Kid") = NewPrimaryKey(Me)
        drRow.Item("SupplierAppContactPerson_Code") = txtcontactpersoncode.Text.Trim
        drRow.Item("SupplierAppContactPerson_Name") = txtCPName.Text.Trim
        drRow.Item("SupplierAppContactPerson_Designation") = txtCPDesignation.Text.Trim
        drRow.Item("SupplierAppContactPerson_PhoneNo") = txtCPPhoneNo.Text.Trim
        drRow.Item("SupplierAppContactPerson_ExtNo") = txtCPExtNo.Text.Trim
        drRow.Item("SupplierAppContactPerson_MobileNo") = txtCPMobileNo.Text.Trim
        drRow.Item("SupplierAppContactPerson_EmailId") = txtCPEmailId.Text.Trim
        drRow.Item("SupplierAppContactPerson_TollFreePhoneExtn") = txtCPTollFreePhoneNo.Text.Trim
        dtContactPerson.Rows.Add(drRow)
        'gvContactPerson.Columns(0).Visible = True
        gvContactPerson.Columns(1).Visible = True
        gvContactPerson.DataSource = dtContactPerson
        gvContactPerson.DataBind()
        'gvContactPerson.Columns(0).Visible = False
        gvContactPerson.Columns(1).Visible = False
        intcountCP += 1
        txtcontactpersoncode.Text = "SCP" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & Format((intcountCP), "000")
        txtCPName.Text = ""
        txtCPDesignation.Text = ""
        txtCPPhoneNo.Text = ""
        txtCPExtNo.Text = ""
        txtCPMobileNo.Text = ""
        txtCPEmailId.Text = ""
        txtCPTollFreePhoneNo.Text = ""
    End Sub
    Private Sub RemoveContactPerson()
        dtContactPerson.Rows.RemoveAt(gvContactPerson.SelectedIndex)
        gvContactPerson.Columns(1).Visible = True
        gvContactPerson.DataSource = dtContactPerson
        gvContactPerson.DataBind()
        gvContactPerson.Columns(1).Visible = False
    End Sub
    Private Sub RemoveShipAdd()
        dtShipAdd.Rows.RemoveAt(gvShippingDetails.SelectedIndex)
        gvShippingDetails.Columns(1).Visible = True
        gvShippingDetails.DataSource = dtShipAdd
        gvShippingDetails.DataBind()
        gvShippingDetails.Columns(1).Visible = False
    End Sub
    Private Sub LoadData()
        getCode()
        Fill_Combo("Select Country_kid,Country_Name from Country_Master where Country_IsDeleted='0'", ddlShippingCountry)
        Fill_Combo("Select Bank_Kid,Bank_Name from Bank_Master where Bank_IsDeleted='0'", ddlBankID)
        Fill_Combo("Select PaymentMode_Kid,PaymentMode_Name from PaymentMode_Master where PaymentMode_IsDeleted='0'", ddlPaymentMode)
    End Sub
    Private Sub getCode()
        txtmemberCode.Text = Generate_Code("select count(*) from SupplierApp_Master where SupplierApp_Code='", "SA")
        txtcontactpersoncode.Text = Generate_Code("select count(*) from SupplierAppContactPerson_Master where SupplierAppContactPerson_Code='", "SCP")
        txtshippingcode.Text = Generate_Code("select count(*) from SupplierAppShippingAddress_Master where SupplierAppShippingAddress_Code='", "SSA")
        txtPaymentCode.Text = Generate_Code("select count(*) from SupplierAppPaymentDetails_Master where SupplierAppPaymentDetails_Code='", "SPD")
    End Sub
    Private Sub InsertData()

        Dim strKid As String = NewPrimaryKey(Me)
        Dim cmd As New Data.SqlClient.SqlCommand()
        Dim sqlcoll As Data.SqlClient.SqlParameterCollection = cmd.Parameters
        ' Parameters for MemberApp_Master Table
        Dim temp1 As String
        Dim temp2 As String
        temp1 = ddlFromHour.SelectedValue & ":" & ddlFromMinute.SelectedValue & ":00" & ddlFromAmPm.SelectedValue
        temp2 = ddlToHour.SelectedValue & ":" & ddlToMinute.SelectedValue & ":00" & ddlToAmPm.SelectedValue
        sqlcoll.Clear()
        sqlcoll.Add("@SupplierApp_Kid", Data.SqlDbType.NVarChar, 10).Value = strKid.Trim
        sqlcoll.Add("@SupplierApp_Code", Data.SqlDbType.NVarChar, 25).Value = txtmemberCode.Text.Trim
        sqlcoll.Add("@SupplierApp_Name", Data.SqlDbType.NVarChar, 100).Value = txtName.Text.Trim
        If Not ViewState.Item("Image") Is Nothing Then
            sqlcoll.Add("@SupplierApp_Logo", Data.SqlDbType.NVarChar, 100).Value = ViewState.Item("Image") 'FileUploadLogo.FileName.Trim
        Else
            sqlcoll.Add("@SupplierApp_Logo", Data.SqlDbType.NVarChar, 100).Value = ""
        End If
        sqlcoll.Add("@SupplierApp_LocationId", Data.SqlDbType.NVarChar, 10).Value = ddlLocation.SelectedValue.Trim
        sqlcoll.Add("@SupplierApp_Address", Data.SqlDbType.NVarChar, 500).Value = txtAddress.Text.Trim
        sqlcoll.Add("@SupplierApp_ZipCode", Data.SqlDbType.NVarChar, 15).Value = txtZipCode.Text.Trim
        sqlcoll.Add("@SupplierApp_GSTNo", Data.SqlDbType.NVarChar, 50).Value = txtGSTNo.Text.Trim
        sqlcoll.Add("@SupplierApp_CSTNo", Data.SqlDbType.NVarChar, 50).Value = txtCSTNo.Text.Trim
        sqlcoll.Add("@SupplierApp_PanNo", Data.SqlDbType.NVarChar, 25).Value = txtPanNo.Text.Trim
        sqlcoll.Add("@SupplierApp_TinNo", Data.SqlDbType.NVarChar, 25).Value = txtTinNo.Text.Trim
        sqlcoll.Add("@SupplierApp_ECCNo", Data.SqlDbType.NVarChar, 25).Value = txtECCNo.Text.Trim
        sqlcoll.Add("@SupplierApp_VatNo", Data.SqlDbType.NVarChar, 25).Value = txtVatNo.Text.Trim
        sqlcoll.Add("@SupplierApp_LSTNo", Data.SqlDbType.NVarChar, 50).Value = txtLSTNo.Text.Trim
        sqlcoll.Add("@SupplierApp_ServiceTaxNo", Data.SqlDbType.NVarChar, 50).Value = txtServiceTaxNo.Text.Trim
        sqlcoll.Add("SupplierApp_ExciseCode", Data.SqlDbType.NVarChar, 50).Value = txtExciseCode.Text.Trim
        sqlcoll.Add("@SupplierApp_LicenceNo", Data.SqlDbType.NVarChar, 50).Value = txtLicenceNo.Text.Trim
        sqlcoll.Add("@SupplierApp_ImportExportCode", Data.SqlDbType.NVarChar, 50).Value = txtImportExportCode.Text.Trim
        sqlcoll.Add("@SupplierApp_Trading", Data.SqlDbType.NVarChar, 50).Value = txtTrading.Text.Trim
        sqlcoll.Add("@SupplierApp_CompanyRegNo", Data.SqlDbType.NVarChar, 50).Value = txtCompanyRegNo.Text.Trim
        sqlcoll.Add("@SupplierApp_TollFreePhoneNo", Data.SqlDbType.NVarChar, 15).Value = txtTollFreePhoneNo.Text.Trim
        sqlcoll.Add("@SupplierApp_TypeOfOrganisation", Data.SqlDbType.NVarChar, 50).Value = ddlTypeOfOrganization.SelectedValue.Trim  'txtTypeOfOrganisation.Text.Trim
        sqlcoll.Add("@SupplierApp_WebSiteUrl", Data.SqlDbType.NVarChar, 50).Value = txtWebSiteURL.Text.Trim
        sqlcoll.Add("@SupplierApp_YearOfEstablish", Data.SqlDbType.NVarChar, 50).Value = ddlYearOfEstablishment.SelectedValue.Trim
        sqlcoll.Add("@SupplierApp_TypeOfBusiness", Data.SqlDbType.NVarChar, 50).Value = ddlTypeOfBusiness.SelectedValue.Trim
        sqlcoll.Add("@SupplierApp_QualityCertificate", Data.SqlDbType.NVarChar, 50).Value = ddlQualityCertificate.SelectedValue.Trim
        If txtTurnOver.Text.Trim.Length = 0 Then
            sqlcoll.Add("@SupplierApp_TurnOver", Data.SqlDbType.Int, 9).Value = 0
        Else
            sqlcoll.Add("@SupplierApp_TurnOver", Data.SqlDbType.Int, 9).Value = Convert.ToInt32(txtTurnOver.Text.Trim)
        End If
        If txtExportTurnOver.Text.Trim.Length = 0 Then
            sqlcoll.Add("@SupplierApp_ExportTurnOver", Data.SqlDbType.Int, 9).Value = 0
        Else
            sqlcoll.Add("@SupplierApp_ExportTurnOver", Data.SqlDbType.Int, 9).Value = Convert.ToInt32(txtExportTurnOver.Text.Trim)
        End If

        sqlcoll.Add("@SupplierApp_MajorMarket", Data.SqlDbType.NVarChar, 50).Value = txtMajorMarket.Text.Trim
        If txtTotalOfficeStrength.Text.Trim.Length = 0 Then
            sqlcoll.Add("@SupplierApp_TotalOfficeStrength", Data.SqlDbType.Int, 9).Value = 0
        Else
            sqlcoll.Add("@SupplierApp_TotalOfficeStrength", Data.SqlDbType.Int, 9).Value = Convert.ToInt32(txtTotalOfficeStrength.Text.Trim)
        End If
        If txtTotalFactoryStrength.Text.Trim.Length = 0 Then
            sqlcoll.Add("@SupplierApp_TotalFactoryStrength", Data.SqlDbType.Int, 9).Value = 0
        Else
            sqlcoll.Add("@SupplierApp_TotalFactoryStrength", Data.SqlDbType.Int, 9).Value = Convert.ToInt32(txtTotalFactoryStrength.Text.Trim)
        End If

        sqlcoll.Add("@SupplierApp_WeeklyHoliday", Data.SqlDbType.NVarChar, 50).Value = ddlWeekelyHoliday.SelectedValue.Trim
        sqlcoll.Add("@SupplierApp_FromWorkingHr", Data.SqlDbType.DateTime).Value = Format$(Convert.ToDateTime(temp1), "") 'Format(Convert.ToDateTime(txtFromWorkingHr.Text.Trim), "dd-MMM-yyyy")
        sqlcoll.Add("@SupplierApp_toWorkingHr", Data.SqlDbType.DateTime).Value = Format$(Convert.ToDateTime(temp2), "") 'Format(Convert.ToDateTime(txtFromWorkingHr.Text.Trim), "dd-MMM-yyyy")
        sqlcoll.Add("@SupplierApp_Allottedby", Data.SqlDbType.NVarChar, 50).Value = "" 'txtAllottedby.Text.Trim
        sqlcoll.Add("@SupplierApp_AllotedTo", Data.SqlDbType.NVarChar, 50).Value = txtName.Text.Trim 'txtAllotedTo.Text.Trim
        sqlcoll.Add("@SupplierApp_AllotedOn", Data.SqlDbType.DateTime).Value = Format$(Convert.ToDateTime(temp2), "") 'Format(Convert.ToDateTime(txtAllotedOn.Text.Trim), "dd-MMM-yyyy")
        sqlcoll.Add("@SupplierApp_Remarks", Data.SqlDbType.NVarChar, 100).Value = "" 'txtRemarks.Text.Trim
        sqlcoll.Add("@SupplierApp_Status", Data.SqlDbType.NVarChar, 15).Value = "Pending"
        sqlcoll.Add("@SupplierApp_Commissionerate", Data.SqlDbType.NVarChar, 100).Value = txtCommissionerate.Text.Trim
        sqlcoll.Add("@SupplierApp_Division", Data.SqlDbType.NVarChar, 100).Value = txtDivision.Text.Trim
        sqlcoll.Add("@SupplierApp_Range", Data.SqlDbType.NVarChar, 100).Value = txtRange.Text.Trim
        sqlcoll.Add("@SupplierApp_Approved", Data.SqlDbType.NVarChar, 1).Value = "N"
        sqlcoll.Add("@SupplierApp_FinancialYearId", Data.SqlDbType.NVarChar, 10).Value = ""
        sqlcoll.Add("@SupplierApp_CompanyId", Data.SqlDbType.NVarChar, 10).Value = g_Company
        sqlcoll.Add("@SupplierApp_UserId", Data.SqlDbType.NVarChar, 10).Value = g_User
        sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString
        sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Insert" 'strMode.Trim
        ExecQuery("SupplierApp_Master_Proc", sqlcoll)
        sqlcoll.Clear()
        Dim i As Int32

        For i = 0 To gvAssociateMembershipDetails.Rows.Count - 1
            sqlcoll.Clear()
            sqlcoll.Add("@AssociateMembershipDetailsApp_Kid", Data.SqlDbType.NVarChar, 10).Value = NewPrimaryKey(Me)
            sqlcoll.Add("@AssociateMembershipDetailsApp_Code", Data.SqlDbType.NVarChar, 25).Value = Generate_Code("select count(*) from AssociateMembershipDetailsApp_Master where AssociateMembershipDetailsApp_Code='", "AM")
            sqlcoll.Add("@AssociateMembershipDetailsApp_SupplierAppId", Data.SqlDbType.NVarChar, 10).Value = strKid.Trim
            sqlcoll.Add("@AssociateMembershipDetailsApp_CompanyName", Data.SqlDbType.NVarChar, 100).Value = gvAssociateMembershipDetails.Rows(i).Cells(0).Text.Trim
            sqlcoll.Add("@AssociateMembershipDetailsApp_ProdServ", Data.SqlDbType.NVarChar, 100).Value = gvAssociateMembershipDetails.Rows(i).Cells(1).Text.Trim
            sqlcoll.Add("@AssociateMembershipDetailsApp_Location", Data.SqlDbType.NVarChar, 100).Value = gvAssociateMembershipDetails.Rows(i).Cells(2).Text.Trim
            sqlcoll.Add("@AssociateMembershipDetailsApp_CompanyId", Data.SqlDbType.NVarChar, 10).Value = g_Company.Trim
            sqlcoll.Add("@AssociateMembershipDetailsApp_UserId", Data.SqlDbType.NVarChar, 10).Value = g_User.Trim
            sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString
            sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Insert" 'strMode.Trim
            ExecQuery("AssociateSupplierMemberDetailsApp_Master_Proc", sqlcoll)
            sqlcoll.Clear()
        Next

        For i = 0 To gvContactPerson.Rows.Count - 1
            sqlcoll.Clear()
            sqlcoll.Add("@SupplierAppContactPerson_Kid", Data.SqlDbType.NVarChar, 10).Value = gvContactPerson.Rows(i).Cells(1).Text.Trim
            sqlcoll.Add("@SupplierAppContactPerson_Code", Data.SqlDbType.NVarChar, 25).Value = gvContactPerson.Rows(i).Cells(2).Text.Trim
            sqlcoll.Add("@SupplierAppContactPerson_Name", Data.SqlDbType.NVarChar, 100).Value = gvContactPerson.Rows(i).Cells(3).Text.Trim
            sqlcoll.Add("@SupplierAppContactPerson_Designation", Data.SqlDbType.NVarChar, 100).Value = gvContactPerson.Rows(i).Cells(4).Text.Trim
            sqlcoll.Add("@SupplierAppContactPerson_PhoneNo", Data.SqlDbType.NVarChar, 50).Value = gvContactPerson.Rows(i).Cells(5).Text.Trim
            sqlcoll.Add("@SupplierAppContactPerson_ExtNo", Data.SqlDbType.NVarChar, 15).Value = gvContactPerson.Rows(i).Cells(6).Text.Trim
            sqlcoll.Add("@SupplierAppContactPerson_MobileNo", Data.SqlDbType.NVarChar, 50).Value = gvContactPerson.Rows(i).Cells(7).Text.Trim
            sqlcoll.Add("@SupplierAppContactPerson_EmailId", Data.SqlDbType.NVarChar, 100).Value = gvContactPerson.Rows(i).Cells(8).Text.Trim
            sqlcoll.Add("@SupplierAppContactPerson_TollFreePhoneExtn", Data.SqlDbType.NVarChar, 15).Value = gvContactPerson.Rows(i).Cells(9).Text.Trim
            sqlcoll.Add("@SupplierAppContactPerson_SupplierAppId", Data.SqlDbType.NVarChar, 10).Value = strKid.Trim
            sqlcoll.Add("@SupplierAppContactPerson_FinancialYearId", Data.SqlDbType.NVarChar, 10).Value = ""
            sqlcoll.Add("@SupplierAppContactPerson_CompanyId", Data.SqlDbType.NVarChar, 10).Value = g_Company
            sqlcoll.Add("@SupplierAppContactPerson_UserId", Data.SqlDbType.NVarChar, 10).Value = g_User
            sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString
            sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Insert" 'strMode.Trim
            ExecQuery(" SupplierAppContactPerson_Master_Proc", sqlcoll)
            sqlcoll.Clear()
        Next

        For i = 0 To gvShippingDetails.Rows.Count - 1
            sqlcoll.Clear()
            sqlcoll.Add("@SupplierAppShippingAddress_Kid", Data.SqlDbType.NVarChar, 10).Value = gvShippingDetails.Rows(i).Cells(1).Text.Trim
            sqlcoll.Add("@SupplierAppShippingAddress_Code", Data.SqlDbType.NVarChar, 25).Value = gvShippingDetails.Rows(i).Cells(2).Text.Trim
            sqlcoll.Add("@SupplierAppShippingAddress_SupplierAppId", Data.SqlDbType.NVarChar, 10).Value = strKid.Trim
            sqlcoll.Add("@SupplierAppShippingAddress_LocationId", Data.SqlDbType.NVarChar, 10).Value = gvShippingDetails.Rows(i).Cells(5).Text.Trim
            sqlcoll.Add("@SupplierAppShippingAddress_ShippingAddress", Data.SqlDbType.NVarChar, 500).Value = gvShippingDetails.Rows(i).Cells(3).Text.Trim
            sqlcoll.Add("@SupplierAppShippingAddress_FinancialYearId", Data.SqlDbType.NVarChar, 10).Value = ""
            sqlcoll.Add("@SupplierAppShippingAddress_CompanyId", Data.SqlDbType.NVarChar, 10).Value = g_Company
            sqlcoll.Add("@SupplierAppShippingAddress_UserId", Data.SqlDbType.NVarChar, 10).Value = g_User
            sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString
            sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Insert" 'strMode.Trim
            ExecQuery(" SupplierAppShippingAddress_Master_Proc", sqlcoll)
            sqlcoll.Clear()
        Next

        sqlcoll.Clear()
        sqlcoll.Add("@SupplierAppPaymentDetails_Kid", Data.SqlDbType.NVarChar, 10).Value = NewPrimaryKey(Me)
        sqlcoll.Add("@SupplierAppPaymentDetails_Code", Data.SqlDbType.NVarChar, 25).Value = txtPaymentCode.Text.Trim
        sqlcoll.Add("@SupplierAppPaymentDetails_PaymentModeId", Data.SqlDbType.NVarChar, 10).Value = ddlPaymentMode.SelectedValue.Trim
        sqlcoll.Add("@SupplierAppPaymentDetails_BankId", Data.SqlDbType.NVarChar, 10).Value = ddlBankID.SelectedValue.Trim
        sqlcoll.Add("@SupplierAppPaymentDetails_BranchId", Data.SqlDbType.NVarChar, 10).Value = ddlBranch.SelectedValue.Trim
        sqlcoll.Add("@SupplierAppPaymentDetails_InstrumentNo", Data.SqlDbType.NVarChar, 50).Value = txtInstrumentNo.Text.Trim
        sqlcoll.Add("@SupplierAppPaymentDetails_Amount", Data.SqlDbType.Decimal, 18, 2).Value = Convert.ToDecimal(txtAmount.Text.Trim)
        sqlcoll.Add("@SupplierAppPaymentDetails_Approved", Data.SqlDbType.NVarChar, 1).Value = "N"
        sqlcoll.Add("@SupplierAppPaymentDetails_SupplierAppId", Data.SqlDbType.NVarChar, 10).Value = strKid.Trim
        sqlcoll.Add("@SupplierAppPaymentDetails_FinancialYearId", Data.SqlDbType.NVarChar, 10).Value = ""
        sqlcoll.Add("@SupplierAppPaymentDetails_CompanyId", Data.SqlDbType.NVarChar, 10).Value = g_Company
        sqlcoll.Add("@SupplierAppPaymentDetails_UserId", Data.SqlDbType.NVarChar, 10).Value = g_User
        sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString
        sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Insert" 'strMode.Trim
        ExecQuery(" SupplierAppPaymentDetails_Master_Proc", sqlcoll)
        sqlcoll.Clear()
        strKid = Nothing
        i = Nothing
        cmd = Nothing
        sqlcoll = Nothing
    End Sub
    Private Sub ClearFields()
        txtAddress.Text = ""
        txtAllocBarterCurrency.Text = ""
        txtAmount.Text = ""
        txtCommissionerate.Text = ""
        txtCompanyRegNo.Text = ""
        txtcontactpersoncode.Text = ""
        txtCSTNo.Text = ""
        txtDivision.Text = ""
        txtExciseCode.Text = ""
        txtExportTurnOver.Text = ""
        txtGSTNo.Text = ""
        txtImportExportCode.Text = ""
        txtInstrumentNo.Text = ""
        txtLicenceNo.Text = ""
        txtLSTNo.Text = ""
        txtECCNo.Text = ""
        txtMajorMarket.Text = ""
        txtName.Text = ""
        txtPanNo.Text = ""
        txtRange.Text = ""
        txtServiceTaxNo.Text = ""
        txtTinNo.Text = ""
        txtTollFreePhoneNo.Text = ""
        txtTotalFactoryStrength.Text = ""
        txtTotalFactoryStrength.Text = ""
        txtTotalOfficeStrength.Text = ""
        txtTrading.Text = ""
        txtTurnOver.Text = ""
        txtVatNo.Text = ""
        txtZipCode.Text = ""
        txtWebsiteURL.Text = ""
        txtShippingAddress.Text = ""
        ddlBankID.SelectedIndex = 0
        ddlBranch.SelectedIndex = 0
        ddlPaymentMode.SelectedIndex = 0
        ddlShippingCountry.SelectedIndex = 0
        If ddlShipCity.Items.Count > 0 Then
            ddlShipCity.SelectedIndex = 0
            ddlShippingLocation.SelectedIndex = 0
            ddlShipState.SelectedIndex = 0
        End If
        dtContactPerson.Rows.Clear()
        dtShipAdd.Rows.Clear()
        gvContactPerson.DataSource = dtContactPerson
        gvContactPerson.DataBind()
        gvShippingDetails.DataSource = dtShipAdd
        gvShippingDetails.DataBind()
        getCode()
    End Sub
    Sub Node_Populate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.TreeNodeEventArgs)
        If e.Node.ChildNodes.Count = 0 Then
            Select Case (e.Node.Depth)
                Case 0
                    FillModule(e.Node, "2")
                    Exit Sub
                Case 1
                    FillMenu(e.Node)
                    Exit Sub
                Case 2
                    FillSubMenu(e.Node)
                    Exit Sub
            End Select
        End If
    End Sub
    Private Function UploadProductImage() As String
        Dim strFileName2 As String
        Dim strFileName As String
        Dim strr As String
        strFileName = Mid(FileUploadLogo.FileName.ToString, FileUploadLogo.FileName.ToString.LastIndexOf("\") + 2, Len(FileUploadLogo.FileName.ToString))
        strr = strFileName.Substring(strFileName.LastIndexOf(".") + 1)
        If Path.GetExtension(FileUploadLogo.FileName).ToLower = ".jpg" Or Path.GetExtension(FileUploadLogo.FileName).ToLower = ".jpeg" Or Path.GetExtension(FileUploadLogo.FileName).ToLower = ".gif" Then
            strPath = Server.MapPath("~\SupplierImage\SupplierReg_CompanyLogo\")
            '-----Calling a function from the class file-------------
            strFileName2 = IsUploadImageAlreadyPersent.FileExists(strFileName, strPath)
            If strFileName2 <> "" Then
                FileUploadLogo.SaveAs(MapPath("~\SupplierImage\SupplierReg_CompanyLogo\" & strFileName2))
                UploadProductImage = strFileName2
            End If
        End If
    End Function
End Class