Imports System.IO Partial Class SupplierAdditionalInformation Inherits System.Web.UI.Page Shared i As Integer Shared kid 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 Page.IsPostBack = False Then ddlTypeOfOrganization.Focus() ' r1.Visible = False 'r2.Visible = False i = 0 Session("ProductID") = Nothing If Session.Item("SupplierID") Is Nothing Then Response.Redirect("listproduct.aspx") Exit Sub End If AddAttributes() ' add javascript for numeric fillTypeOfOrganization() ' fill organization type in dropdownlist fillyear() ' fill Year ddl fillTypeOfBusiness() ' fill type of business ddl fillWeekelyHoliday() ' fill weekly holiday ddl fillTimeFrom() ' fill timefrom ddl fillTimeTo() ' fill timeto ddl If Session("AdminID") <> Nothing Or Session("AdminID") = Nothing Then ' check for admin btnUpdate.Visible = True EnableControls(True) FileUpload1.Visible = True 'ImageButton4.Visible = True imgiso.Visible = True Else btnUpdate.Visible = False End If LoadData() ' get existing value if any for this perticular supplierID End If btnUpdate.Attributes.Add("onclick", "return UpdateMsg();") lblError.Visible = False End Sub Private Sub fillTimeFrom() ' from time fillup Fill_Time(ddlFromHour, ddlFromMinute, ddlFromAmPm) ddlFromHour.ClearSelection() ddlFromMinute.ClearSelection() ddlFromAmPm.ClearSelection() End Sub Private Sub fillTimeTo() ' to time fillup Fill_Time(ddlToHour, ddlToMinute, ddlToAmPm) ddlToHour.ClearSelection() ddlToMinute.ClearSelection() ddlToAmPm.ClearSelection() End Sub Private Sub AddAttributes() ' add javascripts for numeric txtFaxCC.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtFaxCity.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtFaxNo.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtUSDY2.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtUSDY3.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtOfficeStrength.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") txtFactoryStrength.Attributes.Add("onkeypress", "return blockNonNumbers(this,event,false,false);") End Sub Private Sub fillWeekelyHoliday() ' weekly holiday fill up 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() ' type of organization fill up ddlTypeOfOrganization.Items.Add("Select") ddlTypeOfOrganization.Items.Add("Ltd.") ddlTypeOfOrganization.Items.Add("Pvt Ltd.") ddlTypeOfOrganization.Items.Add("PartnerShip") ddlTypeOfOrganization.SelectedIndex = 0 End Sub Private Sub fillTypeOfBusiness() ' type of business fill up ddlTypeOfBusiness.Items.Add("Select") ddlTypeOfBusiness.Items.Add("Manufacturer") ddlTypeOfBusiness.Items.Add("Distributor") ddlTypeOfBusiness.Items.Add("Supplier") ddlTypeOfBusiness.Items.Add("Trader") ddlTypeOfBusiness.Items.Add("Dealer") ddlTypeOfBusiness.SelectedIndex = 0 End Sub Private Sub fillyear() ' fill year combo 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 Protected Sub BtnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSave.Click Dim file_name As String = "" If CheckValid() = True Then Dim temp1 As String Dim temp2 As String If ddlToHour.SelectedIndex = 0 AndAlso ddlToMinute.SelectedIndex = 0 AndAlso ddlToAmPm.SelectedIndex = 0 _ AndAlso ddlFromAmPm.SelectedIndex = 0 AndAlso ddlFromHour.SelectedIndex = 0 AndAlso ddlFromAmPm.SelectedIndex = 0 Then ' check whether proper time is selected or not temp1 = "00" & ":" & "00" & ":00" temp2 = "00" & ":" & "00" & ":00" ElseIf ddlToHour.SelectedIndex = 0 Or ddlToMinute.SelectedIndex = 0 Or ddlToAmPm.SelectedIndex = 0 _ AndAlso ddlFromAmPm.SelectedIndex = 0 Or ddlFromHour.SelectedIndex = 0 Or ddlFromAmPm.SelectedIndex = 0 Then lblError.Visible = True lblError.Text = "Select proper working hours !!" Exit Sub Else temp1 = ddlFromHour.SelectedValue & ":" & ddlFromMinute.SelectedValue & ":00" & ddlFromAmPm.SelectedValue temp2 = ddlToHour.SelectedValue & ":" & ddlToMinute.SelectedValue & ":00" & ddlToAmPm.SelectedValue End If lblError.Visible = False Dim cmd As New Data.SqlClient.SqlCommand() Dim sqlcoll As Data.SqlClient.SqlParameterCollection = cmd.Parameters sqlcoll.Clear() sqlcoll.Add("@Supplier_Kid", Data.SqlDbType.NVarChar, 10).Value = Session.Item("SupplierID").ToString.Trim sqlcoll.Add("@Supplier_FaxCountryCode", Data.SqlDbType.NVarChar, 15).Value = txtFaxCC.Text.Trim sqlcoll.Add("@Supplier_FaxCityCode", Data.SqlDbType.NVarChar, 10).Value = txtFaxCity.Text.Trim sqlcoll.Add("@Supplier_FaxNo", Data.SqlDbType.NVarChar, 10).Value = txtFaxNo.Text.Trim ' Remove Paremeter From Here --------------------------------->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> sqlcoll.Add("@Supplier_TypeOfOrganisation", Data.SqlDbType.NVarChar, 50).Value = ddlTypeOfOrganization.SelectedValue.Trim sqlcoll.Add("@Supplier_YearOfEstablish", Data.SqlDbType.Int).Value = Convert.ToInt32(ddlYearOfEstablishment.SelectedValue.Trim) sqlcoll.Add("@Supplier_TypeOfBusiness", Data.SqlDbType.NVarChar, 50).Value = ddlTypeOfBusiness.SelectedValue.Trim sqlcoll.Add("@Supplier_PanNo", Data.SqlDbType.NVarChar, 50).Value = txtpanno.Text sqlcoll.Add("@Supplier_ImportExportCode", Data.SqlDbType.NVarChar, 50).Value = txtiecode.Text If FileUpload1.HasFile Then If Path.GetExtension(FileUpload1.FileName) = ".pdf" Or Path.GetExtension(FileUpload1.FileName) = ".jpg" Or Path.GetExtension(FileUpload1.FileName) = ".gif" Then Dim folderpath As String = Server.MapPath("~/Upload Image/Product Image/UploadImages/") file_name = Final_FileUpload(FileUpload1, i, folderpath) sqlcoll.Add("@Supplier_QualityCertificate", Data.SqlDbType.NVarChar, 100).Value = Trim(file_name) 'Image_upload1(FileUpload1, "~\SupplierImage\QualityCertitficate\" & FileUpload1.FileName) End If Else sqlcoll.Add("@Supplier_QualityCertificate", Data.SqlDbType.NVarChar, 100).Value = "" End If sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Update" 'strMode.Trim ExecQuery("SupplierApp2_Master_Proc", sqlcoll) sqlcoll.Clear() sqlcoll.Add("@Supplier_Kid", Data.SqlDbType.NVarChar, 10).Value = Session.Item("SupplierID").ToString.Trim sqlcoll.Add("@Supplier_TurnOver04_05", Data.SqlDbType.Decimal, 18, 2).Value = 0 If txtUSDY2.Text.Trim.Length = 0 Then sqlcoll.Add("@Supplier_TurnOver05_06", Data.SqlDbType.Decimal, 18, 2).Value = 0 Else sqlcoll.Add("@Supplier_TurnOver05_06", Data.SqlDbType.Decimal, 18, 2).Value = Convert.ToDecimal(txtUSDY2.Text.Trim) End If If txtUSDY3.Text.Trim.Length = 0 Then sqlcoll.Add("@Supplier_TurnOver06_07", Data.SqlDbType.Decimal, 18, 2).Value = 0 Else sqlcoll.Add("@Supplier_TurnOver06_07", Data.SqlDbType.Decimal, 18, 2).Value = Convert.ToDecimal(txtUSDY3.Text.Trim) End If ' Remove Paremeter From Here --------------------------------->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> sqlcoll.Add("@Supplier_MajorMarket", Data.SqlDbType.NVarChar, 100).Value = txtMajorMarket.Text.Trim If txtOfficeStrength.Text.Trim.Length = 0 Then sqlcoll.Add("@Supplier_TotalOfficeStrength", Data.SqlDbType.Int).Value = 0 Else sqlcoll.Add("@Supplier_TotalOfficeStrength", Data.SqlDbType.Int).Value = Convert.ToInt32(txtOfficeStrength.Text.Trim) End If If txtFactoryStrength.Text.Trim.Length = 0 Then sqlcoll.Add("@Supplier_TotalFactoryStrength", Data.SqlDbType.Int).Value = 0 Else sqlcoll.Add("@Supplier_TotalFactoryStrength", Data.SqlDbType.Int).Value = Convert.ToInt32(txtFactoryStrength.Text.Trim) End If sqlcoll.Add("@Supplier_WeeklyHoliday", Data.SqlDbType.NVarChar, 10).Value = ddlWeekelyHoliday.SelectedValue.Trim sqlcoll.Add("@Supplier_FromWorkingHr", Data.SqlDbType.DateTime).Value = Format$(Convert.ToDateTime(temp1), "") sqlcoll.Add("@Supplier_toWorkingHr", Data.SqlDbType.DateTime).Value = Format$(Convert.ToDateTime(temp2), "") sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Update" 'strMode.Trim ExecQuery("SupplierApp3_Master_Proc", sqlcoll) Response.Redirect("MediaAdvertising.aspx") End If End Sub Private Function CheckValid() As Boolean lblError.Visible = True If ddlYearOfEstablishment.SelectedIndex = 0 Then lblError.Text = "Select Year of Establishment !!" Return False Exit Function ElseIf ddlTypeOfBusiness.SelectedIndex = 0 Then lblError.Text = "Select Type Of Business !!" Return False Exit Function ElseIf ddlTypeOfOrganization.SelectedIndex = 0 Then lblError.Text = "Select Type Of Organization !!" Return False Exit Function ElseIf txtMajorMarket.Text.Trim.Length = 0 Then lblError.Text = "Enter Major Market !!" Return False Exit Function End If Return True End Function Private Sub LoadData() Dim dt As Data.DataTable = getTable("select * from Supplier_Master where Supplier_Kid='" & Session.Item("SupplierID").Trim & "'", "MD") ' if existing value get then disply it in ddl and txt other wise not If dt.Rows.Count > 0 Then btnUpdate.Visible = False If dt.Rows(0).Item("Supplier_MajorMarket").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_MajorMarket").ToString.Trim = " " Then Exit Sub End If If dt.Rows(0).Item("Supplier_FaxCountryCode").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_FaxCountryCode").ToString.Trim = " " Then txtFaxCC.Text = "" Else txtFaxCC.Text = dt.Rows(0).Item("Supplier_FaxCountryCode").ToString.Trim End If If dt.Rows(0).Item("Supplier_FaxCityCode").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_FaxCityCode").ToString.Trim = " " Then txtFaxCity.Text = "" Else txtFaxCity.Text = dt.Rows(0).Item("Supplier_FaxCityCode").ToString.Trim End If If dt.Rows(0).Item("Supplier_FaxNo").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_FaxNo").ToString.Trim = " " Then txtFaxNo.Text = "" Else txtFaxNo.Text = dt.Rows(0).Item("Supplier_FaxNo").ToString.Trim End If If dt.Rows(0).Item("Supplier_PanNo").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_PanNo").ToString.Trim = " " Then txtpanno.Text = "" Else txtpanno.Text = dt.Rows(0).Item("Supplier_PanNo").ToString.Trim End If If dt.Rows(0).Item("Supplier_ImportExportCode").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_ImportExportCode").ToString.Trim = " " Then txtiecode.Text = "" Else txtiecode.Text = dt.Rows(0).Item("Supplier_ImportExportCode").ToString.Trim End If If dt.Rows(0).Item("Supplier_TurnOver05_06").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_TurnOver05_06").ToString.Trim = " " Then txtUSDY2.Text = "0.00" Else txtUSDY2.Text = dt.Rows(0).Item("Supplier_TurnOver05_06").ToString.Trim End If If dt.Rows(0).Item("Supplier_TurnOver06_07").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_TurnOver06_07").ToString.Trim = " " Then txtUSDY3.Text = "0.00" Else txtUSDY3.Text = dt.Rows(0).Item("Supplier_TurnOver06_07").ToString.Trim End If If dt.Rows(0).Item("Supplier_MajorMarket").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_MajorMarket").ToString.Trim = " " Then txtMajorMarket.Text = "" Else txtMajorMarket.Text = dt.Rows(0).Item("Supplier_MajorMarket").ToString.Trim End If If dt.Rows(0).Item("Supplier_TotalOfficeStrength").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_TotalOfficeStrength").ToString.Trim = " " Then txtOfficeStrength.Text = "0" Else txtOfficeStrength.Text = dt.Rows(0).Item("Supplier_TotalOfficeStrength").ToString.Trim End If If dt.Rows(0).Item("Supplier_TotalFactoryStrength").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_TotalFactoryStrength").ToString.Trim = " " Then txtFactoryStrength.Text = "0" Else txtFactoryStrength.Text = dt.Rows(0).Item("Supplier_TotalFactoryStrength").ToString.Trim End If Try ddlWeekelyHoliday.Text = dt.Rows(0).Item("Supplier_WeeklyHoliday") Catch ex As Exception ddlWeekelyHoliday.ClearSelection() End Try Try ddlTypeOfOrganization.Text = dt.Rows(0).Item("Supplier_TypeOfOrganisation") Catch ex As Exception ddlTypeOfOrganization.ClearSelection() End Try Try ddlYearOfEstablishment.Text = dt.Rows(0).Item("Supplier_YearOfEstablish") Catch ex As Exception ddlYearOfEstablishment.ClearSelection() End Try Try ddlTypeOfBusiness.Text = dt.Rows(0).Item("Supplier_TypeOfBusiness") Catch ex As Exception ddlTypeOfBusiness.ClearSelection() End Try If dt.Rows(0).Item("Supplier_QualityCertificate").ToString.Trim = "" Or dt.Rows(0).Item("Supplier_QualityCertificate").ToString.Trim = " " Then lblQC.Visible = True lblQC.Text = "No ISO Certificate Uploaded " hyplnkQC.Visible = False FileUpload1.Visible = True 'ImageButton4.Visible = True imgiso.Visible = True Else 'ImageButton4.Visible = False imgiso.Visible = True hyplnkQC.Visible = True hyplnkQC.Text = dt.Rows(0).Item("Supplier_QualityCertificate") hyplnkQC.NavigateUrl = "~\Upload Image\Product Image\UploadImages\" & dt.Rows(0).Item("Supplier_QualityCertificate") FileUpload1.Visible = True lblQC.Visible = False End If 'If IsDBNull(dt.Rows(0).Item("Supplier_FromWorkingHr")) And dt.Rows(0).Item("Supplier_FromWorkingHr").ToString() = "" Then 'Else Try If IsDBNull(dt.Rows(0).Item("Supplier_FromWorkingHr")) Then ddlFromAmPm.ClearSelection() ddlFromHour.ClearSelection() ddlFromMinute.ClearSelection() Else ddlFromHour.Items.FindByText(Format$(Convert.ToDateTime(dt.Rows(0).Item("Supplier_FromWorkingHr")), "hh")).Selected = True 'Dim str As String 'str = Format$(Convert.ToDateTime(dt.Rows(0).Item("Supplier_FromWorkingHr")), "mm") ddlFromMinute.Items.FindByText(Format$(Convert.ToDateTime(dt.Rows(0).Item("Supplier_FromWorkingHr")), "mm")).Selected = True ddlFromAmPm.Items.FindByText(Format$(Convert.ToDateTime(dt.Rows(0).Item("Supplier_FromWorkingHr")), "tt")).Selected = True End If Catch ex As Exception ddlFromAmPm.ClearSelection() ddlFromHour.ClearSelection() ddlFromMinute.ClearSelection() End Try Try If IsDBNull(dt.Rows(0).Item("Supplier_ToWorkingHr")) Then ddlToAmPm.ClearSelection() ddlToHour.ClearSelection() ddlToMinute.ClearSelection() Else ddlToHour.Items.FindByText(Format$(Convert.ToDateTime(dt.Rows(0).Item("Supplier_ToWorkingHr")), "hh")).Selected = True ddlToMinute.Items.FindByText(Format$(Convert.ToDateTime(dt.Rows(0).Item("Supplier_ToWorkingHr")), "mm")).Selected = True ddlToAmPm.Items.FindByText(Format$(Convert.ToDateTime(dt.Rows(0).Item("Supplier_ToWorkingHr")), "tt")).Selected = True End If Catch ex As Exception ddlToAmPm.ClearSelection() ddlToHour.ClearSelection() ddlToMinute.ClearSelection() End Try ' End If EnableControls(True) BtnSave.Visible = False btnUpdate.Visible = True Else btnUpdate.Visible = False EnableControls(True) BtnSave.Visible = True End If End Sub Private Sub EnableControls(ByVal bool As Boolean) txtFaxCC.Enabled = bool txtFaxCity.Enabled = bool txtFaxNo.Enabled = bool txtUSDY2.Enabled = bool txtpanno.Enabled = bool txtiecode.Enabled = bool txtUSDY3.Enabled = bool txtMajorMarket.Enabled = bool txtOfficeStrength.Enabled = bool txtFactoryStrength.Enabled = bool ddlTypeOfOrganization.Enabled = bool ddlYearOfEstablishment.Enabled = bool ddlTypeOfBusiness.Enabled = bool ddlWeekelyHoliday.Enabled = bool ddlFromAmPm.Enabled = bool ddlFromHour.Enabled = bool ddlFromMinute.Enabled = bool ddlToAmPm.Enabled = bool ddlToHour.Enabled = bool ddlToMinute.Enabled = bool End Sub Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click ' in case of update for admin login Dim file_name As String = "" Dim strIP As String = Request.UserHostAddress() If CheckValid() = True Then Dim temp1 As String Dim temp2 As String If ddlToHour.SelectedIndex = 0 AndAlso ddlToMinute.SelectedIndex = 0 AndAlso ddlToAmPm.SelectedIndex = 0 _ AndAlso ddlFromAmPm.SelectedIndex = 0 AndAlso ddlFromHour.SelectedIndex = 0 AndAlso ddlFromAmPm.SelectedIndex = 0 Then temp1 = "00" & ":" & "00" & ":00" temp2 = "00" & ":" & "00" & ":00" ElseIf ddlToHour.SelectedIndex = 0 Or ddlToMinute.SelectedIndex = 0 Or ddlToAmPm.SelectedIndex = 0 _ AndAlso ddlFromAmPm.SelectedIndex = 0 Or ddlFromHour.SelectedIndex = 0 Or ddlFromAmPm.SelectedIndex = 0 Then lblError.Visible = True lblError.Text = "Select proper working hours !!" 'Exit Sub Else temp1 = ddlFromHour.SelectedValue & ":" & ddlFromMinute.SelectedValue & ":00" & ddlFromAmPm.SelectedValue temp2 = ddlToHour.SelectedValue & ":" & ddlToMinute.SelectedValue & ":00" & ddlToAmPm.SelectedValue End If lblError.Visible = False Dim test1, test2 As DateTime test1 = Format$(Convert.ToDateTime(temp1), "") test2 = Format$(Convert.ToDateTime(temp2), "") Dim cmd As New Data.SqlClient.SqlCommand() Dim sqlcoll As Data.SqlClient.SqlParameterCollection = cmd.Parameters sqlcoll.Clear() sqlcoll.Add("@Supplier_Kid", Data.SqlDbType.NVarChar, 10).Value = Session.Item("SupplierID").ToString.Trim sqlcoll.Add("@Supplier_FaxCountryCode", Data.SqlDbType.NVarChar, 15).Value = txtFaxCC.Text.Trim sqlcoll.Add("@Supplier_FaxCityCode", Data.SqlDbType.NVarChar, 10).Value = txtFaxCity.Text.Trim sqlcoll.Add("@Supplier_FaxNo", Data.SqlDbType.NVarChar, 10).Value = txtFaxNo.Text.Trim ' Remove Paremeter From Here --------------------------------->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> sqlcoll.Add("@Supplier_TypeOfOrganisation", Data.SqlDbType.NVarChar, 50).Value = ddlTypeOfOrganization.SelectedValue.Trim sqlcoll.Add("@Supplier_YearOfEstablish", Data.SqlDbType.Int).Value = Convert.ToInt32(ddlYearOfEstablishment.SelectedValue.Trim) sqlcoll.Add("@Supplier_TypeOfBusiness", Data.SqlDbType.NVarChar, 50).Value = ddlTypeOfBusiness.SelectedValue.Trim sqlcoll.Add("@Supplier_PanNo", Data.SqlDbType.NVarChar, 50).Value = txtpanno.Text sqlcoll.Add("@Supplier_ImportExportCode", Data.SqlDbType.NVarChar, 50).Value = txtiecode.Text If FileUpload1.HasFile Then If Path.GetExtension(FileUpload1.FileName) = ".pdf" Or Path.GetExtension(FileUpload1.FileName) = ".jpg" Or Path.GetExtension(FileUpload1.FileName) = ".gif" Then Dim folderpath As String = Server.MapPath("~/Upload Image/Product Image/UploadImages/") file_name = Final_FileUpload(FileUpload1, i, folderpath) sqlcoll.Add("@Supplier_QualityCertificate", Data.SqlDbType.NVarChar, 100).Value = Trim(file_name) Else CreateMessageAlert(Me, "Select Proper File.", "StrKeyVal") Exit Sub End If Else 'If hyplnkQC.Text = "" Then ' sqlcoll.Add("@Supplier_QualityCertificate", Data.SqlDbType.NVarChar, 100).Value = "" 'Else ' sqlcoll.Add("@Supplier_QualityCertificate", Data.SqlDbType.NVarChar, 100).Value = hyplnkQC.Text.ToString() 'End If sqlcoll.Add("@Supplier_QualityCertificate", Data.SqlDbType.NVarChar, 100).Value = hyplnkQC.Text.ToString() End If sqlcoll.Add("@Supplier_ClientIP", Data.SqlDbType.NVarChar, 50).Value = strIP sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Update" 'strMode.Trim ExecQuery("SupplierApp2_Master_Proc", sqlcoll) sqlcoll.Clear() sqlcoll.Add("@Supplier_Kid", Data.SqlDbType.NVarChar, 10).Value = Session.Item("SupplierID").ToString.Trim sqlcoll.Add("@Supplier_TurnOver04_05", Data.SqlDbType.Decimal, 18, 2).Value = 0 If txtUSDY2.Text.Trim.Length = 0 Then sqlcoll.Add("@Supplier_TurnOver05_06", Data.SqlDbType.Decimal, 18, 2).Value = 0 Else sqlcoll.Add("@Supplier_TurnOver05_06", Data.SqlDbType.Decimal, 18, 2).Value = Convert.ToDecimal(txtUSDY2.Text.Trim) End If If txtUSDY3.Text.Trim.Length = 0 Then sqlcoll.Add("@Supplier_TurnOver06_07", Data.SqlDbType.Decimal, 18, 2).Value = 0 Else sqlcoll.Add("@Supplier_TurnOver06_07", Data.SqlDbType.Decimal, 18, 2).Value = Convert.ToDecimal(txtUSDY3.Text.Trim) End If ' Remove Paremeter From Here --------------------------------->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> sqlcoll.Add("@Supplier_MajorMarket", Data.SqlDbType.NVarChar, 100).Value = txtMajorMarket.Text.Trim If txtOfficeStrength.Text.Trim.Length = 0 Then sqlcoll.Add("@Supplier_TotalOfficeStrength", Data.SqlDbType.Int).Value = 0 Else sqlcoll.Add("@Supplier_TotalOfficeStrength", Data.SqlDbType.Int).Value = Convert.ToInt32(txtOfficeStrength.Text.Trim) End If If txtFactoryStrength.Text.Trim.Length = 0 Then sqlcoll.Add("@Supplier_TotalFactoryStrength", Data.SqlDbType.Int).Value = 0 Else sqlcoll.Add("@Supplier_TotalFactoryStrength", Data.SqlDbType.Int).Value = Convert.ToInt32(txtFactoryStrength.Text.Trim) End If sqlcoll.Add("@Supplier_WeeklyHoliday", Data.SqlDbType.NVarChar, 10).Value = ddlWeekelyHoliday.SelectedValue.Trim sqlcoll.Add("@Supplier_FromWorkingHr", Data.SqlDbType.DateTime).Value = test1 sqlcoll.Add("@Supplier_toWorkingHr", Data.SqlDbType.DateTime).Value = test2 sqlcoll.Add("@Supplier_ClientIP", Data.SqlDbType.NVarChar, 50).Value = strIP sqlcoll.Add("@Mode", Data.SqlDbType.Char, 15).Value = "Update" ExecQuery("SupplierApp3_Master_Proc", sqlcoll) 'CreateMessageAlert(Me, "Record is Updated Successfully.", "StrKeyVal") Response.Redirect("MediaAdvertising.aspx") End If End Sub Protected Sub BtnSkip_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSkip.Click Response.Redirect("MediaAdvertising.aspx") End Sub End Class