KucukHacker0088 Shell
| Current Path : G:/PleskVhosts/mpcdp.in/cmamp.mpcdp.in/cdpp3/ |
Windows NT SG2NWVPWEB022 10.0 build 17763 (Windows Server 2016) i586 |
| Current File : G:/PleskVhosts/mpcdp.in/cmamp.mpcdp.in/cdpp3/MunicipalFinane_New.aspx.vb |
Imports System.Data
Imports System.Data.SqlClient
Partial Class MunicipalFinane_New
Inherits System.Web.UI.Page
' Dim ObjClassDB As New ClassDB
Protected Sub grdCDP_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles grdCDP.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim lc As System.Web.UI.Control = e.Row.Cells(2).Controls(0)
If TypeOf (lc) Is DataBoundLiteralControl Then
If CType(lc, DataBoundLiteralControl).Text.Contains("#") Then
e.Row.Visible = False
End If
ElseIf TypeOf (lc) Is LiteralControl Then
If CType(lc, LiteralControl).Text.Contains("#") Then
e.Row.Visible = False
End If
End If
End If
End Sub
Protected Sub grdCDP_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles grdCDP.RowDeleting
Dim rndx As Int32 = e.RowIndex
Dim a As Integer
a = rndx + 1
Dim str() As String
str = Me.grdCDP.DataKeyNames
Me.sdcIPAddress.DeleteParameters("F_ID").DefaultValue = a
End Sub
Protected Sub grdCDP_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles grdCDP.RowUpdating
Dim tsty, tsty1, tsty2, tsty3, tsty4, tsty5, tsty6, tsty7, tsty8, tsty9, tsty10, tsty11, tsty12, tsty13, tsty14, tsty15, tsty16, tsty17, tsty18, tsty19, tsty20, tsty21, tsty22, tsty23, tsty24, tsty25, tsty26, tsty27, tsty28, tsty29, tsty30, tsty31, tsty32, tsty33, tsty34, tsty35 As TextBox ', tsty36, tsty37, tsty38, tsty39, tsty40, tsty41, tsty42, tsty43, tsty44, tsty45, tsty46, tsty47, tsty48, tsty49, tsty50, tsty51, tsty52, tsty53, tsty54, tsty55, tsty56, tsty57 As TextBox ', tsty48, tsty49, tsty50, tsty51, tsty52, tsty53, tsty54, tsty55 As TextBox
Dim s, s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, S16, S17, s18, s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30, s31, s32, s33, s34, s35 As Object ', s36, s37, s38, s39, s40, s41, s42, s43, s44, s45, s46, s47, s48, s49, S50, S51, S52, S53, S54, S55, S56, S57 As Object 'As Object
Me.sdcIPAddress.UpdateParameters("F_ID").DefaultValue = grdCDP.DataKeys(e.RowIndex).Value
tsty = grdCDP.Rows(e.RowIndex).Cells(7).Controls(1)
tsty1 = grdCDP.Rows(e.RowIndex).Cells(8).Controls(1)
tsty2 = grdCDP.Rows(e.RowIndex).Cells(9).Controls(1)
tsty3 = grdCDP.Rows(e.RowIndex).Cells(10).Controls(1)
tsty4 = grdCDP.Rows(e.RowIndex).Cells(11).Controls(1)
tsty5 = grdCDP.Rows(e.RowIndex).Cells(12).Controls(1)
tsty6 = grdCDP.Rows(e.RowIndex).Cells(13).Controls(1)
tsty7 = grdCDP.Rows(e.RowIndex).Cells(14).Controls(1)
tsty8 = grdCDP.Rows(e.RowIndex).Cells(15).Controls(1)
tsty9 = grdCDP.Rows(e.RowIndex).Cells(16).Controls(1)
tsty10 = grdCDP.Rows(e.RowIndex).Cells(17).Controls(1)
tsty11 = grdCDP.Rows(e.RowIndex).Cells(18).Controls(1)
tsty12 = grdCDP.Rows(e.RowIndex).Cells(19).Controls(1)
tsty13 = grdCDP.Rows(e.RowIndex).Cells(20).Controls(1)
tsty14 = grdCDP.Rows(e.RowIndex).Cells(21).Controls(1)
tsty15 = grdCDP.Rows(e.RowIndex).Cells(22).Controls(1)
tsty16 = grdCDP.Rows(e.RowIndex).Cells(23).Controls(1)
tsty17 = grdCDP.Rows(e.RowIndex).Cells(24).Controls(1)
tsty18 = grdCDP.Rows(e.RowIndex).Cells(25).Controls(1)
tsty19 = grdCDP.Rows(e.RowIndex).Cells(26).Controls(1)
tsty20 = grdCDP.Rows(e.RowIndex).Cells(27).Controls(1)
tsty21 = grdCDP.Rows(e.RowIndex).Cells(28).Controls(1)
tsty22 = grdCDP.Rows(e.RowIndex).Cells(29).Controls(1)
tsty23 = grdCDP.Rows(e.RowIndex).Cells(30).Controls(1)
tsty24 = grdCDP.Rows(e.RowIndex).Cells(31).Controls(1)
tsty25 = grdCDP.Rows(e.RowIndex).Cells(32).Controls(1)
tsty26 = grdCDP.Rows(e.RowIndex).Cells(33).Controls(1)
tsty27 = grdCDP.Rows(e.RowIndex).Cells(34).Controls(1)
tsty28 = grdCDP.Rows(e.RowIndex).Cells(35).Controls(1)
tsty29 = grdCDP.Rows(e.RowIndex).Cells(36).Controls(1)
tsty30 = grdCDP.Rows(e.RowIndex).Cells(37).Controls(1)
tsty31 = grdCDP.Rows(e.RowIndex).Cells(38).Controls(1)
tsty32 = grdCDP.Rows(e.RowIndex).Cells(39).Controls(1)
tsty33 = grdCDP.Rows(e.RowIndex).Cells(40).Controls(1)
tsty34 = grdCDP.Rows(e.RowIndex).Cells(41).Controls(1)
tsty35 = grdCDP.Rows(e.RowIndex).Cells(42).Controls(1)
'tsty36 = grdCDP.Rows(e.RowIndex).Cells(44).Controls(1)
'tsty37 = grdCDP.Rows(e.RowIndex).Cells(45).Controls(1)
'tsty38 = grdCDP.Rows(e.RowIndex).Cells(46).Controls(1)
'tsty39 = grdCDP.Rows(e.RowIndex).Cells(47).Controls(1)
'tsty40 = grdCDP.Rows(e.RowIndex).Cells(48).Controls(1)
'tsty41 = grdCDP.Rows(e.RowIndex).Cells(49).Controls(1)
'tsty42 = grdCDP.Rows(e.RowIndex).Cells(50).Controls(1)
'tsty43 = grdCDP.Rows(e.RowIndex).Cells(51).Controls(1)
'tsty44 = grdCDP.Rows(e.RowIndex).Cells(52).Controls(1)
'tsty45 = grdCDP.Rows(e.RowIndex).Cells(53).Controls(1)
'tsty46 = grdCDP.Rows(e.RowIndex).Cells(54).Controls(1)
'tsty47 = grdCDP.Rows(e.RowIndex).Cells(55).Controls(1)
'tsty48 = grdCDP.Rows(e.RowIndex).Cells(56).Controls(1)
'tsty49 = grdCDP.Rows(e.RowIndex).Cells(57).Controls(1)
'tsty50 = grdCDP.Rows(e.RowIndex).Cells(58).Controls(1)
'tsty51 = grdCDP.Rows(e.RowIndex).Cells(59).Controls(1)
'tsty52 = grdCDP.Rows(e.RowIndex).Cells(60).Controls(1)
'tsty53 = grdCDP.Rows(e.RowIndex).Cells(61).Controls(1)
'tsty54 = grdCDP.Rows(e.RowIndex).Cells(62).Controls(1)
'tsty55 = grdCDP.Rows(e.RowIndex).Cells(63).Controls(1)
'tsty56 = grdCDP.Rows(e.RowIndex).Cells(64).Controls(1)
'tsty57 = grdCDP.Rows(e.RowIndex).Cells(65).Controls(1)
Dim t As TextBox = tsty
s = (t.Text).Trim
If s.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t1 As TextBox = tsty1
s1 = (t1.Text)
If s1.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t2 As TextBox = tsty2
s2 = (t2.Text).Trim
If s2.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t3 As TextBox = tsty3
s3 = (t3.Text).Trim
If s3.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t4 As TextBox = tsty4
s4 = (t4.Text).Trim
If s4.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t5 As TextBox = tsty5
s5 = (t5.Text).Trim
If s5.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t6 As TextBox = tsty6
s6 = (t6.Text).Trim
If s6.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t7 As TextBox = tsty7
s7 = (t7.Text).Trim
If s7.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t8 As TextBox = tsty8
s8 = (t8.Text).Trim
If s8.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t9 As TextBox = tsty9
s9 = (t9.Text).Trim
If s9.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t10 As TextBox = tsty10
s10 = (t10.Text).Trim
If s10.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t11 As TextBox = tsty11
s11 = (t11.Text).Trim
If s11.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t12 As TextBox = tsty12
s12 = (t12.Text).Trim
If s12.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t13 As TextBox = tsty13
s13 = (t13.Text).Trim
If s13.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t14 As TextBox = tsty14
s14 = (t14.Text).Trim
If s14.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t15 As TextBox = tsty15
s15 = (t15.Text).Trim
If s15.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t16 As TextBox = tsty16
S16 = (t16.Text).Trim
If S16.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t17 As TextBox = tsty17
S17 = (t17.Text).Trim
If S17.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t18 As TextBox = tsty18
s18 = (t18.Text).Trim
If s18.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t19 As TextBox = tsty19
s19 = (t19.Text).Trim
If s19.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t20 As TextBox = tsty20
s20 = (t20.Text).Trim
If s20.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t21 As TextBox = tsty21
s21 = (t21.Text).Trim
If s21.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t22 As TextBox = tsty22
s22 = (t22.Text).Trim
If s22.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t23 As TextBox = tsty23
s23 = (t23.Text).Trim
If s23.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t24 As TextBox = tsty24
s24 = (t24.Text).Trim
If s24.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t25 As TextBox = tsty25
s25 = (t25.Text).Trim
If s25.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t26 As TextBox = tsty26
s26 = (t26.Text).Trim
If s26.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t27 As TextBox = tsty27
s27 = (t27.Text).Trim
If s27.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t28 As TextBox = tsty28
s28 = (t28.Text).Trim
If s28.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t29 As TextBox = tsty29
s29 = (t29.Text).Trim
If s29.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t30 As TextBox = tsty30
s30 = (t30.Text).Trim
If s30.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t31 As TextBox = tsty31
s31 = (t31.Text).Trim
If s31.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t32 As TextBox = tsty32
s32 = (t32.Text).Trim
If s32.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t33 As TextBox = tsty33
S33 = (t33.Text).Trim
If S33.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t34 As TextBox = tsty34
s34 = (t34.Text).Trim
If s34.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
Dim t35 As TextBox = tsty35
s35 = (t35.Text).Trim
If s35.ToString.Contains("#") Then
e.Cancel = True
Exit Sub
End If
'Dim t36 As TextBox = tsty36
's36 = (t36.Text).Trim
'If s36.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t37 As TextBox = tsty37
's37 = (t37.Text).Trim
'If s37.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t38 As TextBox = tsty38
's38 = (t38.Text).Trim
'If s38.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t39 As TextBox = tsty39
's39 = (t39.Text).Trim
'If s39.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t40 As TextBox = tsty40
's40 = (t40.Text).Trim
'If s40.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t41 As TextBox = tsty41
's41 = (t41.Text).Trim
'If S17.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t42 As TextBox = tsty42
's42 = (t42.Text).Trim
'If s42.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t43 As TextBox = tsty43
's43 = (t43.Text).Trim
'If s43.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t44 As TextBox = tsty44
's44 = (t44.Text).Trim
'If s44.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t45 As TextBox = tsty45
's45 = (t45.Text).Trim
'If s45.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t46 As TextBox = tsty46
's46 = (t46.Text).Trim
'If s46.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t47 As TextBox = tsty47
's47 = (t47.Text).Trim
'If s47.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t48 As TextBox = tsty48
's48 = (t48.Text).Trim
'If s48.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t49 As TextBox = tsty49
's49 = (t49.Text).Trim
'If s49.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t50 As TextBox = tsty50
'S50 = (t50.Text).Trim
'If S50.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t51 As TextBox = tsty51
'S51 = (t51.Text).Trim
'If S51.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t52 As TextBox = tsty52
'S52 = (t52.Text).Trim
'If S52.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t53 As TextBox = tsty53
'S53 = (t53.Text).Trim
'If S53.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t54 As TextBox = tsty54
'S54 = (t54.Text).Trim
'If S54.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t55 As TextBox = tsty55
'S55 = (t55.Text).Trim
'If S55.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t56 As TextBox = tsty56
'S56 = (t56.Text).Trim
'If S56.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
'Dim t57 As TextBox = tsty57
'S57 = (t57.Text).Trim
'If S57.ToString.Contains("#") Then
' e.Cancel = True
' Exit Sub
'End If
Me.sdcIPAddress.UpdateParameters("F_ID").DefaultValue = grdCDP.DataKeys(e.RowIndex).Value
Me.sdcIPAddress.UpdateParameters("Ia").DefaultValue = s
Me.sdcIPAddress.UpdateParameters("Ia1").DefaultValue = s1
Me.sdcIPAddress.UpdateParameters("Ia2").DefaultValue = s2 'Math.Round(s2)
Me.sdcIPAddress.UpdateParameters("Ia3").DefaultValue = s3 'Math.Round(s3)
Me.sdcIPAddress.UpdateParameters("Ia4").DefaultValue = s4 'Math.Round(s4)
Me.sdcIPAddress.UpdateParameters("Ia5").DefaultValue = s5
Me.sdcIPAddress.UpdateParameters("Ia6").DefaultValue = s6
Me.sdcIPAddress.UpdateParameters("Ia7").DefaultValue = s7
Me.sdcIPAddress.UpdateParameters("Ia8").DefaultValue = s8
Me.sdcIPAddress.UpdateParameters("Ia9").DefaultValue = s9
Me.sdcIPAddress.UpdateParameters("Ia10").DefaultValue = s10
Me.sdcIPAddress.UpdateParameters("Ia11").DefaultValue = s11
Me.sdcIPAddress.UpdateParameters("Ia12").DefaultValue = s12
Me.sdcIPAddress.UpdateParameters("Ia13").DefaultValue = s13
Me.sdcIPAddress.UpdateParameters("Ia14").DefaultValue = s14
Me.sdcIPAddress.UpdateParameters("Ia15").DefaultValue = s15
Me.sdcIPAddress.UpdateParameters("Ia16").DefaultValue = S16
Me.sdcIPAddress.UpdateParameters("Ia17").DefaultValue = S17
Me.sdcIPAddress.UpdateParameters("Ia18").DefaultValue = s18
Me.sdcIPAddress.UpdateParameters("Ia19").DefaultValue = s19
Me.sdcIPAddress.UpdateParameters("Ia20").DefaultValue = s20
Me.sdcIPAddress.UpdateParameters("Ia21").DefaultValue = s21
Me.sdcIPAddress.UpdateParameters("Ia22").DefaultValue = s22
Me.sdcIPAddress.UpdateParameters("Ia23").DefaultValue = s23
Me.sdcIPAddress.UpdateParameters("Ia24").DefaultValue = s24
Me.sdcIPAddress.UpdateParameters("Ia25").DefaultValue = s25
Me.sdcIPAddress.UpdateParameters("Ia26").DefaultValue = s26
Me.sdcIPAddress.UpdateParameters("Ia27").DefaultValue = s27
Me.sdcIPAddress.UpdateParameters("Ia28").DefaultValue = s28
Me.sdcIPAddress.UpdateParameters("Ia29").DefaultValue = s29
Me.sdcIPAddress.UpdateParameters("Ia30").DefaultValue = s30
Me.sdcIPAddress.UpdateParameters("Ia31").DefaultValue = s31
Me.sdcIPAddress.UpdateParameters("Ia32").DefaultValue = s32
Me.sdcIPAddress.UpdateParameters("Ia33").DefaultValue = S33
Me.sdcIPAddress.UpdateParameters("Ia34").DefaultValue = s34
Me.sdcIPAddress.UpdateParameters("Ia35").DefaultValue = s35
'Me.sdcIPAddress.UpdateParameters("Ia36").DefaultValue = s36
'Me.sdcIPAddress.UpdateParameters("Ia37").DefaultValue = s37
'Me.sdcIPAddress.UpdateParameters("Ia38").DefaultValue = s38
'Me.sdcIPAddress.UpdateParameters("Ia39").DefaultValue = s39
'Me.sdcIPAddress.UpdateParameters("Ia40").DefaultValue = s40
'Me.sdcIPAddress.UpdateParameters("Ia41").DefaultValue = s41
'Me.sdcIPAddress.UpdateParameters("Ia42").DefaultValue = s42
'Me.sdcIPAddress.UpdateParameters("Ia43").DefaultValue = s43
'Me.sdcIPAddress.UpdateParameters("Ia44").DefaultValue = s44
'Me.sdcIPAddress.UpdateParameters("Ia45").DefaultValue = s45
'Me.sdcIPAddress.UpdateParameters("Ia46").DefaultValue = s46
'Me.sdcIPAddress.UpdateParameters("Ia47").DefaultValue = s47
'Me.sdcIPAddress.UpdateParameters("Ia48").DefaultValue = s48
'Me.sdcIPAddress.UpdateParameters("Ia49").DefaultValue = s49
'Me.sdcIPAddress.UpdateParameters("Ia50").DefaultValue = S50
'Me.sdcIPAddress.UpdateParameters("Ia51").DefaultValue = S51
'Me.sdcIPAddress.UpdateParameters("Ia52").DefaultValue = S52
'Me.sdcIPAddress.UpdateParameters("Ia53").DefaultValue = S53
'Me.sdcIPAddress.UpdateParameters("Ia54").DefaultValue = S54
'Me.sdcIPAddress.UpdateParameters("Ia55").DefaultValue = S55
'Me.sdcIPAddress.UpdateParameters("Ia56").DefaultValue = S56
'Me.sdcIPAddress.UpdateParameters("Ia57").DefaultValue = S57
Me.sdcIPAddress.Update()
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim firstN = ""
If Not Context.User.Identity.IsAuthenticated Then
Session.Clear()
Session("dt") = DBNull.Value
Session.Abandon()
FormsAuthentication.SignOut()
Context.Application.Clear()
If Page.IsPostBack = False Then
LoadCompany_NEW()
grdCDP.Columns(0).Visible = False
grdCDP.Columns(1).Visible = False
End If
Else
Dim sobj = Session("myobj")
Context.Items("CityProfile_New") = "no"
If sobj <> "" Then
Dim userName = Context.Application.AllKeys(0)
Dim pageName = Context.Application.AllKeys(1)
firstN = Context.Application.AllKeys(2) 'Context.Application.Add(contextFirst, True)
' ObjClassDB.ConnectDB()
grdCDP.Columns(0).Visible = True
grdCDP.Columns(1).Visible = True
If Page.IsPostBack = False Then
LoadCompany_NEW_para(firstN)
' Call ObjClassDB.FillDropDownList(DDLULBID, "SPGenericSelect", "Viw_I_GetCityCompanywise", "ULBID", "ULBNameEnglish", "where FirstName='" + firstN + "'", "ORDER BY ULBNameEnglish")
Dim hRow As Integer = LoadCompany(firstN)
If hRow = 1 Then
' Call DataToList(DDLULBID.SelectedValue)
End If
If hRow = 1 Then
LoadCompany_NEW()
' Call ObjClassDB.FillDropDownList(DDLULBID, "SPGenericSelect", "MasterULB", "ULBID", "ULBNameE", "", "ORDER BY ULBNameE")
' Call DataToList(DDLULBID.SelectedValue)
End If
End If
End If
' ObjClassDB.ConnectDB()
If Page.IsPostBack = False And firstN = "" Then
'Call ObjClassDB.FillDropDownList(DDLULBID, "SPGenericSelect", "MasterULB", "ULBID", "ULBNameE", "", "ORDER BY ULBNameE")
' Call DataToList(DDLULBID.SelectedValue)
LoadCompany_NEW()
grdCDP.Columns(0).Visible = False
grdCDP.Columns(1).Visible = False
Me.sdcIPAddress.SelectParameters("F2").DefaultValue = 0
sdcIPAddress.DataBind()
End If
End If
'--
'ObjClassDB.ConnectDB()
'If Page.IsPostBack = False Then
' Call ObjClassDB.FillDropDownList(DDLULBID, "SPGenericSelect", "MasterULB", "ULBID", "ULBNameE", "", "ORDER BY ULBNameE")
' 'Call DataToList(DDLULBID.SelectedValue)
' ' Me.sdcIPAddress.SelectParameters("ULBID").DefaultValue = 0
' 'sdcIPAddress.DataBind()
' ' Gridedat()
' Me.sdcIPAddress.SelectParameters("F2").DefaultValue = 0
' sdcIPAddress.DataBind()
'End If
End Sub
''' <summary>
''' new change for the population ddlulb droupdown
''' </summary>
''' <param name="Parafname"></param>
''' <returns></returns>
''' <remarks></remarks>
'''
Sub LoadCompany_NEW_para(ByVal pr As String)
' DD_CompanyName.Items.Clear()
Dim record As Integer
Dim sql = "select * from Viw_I_GetCityCompanywise where firstname='" + pr + "'"
Dim command As New Command(sql, False) 'WHERE Login_ID = " & _loginID & " ", False)
Try
command.ExecuteReader(True, False)
If command.Reader.HasRows Then
DDLULBID.Items.Clear()
DDLULBID.DataValueField = "ulbid"
DDLULBID.DataTextField = "ULBNameEnglish"
DDLULBID.DataSource = command.Reader
DDLULBID.DataBind()
If DDLULBID.Items.Count > 0 Then
DDLULBID.Items.Insert(0, New ListItem("Select City", "0"))
' Return record = 1
End If
' Return record = 2
Else
End If
Finally
command.Close()
End Try
End Sub
Function LoadCompany_NEW()
' DD_CompanyName.Items.Clear()
Dim record As Integer
Dim sql = "select ulbid,ULBNameEnglish from dbo.Viw_I_GetCityCompanywise ORDER BY ULBNameEnglish"
Dim command As New Command(sql, False) 'WHERE Login_ID = " & _loginID & " ", False)
Try
command.ExecuteReader(True, False)
If command.Reader.HasRows Then
DDLULBID.Items.Clear()
DDLULBID.DataValueField = "ulbid"
DDLULBID.DataTextField = "ULBNameEnglish"
DDLULBID.DataSource = command.Reader
DDLULBID.DataBind()
If DDLULBID.Items.Count > 0 Then
DDLULBID.Items.Insert(0, New ListItem("Select City", "0"))
' Return record = 1
End If
' Return record = 2
Else
End If
Finally
command.Close()
End Try
End Function
Function LoadCompany(ByVal Parafname As String) As Integer
' DD_CompanyName.Items.Clear()
Dim record As Integer
Dim sql = "select ULBNameEnglish,ulbid from dbo.Viw_I_GetCityCompanywise where FirstName= '" + Parafname + "'"
Dim command As New Command(sql, False) 'WHERE Login_ID = " & _loginID & " ", False)
Try
command.ExecuteReader(True, False)
If command.Reader.HasRows Then
DDLULBID.Items.Clear()
DDLULBID.DataValueField = "ulbid"
DDLULBID.DataTextField = "ULBNameEnglish"
DDLULBID.DataSource = command.Reader
DDLULBID.DataBind()
If DDLULBID.Items.Count > 0 Then
DDLULBID.Items.Insert(0, New ListItem("Select City", "0"))
Return record = 1
End If
Return record = 2
Else
End If
Finally
command.Close()
End Try
End Function
Protected Sub DDLULBID_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DDLULBID.SelectedIndexChanged
Me.sdcIPAddress.SelectParameters("F2").DefaultValue = DDLULBID.SelectedValue
sdcIPAddress.DataBind()
End Sub
End Class
Discord hacker0088#9402
FSecurity.org