Commit inicial Ventas Productivo

Bancos/Temporal/RepVotos.aspx.vb

@@ -0,0 +1,111 @@
+Imports Extensiones
+Imports System.Data
+
+
+
+
+
+Partial Class Temporal_RepVotos
+    Inherits ClsPaginas
+
+#Region "P R O P I E D A D E S "
+    Public Property DtMasculino As DataTable
+        Get
+            Return CType(ViewState("DtMasculino"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtMasculino") = value
+        End Set
+    End Property
+
+    Public Property DtFemenino As DataTable
+        Get
+            Return CType(ViewState("DtFemenino"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtFemenino") = value
+        End Set
+    End Property
+
+    Public Property Tipo As String = ""
+
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            Tipo = (Request("Tipo")).ToString
+            CargaDatos()
+        End If
+    End Sub
+
+    Private Sub CargaDatos()
+        DtMasculino = New DataTable()
+        DtFemenino = New DataTable()
+        Dim NumVotosH, NumVotosM As DataTable
+
+        Dim Objeto As New ClsTemporal
+        If Objeto.GetRepVotos(Tipo) Then
+            DtMasculino = Objeto.DtResultados.FiltraParametros($"Sexo = {"'H'"} AND NumConsejero IS NOT NULL")
+            DtFemenino = Objeto.DtResultados.FiltraParametros($"Sexo = {"'M'"} AND NumConsejero IS NOT NULL ")
+            NumVotosH = Objeto.DtResultados.FiltraParametros($"Sexo = {"'H'"} AND NumConsejero IS NULL")
+            NumVotosM = Objeto.DtResultados.FiltraParametros($"Sexo = {"'M'"} AND NumConsejero IS NULL ")
+
+            If NumVotosH.Rows.Count > 0 Then
+                LblVotosHombre.Text = NumVotosH.Rows(0)("Votos").ToString
+            Else
+                LblVotosHombre.Text = "0"
+            End If
+
+            If NumVotosM.Rows.Count > 0 Then
+                LblVotosMujeres.Text = NumVotosM.Rows(0)("Votos").ToString
+            Else
+                LblVotosMujeres.Text = "0"
+            End If
+
+            GvMasculino.DataSource = DtMasculino
+            GvFemenino.DataSource = DtFemenino
+            GvMasculino.DataBind()
+            GvFemenino.DataBind()
+        End If
+
+
+        If Objeto.GetNumVotos(Tipo, "H") Then
+            LblBoletasHombre.Text = Objeto.DtResultados.Rows(0)("NumBoletas").ToString
+        End If
+        If Objeto.GetNumVotos(Tipo, "M") Then
+            LblBoletasMujer.Text = Objeto.DtResultados.Rows(0)("NumBoletas").ToString
+        End If
+        OrdenaDatos()
+        UpDatos.Update()
+    End Sub
+
+
+#Region " O R D E N A M I E N T O   JAVASCRIPT"
+    Private Sub OrdenaDatos()
+        If (GvMasculino.Rows.Count > 0) Then
+            GvMasculino.UseAccessibleHeader = True
+            GvMasculino.HeaderRow.TableSection = TableRowSection.TableHeader
+            RegistraScript("OrdenarGV();")
+        End If
+
+        If (GvFemenino.Rows.Count > 0) Then
+            GvFemenino.UseAccessibleHeader = True
+            GvFemenino.HeaderRow.TableSection = TableRowSection.TableHeader
+            RegistraScript("OrdenarGV();")
+        End If
+    End Sub
+
+    Private Sub ImgExcelHombres_Click(sender As Object, e As EventArgs) Handles ImgExcelHombres.Click
+        GvMasculino.ExportToExcelx("Reporte de Hombres")
+    End Sub
+
+    Private Sub ImgExcelMujeres_Click(sender As Object, e As EventArgs) Handles ImgExcelMujeres.Click
+        GvFemenino.ExportToExcelx("Reporte de Mujeres")
+    End Sub
+#End Region
+
+
+
+
+End Class