Commit inicial Ventas Productivo

This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2019-08-14 16:40:54 -07:00
commit c35cf91883
13328 changed files with 3711549 additions and 0 deletions

View File

@@ -0,0 +1,95 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegBoletas.aspx.vb" Inherits="Temporal_RegBoletas" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
Registro de boletas
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
<asp:UpdatePanel ID="UpRegBoletas" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<div class="row">
<div class="col-md-12">
<div class="portlet light smmallpadding bordered ">
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
<asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
<ContentTemplate>
<table border="0">
<tr>
<td>Boleta:</td>
<td>
<asp:TextBox ID="TxtBoleta" runat="server" CssClass="form-control input-sm" ValidationGroup="GrpGuardar"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtBoleta" FilterType="Custom, Numbers" />
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtBoleta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Boleta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRecibir"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
</td>
<td>
<asp:LinkButton ID="LbAgregarBoleta" ValidationGroup="GrpRecibir" runat="server" CssClass="btn btn-circle btn-sm green" Text="+"></asp:LinkButton>
</td>
</tr>
<tr id="trConsejero" runat="server" visible="false">
<td>No. Consejero:</td>
<td>
<asp:TextBox ID="TxtConsejero" runat="server" CssClass="form-control input-sm" ValidationGroup="GrpGuardar"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtConsejero" FilterType="Custom, Numbers" />
<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtConsejero" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''No. Consejero''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRecibir"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator2" Width="350px"></ajax:ValidatorCalloutExtender>
</td>
<td>
<asp:LinkButton ID="LbAddConsejero" ValidationGroup="GrpGuardar" runat="server" CssClass="btn btn-circle btn-sm green" Text="+"></asp:LinkButton>
</td>
</tr>
</table>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<asp:UpdatePanel runat="server" ID="UPGv" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView runat="server" Width="60%" DataKeyNames="NumBoleta, CveConsejero" EmptyDataText="Aún no se ha registrado boleta" AutoGenerateColumns="false" GridLines="none" ID="GVDatos" CssClass="table table-striped table-advance table-hover">
<Columns>
<asp:BoundField HeaderText="# Consejero" DataField="NumConsejero" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="30%" />
<asp:BoundField HeaderText="Nombre" DataField="Nombre" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="70%" />
<asp:TemplateField>
<ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Desea Elminar?" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
<script>
function ActivaBoleta(Boleta) {
if (Boleta != "") {
$("#trConsejero").css("visibility", "visible");
$("#C_TxtBoleta").attr('readonly', true);
}
}
</script>
</asp:Content>

View File

@@ -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

View File

@@ -0,0 +1,215 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepVotos.aspx.vb" Inherits="Temporal_RepVotos" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
<link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" />
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.Widthall {
width: 100% !important;
}
.dataTables_scrollHeadInner {
width: 100% !important;
background-color: #dddddd;
padding-left: 0px !important;
}
.dataTables_scrollFoot {
display: none;
position: static;
}
.table-scrollable {
margin: 0px !important;
}
.dataTables_scroll {
margin-bottom: 0px;
}
.table.dataTable {
margin-top: 0px !important;
}
.dataTables_scrollBody table th {
padding: 0px !important;
padding-right: 4px !important;
padding-left: 4px !important;
}
.sinlink td a {
pointer-events: none;
cursor: default;
color: black;
font-size: small;
}
.white a{
color: white !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
<li>
<asp:LinkButton ID="ImgExcelHombres" runat="server"> <i class="fa fa-ad-excel"></i> Generar Excel Hombres</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="ImgExcelMujeres" runat="server"> <i class="fa fa-ad-excel"></i> Generar Excel Mujeres</asp:LinkButton>
</li>
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpIndicador" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" >
<div id="DivHombres" runat="server" class="col-md-offset-3 col-md-3">
<div class="dashboard-stat dashboard-stat-v2 blue">
<div class="visual"><i class="fa fa-bar-chart" '=""></i></div>
<div class="details"><div class="number"><i class="fa fa-male"></i> Hombres</div>
<div class="desc"><label class="indicadortipo2 tooltips"> Votos<br />
<asp:Label ID="LblVotosHombre" runat="server"></asp:Label></label>
<label class="indicadortipo2 tooltips col-md-6"> Boletas <br />
<asp:Label ID="LblBoletasHombre" runat="server"></asp:Label></label>
</div>
</div>
</div>
</div>
<div id="Div3" runat="server" class="col-md-3">
<div class="dashboard-stat dashboard-stat-v2 red">
<div class="visual"><i class="fa fa-bar-chart" '=""></i></div>
<div class="details"><div class="number"><i class="fa fa-female"></i> Mujeres</div>
<div class="desc"><label class="indicadortipo2 tooltips" >Votos<br />
<asp:Label ID="LblVotosMujeres" runat="server" ></asp:Label></label>
<label class="indicadortipo2 tooltips col-md-6">Boletas <br />
<asp:Label ID="LblBoletasMujer" runat="server"></asp:Label></label>
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<div class="portlet smmallpadding light bordered" id="Div2" runat="server">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Hombres</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools">
<a href="javascript:;" class="expand"></a>
</div>
</div>
<div class="portlet-body form">
<asp:UpdatePanel ID="UpMasculino" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<asp:GridView runat="server" EmptyDataText="Aún no se ha registrado boleta" AutoGenerateColumns="false" GridLines="none" ID="GvMasculino" CssClass="table table-striped table-advance table-hover">
<Columns>
<asp:BoundField HeaderText="# Consejero" DataField="NumConsejero" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
<asp:BoundField HeaderText="Nombre" DataField="Nombre" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="70%" />
<asp:BoundField HeaderText="Votos" DataField="Votos" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
<div class="col-md-6">
<div class="portlet smmallpadding light bordered" id="Div1" runat="server">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Mujeres</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools">
<a href="javascript:;" class="expand"></a>
</div>
</div>
<div class="portlet-body form">
<asp:UpdatePanel ID="UpFemenino" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<asp:GridView runat="server" EmptyDataText="Aún no se ha registrado boleta" AutoGenerateColumns="false" GridLines="none" ID="GvFemenino" CssClass="table table-striped table-advance table-hover">
<Columns>
<asp:BoundField HeaderText="# Consejero" DataField="NumConsejero" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
<asp:BoundField HeaderText="Nombre" DataField="Nombre" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="70%" />
<asp:BoundField HeaderText="Votos" DataField="Votos" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
<script type="text/javascript">
function OrdenarGV() {
var Tam = TamañoVentana();
var Alto = Tam.height - 270;
if (Alto < 100) {
Alto = 100;
}
$('#C_GvFemenino').DataTable({
scrollY: Alto + 'px',
scrollCollapse: true,
paging: false,
searching: false,
info: false,
"aaSorting": []
});
$('#C_GvFemenino').parent().parent().children().first().css("position", "static");
$('#C_GvMasculino').DataTable({
scrollY: Alto + 'px',
scrollCollapse: true,
paging: false,
searching: false,
info: false,
"aaSorting": []
});
$('#C_GvMasculino').parent().parent().children().first().css("position", "static");
}
</script>
</asp:Content>

View File

@@ -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

BIN
Bancos/Temporal/vssver2.scc Normal file

Binary file not shown.