Commit inicial Ventas Productivo

ZDG/PopUpBuscarMilitante.aspx.vb

@@ -0,0 +1,167 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Imports System.Data
+Partial Class ZDG_PopUpBuscarMilitante
+    Inherits ClsPaginas
+
+#Region "PROPIEDADES"
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+
+            CType(Me.Master, BaseMasterPage).EsPopup = True
+
+            CargaCombos()
+        End If
+    End Sub
+
+
+#Region "  CARGA COMBOS  "
+    Private Sub CargaCombos()
+
+        Dim ObjDG As New ClsDG
+
+        'CARGA MUNICIPIOS
+        If ObjDG.GetMunicipios() Then
+            DdlMunicipio.DataSource = ObjDG.DtResultados
+        Else
+            DdlMunicipio.DataSource = Nothing
+        End If
+
+        ObjDG.Dispose()
+
+        DdlMunicipio.DataBind()
+    End Sub
+#End Region
+
+
+#Region "   CARGA DATOS   "
+    Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
+
+        'VALIDA QUE ESTE CON VALOR MINIMO UN FILTRO
+        If TxtRNM.Text.Trim = "" And TxtNombre.Text.Trim = "" And TxtPaterno.Text.Trim = "" And TxtMaterno.Text.Trim = "" And DdlMunicipio.SelectedValue.ToEntero < 0 And DdlCoordinadores.SelectedValue.ToEntero < 0 And DdlLideres.SelectedValue.ToEntero < 0 And DdlMovilizadores.SelectedValue.ToEntero < 0 Then
+            Alert("Debe especificar mínimo un filtro para la busqueda. Por favor rectifique y vuleva a intentar", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        CargaDatos()
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjDG As New ClsDG
+
+        If ObjDG.GetMilitantes(TxtRNM.Text.Trim, TxtNombre.Text.Trim.Replace(" ", "%"), TxtPaterno.Text.Trim.Replace(" ", "%"), TxtMaterno.Text.Trim.Replace(" ", "%"), DdlMunicipio.SelectedValue.ToEntero, DdlCoordinadores.SelectedValue, DdlLideres.SelectedValue, DdlMovilizadores.SelectedValue) Then
+            GvDatos.DataSource = ObjDG.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        LbNumeroRegistros.Text = String.Format("Numero de registros: <b>{0}</b>", ObjDG.DtResultados.Rows.Count)
+
+        ObjDG.Dispose()
+        GvDatos.DataBind()
+
+        If (GvDatos.Rows.Count > 0) Then
+            GvDatos.UseAccessibleHeader = True
+            GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
+            RegistraScript("OrdenarGV();")
+        End If
+
+        UpDatos.Update()
+    End Sub
+
+#End Region
+
+
+#Region "  GV DATOS  "
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DBCampo("Voto") = "True" Then
+                e.Row.Cells(10).ForeColor = Drawing.Color.Green
+            Else
+                e.Row.Cells(10).ForeColor = Drawing.Color.Red
+            End If
+
+        End If
+    End Sub
+
+#End Region
+
+
+#Region " SELECTED INDEX CHANGED "
+    Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim ObjDG As New ClsDG
+
+        DdlCoordinadores.Items.Clear()
+
+        'CARGA COORDINADORES
+        If ObjDG.GetCoordinadores("-1", DdlMunicipio.SelectedValue.ToEntero) Then
+            DdlCoordinadores.DataSource = ObjDG.DtResultados
+        Else
+            DdlCoordinadores.DataSource = Nothing
+        End If
+        DdlCoordinadores.DataBind()
+
+        ObjDG.Dispose()
+
+        DdlCoordinadores.Items.Insert(0, New ListItem("Todos", "-2"))
+        DdlCoordinadores.SelectedValueExist("-2")
+
+        DdlLideres.Items.Clear()
+        DdlLideres.Items.Insert(0, New ListItem("Todos", "-2"))
+        DdlLideres.SelectedValueExist("-2")
+
+        DdlMovilizadores.Items.Clear()
+        DdlMovilizadores.Items.Insert(0, New ListItem("Todos", "-2"))
+        DdlMovilizadores.SelectedValueExist("-2")
+    End Sub
+    Protected Sub DdlCoordinadores_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim ObjDG As New ClsDG
+
+        DdlLideres.Items.Clear()
+
+        'CARGA LIDERES
+        If ObjDG.GetLideres("-1", DdlMunicipio.SelectedValue.ToEntero, DdlCoordinadores.SelectedValue) Then
+            DdlLideres.DataSource = ObjDG.DtResultados
+        Else
+            DdlLideres.DataSource = Nothing
+        End If
+        DdlLideres.DataBind()
+
+        ObjDG.Dispose()
+
+        DdlLideres.Items.Insert(0, New ListItem("Todos", "-2"))
+        DdlLideres.SelectedValueExist("-2")
+
+        DdlMovilizadores.Items.Clear()
+        DdlMovilizadores.Items.Insert(0, New ListItem("Todos", "-2"))
+        DdlMovilizadores.SelectedValueExist("-2")
+
+    End Sub
+    Protected Sub DdlLideres_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim ObjDG As New ClsDG
+
+        DdlMovilizadores.Items.Clear()
+
+        'CARGA MOVILIZADORES
+        If ObjDG.GetMovilizadores("-1", DdlMunicipio.SelectedValue.ToEntero, DdlCoordinadores.SelectedValue, DdlLideres.SelectedValue) Then
+            DdlMovilizadores.DataSource = ObjDG.DtResultados
+        Else
+            DdlMovilizadores.DataSource = Nothing
+        End If
+        DdlMovilizadores.DataBind()
+
+        ObjDG.Dispose()
+
+        DdlMovilizadores.Items.Insert(0, New ListItem("Todos", "-2"))
+        DdlMovilizadores.SelectedValueExist("-2")
+    End Sub
+#End Region
+
+
+
+End Class