' Developer -> Jignesh Jitiya Imports System Imports System.Data Imports System.Data.SqlClient Imports ModCommon Partial Class InStoreServices Inherits System.Web.UI.Page Shared g_User As String Shared g_Company As String Shared g_FinYear As String Shared Category(10) As String Shared InStore_Kid As String Shared InStore_Code As String Shared i As Integer Shared Mode As String Shared InStore_IsRequired, InStore_IsDemoPiece As String Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Session("SupplierID") Is Nothing Then Response.Redirect("listproduct.aspx?sess=expire") Exit Sub End If If Not IsPostBack Then 'g_User = Session("g_User").ToString 'g_Company = Session("g_Company").ToString 'g_FinYear = Session("g_FinYear").ToString txtph1.Attributes.Add("onkeypress", "return numbersonly(event);") txtph2.Attributes.Add("onkeypress", "return numbersonly(event);") txtph3.Attributes.Add("onkeypress", "return numbersonly(event);") txtph4.Attributes.Add("onkeypress", "return numbersonly(event);") txtmno1.Attributes.Add("onkeypress", "return numbersonly(event);") txtmno2.Attributes.Add("onkeypress", "return numbersonly(event);") txtaph1.Attributes.Add("onkeypress", "return numbersonly(event);") txtaph2.Attributes.Add("onkeypress", "return numbersonly(event);") txtaph3.Attributes.Add("onkeypress", "return numbersonly(event);") txtaph4.Attributes.Add("onkeypress", "return numbersonly(event);") txtamno1.Attributes.Add("onkeypress", "return numbersonly(event);") txtamno2.Attributes.Add("onkeypress", "return numbersonly(event);") btnUpdate.Attributes.Add("onclick", "return UpdateMsg();") BtnSaveCount.Attributes.Add("onclick", "return SaveConfirm();") txtph1.Text = ReturnValue("select country_isdcode from country_master where country_name='India'") txtmno1.Text = ReturnValue("select country_isdcode from country_master where country_name='India'") txtaph1.Text = ReturnValue("select country_isdcode from country_master where country_name='India'") txtamno1.Text = ReturnValue("select country_isdcode from country_master where country_name='India'") i = 0 If Session("ProductID") = Nothing Then ' Check whether Session Productid Response.Redirect("List_Product.aspx") Else i = 0 Dim catid As String catid = ReturnValue("Select Product_CategoryID from Product_Master where Product_Kid= '" & Session("ProductID").ToString() & "'and Product_IsDeleted='0' and Product_FinancialYearId ='" & Session("g_FinYear").ToString & "' and Product_CompanyId ='" & Session("g_Company").ToString & "'") ' get categoryid according productid FillCategoryName(catid) ' fill category herarchy in label Dim InStore_ProductId As String InStore_ProductId = ReturnValue("Select InStore_productId from InStore where InStore_productId= '" & Session("ProductID").ToString() & "' and InStore_Isdeleted='0' and InStore_FinancialYearId = '" & Session("g_FinYear").ToString & "'and InStore_CompanyId ='" & Session("g_Company").ToString & "'") If InStore_ProductId = "" Then ' check for existing value ' if new records GenerateInStoreCode() Mode = "Insert" ddlExisting.Visible = True lblExisting.Visible = True FillExistingDropDown("SELECT InStore_productid FROM InStore WHERE InStore_userid = '" & Session("g_User").ToString.Trim & "' AND InStore_companyid = '" & Session("g_Company").ToString & "' AND InStore_IsDeleted = N'0'", ddlExisting) ' fill existing ddl with produc name ffrom product master Else ' existing value ddlExisting.Visible = False lblExisting.Visible = False InStore_Code = ReturnValue("Select InStore_Code from InStore where InStore_productId= '" & Session("ProductID").ToString() & "' and InStore_Isdeleted='0' and InStore_FinancialYearId = '" & Session("g_FinYear").ToString & "'and InStore_CompanyId ='" & Session("g_Company").ToString & "'") InStore_Kid = ReturnValue("Select InStore_KId from InStore where InStore_productId= '" & Session("ProductID").ToString() & "' and InStore_Isdeleted='0' and InStore_FinancialYearId = '" & Session("g_FinYear").ToString & "'and InStore_CompanyId ='" & Session("g_Company").ToString & "'") GetExistingData() ' get existing data BtnSaveCount.Visible = False txtenable(False) ' Mode = "Update" End If If Session("AdminID") <> Nothing Then ' check for admin login btnUpdate.Visible = True BtnSaveCount.Visible = False txtenable(True) If ddlExisting.Visible = True Then BtnSaveCount.Visible = True btnUpdate.Visible = False End If Else btnUpdate.Visible = False End If End If If ddlExisting.Visible = False Then ImageButton4.Visible = False End If End If End Sub Public Sub FillExistingDropDown(ByVal strQuery As String, ByVal ddl As DropDownList) ' fill existing ddl with product name from product master Dim dt1 As DataTable = getTable(strQuery, "PR") Dim i As Integer Dim Kid As String Dim KidBool As Boolean = True For i = 0 To dt1.Rows.Count - 1 If KidBool = True Then Kid = "'" & dt1.Rows(i).Item(0).ToString & "'" KidBool = False Else Kid &= "," Kid &= "'" & dt1.Rows(i).Item(0).ToString & "'" End If Next Fill_Combo("Select Product_Kid,Product_Name from Product_Master where Product_SupplierID='" & Session.Item("SupplierID").ToString.Trim & "'and Product_UserID = '" & Session("g_User").ToString().Trim & "' and Product_Kid In ( " & Kid & ")", ddl) If ddl.Items.Count > 1 Then ddl.Items.Insert(ddl.Items.Count, "Add New") lblExisting.Visible = True txtenable(False) Else ddl.Visible = False lblExisting.Visible = False txtenable(True) End If End Sub Public Sub txtenable(ByVal bool As Boolean) txtaeid.Enabled = bool txtajtitle.Enabled = bool txtakcperson.Enabled = bool txtamno1.Enabled = bool txtamno2.Enabled = bool txtaph1.Enabled = bool txtaph2.Enabled = bool txtaph3.Enabled = bool txtaph4.Enabled = bool txteid.Enabled = bool txtissfothers.Enabled = bool txtjtitle.Enabled = bool txtkcperson.Enabled = bool txtmno1.Enabled = bool txtmno2.Enabled = bool txtph1.Enabled = bool txtph2.Enabled = bool txtph3.Enabled = bool txtph4.Enabled = bool rbn_demopiece_no.Enabled = bool rbn_demopiece_yes.Enabled = bool rbn_isrequired_no.Enabled = bool rbn_isrequired_yes.Enabled = bool chkarcompany.Enabled = bool chkcrepresentative.Enabled = bool chkesgroup.Enabled = bool ddlakcperson.Enabled = bool ddlkcperson.Enabled = bool issf_bi_weekly.Enabled = bool issf_daily.Enabled = bool issf_monthly.Enabled = bool issf_weekly.Enabled = bool txtamno1.Enabled = bool txtmno1.Enabled = bool txtph1.Enabled = bool txtaph1.Enabled = bool End Sub Public Sub clear() txtaeid.Text = "" txtajtitle.Text = "" txtakcperson.Text = "" txtamno1.Text = "" txtamno2.Text = "" txtaph1.Text = "" txtaph2.Text = "" txtaph3.Text = "" txtaph4.Text = "" txteid.Text = "" txtissfothers.Text = "" txtjtitle.Text = "" txtkcperson.Text = "" txtmno1.Text = "" txtmno2.Text = "" txtph1.Text = "" txtph2.Text = "" txtph3.Text = "" txtph4.Text = "" ddlakcperson.ClearSelection() ddlkcperson.ClearSelection() End Sub Public Sub GetExistingData() Dim dt As DataTable dt = ReturnDataTable("Select * From InStore Where InStore_Kid ='" & RemoveLiterals(InStore_Kid.ToString.Trim) & "' and InStore_Isdeleted = '0' and InStore_FinancialYearId ='" & Session("g_FinYear").ToString & "' and InStore_CompanyId ='" & Session("g_Company").ToString & "'") ' existing value is assigned to controls InStore_IsRequired = dt.Rows(0).Item(3) If InStore_IsRequired = "Y" Then rbn_isrequired_yes.Checked = True rbn_isrequired_no.Checked = False If dt.Rows(0).Item(4) = "Y" Then rbn_demopiece_yes.Checked = True rbn_demopiece_no.Checked = False Else rbn_demopiece_yes.Checked = False rbn_demopiece_no.Checked = True End If If IsDBNull(dt.Rows(0).Item(5)) Then Else chkcrepresentative.Checked = True End If If IsDBNull(dt.Rows(0).Item(6)) Then Else chkarcompany.Checked = True End If If IsDBNull(dt.Rows(0).Item(7)) Then Else chkesgroup.Checked = True End If ddlkcperson.Items.FindByText(dt.Rows(0).Item(8)).Selected = True txtkcperson.Text = dt.Rows(0).Item(9) txtjtitle.Text = dt.Rows(0).Item(10) txtph1.Text = dt.Rows(0).Item(11) txtph2.Text = dt.Rows(0).Item(12) txtph3.Text = dt.Rows(0).Item(13) txtph4.Text = dt.Rows(0).Item(14) txtmno1.Text = dt.Rows(0).Item(15) txtmno2.Text = dt.Rows(0).Item(16) txteid.Text = dt.Rows(0).Item(17) ddlakcperson.ClearSelection() Try ddlakcperson.Items.FindByText(dt.Rows(0).Item(18)).Selected = True Catch ex As Exception End Try txtakcperson.Text = dt.Rows(0).Item(19) txtajtitle.Text = dt.Rows(0).Item(20) txtaph1.Text = dt.Rows(0).Item(21) txtaph2.Text = dt.Rows(0).Item(22) txtaph3.Text = dt.Rows(0).Item(23) txtaph4.Text = dt.Rows(0).Item(24) txtamno1.Text = dt.Rows(0).Item(25) txtamno2.Text = dt.Rows(0).Item(26) txtaeid.Text = dt.Rows(0).Item(27) If IsDBNull(dt.Rows(0).Item(28)) Then Else issf_weekly.Checked = True End If If IsDBNull(dt.Rows(0).Item(29)) Then Else issf_weekly.Checked = True End If If IsDBNull(dt.Rows(0).Item(30)) Then Else issf_monthly.Checked = True End If If IsDBNull(dt.Rows(0).Item(31)) Then Else issf_daily.Checked = True End If txtissfothers.Text = dt.Rows(0).Item(32) Else rbn_isrequired_yes.Checked = False rbn_isrequired_yes.Enabled = False rbn_isrequired_no.Checked = True tr1.Visible = False tr2.Visible = False tr3.Visible = False tr4.Visible = False tr5.Visible = False tr6.Visible = False tr61.Visible = False tr71.Visible = False tr8.Visible = False tr9.Visible = False tr10.Visible = False tr111.Visible = False tr122.Visible = False tr13.Visible = False tr14.Visible = False End If dt.Clear() End Sub Public Sub FillCategoryName(ByVal Catid As String) ' Fill category herarchy in label Dim dt As DataTable dt = ReturnDataTable("Select * From Category_Master Where Category_Kid ='" & Catid & "' and Category_Isdeleted = '0'") Dim ParentId As String ParentId = dt.Rows(0).Item(3).ToString() If ParentId = "Root Category" Then Dim j As Integer Category(i) = dt.Rows(0).Item(2).ToString() & " >> " For j = 0 To i Label1.Text += Category(i) i = i - 1 Next Exit Sub Else Category(i) = dt.Rows(0).Item(2).ToString() & " >> " i = i + 1 FillCategoryName(dt.Rows(0).Item(3).ToString()) End If dt.Clear() End Sub Protected Sub GenerateInStoreCode() ' generate kid and code Try Dim i As String Dim qry As String Dim code As String InStore_Kid = NewPrimaryKey(Me) i = "1" i = Format(Val(i), "000") While True code = "IS" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & i qry = "select count(*) from InStore where InStore_Code='" & code & "'" If IsAlreadyPresent(qry) Then i = Val(i) + 1 i = Format(Val(i), "000") Else InStore_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 Protected Sub BtnSaveCount_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSaveCount.Click ' save data GenerateInStoreCode() ' generate kid and code If rbn_isrequired_yes.Checked = True Then InStore_IsRequired = "Y" Else InStore_IsRequired = "N" End If If rbn_demopiece_yes.Checked = True Then InStore_IsDemoPiece = "Y" Else InStore_IsDemoPiece = "N" End If Dim Con As New SqlConnection Dim cmd As New SqlCommand Con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") cmd.Connection = Con cmd.CommandText = "InStore_Proc" ' store procedure cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add(New SqlParameter("@InStore_Kid", SqlDbType.NVarChar, 10)).Value = InStore_Kid cmd.Parameters.Add(New SqlParameter("@InStore_Code", SqlDbType.NVarChar, 25)).Value = InStore_Code cmd.Parameters.Add(New SqlParameter("@InStore_ProductID", SqlDbType.NVarChar, 10)).Value = Session("ProductID").ToString() cmd.Parameters.Add(New SqlParameter("@InStore_IsRequired", SqlDbType.NVarChar, 1)).Value = InStore_IsRequired If InStore_IsRequired = "Y" Then cmd.Parameters.Add(New SqlParameter("@InStore_IsDemoPiece", SqlDbType.NVarChar, 1)).Value = InStore_IsDemoPiece If chkcrepresentative.Checked = True Then cmd.Parameters.Add(New SqlParameter("@InStore_ProvidedBy1", SqlDbType.NVarChar, 30)).Value = chkcrepresentative.Text End If If chkarcompany.Checked = True Then cmd.Parameters.Add(New SqlParameter("@InStore_ProvidedBy2", SqlDbType.NVarChar, 30)).Value = chkarcompany.Text End If If chkesgroup.Checked = True Then cmd.Parameters.Add(New SqlParameter("@InStore_ProvidedBy3", SqlDbType.NVarChar, 30)).Value = chkesgroup.Text End If cmd.Parameters.Add(New SqlParameter("@InStore_MrMs1", SqlDbType.NVarChar, 5)).Value = ddlkcperson.SelectedItem.Text cmd.Parameters.Add(New SqlParameter("@InStore_ContactPerson1", SqlDbType.NVarChar, 30)).Value = txtkcperson.Text cmd.Parameters.Add(New SqlParameter("@InStore_JobTitle1", SqlDbType.NVarChar, 30)).Value = txtjtitle.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone11", SqlDbType.NVarChar, 10)).Value = txtph1.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone12", SqlDbType.NVarChar, 10)).Value = txtph2.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone13", SqlDbType.NVarChar, 10)).Value = txtph3.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone14", SqlDbType.NVarChar, 10)).Value = txtph4.Text cmd.Parameters.Add(New SqlParameter("@InStore_MobileNo11", SqlDbType.NVarChar, 10)).Value = txtmno1.Text cmd.Parameters.Add(New SqlParameter("@InStore_MobileNo12", SqlDbType.NVarChar, 10)).Value = txtmno2.Text cmd.Parameters.Add(New SqlParameter("@InStore_EmailID1", SqlDbType.NVarChar, 30)).Value = txteid.Text cmd.Parameters.Add(New SqlParameter("@InStore_MrMs2", SqlDbType.NVarChar, 5)).Value = ddlakcperson.SelectedItem.Text cmd.Parameters.Add(New SqlParameter("@InStore_ContactPerson2", SqlDbType.NVarChar, 30)).Value = txtakcperson.Text cmd.Parameters.Add(New SqlParameter("@InStore_JobTitle2", SqlDbType.NVarChar, 30)).Value = txtajtitle.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone21", SqlDbType.NVarChar, 10)).Value = txtaph1.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone22", SqlDbType.NVarChar, 10)).Value = txtaph2.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone23", SqlDbType.NVarChar, 10)).Value = txtaph3.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone24", SqlDbType.NVarChar, 10)).Value = txtaph4.Text cmd.Parameters.Add(New SqlParameter("@InStore_MobileNo21", SqlDbType.NVarChar, 10)).Value = txtamno1.Text cmd.Parameters.Add(New SqlParameter("@InStore_MobileNo22", SqlDbType.NVarChar, 10)).Value = txtamno2.Text cmd.Parameters.Add(New SqlParameter("@InStore_EmailID2", SqlDbType.NVarChar, 30)).Value = txtaeid.Text If issf_weekly.Checked = True Then cmd.Parameters.Add(New SqlParameter("@InStore_ServiceFrequency1", SqlDbType.NVarChar, 10)).Value = issf_weekly.Text End If If issf_bi_weekly.Checked = True Then cmd.Parameters.Add(New SqlParameter("@InStore_ServiceFrequency2", SqlDbType.NVarChar, 10)).Value = issf_bi_weekly.Text End If If issf_monthly.Checked = True Then cmd.Parameters.Add(New SqlParameter("@InStore_ServiceFrequency3", SqlDbType.NVarChar, 10)).Value = issf_monthly.Text End If If issf_daily.Checked = True Then cmd.Parameters.Add(New SqlParameter("@InStore_ServiceFrequency4", SqlDbType.NVarChar, 10)).Value = issf_daily.Text End If cmd.Parameters.Add(New SqlParameter("@InStore_ServiceFrequencyOther", SqlDbType.NVarChar, 30)).Value = txtissfothers.Text cmd.Parameters.Add(New SqlParameter("@InStore_FinancialYearId", SqlDbType.NVarChar, 10)).Value = Session("g_FinYear").ToString cmd.Parameters.Add(New SqlParameter("@InStore_CompanyId", SqlDbType.NVarChar, 10)).Value = Session("g_Company").ToString cmd.Parameters.Add(New SqlParameter("@InStore_UserId", SqlDbType.NVarChar, 10)).Value = Session("g_User").ToString cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 50)).Value = "InStrore Services" cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.NVarChar, 10)).Value = Mode Else cmd.Parameters.Add(New SqlParameter("@InStore_FinancialYearId", SqlDbType.NVarChar, 10)).Value = Session("g_FinYear").ToString cmd.Parameters.Add(New SqlParameter("@InStore_CompanyId", SqlDbType.NVarChar, 10)).Value = Session("g_Company").ToString cmd.Parameters.Add(New SqlParameter("@InStore_UserId", SqlDbType.NVarChar, 10)).Value = Session("g_User").ToString cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 50)).Value = "InStrore Services" cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.NVarChar, 10)).Value = Mode End If If Con.State = ConnectionState.Open Then ' check whether connection is opened or not Con.Close() End If Con.Open() cmd.ExecuteNonQuery() Con.Close() ' close connection Con.Dispose() Response.Redirect("commercial-terms.aspx") ' redirect to next page End Sub Protected Sub BtnSkipCount_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSkipCount.Click Response.Redirect("commercial-terms.aspx") ' redirect to next page End Sub Protected Sub rbn_isrequired_yes_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbn_isrequired_yes.CheckedChanged If rbn_isrequired_yes.Checked = True Then ' check whether instore require or not tr1.Visible = True tr2.Visible = True tr3.Visible = True tr4.Visible = True tr5.Visible = True tr6.Visible = True tr61.Visible = True tr71.Visible = True tr8.Visible = True tr9.Visible = True tr10.Visible = True tr111.Visible = True tr122.Visible = True tr13.Visible = True tr14.Visible = True Else tr1.Visible = False tr2.Visible = False tr3.Visible = False tr4.Visible = False tr5.Visible = False tr6.Visible = False tr61.Visible = False tr71.Visible = False tr8.Visible = False tr9.Visible = False tr10.Visible = False tr111.Visible = False tr122.Visible = False tr13.Visible = False tr14.Visible = False End If End Sub Protected Sub rbn_isrequired_no_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbn_isrequired_no.CheckedChanged If rbn_isrequired_no.Checked = True Then ' check instore is required or not tr1.Visible = False tr2.Visible = False tr3.Visible = False tr4.Visible = False tr5.Visible = False tr6.Visible = False tr61.Visible = False tr71.Visible = False tr8.Visible = False tr9.Visible = False tr10.Visible = False tr111.Visible = False tr122.Visible = False tr13.Visible = False tr14.Visible = False Else tr1.Visible = True tr2.Visible = True tr3.Visible = True tr4.Visible = True tr5.Visible = True tr6.Visible = True tr61.Visible = True tr71.Visible = True tr8.Visible = True tr9.Visible = True tr10.Visible = True tr111.Visible = True tr122.Visible = True tr13.Visible = True tr14.Visible = True End If End Sub Protected Sub ddlExisting_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlExisting.SelectedIndexChanged If ddlExisting.SelectedIndex > 0 Then If ddlExisting.SelectedItem.Text = "Add New" Then ' add new records txtenable(True) clear() GenerateInStoreCode() ' generate kid and code txtph1.Text = ReturnValue("select country_isdcode from country_master where country_name='India'") txtmno1.Text = ReturnValue("select country_isdcode from country_master where country_name='India'") txtaph1.Text = ReturnValue("select country_isdcode from country_master where country_name='India'") txtamno1.Text = ReturnValue("select country_isdcode from country_master where country_name='India'") Else ' add existing records Dim Kid As String = ddlExisting.SelectedItem.Value Dim dt As DataTable = getTable("Select * from InStore where InStore_ProductId='" & Kid & "' and InStore_IsDeleted='0' and InStore_CompanyID='" & Session("g_Company").ToString.Trim & "' and InStore_UserID='" & Session("g_User").ToString.Trim & "'", "IS") InStore_IsRequired = dt.Rows(0).Item(3) GenerateInStoreCode() ' generate Kid and code ddlExisting.Visible = True txtenable(True) If InStore_IsRequired = "Y" Then rbn_isrequired_yes.Checked = True rbn_isrequired_no.Checked = False If dt.Rows(0).Item(4) = "Y" Then rbn_demopiece_yes.Checked = True rbn_demopiece_no.Checked = False Else rbn_demopiece_yes.Checked = False rbn_demopiece_no.Checked = True End If If IsDBNull(dt.Rows(0).Item(5)) Then Else chkcrepresentative.Checked = True End If If IsDBNull(dt.Rows(0).Item(6)) Then Else chkarcompany.Checked = True End If If IsDBNull(dt.Rows(0).Item(7)) Then Else chkesgroup.Checked = True End If ddlkcperson.Items.FindByText(dt.Rows(0).Item(8)).Selected = True txtkcperson.Text = dt.Rows(0).Item(9) txtjtitle.Text = dt.Rows(0).Item(10) txtph1.Text = dt.Rows(0).Item(11) txtph2.Text = dt.Rows(0).Item(12) txtph3.Text = dt.Rows(0).Item(13) txtph4.Text = dt.Rows(0).Item(14) txtmno1.Text = dt.Rows(0).Item(15) txtmno2.Text = dt.Rows(0).Item(16) txteid.Text = dt.Rows(0).Item(17) ddlakcperson.Items.FindByText(dt.Rows(0).Item(18)).Selected = True txtakcperson.Text = dt.Rows(0).Item(19) txtajtitle.Text = dt.Rows(0).Item(20) txtaph1.Text = dt.Rows(0).Item(21) txtaph2.Text = dt.Rows(0).Item(22) txtaph3.Text = dt.Rows(0).Item(23) txtaph4.Text = dt.Rows(0).Item(24) txtamno1.Text = dt.Rows(0).Item(25) txtamno2.Text = dt.Rows(0).Item(26) txtaeid.Text = dt.Rows(0).Item(27) If IsDBNull(dt.Rows(0).Item(28)) Then Else issf_weekly.Checked = True End If If IsDBNull(dt.Rows(0).Item(29)) Then Else issf_weekly.Checked = True End If If IsDBNull(dt.Rows(0).Item(30)) Then Else issf_monthly.Checked = True End If If IsDBNull(dt.Rows(0).Item(31)) Then Else issf_daily.Checked = True End If txtissfothers.Text = dt.Rows(0).Item(32) Else rbn_isrequired_yes.Checked = False rbn_isrequired_yes.Enabled = False rbn_isrequired_no.Checked = True tr1.Visible = False tr2.Visible = False tr3.Visible = False tr4.Visible = False tr5.Visible = False tr6.Visible = False tr61.Visible = False tr71.Visible = False tr8.Visible = False tr9.Visible = False tr10.Visible = False tr111.Visible = False tr122.Visible = False tr13.Visible = False tr14.Visible = False End If dt.Clear() End If Else ' not selected from ddl txtenable(False) clear() End If End Sub Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click ' Updation Of Data If rbn_isrequired_yes.Checked = True Then InStore_IsRequired = "Y" Else InStore_IsRequired = "N" End If If rbn_demopiece_yes.Checked = True Then InStore_IsDemoPiece = "Y" Else InStore_IsDemoPiece = "N" End If Dim Con As New SqlConnection Dim cmd As New SqlCommand Con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") cmd.Connection = Con cmd.CommandText = "InStore_Proc" ' store procedure cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add(New SqlParameter("@InStore_Kid", SqlDbType.NVarChar, 10)).Value = InStore_Kid cmd.Parameters.Add(New SqlParameter("@InStore_Code", SqlDbType.NVarChar, 25)).Value = InStore_Code cmd.Parameters.Add(New SqlParameter("@InStore_ProductID", SqlDbType.NVarChar, 10)).Value = Session("ProductID").ToString() cmd.Parameters.Add(New SqlParameter("@InStore_IsRequired", SqlDbType.NVarChar, 1)).Value = InStore_IsRequired If InStore_IsRequired = "Y" Then cmd.Parameters.Add(New SqlParameter("@InStore_IsDemoPiece", SqlDbType.NVarChar, 1)).Value = InStore_IsDemoPiece If chkcrepresentative.Checked = True Then cmd.Parameters.Add(New SqlParameter("@InStore_ProvidedBy1", SqlDbType.NVarChar, 30)).Value = chkcrepresentative.Text End If If chkarcompany.Checked = True Then cmd.Parameters.Add(New SqlParameter("@InStore_ProvidedBy2", SqlDbType.NVarChar, 30)).Value = chkarcompany.Text End If If chkesgroup.Checked = True Then cmd.Parameters.Add(New SqlParameter("@InStore_ProvidedBy3", SqlDbType.NVarChar, 30)).Value = chkesgroup.Text End If cmd.Parameters.Add(New SqlParameter("@InStore_MrMs1", SqlDbType.NVarChar, 5)).Value = ddlkcperson.SelectedItem.Text cmd.Parameters.Add(New SqlParameter("@InStore_ContactPerson1", SqlDbType.NVarChar, 30)).Value = txtkcperson.Text cmd.Parameters.Add(New SqlParameter("@InStore_JobTitle1", SqlDbType.NVarChar, 30)).Value = txtjtitle.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone11", SqlDbType.NVarChar, 10)).Value = txtph1.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone12", SqlDbType.NVarChar, 10)).Value = txtph2.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone13", SqlDbType.NVarChar, 10)).Value = txtph3.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone14", SqlDbType.NVarChar, 10)).Value = txtph4.Text cmd.Parameters.Add(New SqlParameter("@InStore_MobileNo11", SqlDbType.NVarChar, 10)).Value = txtmno1.Text cmd.Parameters.Add(New SqlParameter("@InStore_MobileNo12", SqlDbType.NVarChar, 10)).Value = txtmno2.Text cmd.Parameters.Add(New SqlParameter("@InStore_EmailID1", SqlDbType.NVarChar, 30)).Value = txteid.Text cmd.Parameters.Add(New SqlParameter("@InStore_MrMs2", SqlDbType.NVarChar, 5)).Value = ddlakcperson.SelectedItem.Text cmd.Parameters.Add(New SqlParameter("@InStore_ContactPerson2", SqlDbType.NVarChar, 30)).Value = txtakcperson.Text cmd.Parameters.Add(New SqlParameter("@InStore_JobTitle2", SqlDbType.NVarChar, 30)).Value = txtajtitle.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone21", SqlDbType.NVarChar, 10)).Value = txtaph1.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone22", SqlDbType.NVarChar, 10)).Value = txtaph2.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone23", SqlDbType.NVarChar, 10)).Value = txtaph3.Text cmd.Parameters.Add(New SqlParameter("@InStore_Phone24", SqlDbType.NVarChar, 10)).Value = txtaph4.Text cmd.Parameters.Add(New SqlParameter("@InStore_MobileNo21", SqlDbType.NVarChar, 10)).Value = txtamno1.Text cmd.Parameters.Add(New SqlParameter("@InStore_MobileNo22", SqlDbType.NVarChar, 10)).Value = txtamno2.Text cmd.Parameters.Add(New SqlParameter("@InStore_EmailID2", SqlDbType.NVarChar, 30)).Value = txtaeid.Text If issf_weekly.Checked = True Then cmd.Parameters.Add(New SqlParameter("@InStore_ServiceFrequency1", SqlDbType.NVarChar, 10)).Value = issf_weekly.Text End If If issf_bi_weekly.Checked = True Then cmd.Parameters.Add(New SqlParameter("@InStore_ServiceFrequency2", SqlDbType.NVarChar, 10)).Value = issf_bi_weekly.Text End If If issf_monthly.Checked = True Then cmd.Parameters.Add(New SqlParameter("@InStore_ServiceFrequency3", SqlDbType.NVarChar, 10)).Value = issf_monthly.Text End If If issf_daily.Checked = True Then cmd.Parameters.Add(New SqlParameter("@InStore_ServiceFrequency4", SqlDbType.NVarChar, 10)).Value = issf_daily.Text End If cmd.Parameters.Add(New SqlParameter("@InStore_ServiceFrequencyOther", SqlDbType.NVarChar, 30)).Value = txtissfothers.Text cmd.Parameters.Add(New SqlParameter("@InStore_FinancialYearId", SqlDbType.NVarChar, 10)).Value = Session("g_FinYear").ToString cmd.Parameters.Add(New SqlParameter("@InStore_CompanyId", SqlDbType.NVarChar, 10)).Value = Session("g_Company").ToString cmd.Parameters.Add(New SqlParameter("@InStore_UserId", SqlDbType.NVarChar, 10)).Value = Session("g_User").ToString cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 50)).Value = "InStrore Services" cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.NVarChar, 10)).Value = "Update" Else cmd.Parameters.Add(New SqlParameter("@InStore_FinancialYearId", SqlDbType.NVarChar, 10)).Value = Session("g_FinYear").ToString cmd.Parameters.Add(New SqlParameter("@InStore_CompanyId", SqlDbType.NVarChar, 10)).Value = Session("g_Company").ToString cmd.Parameters.Add(New SqlParameter("@InStore_UserId", SqlDbType.NVarChar, 10)).Value = Session("g_User").ToString cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 50)).Value = "InStrore Services" cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.NVarChar, 10)).Value = "Update" End If If Con.State = ConnectionState.Open Then ' check connection Con.Close() End If Con.Open() cmd.ExecuteNonQuery() Con.Close() ' close connection Con.Dispose() CreateMessageAlert(Me, "Record Was Successfully Updated.", "StrKeyVal") End Sub End Class