Imports System Imports System.Data Imports System.Data.SqlClient Imports Ajax Partial Class _JJ123456 Inherits System.Web.UI.Page Shared strkid As String Shared Con_kid As String Shared Con_Code As String Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Ajax.Utility.RegisterTypeForAjax(GetType(_JJ123456)) If Session("SupplierID") Is Nothing Then Response.Redirect("listproduct.aspx?sess=expire") Exit Sub End If txtEmailID.Enabled = False ddlTurnOverUnit.Enabled = False If Page.IsPostBack = False Then txtName.Focus() Session("ProductID") = Nothing If Session.Item("SupplierID") Is Nothing Then Response.Redirect("listproduct.aspx") Exit Sub End If ''''''''''''''''''''''''''''''''''''''' 'Session("SupplierID") = "0000\{T" 'Session("g_User") = "000008I" 'Session("g_Company") = "00006Z4" 'Session("g_FinYear") = "000010N" '''''''''''''''''''''''''''''''''''''''''''''''''' Fill_Combo("SELECT Unit_Kid, Unit_Name, Unit_Flag FROM Unit_Master WHERE Unit_Flag = 'Amount' and unit_IsDeleted='0' and unit_CompanyId = '" & Session("g_Company").ToString & "' order by unit_name", ddlTurnOverUnit) 'Fill Combo of unit ddlTurnOverUnit.ClearSelection() fillyear() ddlTurnOverUnit.Items.FindByText("Rs.").Selected = True ' by default Rs. is selected LoadCategory() LoadData() ' Get Existing Value AddAttributes() ' add javascript for numeric If Session("AdminID") <> Nothing Or Session("AdminID") = Nothing Then ' Check Whether Admin is Login Or Not btnUpdate.Visible = True ddlCity.Visible = True ddlCountry.Visible = True ddlState.Visible = True enablecontrol(True) ' enable all controls ' 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) txtCity.Visible = False txtState.Visible = False txtCountry.Visible = False Else btnUpdate.Visible = False ddlCity.Visible = False ddlCountry.Visible = False ddlState.Visible = False End If End If End Sub _ Public Function AddCity(ByVal strCity As String, ByVal strStateID As String, ByVal strCompanyID As String, ByVal strUserID As String, ByVal strFinancialYearID As String) As String Dim KID As String KID = NewPrimaryKey(Me) If IsAlreadyPresent("Select count(*) from City_Master where City_Name='" & strCity.Trim & "' and City_StateId ='" & strStateID.ToString & "'") Then Return "false" End If Dim con As New SqlConnection() con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") 'Read the connection string from web.config Dim cmd As New SqlCommand() cmd.CommandType = CommandType.StoredProcedure cmd.CommandText = "City_Master_Proc" cmd.Connection = con cmd.Parameters.Add(New SqlParameter("@City_Kid", SqlDbType.NVarChar, 10)).Value = KID cmd.Parameters.Add(New SqlParameter("@City_Code", SqlDbType.NVarChar, 25)).Value = Generate_Code("Select count(*) from City_Master where City_Code='", "CC").ToString() cmd.Parameters.Add(New SqlParameter("@City_Name", SqlDbType.NVarChar, 100)).Value = strCity.Trim cmd.Parameters.Add(New SqlParameter("@City_StateId", SqlDbType.NVarChar, 10)).Value = strStateID.Trim cmd.Parameters.Add(New SqlParameter("@City_CompanyId", SqlDbType.NVarChar, 10)).Value = Trim(strCompanyID) cmd.Parameters.Add(New SqlParameter("@City_UserId", SqlDbType.NVarChar, 10)).Value = Trim(strUserID) cmd.Parameters.Add(New SqlParameter("@City_FinancialYearId", SqlDbType.NVarChar, 10)).Value = strFinancialYearID.Trim cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 50)).Value = "SupplierRegistration1" cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.VarChar, 10)).Value = "Insert" Try con.Open() cmd.ExecuteNonQuery() con.Close() Return KID Catch ex As Exception con.Close() Return "false" End Try Return True End Function Private Sub AddAttributes() ' add javascripts for numeric txtZipCode.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtTelCountryCode.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtTelCityCode.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtTelNumber.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtTelExtn.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtYearInBus.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtNoOfProductBrand.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtMobileCode.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtMobileNumber.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtAMCode.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtAMNumber.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtTurnOver.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") End Sub Public Sub LoadCategory() Dim dt As DataTable dt = ReturnDataTable("Select Category_KId, Category_Name from Category_Master where Category_ParentId ='Root Category' and Category_IsDeleted ='0' order by Category_Name") CheckBoxList1.DataSource = dt CheckBoxList1.DataTextField = "Category_Name" CheckBoxList1.DataValueField = "Category_KId" CheckBoxList1.DataBind() End Sub Public Sub fillyear() Dim I As Integer Dim FinancialYear As String For I = 2005 To Year(Now) - 2 FinancialYear = I.ToString + "-" + Right((I + 1).ToString, 2) ddlTurnOverYear.Items.Add(FinancialYear) Next End Sub Private Sub LoadData() Dim dt As Data.DataTable = getTable("select * from Supplier_Master where Supplier_Kid='" & Session.Item("SupplierID").Trim & "'", "MD") ' get existing value from supplier master according to supplierId If dt.Rows.Count > 0 Then ' put appropriate value in textbox and dropdownlist from dt enablecontrol(False) txtName.Text = dt.Rows(0).Item("Supplier_Name") If dt.Rows(0).Item("Supplier_Address").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_Address").ToString.Trim = " " Then txtAddress.Text = "" Else txtAddress.Text = dt.Rows(0).Item("Supplier_Address").ToString.Trim End If 'strkid = Session("SupplierID").ToString.Trim If dt.Rows(0).Item("Supplier_PinCode").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_PinCode").ToString.Trim = " " Then txtZipCode.Text = "" Else txtZipCode.Text = dt.Rows(0).Item("Supplier_PinCode").ToString.Trim End If If dt.Rows(0).Item("Supplier_TelCountryCode").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_TelCountryCode").ToString.Trim = " " Then txtTelCountryCode.Text = "" Else txtTelCountryCode.Text = dt.Rows(0).Item("Supplier_TelCountryCode").ToString.Trim End If If (dt.Rows(0).Item("Supplier_TelCityCode").ToString.Trim = "") Or (dt.Rows(0).Item("Supplier_TelCityCode").ToString.Trim = " ") Then txtTelCityCode.Text = "" Else txtTelCityCode.Text = dt.Rows(0).Item("Supplier_TelCityCode").ToString.Trim End If If dt.Rows(0).Item("Supplier_TelNumber").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_TelNumber").ToString.Trim = " " Then txtTelNumber.Text = "" Else txtTelNumber.Text = dt.Rows(0).Item("Supplier_TelNumber").ToString.Trim End If If dt.Rows(0).Item("Supplier_TelExtn").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_TelExtn").ToString.Trim = " " Then txtTelExtn.Text = "" Else txtTelExtn.Text = dt.Rows(0).Item("Supplier_TelExtn").ToString.Trim End If If dt.Rows(0).Item("Supplier_WebSiteUrl").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_WebSiteUrl").ToString.Trim = " " Then txtWebSiteURL.Text = "" Else txtWebSiteURL.Text = dt.Rows(0).Item("Supplier_WebSiteUrl").ToString.Trim End If If dt.Rows(0).Item("Supplier_NoOfYear").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_NoOfYear").ToString.Trim = " " Then txtYearInBus.Text = "" Else txtYearInBus.Text = dt.Rows(0).Item("Supplier_NoOfYear").ToString.Trim End If If dt.Rows(0).Item("Supplier_AnnualTO").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_AnnualTO").ToString.Trim = " " Then txtTurnOver.Text = "" Else txtTurnOver.Text = dt.Rows(0).Item("Supplier_AnnualTO").ToString.Trim End If If dt.Rows(0).Item("Supplier_NoOfProductsBrands").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_NoOfProductsBrands").ToString.Trim = " " Then txtNoOfProductBrand.Text = "" Else txtNoOfProductBrand.Text = dt.Rows(0).Item("Supplier_NoOfProductsBrands").ToString.Trim End If If dt.Rows(0).Item("Supplier_AnnualTOType").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_AnnualTOType").ToString.Trim = " " Then ddlTurnOverUnit.ClearSelection() Else Try ddlTurnOverUnit.ClearSelection() ddlTurnOverUnit.Items.FindByValue(dt.Rows(0).Item("Supplier_AnnualTOType")).Selected = True Catch ex As Exception ddlTurnOverUnit.ClearSelection() End Try End If If dt.Rows(0).Item("Supplier_AnnualTOYear").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_AnnualTOYear").ToString.Trim = " " Then ddlTurnOverYear.ClearSelection() Else Try ddlTurnOverYear.ClearSelection() ddlTurnOverYear.Items.FindByValue(dt.Rows(0).Item("Supplier_AnnualTOYear")).Selected = True Catch ex As Exception ddlTurnOverUnit.ClearSelection() End Try End If If dt.Rows(0).Item("Supplier_IsISO").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_IsISO").ToString.Trim = " " Then rblISO.ClearSelection() Else If dt.Rows(0).Item("Supplier_IsISO").ToString = "Y" Then rblISO.ClearSelection() rblISO.Items(0).Selected = True ElseIf dt.Rows(0).Item("Supplier_IsISO").ToString = "N" Then rblISO.ClearSelection() rblISO.Items(1).Selected = True Else rblISO.ClearSelection() End If End If txtCity.Text = ReturnValue("Select City_Name from City_Master where City_Kid='" & dt.Rows(0).Item("Supplier_CityID").ToString.Trim & "'") Try txtCity.Text = ReturnValue("Select City_Name from City_Master where City_Kid='" & dt.Rows(0).Item("Supplier_CityID").ToString.Trim & "'") Dim strValue As String strValue = ReturnValue("Select City_StateID from City_Master where City_Kid='" & dt.Rows(0).Item("Supplier_CityID").ToString.Trim & "'") txtState.Text = ReturnValue("Select State_Name from State_Master where State_Kid='" & strValue.Trim & "'") strValue = ReturnValue("Select State_CountryID from State_Master where State_Kid='" & strValue.Trim & "'") txtCountry.Text = ReturnValue("Select Country_name from Country_Master where Country_Kid='" & strValue.Trim & "'") Fill_Combo("select Country_Kid,Country_Name from Country_Master where Country_IsDeleted='0' " & _ " and Country_CompanyId='" & Session("g_Company").ToString.Trim & "' order by Country_Name", ddlCountry) ddlCountry.ClearSelection() ddlCountry.Items.FindByText(txtCountry.Text.ToString.Trim).Selected = True 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='" & Session("g_Company").ToString.Trim & "' order by State_Name", ddlState) getMobileCode() ddlState.Enabled = True ddlState.Items.FindByText(txtState.Text.ToString.Trim).Selected = True 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='" & Session("g_Company").ToString.Trim & "' order by City_Name", ddlCity) ddlCity.Enabled = True ddlCity.Items.FindByText(txtCity.Text.ToString.Trim).Selected = True Catch ex As Exception Fill_Combo("select Country_Kid,Country_Name from Country_Master where Country_IsDeleted='0' " & _ " and Country_CompanyId='" & Session("g_Company").ToString.Trim & "' order by Country_Name", ddlCountry) ddlCountry.ClearSelection() ddlState.ClearSelection() ddlCity.ClearSelection() End Try If dt.Rows(0).Item("Supplier_IsPriceList").ToString <> "" Then If dt.Rows(0).Item("Supplier_IsPriceList").ToString = "Y" Then rblPriceList.Items.FindByValue("Y").Selected = True Else rblPriceList.Items.FindByValue("N").Selected = True End If Else rblPriceList.ClearSelection() End If If dt.Rows(0).Item("Supplier_CategoryID").ToString <> "" Then Dim CatID() As String CatID = dt.Rows(0).Item("Supplier_CategoryId").ToString.Split("-") Dim i1 As Integer For i1 = 0 To CatID.Length - 2 CheckBoxList1.Items.FindByValue(CatID(i1).ToString).Selected = True Next 'If CatID <> "" Then ' CatID = CatID.Remove(CatID.LastIndexOf("-")) ' CatID = CatID.Replace("-", "','") ' CatID = CatID.Insert(0, "'") ' CatID = CatID.Insert(CatID.Length, "'") ' Dim dt1 As DataTable ' dt1 = ReturnDataTable("Select Category_Name from Category_Master where Category_KId In (" & CatID & ")") ' Dim i As Integer ' For i = 0 To dt1.Rows.Count - 1 ' CheckBoxList1.Items.FindByValue(dt1.Rows(0) ' 'DetailsView1.Rows(14).Cells(1).Text += dt1.Rows(i).Item("Category_Name").ToString & " - " ' Next 'Else ' 'DetailsView1.Rows(14).Cells(1).Text = "N.A." 'End If Else End If dt.Rows.Clear() 'clear data table dt = getTable("select * from SupplierContactPerson_Master where SupplierContactPerson_SupplierId='" & Session.Item("SupplierID").Trim & "'", "MD") ' get data from contact master table If dt.Rows.Count > 0 Then If dt.Rows(0).Item("SupplierContactPerson_Name").ToString.Trim = "" Or dt.Rows(0).Item("SupplierContactPerson_Name").ToString.Trim = " " Then txtCPName.Text = "" Else txtCPName.Text = dt.Rows(0).Item("SupplierContactPerson_Name").ToString.Trim End If ddlTitle.Items.FindByText(dt.Rows(0).Item("SupplierContactPerson_Title").ToString()).Selected = True If dt.Rows(0).Item("SupplierContactPerson_Designation").ToString.Trim = "" Or dt.Rows(0).Item("SupplierContactPerson_Designation").ToString.Trim = " " Then txtJobTitle.Text = "" Else txtJobTitle.Text = dt.Rows(0).Item("SupplierContactPerson_Designation").ToString.Trim End If If dt.Rows(0).Item("SupplierContactPerson_MobileCode").ToString.Trim = "" Or dt.Rows(0).Item("SupplierContactPerson_MobileCode").ToString.Trim = " " Then txtMobileCode.Text = "" Else txtMobileCode.Text = dt.Rows(0).Item("SupplierContactPerson_MobileCode").ToString.Trim End If If dt.Rows(0).Item("SupplierContactPerson_AMobileNo").ToString.Trim = "" Or dt.Rows(0).Item("SupplierContactPerson_AMobileNo").ToString.Trim = " " Then txtAMNumber.Text = "" Else txtAMNumber.Text = dt.Rows(0).Item("SupplierContactPerson_AMobileNo").ToString.Trim End If If dt.Rows(0).Item("SupplierContactPerson_AMobileCode").ToString.Trim = "" Or dt.Rows(0).Item("SupplierContactPerson_AMobileCode").ToString.Trim = " " Then txtAMCode.Text = "" Else txtAMCode.Text = dt.Rows(0).Item("SupplierContactPerson_AMobileCode").ToString.Trim End If If dt.Rows(0).Item("SupplierContactPerson_MobileNo").ToString.Trim = "" Or dt.Rows(0).Item("SupplierContactPerson_MobileNo").ToString.Trim = " " Then txtMobileNumber.Text = "" Else txtMobileNumber.Text = dt.Rows(0).Item("SupplierContactPerson_MobileNo").ToString.Trim End If If dt.Rows(0).Item("SupplierContactPerson_EmailId").ToString.Trim = "" Or dt.Rows(0).Item("SupplierContactPerson_EmailId").ToString.Trim = " " Then txtEmailID.Text = "" Else txtEmailID.Text = dt.Rows(0).Item("SupplierContactPerson_EmailId").ToString.Trim End If If dt.Rows(0).Item("SupplierContactPerson_AlternateEmailID").ToString.Trim = "" Or dt.Rows(0).Item("SupplierContactPerson_AlternateEmailID").ToString.Trim = " " Then txtAlternateEmailID.Text = "" Else txtAlternateEmailID.Text = dt.Rows(0).Item("SupplierContactPerson_AlternateEmailID").ToString.Trim End If dt.Clear() 'clear data table End If End If End Sub Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click If CheckValid() = True Then InsertData1() ' Update Data. incase of Admin Response.Redirect("SupplierAdditionalInformation.aspx") 'email() 'CreateMessageAlert(Me, "Record successfully updated.", "StrKeyVal") End If End Sub Private Sub InsertData1() Dim cat As String cat = "" Dim j As Integer For j = 0 To CheckBoxList1.Items.Count - 1 If CheckBoxList1.Items(j).Selected = True Then cat += CheckBoxList1.Items(j).Value & "-" 'email(ReturnValue("Select CategoryEmail_EmailID from Category_Email where CategoryEmail_CategoryID ='" & CheckBoxList1.Items(j).Value & "' and CategoryEmail_IsDeleted ='0'")) End If Next 'strkid = NewPrimaryKey(Me) 'For Updatation of Supplier Agreement Table Dim cmd As New SqlCommand() Dim con As New SqlConnection Dim strIP As String = Request.UserHostAddress() con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") 'con.Open() 'cmd = New Data.SqlClient.SqlCommand("update SignAgreement_Supplier set signagreement_SupplierId='" & strKid & "',signagreement_Approved='Y' where signagreement_SupplierId='" & Session("Id") & "'", con) 'cmd.ExecuteNonQuery() 'con.Close() '---------------------------------------------------------------------- If con.State = ConnectionState.Open Then con.Close() End If con.Open() 'open a connection Dim sqlcoll As Data.SqlClient.SqlParameterCollection = cmd.Parameters sqlcoll.Clear() sqlcoll.Add("@Supplier_Kid", Data.SqlDbType.NVarChar, 10).Value = Session("SupplierID").ToString.Trim sqlcoll.Add("@Supplier_Code", Data.SqlDbType.NVarChar, 25).Value = ReturnValue("Select Supplier_Code from Supplier_Master where Supplier_Kid ='" & Session("SupplierID").ToString.Trim & "'and Supplier_Isdeleted = '0'") sqlcoll.Add("@Supplier_Name", Data.SqlDbType.NVarChar, 100).Value = txtName.Text.Trim sqlcoll.Add("@Supplier_CityId", Data.SqlDbType.NVarChar, 10).Value = ddlCity.SelectedValue.Trim sqlcoll.Add("@Supplier_Address", Data.SqlDbType.NVarChar, 500).Value = txtAddress.Text.Trim sqlcoll.Add("@Supplier_PinCode", Data.SqlDbType.NVarChar, 15).Value = txtZipCode.Text.Trim sqlcoll.Add("@Supplier_TelCountryCode", Data.SqlDbType.NVarChar, 50).Value = txtTelCountryCode.Text.Trim sqlcoll.Add("@Supplier_TelCityCode", Data.SqlDbType.NVarChar, 50).Value = txtTelCityCode.Text.Trim sqlcoll.Add("@Supplier_TelNumber", Data.SqlDbType.NVarChar, 25).Value = txtTelNumber.Text.Trim sqlcoll.Add("@Supplier_TelExtn", Data.SqlDbType.NVarChar, 25).Value = txtTelExtn.Text.Trim sqlcoll.Add("@Supplier_NoOfYear", Data.SqlDbType.NVarChar, 10).Value = txtYearInBus.Text.Trim If txtTurnOver.Text = "" Then Else sqlcoll.Add("@Supplier_AnnualTO", Data.SqlDbType.NVarChar, 50).Value = txtTurnOver.Text.Trim sqlcoll.Add("@Supplier_AnnualTOType", Data.SqlDbType.NVarChar, 10).Value = ddlTurnOverUnit.SelectedItem.Value.Trim sqlcoll.Add("@Supplier_AnnualTOYear", Data.SqlDbType.NVarChar, 50).Value = ddlTurnOverYear.SelectedItem.Value.Trim End If sqlcoll.Add("@Supplier_IsISO", Data.SqlDbType.NVarChar, 1).Value = rblISO.SelectedValue.Trim sqlcoll.Add("@Supplier_WebSiteUrl", Data.SqlDbType.NVarChar, 25).Value = txtWebSiteURL.Text.Trim sqlcoll.Add("@Supplier_Approved", Data.SqlDbType.NVarChar, 1).Value = "Y" sqlcoll.Add("@Supplier_IsPriceList", Data.SqlDbType.NVarChar, 1).Value = rblPriceList.SelectedValue.ToString sqlcoll.Add("@Supplier_CategoryId", Data.SqlDbType.NVarChar, 200).Value = cat If txtNoOfProductBrand.Text.ToString = "" Then sqlcoll.Add("@Supplier_NoOfProductsBrands", Data.SqlDbType.Int, 18).Value = 0 Else sqlcoll.Add("@Supplier_NoOfProductsBrands", Data.SqlDbType.Int, 18).Value = Convert.ToInt32(txtNoOfProductBrand.Text.ToString) End If sqlcoll.Add("@Supplier_FinancialYearId", Data.SqlDbType.NVarChar, 10).Value = Session("g_FinYear").ToString sqlcoll.Add("@Supplier_CompanyId", Data.SqlDbType.NVarChar, 10).Value = Session("g_Company").ToString sqlcoll.Add("@Supplier_UserId", Data.SqlDbType.NVarChar, 10).Value = Session("g_User").ToString sqlcoll.Add("@Supplier_ClientIP", Data.SqlDbType.NVarChar, 50).Value = strIP sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Update" 'strMode.Trim ExecQuery("SupplierNew_Proc", sqlcoll) 'ViewState.Add("strKid", strKid.Trim) sqlcoll.Clear() Dim Mode As String Con_kid = ReturnValue("Select SupplierContactPerson_Kid from SupplierContactPerson_Master where SupplierContactPerson_SupplierID = '" & Session("SupplierID").ToString.Trim & "'and SupplierContactPerson_Isdeleted = '0'") Con_Code = ReturnValue("Select SupplierContactPerson_Code from SupplierContactPerson_Master where SupplierContactPerson_SupplierID = '" & Session("SupplierID").ToString.Trim & "'and SupplierContactPerson_Isdeleted = '0'") If Con_kid = Nothing Then generatecode() Mode = "Insert" Else Mode = "Update" End If sqlcoll.Add("@SupplierContactPerson_Kid", Data.SqlDbType.NVarChar, 10).Value = Con_kid sqlcoll.Add("@SupplierContactPerson_Code", Data.SqlDbType.NVarChar, 25).Value = Con_Code sqlcoll.Add("@SupplierContactPerson_Name", Data.SqlDbType.NVarChar, 100).Value = txtCPName.Text.Trim sqlcoll.Add("@SupplierContactPerson_Designation", Data.SqlDbType.NVarChar, 100).Value = txtJobTitle.Text.Trim sqlcoll.Add("@SupplierContactPerson_Title", Data.SqlDbType.NVarChar, 100).Value = ddlTitle.SelectedItem.Text.Trim 'sqlcoll.Add("@SupplierContactPerson_PhoneNo", Data.SqlDbType.NVarChar, 50).Value = "" 'sqlcoll.Add("@SupplierContactPerson_ExtNo", Data.SqlDbType.NVarChar, 15).Value = "" sqlcoll.Add("@SupplierContactPerson_MobileNo", Data.SqlDbType.NVarChar, 50).Value = txtMobileNumber.Text.Trim sqlcoll.Add("@SupplierContactPerson_MobileCode", Data.SqlDbType.NVarChar, 50).Value = txtMobileCode.Text.Trim sqlcoll.Add("@SupplierContactPerson_EmailId", Data.SqlDbType.NVarChar, 100).Value = txtEmailID.Text.Trim sqlcoll.Add("@SupplierContactPerson_AlternateEmailID", Data.SqlDbType.NVarChar, 100).Value = txtAlternateEmailID.Text.Trim ' sqlcoll.Add("@SupplierContactPerson_TollFreePhoneExtn", Data.SqlDbType.NVarChar, 15).Value = "" sqlcoll.Add("SupplierContactPerson_AMobileNo", Data.SqlDbType.NVarChar, 15).Value = txtAMNumber.Text.Trim sqlcoll.Add("SupplierContactPerson_AMobileCode", Data.SqlDbType.NVarChar, 15).Value = txtAMCode.Text.Trim sqlcoll.Add("@SupplierContactPerson_SupplierId", Data.SqlDbType.NVarChar, 10).Value = Session("SupplierID").ToString.Trim sqlcoll.Add("@SupplierContactPerson_FinancialYearId", Data.SqlDbType.NVarChar, 10).Value = Session("g_FinYear").ToString sqlcoll.Add("@SupplierContactPerson_CompanyId", Data.SqlDbType.NVarChar, 10).Value = Session("g_Company").ToString sqlcoll.Add("@SupplierContactPerson_UserId", Data.SqlDbType.NVarChar, 10).Value = Session("g_User").ToString sqlcoll.Add("@SupplierContactPerson_ClientIP", Data.SqlDbType.NVarChar, 50).Value = strIP sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = Mode 'strMode.Trim ExecQuery("SupplierContactPerson_Master_Proc", sqlcoll) sqlcoll.Clear() con.Close() con.Dispose() CreateMessageAlert(Me, "Record Was Successfully Updated.", "StrKeyVal") End Sub ' generate code Public Sub generatecode() Try Dim i As String Dim qry As String Dim code As String Con_kid = NewPrimaryKey(Me) i = "1" i = Format(Val(i), "000") While True code = "MCP" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & i qry = "select count(*) from SupplierContactPerson_Master where SupplierContactPerson_Code='" & code & "'" If IsAlreadyPresent(qry) Then i = Val(i) + 1 i = Format(Val(i), "000") Else Con_Code = code Exit Sub End If End While Catch ex As Exception CreateMessageAlert(Me, ex.Message, "StrKeyVal") 'Display the Error Message End Try End Sub Private Function CheckValid() As Boolean lblErrorData1.Visible = True If txtName.Text.Trim.Length = 0 Then lblErrorData1.Text = "Enter Company Name !!" Return False Exit Function ElseIf txtAddress.Text.Trim.Length = 0 Then lblErrorData1.Text = "Enter Address !!" Return False Exit Function ElseIf txtZipCode.Text.Trim.Length = 0 Then lblErrorData1.Text = "Enter Pin Code !!" Return False Exit Function ElseIf ddlCity.SelectedIndex = 0 Then lblErrorData1.Text = "Select City !!" Return False Exit Function ElseIf txtCPName.Text.Trim.Length = 0 Then lblErrorData1.Text = "Enter Contact Person Name !!" Return False Exit Function ElseIf txtMobileNumber.Text.Trim.Length = 0 AndAlso txtEmailID.Text.Trim.Length = 0 AndAlso txtTelNumber.Text.Trim.Length = 0 Then lblErrorData1.Text = "Enter at least one (Mobile No or Email ID or Telphone No.)" Return False Exit Function ElseIf txtEmailID.Text.Trim.Length > 0 AndAlso IsValidMail(txtEmailID.Text.Trim, Me) = False Then lblErrorData1.Text = "Enter Valid Email ID !!" Return False Exit Function ElseIf txtAlternateEmailID.Text.Trim.Length > 0 AndAlso IsValidMail(txtAlternateEmailID.Text.Trim, Me) = False Then lblErrorData1.Text = "Enter Valid Alternate Email ID !!" Return False Exit Function ElseIf CheckBoxList1.SelectedIndex = -1 Then lblErrorData1.Visible = True lblErrorData1.Text = "Please Select Atleast One Category." Return False Exit Function End If 'If ddlCity.SelectedItem.Text = "Others" Then ' If txtAddCity.Text = "" Then ' lblErrorData1.Visible = True ' lblErrorData1.Text = "Please Enter the City." ' txtAddCity.Focus() ' Return False ' Exit Function ' End If 'End If 'If txtEmailID.Text.Trim.Length = 0 AndAlso txtAlternateEmailID.Text.Trim.Length = 0 Then ' lblErrorData1.Text = "Email ID required !!" ' Return False ' Exit Function 'End If Return True End Function Public Sub enablecontrol(ByVal action As Boolean) txtNoOfProductBrand.Enabled = action CheckBoxList1.Enabled = action rblPriceList.Enabled = action txtAddress.Enabled = action txtAlternateEmailID.Enabled = action txtAMCode.Enabled = action txtAMNumber.Enabled = action txtCity.Enabled = action txtCountry.Enabled = action txtCPName.Enabled = action 'txtEmailID.Enabled = action txtJobTitle.Enabled = action txtMobileNumber.Enabled = action txtName.Enabled = action ddlTitle.Enabled = action txtState.Enabled = action txtTelCityCode.Enabled = action txtTelCountryCode.Enabled = action txtTelExtn.Enabled = action txtTelNumber.Enabled = action txtWebSiteURL.Enabled = action txtZipCode.Enabled = action txtMobileCode.Enabled = action ddlTurnOverYear.Enabled = action txtYearInBus.Enabled = action txtTurnOver.Enabled = action rblISO.Enabled = action 'ddlTurnOverUnit.Enabled = action 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='" & Session("g_Company").ToString.Trim & "' order by State_Name", ddlState) getMobileCode() ddlState.Enabled = True ddlCity.Items.Clear() End If End Sub Private Sub getMobileCode() txtMobileCode.Text = ReturnValue("select Country_ISDCode from country_master where country_kid='" & ddlCountry.SelectedValue.Trim & "'") txtAMCode.Text = txtMobileCode.Text.Trim txtTelCountryCode.Text = txtMobileCode.Text.Trim 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_StateID='" & ddlState.SelectedValue.Trim & "' and City_CompanyId='" & Session("g_Company").ToString.Trim & "' order by City_Name", ddlCity) ddlCity.Enabled = True 'ddlCity.Attributes.Add("onchange", "return checkCityddl(this,'" & ddlState.SelectedItem.Value.ToString & "','" & Session("g_Company").ToString & "','" & Session("g_User") & "','" & Session("g_FinYear") & "');") 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 ' Exit Sub ' End If 'End Sub ' if city is not in list then he can add new city 'Protected Sub btnAddCity_Click(ByVal sender As Object, ByVal e As System.EventArgs) ' ddlCity.Visible = True ' 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 = Session("g_Company").ToString ' sqlcoll.Add("@City_UserID", Data.SqlDbType.NVarChar, 50).Value = Session("g_User").ToString ' 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='" & Session("g_Company").ToString.Trim & "' order by City_Name", ddlCity) ' ddlCity.ClearSelection() ' ddlCity.Items.FindByText(txtAddCity.Text.Trim).Selected = True ' txtAddCity.Text = "" ' btnAddCity.Visible = False ' txtAddCity.Visible = False 'End Sub Protected Sub btnSkip_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSkip.Click Response.Redirect("SupplierAdditionalInformation.aspx") End Sub End Class