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

781
Encuestas/Encuestas.aspx Normal file
View File

@@ -0,0 +1,781 @@
<%@ Page EnableEventValidation="false" Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Encuestas.aspx.vb" Inherits="Encuestas_Encuestas" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style type="text/css">
.nav-pills.nav-wizard > li {
position: relative;
overflow: visible;
border-right: 15px solid transparent !important;
border-left: 15px solid transparent !important;
}
.nav-pills.nav-wizard > li + li {
margin-left: 0;
}
.nav-pills.nav-wizard > li:first-child {
border-left: 0 !important;
}
.nav-pills.nav-wizard > li:first-child a {
border-radius: 5px 0 0 5px !important;
}
.nav-pills.nav-wizard > li:last-child {
border-right: 0 !important;
}
.nav-pills.nav-wizard > li:last-child a {
border-radius: 0 5px 5px 0 !important;
}
.nav-pills.nav-wizard > li a {
border-radius: 0;
background-color: #eee;
}
.nav-pills.nav-wizard > li .nav-arrow {
position: absolute;
top: 0px;
right: -20px;
width: 0px;
height: 0px;
border-style: solid;
border-width: 20px 0 20px 20px;
border-color: transparent transparent transparent #eee;
z-index: 0;
}
.nav-pills.nav-wizard > li .nav-wedge {
position: absolute;
top: 0px;
left: -20px;
width: 0px;
height: 0px;
border-style: solid;
border-width: 20px 0 20px 20px;
border-color: #eee #eee #eee transparent;
z-index: 0;
}
.nav-pills.nav-wizard > li:hover .nav-arrow {
border-color: transparent transparent transparent #aaa;
}
.nav-pills.nav-wizard > li:hover .nav-wedge {
border-color: #aaa #aaa #aaa transparent;
}
.nav-pills.nav-wizard > li:hover a {
background-color: #aaa;
color: #fff;
}
.nav-pills.nav-wizard > li.active .nav-arrow {
border-color: transparent transparent transparent #428bca;
}
.nav-pills.nav-wizard > li.active .nav-wedge {
border-color: #428bca #428bca #428bca transparent;
}
.nav-pills.nav-wizard > li.active a {
background-color: #428bca !important;
}
span.select2-container.select2-container--default.select2-container--open {
z-index: 15000 !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
</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">
<div class="portlet light" id="form_wizard_1">
<div class="caption">
<i class=" icon-layers font-red"></i>
<span class="caption-subject font-red bold uppercase">Encuestas - <span class="step-title">Paso 1 de 5 </span> </span>
</div>
<div class="portlet-body form">
<form class="form-horizontal" action="#" id="submit_form">
<div class="form-wizard">
<div class="form-body" style="padding: 0px;">
<ul class="nav nav-pills nav-justified steps" style="padding: 0px;">
<li class="active">
<a href="#tab1" data-toggle="tab" class="step"><span class="number">1 </span><span class="desc"><i class="fa fa-check"></i>Campaña </span></a>
</li>
<li>
<a href="#tab2" data-toggle="tab" class="step"> <span class="number">2 </span><span class="desc"><i class="fa fa-check"></i>Tipo Encuesta </span></a>
</li>
<li>
<a href="#tab3" data-toggle="tab" class="step active"><span class="number">3 </span><span class="desc"><i class="fa fa-check"></i>Realizar Encuesta </span></a>
</li>
<li>
<a href="#tab4" data-toggle="tab" class="step"><span class="number">4 </span><span class="desc"><i class="fa fa-check"></i>Agregar Preguntas </span></a>
</li>
<li>
<a href="#tab5" data-toggle="tab" class="step"> <span class="number">5</span><span class="desc"><i class="fa fa-check"></i>Finalizar Encuesta </span></a>
</li>
</ul>
<div id="bar" class="progress progress-striped active" role="progressbar" style="margin-bottom: 5px;">
<div class="progress-bar progress-bar-success"></div>
</div>
<div class="tab-content">
<div class="tab-pane active" id="tab1">
<asp:UpdatePanel runat="server" ID="UpCampañas" UpdateMode="Conditional">
<ContentTemplate>
<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">Campañas</span>
</div>
<div class="actions">
<div class="btn-group">
<a runat="server" id="BtnAgregarCampaña" data-toggle="tooltip" data-placement="bottom" style="margin-left: 10px;" title="Agregar" class="btn btn-circle btn-default"><i class="fa fa-plus"></i></a>
</div>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body form">
<asp:GridView runat="server" ID="GvCampañas" GridLines="None" ShowHeader="true" AutoGenerateColumns="false" DataKeyNames="CveCampana, Campana" CssClass="table table-advance table-hover Widthall mysmallbtn">
<Columns>
<asp:BoundField DataField="Campana" HeaderText="Campaña" ItemStyle-Width="450px" />
<asp:BoundField DataField="Observaciones" HeaderText="Observaciones" />
<asp:TemplateField ItemStyle-HorizontalAlign="right">
<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>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="tab-pane" id="tab2">
<asp:UpdatePanel runat="server" ID="UpTipoEncuesta" UpdateMode="Conditional">
<ContentTemplate>
<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">Tipo Encuesta</span>
</div>
<div class="actions">
<div class="btn-group">
<a runat="server" id="BtnAgregarTipo" data-toggle="tooltip" data-placement="bottom" style="margin-left: 10px;" title="Agregar" class="btn btn-circle btn-default"><i class="fa fa-plus"></i></a>
</div>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body form">
<asp:GridView runat="server" ID="GvTipoEncuesta" DataKeyNames="CveTipoEncuesta, TipoEncuesta" GridLines="None" AutoGenerateColumns="false" CssClass="table table-advance table-hover Widthall mysmallbtn">
<Columns>
<asp:BoundField DataField="TipoEncuesta" HeaderText="Tipo Encuesta" />
<asp:BoundField DataField="TipoEncuestaSeccion" HeaderText="Tipo Encuesta Seccion" />
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<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>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="tab-pane" id="tab3">
<asp:UpdatePanel runat="server" ID="UpEncuestas" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet smmallpadding light bordered" id="Div3" runat="server">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Encuesta</span>
</div>
<div class="actions">
<div class="btn-group">
<a runat="server" id="BtnAgregarEncuesta" data-toggle="tooltip" data-placement="bottom" style="margin-left: 10px;" title="Agregar" class="btn btn-circle btn-default"><i class="fa fa-plus"></i></a>
</div>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body form">
<asp:GridView runat="server" ID="GvEncuesta" DataKeyNames="CveEncuesta" GridLines="None" AutoGenerateColumns="false" CssClass="table table-advance table-hover Widthall mysmallbtn">
<Columns>
<asp:BoundField DataField="NombreEncuesta" HeaderText="Nombre Encuesta" />
<asp:BoundField DataField="Campana" HeaderText="Campaña" />
<asp:BoundField DataField="TipoEncuesta" HeaderText="Tipo Encuesta" />
<asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Observacion" HeaderText="Observacion" />
<asp:BoundField DataField="Nombre" HeaderText="Usuario" />
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<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>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="tab-pane" id="tab4">
<div class="row">
<div class="col-md-12">
<asp:UpdatePanel runat="server" ID="UpEstructura" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet smmallpadding light bordered" id="Div7" runat="server">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Generación de Encuesta</span>
&nbsp;&nbsp;
<label for="<%= DdlFiltroEncuestas.ClientID.ToString()%>">Encuesta:</label>
<asp:DropDownList ID="DdlFiltroEncuestas" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="NombreEncuesta" DataValueField="CveEncuesta" Width="240px" ValidationGroup="GrpFiltro" AutoPostBack="true" OnSelectedIndexChanged="DdlFiltroEncuestas_SelectedIndexChanged"></asp:DropDownList>
</div>
<div class="actions">
<div class="btn-group">
<asp:LinkButton runat="server" ID="BtnAgregarPregunta" OnClick="BtnAgregarPregunta_Click" style="margin-left: 10px;" data-toggle="tooltip" title="Agregar" class="btn btn-circle btn-sm blue"><i class="fa fa-plus"></i> Agregar Pregunta</asp:LinkButton>
<%--<a runat="server" id="BtnAgregarPregunta2" data-toggle="tooltip" data-placement="bottom" style="margin-left: 10px;" title="Agregar" class="btn btn-circle btn-sm blue"><i class="fa fa-plus"></i>Agregar Pregunta</a>--%>
</div>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body form">
<asp:GridView runat="server" ID="GvEstructura" DataKeyNames="Tipo, CvePregunta, CveRespuesta, Respuesta, Pregunta, RespuestaDefault, CveTema, Tema, CveTipoPregunta, TipoPregunta" GridLines="None" AutoGenerateColumns="false" CssClass="table table-advance table-hover Widthall mysmallbtn">
<Columns>
<asp:TemplateField HeaderText="Tema / Tipo de Pregunta">
<ItemTemplate>
<asp:Literal ID="LtlTipoPregunta" Visible="True" runat="server" Text='<%# Eval("TipoPregunta")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Pregunta">
<ItemTemplate>
<asp:Literal ID="LtlPregunta" Visible="False" runat="server" Text='<%# Eval("Pregunta")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Respuesta Default">
<ItemTemplate>
<asp:Literal ID="LtlDefault" runat="server" Text=''></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Respuesta">
<ItemTemplate>
<asp:Literal ID="LtlRespuesta" Visible="false" runat="server" Text='<%# Eval("Respuesta")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="40px">
<ItemTemplate>
<asp:LinkButton ID="ImgA" Visible="false" runat="server" AlternateText="Agregar" OnClick="AddEstructura" CssClass="btn blue btn-outline btn-circle btn-sm" Text="<i class='fa fa-plus'></i> Agregar Respuesta" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="40px">
<ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" OnClick="UpdateEstructura" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="40px">
<ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="EliminarEstructura" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Estas seguro que desea eliminar?" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
<div class="tab-pane" id="tab5">
</div>
</div>
</div>
</div>
<div class="form-actions">
<div class="row">
<div class="col-md-12">
<a href="#" id="globalprevious" style="float: left" class="btn default button-previous"> <i class="fa fa-angle-left"></i>Back </a>
<a id="globalnext" style="float: right" class="btn btn-outline green button-next">Continue<i class="fa fa-angle-right"></i></a>
<a style="display: none; float: right" class="btn green button-submit">Guardar <i class='fa fa-check'></i></a>
</div>
</div>
</div>
</form>
</div>
</div>
<%-- M O D A L E S --%>
<div id="ModalCampaña" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalCampaña" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModal" runat="server">Agregar Campaña</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCampaña" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVCampaña" runat="server" ControlToValidate="TxtCampaña" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Campaña''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
<label for="<%= TxtCampaña.ClientID.ToString()%>">Campaña:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtObservaciones" CssClass="form-control" runat="server" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtObservaciones.ClientID.ToString()%>">Observaciones:</label>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="LbAgregarCampaña" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardarRegistro" />
<button id="BtnCancelarCampaña" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
<asp:HiddenField ID="HdnModalidadCampaña" runat="server" Value="T" ClientIDMode="Static" />
<asp:HiddenField ID="HdnIDCampaña" runat="server" Value="-1" ClientIDMode="Static" />
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div id="ModalTipoEncuesta" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTipoEncuesta" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="Literal1" runat="server">Agregar Tipo de Encuesta</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTipo" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTipo" runat="server" ControlToValidate="TxtTipo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTipoEncuesta"></asp:RequiredFieldValidator>
<label for="<%= TxtTipo.ClientID.ToString()%>">Tipo Encuesta:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoEncuestaSeccion" runat="server" CssClass="form-control select2me input-sm js-cuenta-programmatic" CausesValidation="true" Width="240px">
<asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
<asp:ListItem Value="1">Caracteristicas Personal</asp:ListItem>
<asp:ListItem Value="2">Entrevistas Personal</asp:ListItem>
<asp:ListItem Value="3">Referencias Personales</asp:ListItem>
<asp:ListItem Value="4">Referencias Laborales</asp:ListItem>
<asp:ListItem Value="5">General</asp:ListItem>
<asp:ListItem Value="6">Datos Técnicos CRM</asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlTipoEncuestaSeccion" InitialValue="-1" runat="server" ControlToValidate="DdlTipoEncuestaSeccion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Encuesta Seccion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTipoEncuesta"></asp:RequiredFieldValidator>
<label for="<%= DdlTipoEncuestaSeccion.ClientID.ToString()%>" style="width: 240px">Tipo Encuesta Seccion:</label>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="LbAgregarTipoEncuesta" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTipoEncuesta" />
<button id="BtnCancelarTipoEncuesa" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
<asp:HiddenField ID="HFTipoEncuesta" runat="server" Value="I" ClientIDMode="Static" />
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div id="ModalTema" class="modal ADS fade" role="dialog" style="z-index: 10055 !important;">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTema" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTema" runat="server">Agregar Tema</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEncuestaTema" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="NombreEncuesta" DataValueField="CveEncuesta" Width="240px" ValidationGroup="GrpTema"></asp:DropDownList>
<label for="<%= DdlEncuestaTema.ClientID.ToString()%>">Encuesta:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTema" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTema" runat="server" ControlToValidate="TxtTema" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tema''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTema"></asp:RequiredFieldValidator>
<label for="<%= TxtTema.ClientID.ToString()%>">Tema:</label>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="LbAgregarTema" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTema" />
<button id="LbCancelarTema" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div id="ModalPreguntas" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalPreguntas" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlPregunta" runat="server">Agregar Pregunta</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEncuestaPreguntas" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="NombreEncuesta" DataValueField="CveEncuesta" Width="240px" CausesValidation="true" ValidationGroup="GrpPregunta"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVEncPregun" runat="server" ControlToValidate="DdlEncuestaPreguntas" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Encuesta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpPregunta"></asp:RequiredFieldValidator>
<label for="<%= DdlEncuestaPreguntas.ClientID.ToString()%>" style="width: 240px">Encuesta:</label>
</div>
<div class="row">
<div class="col-md-8">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTemaPregunta" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" CausesValidation="true" AppendDataBoundItems="true" DataTextField="Tema" DataValueField="CveTema" Width="240px" ValidationGroup="GrpPregunta"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVTemaPregunta" runat="server" ControlToValidate="DdlTemaPregunta" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tema Pregunta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpPregunta"></asp:RequiredFieldValidator>
<label for="<%= DdlTemaPregunta.ClientID.ToString()%>" style="width: 240px">Tema Pregunta:</label>
</div>
</div>
<div class="col-md-4">
<div class="btn-group" style="padding-top: 18px;">
<a runat="server" id="BtnAgregarTema" data-toggle="tooltip" data-placement="bottom" style="margin-left: 10px;" title="Agregar" class="btn btn-circle btn-sm blue"><i class="fa fa-plus"></i>Agregar Tema</a>
</div>
</div>
</div>
<div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoPregunta" OnSelectedIndexChanged="DdlTipoPregunta_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control input-sm select2me js-movimiento-programmatic" runat="server" CausesValidation="true" AppendDataBoundItems="true" Width="240px" ValidationGroup="GrpPregunta">
<asp:ListItem Value="-1" Text="Seleccione"></asp:ListItem>
<asp:ListItem Value="1" Text="Pregunta Abierta"></asp:ListItem>
<asp:ListItem Value="6" Text="Pregunta Abierta Multitexto"></asp:ListItem>
<asp:ListItem Value="2" Text="Opción Múltiple"></asp:ListItem>
<asp:ListItem Value="3" Text="Lista de Selección"></asp:ListItem>
<asp:ListItem Value="4" Text="Si/No"></asp:ListItem>
<asp:ListItem Value="5" Text="Entero"></asp:ListItem>
<asp:ListItem Value="7" Text="Fecha"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVTipoPregun" runat="server" ControlToValidate="DdlTipoPregunta" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Pregunta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpPregunta"></asp:RequiredFieldValidator>
<label for="<%= DdlTipoPregunta.ClientID.ToString()%>" style="width: 240px">Tipo Pregunta:</label>
</div>
<div runat="server" id="DivChkrespuestaDefult" visible="false" class="form-group col-md-6 form-md-line-input input-iconright">
<asp:CheckBox ID="ChkRespuestaDefault" Style="padding-top: 11px;" runat="server" CssClass="form-control make-switchsd" BorderStyle="None" data-size="small"></asp:CheckBox>
<label for="ChkRespuestaDefault.ClientID.ToString()" style="">Respuesta Default: </label>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtPregunta" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVPregunta" runat="server" ControlToValidate="TxtPregunta" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pregunta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpPregunta"></asp:RequiredFieldValidator>
<label for="<%= TxtPregunta.ClientID.ToString()%>">Pregunta:</label>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="LbAgregarPregunta" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpPregunta" />
<button id="LbCancelarPregunta" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div id="ModalRespuestas" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalRespuestas" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlRespuesta" runat="server">Agregar Respuesta</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPregunta" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" Enabled="true" AppendDataBoundItems="true" DataTextField="Pregunta" DataValueField="CvePregunta" Width="240px" CausesValidation="true" ValidationGroup="GrpRespuesta"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVPreguntaResp" runat="server" ControlToValidate="DdlPregunta" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pregunta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRespuesta"></asp:RequiredFieldValidator>
<label for="<%= DdlPregunta.ClientID.ToString()%>" style="width: 240px">Pregunta:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRespuesta" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVRespuesta" runat="server" ControlToValidate="TxtRespuesta" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Respuesta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRespuesta"></asp:RequiredFieldValidator>
<label for="<%= TxtRespuesta.ClientID.ToString()%>">Respuesta:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:CheckBox runat="server" ID="ChkSeguirRespondiendo" Text="Seguir Respondiendo" />
</div>
</div>
<div class="modal-footer">
<asp:Button ID="LbAgregarRespuesta" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpRespuesta" />
<button id="LbCancelarRespuesta" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div id="ModalEncuestas" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalEncuestas" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="Literal5" runat="server">Agregar una Encuesta</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlCampana" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="Campana" DataValueField="CveCampana" Width="240px" ValidationGroup="GrpEncuesta"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVCampana" runat="server" ControlToValidate="DdlCampana" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Campaña''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEncuesta"></asp:RequiredFieldValidator>
<label for="<%= DdlCampana.ClientID.ToString()%>" style="width: 240px">Campaña:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoEncuesta" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="TipoEncuesta" DataValueField="CveTipoEncuesta" Width="240px" CausesValidation="true" ValidationGroup="GrpEncuesta"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVtipoEncuesta" runat="server" ControlToValidate="DdlTipoEncuesta" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Encuesta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEncuesta"></asp:RequiredFieldValidator>
<label for="<%= DdlTipoEncuesta.ClientID.ToString()%>" style="width: 240px">Tipo Encuesta:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtEncuesta" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVEncuesta" runat="server" ControlToValidate="TxtEncuesta" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre Encuesta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEncuesta"></asp:RequiredFieldValidator>
<label for="<%= TxtEncuesta.ClientID.ToString()%>">Nombre Encuesta:</label>
</div>
<div class="form-group form-md-line-input input-iconright date date-picker date date-picker">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 100%;">
<asp:TextBox ID="TxtFecha" CssClass="form-control" runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtFecha.ClientID.ToString()%>" style="padding-bottom: 32px;"><span style='color: #F3565D'>*</span> Fecha:</label>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="TxtFecha" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFecha" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEncuesta"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaI" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFecha" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEncuesta"></asp:CompareValidator>
<%-- <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>--%>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtObservacionesEncuesta" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtObservacionesEncuesta.ClientID.ToString()%>">Observaciones:</label>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="LbAgregarEncuesta" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpEncuesta" />
<button id="LbCancelarModal" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
<asp:HiddenField ID="HiddenField4" runat="server" Value="I" ClientIDMode="Static" />
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div id="ModalFiltroEncuestas" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpFiltroEncuestas" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-body">
</div>
<div class="modal-footer">
<asp:Button ID="BtnFiltrarEncuestas" runat="server" class="btn btn-success" Text="Filtrar" ValidationGroup="GrpFiltro" />
<button id="Button2" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<asp:UpdatePanel ID="UpHdn" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:HiddenField ID="HdnModalidad" runat="server" Value="I" ClientIDMode="Static" />
<asp:HiddenField ID="HdnID" runat="server" Value="-1" ClientIDMode="Static" />
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script src="../Metronic/assets/global/plugins/bootstrap-wizard/jquery.bootstrap.wizard.js"></script>
<script>
var handleTitle = function (tab, navigation, index) {
var total = navigation.find('li').length;
var current = index + 1;
// set wizard title
$('.step-title', $('#form_wizard_1')).text('Paso ' + (index + 1) + ' de ' + total);
// set done steps
jQuery('li', $('#form_wizard_1')).removeClass("done");
var li_list = navigation.find('li');
for (var i = 0; i < index; i++) {
jQuery(li_list[i]).addClass("done");
}
if (current == 1) {
$('#form_wizard_1').find('.button-previous').hide();
$('#globalnext').html("Continuar <i class='fa fa-angle-right'></i>")
} else {
$('#form_wizard_1').find('.button-previous').show();
}
if (current == 2) {
$('#globalprevious').html("<i class='fa fa-angle-left'></i> Regresar ")
$('#globalnext').html("Continuar <i class='fa fa-angle-right'></i>")
}
if (current == 3) {
$('#globalprevious').html("<i class='fa fa-angle-left'></i> Regresar ")
$('#globalnext').html("Continuar <i class='fa fa-angle-right'></i>")
}
if (current >= total) {
$('#globalprevious').html("<i class='fa fa-angle-left'></i> Regresar ")
$('#form_wizard_1').find('.button-next').hide();
// $('#form_wizard_1').find('.button-submit').show();
} else {
$('#form_wizard_1').find('.button-next').show();
$('#form_wizard_1').find('.button-submit').hide();
}
Metronic.scrollTo($('.page-title'));
}
// default form wizard
$(document).ready(function () {
$('#form_wizard_1').bootstrapWizard({
'nextSelector': '.button-next',
'previousSelector': '.button-previous',
onTabClick: function (tab, navigation, index, clickedIndex) {
return false;
/*
success.hide();
error.hide();
if (form.valid() == false) {
return false;
}
handleTitle(tab, navigation, clickedIndex);
*/
},
onNext: function (tab, navigation, index) {
//success.hide();
//error.hide();
handleTitle(tab, navigation, index);
},
onPrevious: function (tab, navigation, index) {
//success.hide();
//error.hide();
handleTitle(tab, navigation, index);
$("#Giro").click()
},
onTabShow: function (tab, navigation, index) {
var total = navigation.find('li').length;
var current = index + 1;
var $percent = (current / total) * 100;
//$('#button-submit').css("display", "none")
handleTitle(tab, navigation, index);
$('#form_wizard_1').find('.progress-bar').css({
width: $percent + '%'
});
}
});
}) </script>
</asp:Content>

604
Encuestas/Encuestas.aspx.vb Normal file
View File

@@ -0,0 +1,604 @@
Option Explicit On
Option Strict On
Imports Extensiones
Partial Class Encuestas_Encuestas
Inherits ClsPaginas
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
InicializaValores()
End If
End Sub
Private Sub InicializaValores()
CargaGridCampañas()
CargaGridTiposEncuestas()
CargaDdlTemaPregunta()
CargaGridEncuestas()
End Sub
#Region " C A M P A Ñ A "
Private Sub CargaGridCampañas()
Dim Objeto As New ClsEncuestas
If Objeto.GetCampañas(-1, -1, UsuarioActual.CveEmpresa) Then
GvCampañas.DataSource = Objeto.DtResultados
GvCampañas.DataBind()
UpCampañas.Update()
End If
Objeto.Dispose()
End Sub
Private Sub BtnAgregarCampaña_Click(sender As Object, e As EventArgs) Handles BtnAgregarCampaña.ServerClick
TxtCampaña.Text = ""
TxtObservaciones.Text = ""
UpModalCampaña.Update()
RegistraScript(String.Format("$('#{0}').modal();", "ModalCampaña"))
End Sub
Private Sub LbAgregarCampaña_Click(sender As Object, e As EventArgs) Handles LbAgregarCampaña.Click
Dim Objeto As New ClsEncuestas
If Objeto.AddCampañas(TxtCampaña.Text, TxtObservaciones.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
CargaGridCampañas()
Alert("Se agregó correctamente la Campaña.", TipoMensaje.MsgInformacion)
OcultaDiv("ModalCampaña")
End If
Objeto.Dispose()
End Sub
Protected Sub GvCampañas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvCampañas.RowDeleting
Dim Objeto As New ClsEncuestas
If Objeto.RemoveCampañas(GvCampañas.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
CargaGridCampañas()
Alert("La Campaña se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
Objeto.Dispose()
End Sub
#End Region
#Region " T i p o E n c u e s t a s"
Private Sub CargaGridTiposEncuestas()
Dim Objeto As New ClsEncuestas
If Objeto.GetTiposEncuestas(-1, -1, UsuarioActual.CveEmpresa) Then
GvTipoEncuesta.DataSource = Objeto.DtResultados
GvTipoEncuesta.DataBind()
UpTipoEncuesta.Update()
End If
Objeto.Dispose()
End Sub
Private Sub BtnAgregarTipo_Click(sender As Object, e As EventArgs) Handles BtnAgregarTipo.ServerClick
TxtTipo.Text = ""
UpModalTipoEncuesta.Update()
RegistraScript(String.Format("$('#{0}').modal();", "ModalTipoEncuesta"))
End Sub
Private Sub LbAgregarTipoEncuesta_Click(sender As Object, e As EventArgs) Handles LbAgregarTipoEncuesta.Click
Dim Objeto As New ClsEncuestas
If Objeto.AddTiposEncuestas(TxtTipo.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoEncuestaSeccion.SelectedValue.ToEntero) Then
CargaGridTiposEncuestas()
Alert("Se agregó correctamente el Tipo de Encuesta.", TipoMensaje.MsgInformacion)
OcultaDiv("ModalTipoEncuesta")
End If
Objeto.Dispose()
End Sub
Protected Sub GvTipoEncuesta_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvTipoEncuesta.RowDeleting
Dim Objeto As New ClsEncuestas
If Objeto.RemoveTiposEncuestas(GvTipoEncuesta.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
CargaGridTiposEncuestas()
Alert("El Tipo de Encuesta se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
Objeto.Dispose()
End Sub
#End Region
#Region " T e m a E n c u e s t a s"
Private Sub CargaDdlTemaPregunta()
Dim Objeto As New ClsEncuestas
If Objeto.GetTemasEncuestas(-1, -1, UsuarioActual.CveEmpresa) Then
DdlTemaPregunta.Items.Clear()
DdlTemaPregunta.DataSource = Objeto.DtResultados
DdlTemaPregunta.DataBind()
DdlTemaPregunta.Items.Insert(0, New ListItem("Seleccione", "-1"))
UpModalPreguntas.Update()
End If
Objeto.Dispose()
End Sub
Private Sub BtnAgregarTema_Click(sender As Object, e As EventArgs) Handles BtnAgregarTema.ServerClick
LtlTema.Text = "Agregar Tema"
LbAgregarTema.Text = "Guardar"
HdnModalidad.Value = "I"
HdnID.Value = "-1"
TxtTema.Text = ""
UpHdn.Update()
UpModalTema.Update()
RegistraScript(String.Format("$('#{0}').modal();", "ModalTema"))
End Sub
Private Sub ActualizaTema(GvRow As GridViewRow)
LtlTema.Text = "Editar Tema"
LbAgregarTema.Text = "Actualizar"
HdnModalidad.Value = "U"
HdnID.Value = GvRow.DataKey("CveTema")
CargaPreguntasEnModal()
TxtTema.Text = GvRow.DataKey("Tema")
UpHdn.Update()
UpModalTema.Update()
RegistraScript(String.Format("$('#{0}').modal();", "ModalTema"))
End Sub
Private Sub LbAgregarTema_Click(sender As Object, e As EventArgs) Handles LbAgregarTema.Click
Dim Objeto As New ClsEncuestas
If HdnModalidad.Value = "I" Then
If Objeto.AddTemasEncuestas(TxtTema.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
CargaDdlTemaPregunta()
Alert("Se agregó correctamente el Tema de Encuesta.", TipoMensaje.MsgInformacion)
OcultaDiv("ModalTema")
End If
Else
If HdnID.Value.ToEntero <> -1 Then
If Objeto.UpdateTemasEncuestas(HdnID.Value.ToEntero, TxtTema.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
CargaDdlTemaPregunta()
Alert("Se actualizó correctamente el Tema de Encuesta.", TipoMensaje.MsgInformacion)
OcultaDiv("ModalTema")
End If
End If
End If
Objeto.Dispose()
End Sub
Protected Sub EliminarTema(GvRow As GridViewRow)
Dim Objeto As New ClsEncuestas
If Objeto.RemoveTemasEncuestas(GvRow.DataKey("CveTema").ToEntero) Then
Alert("El Tema se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
Objeto.Dispose()
End Sub
#End Region
#Region " P r e g u n t a s "
Private Sub AgregaPregunta(GvRow As GridViewRow)
HdnModalidad.Value = "I"
LtlPregunta.Text = "Agregar Pregunta"
LbAgregarPregunta.Text = "Guardar"
HdnID.Value = "-1"
TxtPregunta.Text = ""
DdlTemaPregunta.SelectedValue = GvRow.DataKey("CveTema")
DdlTipoPregunta.SelectedIndex = 0
UpModalPreguntas.Update()
UpHdn.Update()
RegistraScript(String.Format("$('#{0}').modal();", "ModalPreguntas"))
End Sub
Private Sub ActualizaPregunta(GvRow As GridViewRow)
HdnModalidad.Value = "U"
LtlPregunta.Text = "Editar Pregunta"
LbAgregarPregunta.Text = "Actualizar"
HdnID.Value = GvRow.DataKey("CvePregunta")
TxtPregunta.Text = GvRow.DataKey("Pregunta")
DdlTemaPregunta.SelectedValue = GvRow.DataKey("CveTema")
DdlTipoPregunta.SelectedValueExist(GvRow.DataKey("CveTipoPregunta"))
If DdlTipoPregunta.SelectedValue = "4" Then
DivChkrespuestaDefult.Visible = True
If GvRow.DataKey("RespuestaDefault").ToEntero = 1 Then
ChkRespuestaDefault.Checked = True
Else
ChkRespuestaDefault.Checked = False
End If
Else
DivChkrespuestaDefult.Visible = False
End If
UpModalPreguntas.Update()
UpHdn.Update()
RegistraScript(String.Format("$('#{0}').modal();", "ModalPreguntas"))
End Sub
Private Sub LbAgregarPregunta_Click(sender As Object, e As EventArgs) Handles LbAgregarPregunta.Click
Dim Objeto As New ClsEncuestas
Dim RespuestaDefault As Integer = -1
If DdlTipoPregunta.SelectedValue.ToEntero = 4 Then
RespuestaDefault = IIf(ChkRespuestaDefault.Checked, "1", "0").ToString.ToEntero
End If
If HdnModalidad.Value = "I" Then
If Objeto.AddPreguntas(TxtPregunta.Text, DdlFiltroEncuestas.SelectedValue.ToEntero, DdlTipoPregunta.SelectedValue.ToEntero, DdlTemaPregunta.SelectedValue.ToEntero, UsuarioActual.CveUsuario, RespuestaDefault) Then
Alert("La Pregunta se agregó correctamente.", TipoMensaje.MsgInformacion)
OcultaDiv("ModalPreguntas")
CargaEstructura(DdlFiltroEncuestas.SelectedValue.ToEntero)
End If
Else
If HdnID.Value.ToEntero <> -1 Then
If Objeto.UpdatePreguntas(HdnID.Value.ToEntero, TxtPregunta.Text, DdlTipoPregunta.SelectedValue.ToEntero, DdlTemaPregunta.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RespuestaDefault) Then
Alert("La Pregunta se actualizó correctamente.", TipoMensaje.MsgInformacion)
OcultaDiv("ModalPreguntas")
CargaEstructura(DdlFiltroEncuestas.SelectedValue.ToEntero)
End If
End If
End If
Objeto.Dispose()
End Sub
Protected Sub EliminarPregunta(GvRow As GridViewRow)
Dim Objeto As New ClsEncuestas
If Objeto.RemovePreguntas(GvRow.DataKey("CvePregunta").ToEntero) Then
CargaEstructura(DdlFiltroEncuestas.SelectedValue.ToEntero)
Alert("La Pregunta se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
Objeto.Dispose()
End Sub
#End Region
#Region " R E S P U E S T A S "
Private Sub CargaPreguntasEnModal()
Dim Objeto As New ClsEncuestas
If Objeto.GetPreguntas(DdlFiltroEncuestas.SelectedValue.ToEntero, -1, -1, -1, UsuarioActual.CveEmpresa) Then
DdlPregunta.DataSource = Objeto.DtResultados
DdlPregunta.Items.Clear()
DdlPregunta.Items.Insert(0, New ListItem("Seleccione (Todos)", "-1"))
DdlPregunta.DataBind()
UpModalRespuestas.Update()
End If
Objeto.Dispose()
End Sub
Private Sub AgregaRespuestas(GvRow As GridViewRow)
HdnModalidad.Value = "I"
LtlRespuesta.Text = "Agregar Respuesta"
LbAgregarRespuesta.Text = "Guardar"
HdnID.Value = "-1"
CargaPreguntasEnModal()
DdlPregunta.SelectedValue = GvRow.DataKey("CvePregunta")
TxtRespuesta.Text = ""
UpHdn.Update()
UpModalRespuestas.Update()
RegistraScript(String.Format("$('#{0}').modal();", "ModalRespuestas"))
End Sub
Private Sub ActualizaRespuestas(GvRow As GridViewRow)
HdnModalidad.Value = "U"
LtlRespuesta.Text = "Editar Respuesta"
LbAgregarRespuesta.Text = "Actualizar"
HdnID.Value = GvRow.DataKey("CveRespuesta")
CargaPreguntasEnModal()
DdlPregunta.SelectedValue = GvRow.DataKey("CvePregunta")
TxtRespuesta.Text = GvRow.DataKey("Respuesta")
UpHdn.Update()
UpModalRespuestas.Update()
RegistraScript(String.Format("$('#{0}').modal();", "ModalRespuestas"))
End Sub
Private Sub LbAgregarRespuesta_Click(sender As Object, e As EventArgs) Handles LbAgregarRespuesta.Click
Dim Objeto As New ClsEncuestas
If HdnModalidad.Value = "I" Then
If ChkSeguirRespondiendo.Checked = True Then
If Objeto.AddRespuestas(TxtRespuesta.Text, DdlPregunta.SelectedValue.ToEntero) Then
Alert("La Respuesta se registró correctamente..", TipoMensaje.MsgInformacion)
CargaEstructura(DdlFiltroEncuestas.SelectedValue.ToEntero)
TxtRespuesta.Text = ""
UpModalRespuestas.Update()
End If
Else
If Objeto.AddRespuestas(TxtRespuesta.Text, DdlPregunta.SelectedValue.ToEntero) Then
Alert("La Respuesta se registró correctamente.", TipoMensaje.MsgInformacion)
OcultaDiv("ModalRespuestas")
CargaEstructura(DdlFiltroEncuestas.SelectedValue.ToEntero)
End If
End If
Else
If HdnID.Value.ToEntero <> -1 Then
If Objeto.UpdateRespuestas(HdnID.Value.ToEntero, TxtRespuesta.Text, DdlPregunta.SelectedValue.ToEntero) Then
Alert("La Respuesta se actualizó correctamente.", TipoMensaje.MsgInformacion)
OcultaDiv("ModalRespuestas")
CargaEstructura(DdlFiltroEncuestas.SelectedValue.ToEntero)
End If
End If
End If
Objeto.Dispose()
End Sub
Private Sub EliminarRespuesta(GvRow As GridViewRow)
Dim Objeto As New ClsEncuestas
If Objeto.RemoveRespuesta(GvRow.DataKey("CveRespuesta").ToEntero) Then
Alert("La respuesta se eliminó correctamente.", TipoMensaje.MsgInformacion)
CargaEstructura(DdlFiltroEncuestas.SelectedValue.ToEntero)
End If
Objeto.Dispose()
End Sub
#End Region
#Region " E N C U E S T A S "
Private Sub BtnAgregarEncuesta_Click(sender As Object, e As EventArgs) Handles BtnAgregarEncuesta.ServerClick
CargaModalEncuestas()
TxtFecha.Text = ""
TxtEncuesta.Text = ""
TxtObservacionesEncuesta.Text = ""
RegistraScript(String.Format("$('#{0}').modal();", "ModalEncuestas"))
End Sub
'Private Sub BtnFiltrar_ServerClick(sender As Object, e As EventArgs) Handles BtnFiltrar.ServerClick
' DdlFiltroEncuestas.SelectedIndex = -1
' RegistraScript(String.Format("$('#{0}').modal();", "ModalFiltroEncuestas"))
'End Sub
Private Sub BtnFiltrarEncuestas_Click(sender As Object, e As EventArgs) Handles BtnFiltrarEncuestas.Click
FiltraEstructura(DdlFiltroEncuestas.SelectedValue.ToEntero)
OcultaDiv("ModalFiltroEncuestas")
End Sub
Private Sub CargaModalEncuestas()
Dim Objeto As New ClsEncuestas
If Objeto.GetCampañas(-1, -1, UsuarioActual.CveEmpresa) Then
DdlCampana.DataSource = Objeto.DtResultados
DdlCampana.Items.Clear()
DdlCampana.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlCampana.DataBind()
End If
If Objeto.GetTiposEncuestas(-1, -1, UsuarioActual.CveEmpresa) Then
DdlTipoEncuesta.DataSource = Objeto.DtResultados
DdlTipoEncuesta.Items.Clear()
DdlTipoEncuesta.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlTipoEncuesta.DataBind()
End If
Objeto.Dispose()
UpModalEncuestas.Update()
End Sub
Private Sub LbAgregarEncuesta_Click(sender As Object, e As EventArgs) Handles LbAgregarEncuesta.Click
Dim Objeto As New ClsEncuestas
If Objeto.AddEncuesta(DdlCampana.SelectedValue.ToEntero, -1, TxtEncuesta.Text, TxtObservacionesEncuesta.Text, -1,
DdlTipoEncuesta.SelectedValue.ToEntero, True, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Alert("La Encuesta se agregó correctamente.", TipoMensaje.MsgInformacion)
CargaGridEncuestas()
OcultaDiv("ModalEncuestas")
End If
Objeto.Dispose()
'CargaGridEncuestas()
End Sub
Protected Sub GvEncuesta_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvEncuesta.RowDeleting
Dim Objeto As New ClsEncuestas
If Objeto.RemoveEncuestas(GvEncuesta.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
CargaGridEncuestas()
Alert("La Encuesta se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
Objeto.Dispose()
End Sub
Private Sub CargaGridEncuestas()
Dim Objeto As New ClsEncuestas
If Objeto.GetEncuestas(UsuarioActual.CveEmpresa) Then
GvEncuesta.DataSource = Objeto.DtResultados
DdlFiltroEncuestas.Items.Clear()
DdlEncuestaTema.Items.Clear()
DdlEncuestaPreguntas.Items.Clear()
DdlFiltroEncuestas.DataSource = Objeto.DtResultados
DdlEncuestaTema.DataSource = Objeto.DtResultados
DdlEncuestaPreguntas.DataSource = Objeto.DtResultados
DdlEncuestaPreguntas.DataBind()
DdlFiltroEncuestas.DataBind()
DdlEncuestaTema.DataBind()
GvEncuesta.DataBind()
DdlFiltroEncuestas.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If
Objeto.Dispose()
UpEncuestas.Update()
UpModalTema.Update()
UpFiltroEncuestas.Update()
End Sub
#End Region
#Region " E S T R U C T U R A "
Private Sub CargaEstructura(tCveEncuesta As Integer)
Dim Objeto As New ClsEncuestas
If Objeto.GetEstructura(tCveEncuesta, UsuarioActual.CveEmpresa) Then
GvEstructura.DataSource = Objeto.DtResultados
GvEstructura.DataBind()
UpEstructura.Update()
End If
Objeto.Dispose()
End Sub
Private Sub FiltraEstructura(CveEncuesta As Integer)
Dim Objeto As New ClsEncuestas
If Objeto.GetEstructura(CveEncuesta, UsuarioActual.CveEmpresa) Then
GvEstructura.DataSource = Objeto.DtResultados
GvEstructura.DataBind()
UpEstructura.Update()
End If
End Sub
Protected Sub GvEstructura_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvEstructura.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim Tipo = e.Row.DataKey("Tipo").ToString
Select Case Tipo
Case "1"
e.Row.Font.Bold = True
e.Row.ForeColor = Drawing.Color.White
e.Row.BackColor = Drawing.Color.FromArgb(1, 186, 205, 206)
Case "2"
e.Row.BackColor = Drawing.Color.FromArgb(1, 213, 225, 225)
e.Row.FCLiteral("LtlPregunta").Visible = True
e.Row.FCLinkButton("ImgA").Visible = True
Case "3"
e.Row.BackColor = Drawing.Color.White
e.Row.FCLiteral("LtlRespuesta").Visible = True
End Select
If Not e.Row.DataKey("CvePregunta").ToEntero > 0 Then
e.Row.FCLiteral("LtlTipoPregunta").Text = e.Row.DataKey("Tema")
End If
If e.Row.DataKey("RespuestaDefault").ToString = "0" Then
e.Row.FCLiteral("LtlDefault").Text = "No"
ElseIf e.Row.DataKey("RespuestaDefault").ToString = "1" Then
e.Row.FCLiteral("LtlDefault").Text = "Si"
End If
End If
End Sub
Protected Sub AddEstructura(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim Tipo As Integer = GvRow.DataKey("Tipo").ToString.ToEntero
Select Case Tipo
Case -1
Case 2
AgregaRespuestas(GvRow)
Case 1
AgregaPregunta(GvRow)
End Select
End Sub
Protected Sub EliminarEstructura(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim Tipo As Integer = GvRow.DataKey("Tipo").ToString.ToEntero
Select Case Tipo
Case 3
'RESPUESTA
EliminarRespuesta(GvRow)
Case 2
'PREGUNTAS
EliminarPregunta(GvRow)
Case 1
'TEMA
EliminarTema(GvRow)
End Select
End Sub
Protected Sub UpdateEstructura(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim Tipo As Integer = GvRow.DataKey("Tipo").ToString.ToEntero
Select Case Tipo
Case 3
ActualizaRespuestas(GvRow)
Case 2
ActualizaPregunta(GvRow)
' ActualizaPregunta(GvRow)
Case 1
'ActualizaTema(GvRow)
ActualizaTema(GvRow)
End Select
End Sub
#End Region
#Region " E X T R A S "
Private Sub OcultaDiv(Modal As String)
RegistraScript(String.Format("$('#{0}').modal('hide');", Modal))
End Sub
'Private Sub BtnAgregarPregunta2_ServerClick(sender As Object, e As EventArgs) Handles BtnAgregarPregunta2.ServerClick
' HdnModalidad.Value = "I"
' HdnID.Value = "-1"
' TxtPregunta.Text = ""
' DdlTipoPregunta.SelectedIndex = 0
' 'DivChkrespuestaDefult.Visible = False
' ChkRespuestaDefault.Checked = true
' UpModalPreguntas.Update()
' UpHdn.Update()
' RegistraScript(String.Format("$('#{0}').modal();", "ModalPreguntas"))
'End Sub
'Private Sub BtnAgregarRespuesta2_ServerClick(sender As Object, e As EventArgs) Handles BtnAgregarRespuesta2.ServerClick
' HdnModalidad.Value = "I"
' HdnID.Value = "-1"
' CargaPreguntasEnModal()
' TxtRespuesta.Text = ""
' UpHdn.Update()
' UpModalRespuestas.Update()
' RegistraScript(String.Format("$('#{0}').modal();", "ModalRespuestas"))
'End Sub
#End Region
Protected Sub DdlFiltroEncuestas_SelectedIndexChanged(sender As Object, e As EventArgs)
If DdlFiltroEncuestas.SelectedValue.ToEntero > 0 Then CargaEstructura(DdlFiltroEncuestas.SelectedValue.ToEntero)
End Sub
Protected Sub DdlTipoPregunta_SelectedIndexChanged(sender As Object, e As EventArgs)
'REVISAR PORQUE NO ENTRA BIEN AQUI, DIV MAL CERRADO???
If DdlTipoPregunta.SelectedValue = "4" Then
DivChkrespuestaDefult.Visible = True
Else
DivChkrespuestaDefult.Visible = False
End If
UpModalPreguntas.Update()
End Sub
Protected Sub BtnAgregarPregunta_Click(sender As Object, e As EventArgs)
HdnModalidad.Value = "I"
HdnID.Value = "-1"
TxtPregunta.Text = " "
DdlTipoPregunta.SelectedIndex = 0
DivChkrespuestaDefult.Visible = False
ChkRespuestaDefault.Checked = True
UpModalPreguntas.Update()
UpHdn.Update()
RegistraScript("$('#ModalPreguntas').modal();")
End Sub
End Class

BIN
Encuestas/vssver2.scc Normal file

Binary file not shown.