Commit inicial Ventas Productivo

Bancos/Temporal/RegBoletas.aspx.vb

@@ -0,0 +1,111 @@
+Option Strict On
+Option Explicit On
+
+Imports Extensiones
+Imports System.Data
+
+
+
+
+Partial Class Temporal_RegBoletas
+    Inherits ClsPaginas
+
+
+#Region "P R O P I E D A D E S "
+    Public Property DTConsejeros As DataTable
+        Get
+            Return CType(ViewState("DTConsejeros"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTConsejeros") = value
+        End Set
+    End Property
+    Public Property NumBoleta As Integer
+        Get
+            Return CType(ViewState("NumBoleta"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("NumBoleta") = value
+        End Set
+    End Property
+    Public Property VotosBoleta As Integer
+        Get
+            Return CType(ViewState("VotosBoleta"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("VotosBoleta") = value
+        End Set
+    End Property
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            VotosBoleta = 0
+        End If
+    End Sub
+    Protected Sub LbAddConsejero_Click(sender As Object, e As EventArgs) Handles LbAddConsejero.Click
+        Dim Boleta As New ClsTemporal
+        DTConsejeros = New DataTable()
+        Dim NumConsejero As Integer = TxtConsejero.Text.ToEntero
+        Dim CveConsejero As Integer
+        NumBoleta = TxtBoleta.Text.ToEntero
+
+        If Boleta.GetTempConsejeros Then
+            DTConsejeros = Boleta.DtResultados.FiltraParametros($"NumConsejero = {NumConsejero} ")
+            If DTConsejeros.Rows.Count > 0 Then
+                CveConsejero = DTConsejeros.Rows(0)("CveConsejero").ToString.ToEntero
+                If Boleta.AddTempVotos(CveConsejero, NumBoleta) Then
+                    VotosBoleta += 1
+                Else
+                    Alert("Ocurrió un error al agregar el voto", TipoMensaje.MsgError)
+                End If
+            Else
+                Alert("El consejero no existe, revise el número de consejero", TipoMensaje.MsgAdvertencia)
+            End If
+        End If
+
+        TxtConsejero.Text = ""
+        UpDatos.Update()
+        Boleta.Dispose()
+        CargaGrid()
+    End Sub
+
+    Private Sub CargaGrid()
+        Dim Boleta As New ClsTemporal
+        If Boleta.GetTempVotos(NumBoleta) AndAlso Boleta.DtResultados.Rows.Count > 0 Then
+            GVDatos.DataSource = Boleta.DtResultados
+        Else
+            GVDatos.DataSource = Nothing
+        End If
+        Boleta.Dispose()
+        GVDatos.DataBind()
+        UPGv.Update()
+    End Sub
+
+    Private Sub LbAgregarBoleta_Click(sender As Object, e As EventArgs) Handles LbAgregarBoleta.Click
+        If TxtBoleta.Text <> "" Then
+            TxtBoleta.Enabled = False
+            LbAgregarBoleta.Visible = False
+            trConsejero.Visible = True
+        End If
+        UpDatos.Update()
+    End Sub
+
+    Private Sub GVDatos_DataBound(sender As Object, e As EventArgs) Handles GVDatos.DataBound
+        If GVDatos.Rows.Count >= 25 Then
+            Alert("Esta boleta está completa, continue con otra boleta por favor.")
+            TxtBoleta.Text = ""
+            TxtBoleta.Enabled = True
+            LbAgregarBoleta.Visible = True
+            trConsejero.Visible = False
+            UpDatos.Update()
+        End If
+    End Sub
+    Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GVDatos.RowDeleting
+        Dim Objeto As New ClsTemporal
+        If Objeto.RemoveTempVotos(GVDatos.Rows(e.RowIndex).DataKey("NumBoleta").ToEntero, GVDatos.Rows(e.RowIndex).DataKey("CveConsejero").ToEntero) Then
+            Alert("Se eliminó correctamente.")
+        End If
+        CargaGrid()
+    End Sub
+End Class