Imports System.Data.SqlClient Imports System.Data Partial Class MediaAdvertising Inherits System.Web.UI.Page Shared g_User As String Shared g_Company As String Shared g_FinYear As String Shared mode As String Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Try If Session("SupplierID") Is Nothing And Session("AdminID") = Nothing Then ' Dim str As String = "" Response.Redirect("listproduct.aspx?sess=expire") Exit Sub End If If Not IsPostBack Then txt_emacompany.Focus() 'Lblpnl.Text = "" Session("ProductID") = Nothing If Session("SupplierID") Is Nothing Then ' check whether supplier is loged in or not Response.Redirect("listproduct.aspx") Exit Sub End If 'g_User = Session("g_User").ToString 'g_Company = Session("g_Company").ToString 'g_FinYear = Session("g_FinYear").ToString 'BtnSave.Attributes.Add("onclick", "JavaScript:if(Hello()){return true;}else{return false;}") txt_dsale.Attributes.Add("onkeypress", "return numbersonly(event)") ' numeric restrication txt_emedia.Attributes.Add("onkeypress", "return numbersonly(event)") txt_pmedia.Attributes.Add("onkeypress", "return numbersonly(event)") If Session("AdminID") <> Nothing Or Session("AdminID") = Nothing Then ' check whether admin login or not btnUpdate.Visible = True enablecontrol(True) btnSkip.Visible = True BtnSave.Visible = False Else btnUpdate.Visible = False End If getExistingData() ' get existing value if any End If lblMsg.Text = "" If rb1.Checked = True Then If Pmedia.Checked = True Then Label5.Visible = True chkPMutilised.Visible = True Else Label5.Visible = False chkPMutilised.Visible = False End If If Emedia.Checked = True Then Label4.Visible = True chkEMutilised.Visible = True Else Label4.Visible = False chkEMutilised.Visible = False End If End If If rb2.Checked = True Then Label5.Visible = False Label4.Visible = False chkPMutilised.Visible = False chkEMutilised.Visible = False End If Catch Ex As Exception CreateMessageAlert(Me, Ex.Message, "StrKeyVal") End Try ' pnl.Visible = False End Sub Public Sub enablecontrol(ByVal action As Boolean) Emedia.Enabled = action Pmedia.Enabled = action rb1.Enabled = action rb2.Enabled = action txt_dsale.Enabled = action txt_emacompany.Enabled = action txt_emedia.Enabled = action txt_pmedia.Enabled = action txtMACode.Enabled = action txtMAKid.Enabled = action chkDirectSalea.Enabled = action chkEMutilised.Enabled = action chkPMutilised.Enabled = action End Sub Protected Sub rb2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rb2.CheckedChanged ControlsVisible(False) End Sub Protected Sub rb1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rb1.CheckedChanged ControlsVisible(True) End Sub Private Sub ControlsVisible(ByVal bool As Boolean) 'lblMACode.Visible = bool 'txtMACode.Visible = bool 'chkEMutilised.Visible = False 'chkPMutilised.Visible = False TR1.Visible = bool TR2.Visible = bool TR3.Visible = bool TR1.Visible = bool TR1.Visible = bool Label33.Visible = bool chkDirectSalea.Visible = bool Label9.Visible = bool Label10.Visible = bool Label11.Visible = bool txt_pmedia.Visible = bool txt_emedia.Visible = bool txt_dsale.Visible = bool Emedia.Visible = bool Pmedia.Visible = bool Label33.Visible = bool Label12.Visible = bool Label13.Visible = bool Label14.Visible = bool Label6.Visible = bool txt_emacompany.Visible = bool ' Label7.Visible = bool ' Label8.Visible = bool Label3.Visible = bool 'Label4.Visible = bool 'Label5.Visible = bool End Sub Private Sub getExistingData() Dim dt As DataTable = getTable("Select * from MediaAdvertising where MediaAdvertising_SupplierId='" & Session("SupplierID").Trim & "' and MediaAdvertising_IsDeleted='0' and MediaAdvertising_CompanyID='" & Session("g_Company").ToString.Trim & "'", "MA") If dt.Rows.Count > 0 Then Dim strValue As String = "" txtMAKid.Text = dt.Rows(0).Item("MediaAdvertising_Kid").ToString txtMACode.Text = dt.Rows(0).Item("MediaAdvertising_Code").ToString If dt.Rows(0).Item("MediaAdvertising_IsAdInMedia").ToString() = "N" Then rb2.Checked = True rb1.Checked = False ControlsVisible(False) Else txt_emacompany.Text = dt.Rows(0).Item("MediaAdvertising_MediaAgency").ToString txt_pmedia.Text = dt.Rows(0).Item("MediaAdvertising_PrintMediaBudget").ToString txt_emedia.Text = dt.Rows(0).Item("MediaAdvertising_ElectronicMediabudget").ToString txt_dsale.Text = dt.Rows(0).Item("MediaAdvertising_DirectSalesBudget").ToString strValue = dt.Rows(0).Item("MediaAdvertising_DirectSaleMedia").ToString If strValue.Contains("Snail") = True AndAlso strValue.Contains("E-mailers") = True AndAlso _ strValue.Contains("Exhibition") = True AndAlso strValue.Contains("Catalogue") = True Then chkDirectSalea.Items(0).Selected = True chkDirectSalea.Items(1).Selected = True chkDirectSalea.Items(2).Selected = True chkDirectSalea.Items(3).Selected = True Else If strValue.Contains("Snail") = True Then chkDirectSalea.Items(1).Selected = True Else chkDirectSalea.Items(1).Selected = False End If If strValue.Contains("E-mailers") = True Then chkDirectSalea.Items(2).Selected = True Else chkDirectSalea.Items(2).Selected = False End If If strValue.Contains("Exhibition") = True Then chkDirectSalea.Items(3).Selected = True Else chkDirectSalea.Items(3).Selected = False End If If strValue.Contains("Catalogue") = True Then chkDirectSalea.Items(0).Selected = True Else chkDirectSalea.Items(0).Selected = False End If End If strValue = dt.Rows(0).Item("MediaAdvertising_MediaType").ToString If strValue.Contains("Electronic") = True AndAlso strValue.Contains("Print") = True Then Emedia.Checked = True Pmedia.Checked = True chkEMutilised.Visible = True chkPMutilised.Visible = True ElseIf strValue.Contains("Print") = True Then Pmedia.Checked = True chkEMutilised.Visible = False chkPMutilised.Visible = True ElseIf strValue.Contains("Electronic") = True Then Emedia.Checked = True chkEMutilised.Visible = True chkPMutilised.Visible = False End If strValue = dt.Rows(0).Item("MediaAdvertising_ElectronicMedia").ToString If strValue.Contains("Radio") = True AndAlso strValue.Contains("Television") = True AndAlso _ strValue.Contains("Internet") = True Then chkEMutilised.Items(0).Selected = True chkEMutilised.Items(1).Selected = True chkEMutilised.Items(2).Selected = True Else If strValue.Contains("Radio") = True Then chkEMutilised.Items(0).Selected = True Else chkEMutilised.Items(0).Selected = False End If If strValue.Contains("Television") = True Then chkEMutilised.Items(1).Selected = True Else chkEMutilised.Items(1).Selected = False End If If strValue.Contains("Internet") = True Then chkEMutilised.Items(2).Selected = True Else chkEMutilised.Items(2).Selected = False End If End If strValue = dt.Rows(0).Item("MediaAdvertising_PrintMedia").ToString If strValue.Contains("News") = True AndAlso strValue.Contains("Product") = True AndAlso _ strValue.Contains("magazine") = True AndAlso strValue.Contains("Outdoor") = True AndAlso _ strValue.Contains("Industrial") = True AndAlso strValue.Contains("Business") = True Then chkPMutilised.Items(0).Selected = True chkPMutilised.Items(1).Selected = True chkPMutilised.Items(2).Selected = True chkPMutilised.Items(3).Selected = True chkPMutilised.Items(4).Selected = True chkPMutilised.Items(5).Selected = True Else If strValue.Contains("News") = True Then chkPMutilised.Items(0).Selected = True Else chkPMutilised.Items(0).Selected = False End If If strValue.Contains("magazine") = True Then chkPMutilised.Items(1).Selected = True Else chkPMutilised.Items(1).Selected = False End If If strValue.Contains("Product") = True Then chkPMutilised.Items(2).Selected = True Else chkPMutilised.Items(2).Selected = False End If If strValue.Contains("Business") = True Then chkPMutilised.Items(3).Selected = True Else chkPMutilised.Items(3).Selected = False End If If strValue.Contains("Industrial") = True Then chkPMutilised.Items(4).Selected = True Else chkPMutilised.Items(4).Selected = False End If If strValue.Contains("Outdoor") = True Then chkPMutilised.Items(5).Selected = True Else chkPMutilised.Items(5).Selected = False End If End If End If enablecontrol(True) btnSave.Visible = False mode = "Update" Else enablecontrol(True) GenerateMediaAdvertisingCode() btnUpdate.Visible = False btnSave.Visible = True mode = "Insert" End If dt = Nothing End Sub 'Protected Sub BtnChangeRequestCategorySave_Click(ByVal sender As Object, ByVal e As System.EventArgs) ' Try ' Dim qry As String ' Dim Con As New SqlConnection ' Dim cmd As New SqlCommand ' Dim key As String ' Dim code As String ' Dim mediatype As String ' Dim ElectronicMedia As String ' Dim PrintMedia As String ' 'Dim MediaAgency As String ' Dim DirectSaleMedia As String ' Dim IsAdInMedia As String ' Dim i As Integer ' Dim j As Integer ' Con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") 'Read the ConnectionString from web.config File ' If rb1.Checked = True Then ' IsAdInMedia = "Y" ' Else ' IsAdInMedia = "N" ' End If ' If rb1.Checked = True Then ' If txt_emacompany.Text = "" Then ' CreateMessageAlert(Me, "Enter Media Agency Name", "StrKeyVal") ' txt_emacompany.Focus() ' Exit Sub ' End If ' If txt_emedia.Text = "" Then ' CreateMessageAlert(Me, "Direct Sale Media can not be Null", "StrKeyVal") ' txt_emedia.Focus() ' Exit Sub ' End If ' If txt_dsale.Text = "" Then ' CreateMessageAlert(Me, "Electronic Media can not be Null", "StrKeyVal") ' txt_dsale.Focus() ' Exit Sub ' End If ' If txt_pmedia.Text = "" Then ' CreateMessageAlert(Me, "Print MEdia can not be Null", "StrKeyVal") ' txt_pmedia.Focus() ' Exit Sub ' End If ' ' CreateMessageAlert(Me, "Name can not be null", "StrKeyVal") ' ' Exit Sub ' 'End If ' 'If IsAlreadyPresent("select count(*) FROM ChangeRequestCategory where ChangeRequestCategory_Code='" & txtChangeRequestCategoryCode.Text.Trim & "'and ChangeRequestCategory_IsDeleted='0' and ChangeRequestCategory_CompanyId='" & g_Company & "'") Then ' ' CreateMessageAlert(Me, "Name is already exist", "StrKeyVal") ' ' Exit Sub ' 'End If ' 'j = 3 ' 'For i = 1 To j ' 'ElectronicMedia = "" ' 'PrintMedia = "" ' 'DirectSaleMedia = "" ' 'mediatype = "" ' Call EleMediaType(chkEMutilised, ElectronicMedia) ' 'Next i ' 'j = 5 ' 'For i = 1 To j ' Call EleMediaType(chkPMutilised, PrintMedia) ' 'Next i ' 'j = 3 ' 'For i = 1 To j ' Call EleMediaType(chkDirectSalea, DirectSaleMedia) ' 'Next i ' If Emedia.Checked Then ' If mediatype <> "" Then ' mediatype = mediatype & "," & Emedia.Text ' Else ' mediatype = Emedia.Text ' End If ' End If ' If Pmedia.Checked Then ' If mediatype <> "" Then ' mediatype = mediatype & "," & Pmedia.Text ' Else ' mediatype = Pmedia.Text ' End If ' End If ' End If ' cmd.Connection = Con ' cmd.CommandText = "MediaAdvertising_Proc" ' cmd.CommandType = CommandType.StoredProcedure ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_Kid", SqlDbType.NVarChar)).Value = txtMAKid.Text.Trim ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_Code", SqlDbType.NVarChar)).Value = txtMACode.Text.Trim ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_SupplierId", SqlDbType.NVarChar)).Value = Session("SupplierID").ToString ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_IsAdInMedia", SqlDbType.NVarChar)).Value = IsAdInMedia ' If rb1.Checked = True Then ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_MediaType", SqlDbType.NVarChar)).Value = mediatype ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_ElectronicMedia", SqlDbType.NVarChar)).Value = ElectronicMedia ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_PrintMedia", SqlDbType.NVarChar)).Value = PrintMedia ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_MediaAgency", SqlDbType.NVarChar)).Value = txt_emacompany.Text ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_DirectSaleMedia", SqlDbType.NVarChar)).Value = DirectSaleMedia ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_PrintMediaBudget", SqlDbType.Int)).Value = Convert.ToInt32(txt_pmedia.Text) ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_ElectronicMediabudget", SqlDbType.Int)).Value = Convert.ToInt32(txt_emedia.Text) ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_DirectSalesBudget", SqlDbType.Int)).Value = Convert.ToInt32(txt_dsale.Text) ' End If ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_FinancialYearId", SqlDbType.NVarChar)).Value = Trim(Session("g_FinYear").ToString) ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_CompanyId", SqlDbType.NVarChar)).Value = Trim(Session("g_Company").ToString) ' cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_UserId", SqlDbType.NVarChar)).Value = Trim(Session("g_User").ToString) ' cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 100)).Value = "Media Advertising" ' cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.NVarChar, 50)).Value = "Insert" ' Con.Open() ' cmd.ExecuteNonQuery() ' Con.Close() ' 'ClearFields() ' pnl.Visible = True ' 'Response.Redirect("list_product.aspx") ' 'UnLockTextBox(False) ' Catch Ex As Exception ' CreateMessageAlert(Me, Ex.Message, "StrKeyVal") ' End Try 'End Sub Protected Sub GenerateMediaAdvertisingCode() Try Dim i As String Dim qry As String Dim code As String txtMAKid.Text = NewPrimaryKey(Me) i = "1" i = Format(Val(i), "000") While True code = "MA" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & i qry = "select count(*) from MediaAdvertising where MediaAdvertising_Code='" & code & "'" If IsAlreadyPresent(qry) Then i = Val(i) + 1 i = Format(Val(i), "000") Else txtMACode.Text = 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 Emedia_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Emedia.CheckedChanged Try If Emedia.Checked = True Then Label4.Visible = True chkEMutilised.Visible = True Else Label4.Visible = False chkEMutilised.Visible = False End If Catch Ex As Exception CreateMessageAlert(Me, Ex.Message, "StrKeyVal") End Try End Sub Protected Sub Pmedia_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Pmedia.CheckedChanged Try If Pmedia.Checked = True Then Label5.Visible = True chkPMutilised.Visible = True Else Label5.Visible = False chkPMutilised.Visible = False End If Catch Ex As Exception CreateMessageAlert(Me, Ex.Message, "StrKeyVal") End Try End Sub Protected Sub EleMediaType(ByRef chkList As CheckBoxList, ByRef str As String) Try Dim lstitm As ListItem For Each lstitm In chkList.Items If lstitm.Selected = True Then If str <> "" Then str = str & "," & lstitm.Text Else str = lstitm.Text End If End If Next Catch Ex As Exception CreateMessageAlert(Me, Ex.Message, "StrKeyVal") End Try End Sub 'Protected Sub PrintMediaType(ByRef chk As CheckBoxList, ByRef str As String) ' Dim lstitm As ListItem ' For Each lstitm In chk.Items ' If lstitm.Selected = True Then ' If str <> "" Then ' str = str & "," & chk.Text ' Else ' str = chk.Text ' End If ' End If ' Next 'End Sub ''Protected Sub MediaSales(ByRef chk As CheckBox, ByRef str As String) '' If chk.Checked = True Then '' If str <> "" Then '' str = str & "," & chk.Text '' End If '' End If ''End Sub Protected Sub ClearFields() Try rb1.Checked = True rb2.Checked = False chkEMutilised.Items(0).Selected = False chkEMutilised.Items(1).Selected = False chkEMutilised.Items(2).Selected = False chkPMutilised.Items(0).Selected = False chkPMutilised.Items(1).Selected = False chkPMutilised.Items(2).Selected = False chkPMutilised.Items(3).Selected = False chkPMutilised.Items(4).Selected = False chkPMutilised.Items(5).Selected = False chkDirectSalea.Items(0).Selected = False chkDirectSalea.Items(1).Selected = False chkDirectSalea.Items(2).Selected = False Emedia.Checked = False Pmedia.Checked = False txt_dsale.Text = "" txt_emacompany.Text = "" txt_emedia.Text = "" txt_pmedia.Text = "" Catch Ex As Exception CreateMessageAlert(Me, Ex.Message, "StrKeyVal") End Try End Sub Protected Sub BtnSkip_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSkip.Click Response.Redirect("list_product.aspx") End Sub Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click Try Dim qry As String Dim Con As New SqlConnection Dim cmd As New SqlCommand Dim key As String Dim code As String Dim mediatype As String Dim ElectronicMedia As String Dim PrintMedia As String 'Dim MediaAgency As String Dim DirectSaleMedia As String Dim IsAdInMedia As String Dim i As Integer Dim j As Integer Con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") 'Read the ConnectionString from web.config File If rb1.Checked = True Then If Emedia.Checked = False And Pmedia.Checked = False Then LabelMsg("Select Atleast any One Media Type. ", lblMsg) Emedia.Focus() Exit Sub End If End If If rb1.Checked = True Then If txt_emacompany.Text = "" Then CreateMessageAlert(Me, "Enter Media Agency Name", "StrKeyVal") Exit Sub End If If txt_emedia.Text = "" Then CreateMessageAlert(Me, "Direct Sale Media can not be Null", "StrKeyVal") Exit Sub End If If txt_dsale.Text = "" Then CreateMessageAlert(Me, "Electronic Media can not be Null", "StrKeyVal") Exit Sub End If If txt_pmedia.Text = "" Then CreateMessageAlert(Me, "Print MEdia can not be Null", "StrKeyVal") Exit Sub End If ' CreateMessageAlert(Me, "Name can not be null", "StrKeyVal") ' Exit Sub 'End If 'If IsAlreadyPresent("select count(*) FROM ChangeRequestCategory where ChangeRequestCategory_Code='" & txtChangeRequestCategoryCode.Text.Trim & "'and ChangeRequestCategory_IsDeleted='0' and ChangeRequestCategory_CompanyId='" & g_Company & "'") Then ' CreateMessageAlert(Me, "Name is already exist", "StrKeyVal") ' Exit Sub 'End If If rb1.Checked = True Then IsAdInMedia = "Y" Else IsAdInMedia = "N" End If 'j = 3 'For i = 1 To j 'ElectronicMedia = "" 'PrintMedia = "" 'DirectSaleMedia = "" 'mediatype = "" Call EleMediaType(chkEMutilised, ElectronicMedia) 'Next i 'j = 5 'For i = 1 To j Call EleMediaType(chkPMutilised, PrintMedia) 'Next i 'j = 3 'For i = 1 To j Call EleMediaType(chkDirectSalea, DirectSaleMedia) 'Next i If Emedia.Checked Then If mediatype <> "" Then mediatype = mediatype & "," & Emedia.Text Else mediatype = Emedia.Text End If End If If Pmedia.Checked Then If mediatype <> "" Then mediatype = mediatype & "," & Pmedia.Text Else mediatype = Pmedia.Text End If End If End If cmd.Connection = Con cmd.CommandText = "MediaAdvertising_Proc" cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_Kid", SqlDbType.NVarChar)).Value = txtMAKid.Text.Trim cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_Code", SqlDbType.NVarChar)).Value = txtMACode.Text.Trim cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_SupplierId", SqlDbType.NVarChar)).Value = Session("SupplierID") cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_IsAdInMedia", SqlDbType.NVarChar)).Value = IsAdInMedia cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_MediaType", SqlDbType.NVarChar)).Value = mediatype cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_ElectronicMedia", SqlDbType.NVarChar)).Value = ElectronicMedia cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_PrintMedia", SqlDbType.NVarChar)).Value = PrintMedia cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_MediaAgency", SqlDbType.NVarChar)).Value = txt_emacompany.Text cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_DirectSaleMedia", SqlDbType.NVarChar)).Value = DirectSaleMedia cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_PrintMediaBudget", SqlDbType.Int)).Value = Convert.ToInt32(txt_pmedia.Text) cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_ElectronicMediabudget", SqlDbType.Int)).Value = Convert.ToInt32(txt_emedia.Text) cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_DirectSalesBudget", SqlDbType.Int)).Value = Convert.ToInt32(txt_dsale.Text) cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_FinancialYearId", SqlDbType.NVarChar)).Value = Trim(Session("g_FinYear").ToString) cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_CompanyId", SqlDbType.NVarChar)).Value = Trim(Session("g_Company").ToString) cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_UserId", SqlDbType.NVarChar)).Value = Trim(Session("g_User").ToString) Dim strIpUpdate As String = Request.UserHostAddress() cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_ClientIP", SqlDbType.NVarChar)).Value = strIpUpdate cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 100)).Value = "Media Advertising" cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.NVarChar, 50)).Value = mode.ToString().Trim() Con.Open() cmd.ExecuteNonQuery() Con.Close() LabelMsg("Record Updated Successfully", lblMsg) ' pnl.Visible = True ' Lblpnl.Text = "Your rocord is modified successfully." 'Response.Redirect("list_product.aspx") 'CreateMessageAlert(Me, "Record successfully updated.", "StrKeyVal") 'UnLockTextBox(False) Catch Ex As Exception CreateMessageAlert(Me, Ex.Message, "StrKeyVal") End Try End Sub Public Sub LabelMsg(ByVal str As String, ByVal mylbl As Label) mylbl.Visible = True lblMsg.Text = str End Sub 'Protected Sub btnOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOK.Click ' Response.Redirect("List_Product.aspx") 'End Sub Protected Sub BtnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSave.Click Try Dim qry As String Dim Con As New SqlConnection Dim cmd As New SqlCommand Dim key As String Dim code As String Dim mediatype As String Dim ElectronicMedia As String Dim PrintMedia As String 'Dim MediaAgency As String Dim DirectSaleMedia As String Dim IsAdInMedia As String Dim i As Integer Dim j As Integer Con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") 'Read the ConnectionString from web.config File If rb1.Checked = True Then IsAdInMedia = "Y" Else IsAdInMedia = "N" End If If rb1.Checked = True Then If Emedia.Checked = False And Pmedia.Checked = False Then lblMsg.Text = "Select Atleast any One Media Type. " End If End If If rb1.Checked = True Then If txt_emacompany.Text = "" Then CreateMessageAlert(Me, "Enter Media Agency Name", "StrKeyVal") txt_emacompany.Focus() Exit Sub End If If txt_emedia.Text = "" Then CreateMessageAlert(Me, "Direct Sale Media can not be Null", "StrKeyVal") txt_emedia.Focus() Exit Sub End If If txt_dsale.Text = "" Then CreateMessageAlert(Me, "Electronic Media can not be Null", "StrKeyVal") txt_dsale.Focus() Exit Sub End If If txt_pmedia.Text = "" Then CreateMessageAlert(Me, "Print Media can not be Null", "StrKeyVal") txt_pmedia.Focus() Exit Sub End If ' CreateMessageAlert(Me, "Name can not be null", "StrKeyVal") ' Exit Sub 'End If 'If IsAlreadyPresent("select count(*) FROM ChangeRequestCategory where ChangeRequestCategory_Code='" & txtChangeRequestCategoryCode.Text.Trim & "'and ChangeRequestCategory_IsDeleted='0' and ChangeRequestCategory_CompanyId='" & g_Company & "'") Then ' CreateMessageAlert(Me, "Name is already exist", "StrKeyVal") ' Exit Sub 'End If 'j = 3 'For i = 1 To j 'ElectronicMedia = "" 'PrintMedia = "" 'DirectSaleMedia = "" 'mediatype = "" Call EleMediaType(chkEMutilised, ElectronicMedia) 'Next i 'j = 5 'For i = 1 To j Call EleMediaType(chkPMutilised, PrintMedia) 'Next i 'j = 3 'For i = 1 To j Call EleMediaType(chkDirectSalea, DirectSaleMedia) 'Next i If Emedia.Checked Then If mediatype <> "" Then mediatype = mediatype & "," & Emedia.Text Else mediatype = Emedia.Text End If End If If Pmedia.Checked Then If mediatype <> "" Then mediatype = mediatype & "," & Pmedia.Text Else mediatype = Pmedia.Text End If End If End If cmd.Connection = Con cmd.CommandText = "MediaAdvertising_Proc" cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_Kid", SqlDbType.NVarChar)).Value = txtMAKid.Text.Trim cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_Code", SqlDbType.NVarChar)).Value = txtMACode.Text.Trim cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_SupplierId", SqlDbType.NVarChar)).Value = Session("SupplierID").ToString cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_IsAdInMedia", SqlDbType.NVarChar)).Value = IsAdInMedia If rb1.Checked = True Then cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_MediaType", SqlDbType.NVarChar)).Value = mediatype cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_ElectronicMedia", SqlDbType.NVarChar)).Value = ElectronicMedia cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_PrintMedia", SqlDbType.NVarChar)).Value = PrintMedia cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_MediaAgency", SqlDbType.NVarChar)).Value = txt_emacompany.Text cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_DirectSaleMedia", SqlDbType.NVarChar)).Value = DirectSaleMedia cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_PrintMediaBudget", SqlDbType.Int)).Value = Convert.ToInt32(txt_pmedia.Text) cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_ElectronicMediabudget", SqlDbType.Int)).Value = Convert.ToInt32(txt_emedia.Text) cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_DirectSalesBudget", SqlDbType.Int)).Value = Convert.ToInt32(txt_dsale.Text) End If cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_FinancialYearId", SqlDbType.NVarChar)).Value = Trim(Session("g_FinYear").ToString) cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_CompanyId", SqlDbType.NVarChar)).Value = Trim(Session("g_Company").ToString) cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_UserId", SqlDbType.NVarChar)).Value = Trim(Session("g_User").ToString) Dim strIP As String = Request.UserHostAddress() cmd.Parameters.Add(New SqlParameter("@MediaAdvertising_ClientIP", SqlDbType.NVarChar)).Value = strIP cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 100)).Value = "Media Advertising" cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.NVarChar, 50)).Value = "Insert" Con.Open() cmd.ExecuteNonQuery() Con.Close() LabelMsg("Record Saved Successfully", lblMsg) Response.Redirect("list_product.aspx") 'ClearFields() ' pnl.Visible = True ' Lblpnl.Text = "Your rocord is successfully saved." 'Response.Redirect("list_product.aspx") 'UnLockTextBox(False) Catch Ex As Exception CreateMessageAlert(Me, Ex.Message, "StrKeyVal") End Try End Sub End Class