Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
455
Prospectos/Encuestas/CatEncuestas.aspx
Normal file
455
Prospectos/Encuestas/CatEncuestas.aspx
Normal file
@@ -0,0 +1,455 @@
|
||||
<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatEncuestas.aspx.vb" Inherits="Prospectos_Encuestas_CatEncuestas" %>
|
||||
|
||||
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
|
||||
Catálogo de Encuestas
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
|
||||
<script language="javascript" type="text/javascript">
|
||||
function C() {
|
||||
return confirm('¿Está seguro que lo Desea Eliminar?');
|
||||
}
|
||||
</script>
|
||||
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<ajax:TabContainer ID="Tab" runat="server" Width="100%">
|
||||
<ajax:TabPanel ID="TabEncunestas" runat="server" HeaderText="Encuestas">
|
||||
<ContentTemplate>
|
||||
<table border="0" class="contenido">
|
||||
<tr>
|
||||
<td>
|
||||
<div>
|
||||
<table border="1" rules="all" style="border-collapse: collapse;">
|
||||
<tr class="Titulos">
|
||||
<td width="250px"><asp:LinkButton ID="LbEncuesta" runat="server" CausesValidation="false" Text="Encuesta"></asp:LinkButton> <asp:ImageButton ID="ImgEncuesta" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="250px"><asp:LinkButton ID="LbEncuestaTipo" runat="server" CausesValidation="false" Text="Tipo Encuesta"></asp:LinkButton> <asp:ImageButton ID="ImgEncuestaTipo" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"><asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="false" Text="Estatus"></asp:LinkButton> <asp:ImageButton ID="ImgEstatus" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"><asp:LinkButton ID="LbFechaIng" runat="server" CausesValidation="false" Text="FechaIng"></asp:LinkButton> <asp:ImageButton ID="ImgFechaIng" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"><asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="Usuario"></asp:LinkButton> <asp:ImageButton ID="ImgUsuario" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="103">Comandos</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtEncuesta" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="244px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVEncuesta" runat="server" ControlToValidate="TxtEncuesta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Encuesta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEncuesta" runat="server" HighlightCssClass="vco" TargetControlID="RFVEncuesta" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlEncuestaTipo" runat="server" AppendDataBoundItems="true" DataValueField="CveEncuestaTipo" DataTextField="EncuestaTipo" ValidationGroup="GrpGuardar" Width="200px">
|
||||
<%--<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>--%>
|
||||
<asp:ListItem Text="Manual(Papel)" Value="0"></asp:ListItem>
|
||||
<asp:ListItem Text="CallCenter" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="Web" Value="2"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVEncuestaTipo" runat="server" ControlToValidate="DdlEncuestaTipo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Encuesta Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOEEncuestaTipo" runat="server" HighlightCssClass="vco" TargetControlID="RFVEncuestaTipo" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
<td> </td>
|
||||
<td> </td>
|
||||
<td> </td>
|
||||
<td>
|
||||
<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton>
|
||||
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatosEncuesta" runat="server" AutoGenerateColumns="False" DataKeyNames="CveEncuesta" EmptyDataText="No se encontraron Encuestas Registrados" ToolTip="Listado de Encuestas">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEncuesta" runat="server" Text='<%# Eval("Encuesta", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:TextBox ID="TxtEncuesta" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Encuesta") %>' ValidationGroup="GrpGuardar" Width="244px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtEncuesta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Encuesta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEncuestaTipo" runat="server" Text='<%# Eval("EncuestaTipo", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:DropDownList ID="DdlEncuestaTipo" runat="server" DataValueField="CveEncuestaTipo" DataTextField="EncuestaTipo" Width="200px">
|
||||
<asp:ListItem Text="Manual(Papel)" Value="0"></asp:ListItem>
|
||||
<asp:ListItem Text="CallCenter" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="Web" Value="2"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Editar">
|
||||
<EditItemTemplate>
|
||||
<center>
|
||||
<asp:ImageButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" ImageUrl="/Imagenes/Btn_Update.png" ValidationGroup="GrpGV" />
|
||||
<asp:ImageButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" ImageUrl="/Imagenes/Btn_Cancel.png" />
|
||||
</center>
|
||||
</EditItemTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:ImageButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" ImageUrl="/Imagenes/Btn_Edit.png" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Eliminar">
|
||||
<ItemTemplate>
|
||||
<asp:ImageButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" ImageUrl="/Imagenes/Btn_Delete.png" OnClientClick="javascript:return C();" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
<ajax:TabPanel ID="TabEncuestasPreguntas" runat="server" HeaderText="Encuestas Preguntas">
|
||||
<ContentTemplate>
|
||||
<table border="0" class="contenido">
|
||||
<tr>
|
||||
<td>
|
||||
<div>
|
||||
<table border="1" rules="all" style="border-collapse: collapse;">
|
||||
<tr class="Titulos">
|
||||
<td width="190px"><asp:LinkButton ID="LbPreguntaA" runat="server" CausesValidation="false" Text="Pregunta"></asp:LinkButton> <asp:ImageButton ID="ImgPreguntaA" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="60px"><asp:LinkButton ID="LbOrdenA" runat="server" CausesValidation="false" Text="Orden"></asp:LinkButton> <asp:ImageButton ID="ImgOrdenA" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"> <asp:LinkButton ID="LbEncuestaA" runat="server" CausesValidation="false" Text="Encuesta"></asp:LinkButton> <asp:ImageButton ID="ImgEncuestaA" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"> <asp:LinkButton ID="LbPreguntaTipoA" runat="server" CausesValidation="false" Text="Tipo Pregunta"></asp:LinkButton> <asp:ImageButton ID="ImgPreguntaTipoA" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"> <asp:LinkButton ID="LbPiedePreguntaA" runat="server" CausesValidation="false" Text="Pie Pregunta"></asp:LinkButton> <asp:ImageButton ID="ImgPiedePreguntaA" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"> <asp:LinkButton ID="LbEstatusA" runat="server" CausesValidation="false" Text="Estatus"></asp:LinkButton> <asp:ImageButton ID="ImgEstatusA" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"> <asp:LinkButton ID="LbFechaIngA" runat="server" CausesValidation="false" Text="Fecha Ing"></asp:LinkButton> <asp:ImageButton ID="ImgFechaIngA" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"><asp:LinkButton ID="LbUsuarioA" runat="server" CausesValidation="false" Text="Usuario"></asp:LinkButton> <asp:ImageButton ID="ImgUsuarioA" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="103">Comandos</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtPreguntaA" runat="server" CausesValidation="true" MaxLength="250" ValidationGroup="GrpGuardara" Width="175px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVPreguntaA" runat="server" ControlToValidate="TxtPreguntaA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pregunta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardara"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCPreguntaA" runat="server" HighlightCssClass="vco" TargetControlID="RFVPreguntaA" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtOrdenA" runat="server" CausesValidation="true" MaxLength="2" ValidationGroup="GrpGuardara" Width="50px"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlEncuesta" runat="server" AppendDataBoundItems="true" DataValueField="CveEncuesta" DataTextField="Encuesta" ValidationGroup="GrpGuardara" Width="90px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVEncuestaA" runat="server" ControlToValidate="DdlEncuesta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Encuesta''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardara"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOEncuestaA" runat="server" HighlightCssClass="vco" TargetControlID="RFVEncuestaA" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DDlPreguntaTipoA" runat="server" AppendDataBoundItems="true" DataValueField="PreguntaTipo" ValidationGroup="GrpGuardara" Width="100px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
<asp:ListItem Text="Texto" Value="0"></asp:ListItem>
|
||||
<asp:ListItem Text="Listado" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="Opciones" Value="2"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtPiedePreguntaA" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardara" Width="90px"></asp:TextBox>
|
||||
|
||||
</td>
|
||||
<td> </td>
|
||||
<td> </td>
|
||||
<td> </td>
|
||||
<td>
|
||||
<asp:LinkButton ID="LbAgregarEncuestaPegunta" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardara"></asp:LinkButton>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<asp:UpdatePanel ID="UpDatosEncuestasPreguntas" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatosPregunta" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePregunta" EmptyDataText="No se encontraron Preguntas Registrados" ToolTip="Listado de Preguntas">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPregunta" runat="server" Text='<%# Eval("Pregunta", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:TextBox ID="TxtPreguntaA" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Pregunta") %>' ValidationGroup="GrpGuardara" Width="175px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVPreguntaA" runat="server" ControlToValidate="TxtPreguntaA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pregunta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardara"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOEPreguntaA" runat="server" HighlightCssClass="vco" TargetControlID="RFVPreguntaA" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlOrdenA" runat="server" Text='<%# Eval("Orden", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:TextBox ID="TxtOrdenA" runat="server" CausesValidation="true" MaxLength="2" Text='<%# Eval("Orden") %>' ValidationGroup="GrpGuardara" Width="52px"></asp:TextBox>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEncuesta" runat="server" Text='<%# Eval("Encuesta", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:DropDownList ID="DdlEncuesta" runat="server" DataValueField="CveEncuesta" DataTextField="Encuesta" Width="90px"></asp:DropDownList>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPreguntaTipoA" runat="server" Text='<%# Eval("PreguntaTipoTexto", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:DropDownList ID="DDlPreguntaTipoA" runat="server" AppendDataBoundItems="true" DataValueField="PreguntaTipo" ValidationGroup="GrpGuardara" Width="100px">
|
||||
<asp:ListItem Text="Texto" Value="0"></asp:ListItem>
|
||||
<asp:ListItem Text="Listado" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="Opciones" Value="2"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPiedePreguntaA" runat="server" Text='<%# Eval("PiedePregunta", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:TextBox ID="TxtPiedePreguntaA" runat="server" CausesValidation="true" MaxLength="2" Text='<%# Eval("PiedePregunta") %>' ValidationGroup="GrpGuardara" Width="90px"></asp:TextBox>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Editar">
|
||||
<EditItemTemplate>
|
||||
<center>
|
||||
<asp:ImageButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" ImageUrl="/Imagenes/Btn_Update.png" ValidationGroup="GrpGV" />
|
||||
<asp:ImageButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" ImageUrl="/Imagenes/Btn_Cancel.png" />
|
||||
</center>
|
||||
</EditItemTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:ImageButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" ImageUrl="/Imagenes/Btn_Edit.png" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Eliminar">
|
||||
<ItemTemplate>
|
||||
<asp:ImageButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" ImageUrl="/Imagenes/Btn_Delete.png" OnClientClick="javascript:return C();" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
<ajax:TabPanel ID="TabEncuestasPreguntasRespuestas" runat="server" HeaderText="Encuestas Preguntas - Respuestas">
|
||||
<ContentTemplate>
|
||||
<table border="0" class="contenido">
|
||||
<tr>
|
||||
<td>
|
||||
<div>
|
||||
<table border="1" rules="all" style="border-collapse: collapse;">
|
||||
<tr class="Titulos">
|
||||
<td width="100px"><asp:LinkButton ID="LbRespuestaB" runat="server" CausesValidation="false" Text="Respuesta"></asp:LinkButton> <asp:ImageButton ID="ImgRespuestaB" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"><asp:LinkButton ID="LbOrdenB" runat="server" CausesValidation="false" Text="Orden"></asp:LinkButton> <asp:ImageButton ID="ImgOrdenB" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="120px"> <asp:LinkButton ID="LbPreguntaB" runat="server" CausesValidation="false" Text="Pregunta"></asp:LinkButton> <asp:ImageButton ID="ImgPreguntaB" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="120px"> <asp:LinkButton ID="LbPreguntaSiguienteB" runat="server" CausesValidation="false" Text="Pregunta Sig."></asp:LinkButton> <asp:ImageButton ID="ImgPreguntaSiguienteB" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"> <asp:LinkButton ID="LbEstatusB" runat="server" CausesValidation="false" Text="Estatus"></asp:LinkButton> <asp:ImageButton ID="ImgEstatusB" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"> <asp:LinkButton ID="LbFechaIngB" runat="server" CausesValidation="false" Text="Fecha Ing"></asp:LinkButton> <asp:ImageButton ID="ImgFechaIngB" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"><asp:LinkButton ID="LbUsuarioB" runat="server" CausesValidation="false" Text="Usuario"></asp:LinkButton> <asp:ImageButton ID="ImgUsuarioB" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="103">Comandos</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtRespuestaB" runat="server" CausesValidation="true" MaxLength="250" ValidationGroup="GrpGuardarB" Width="87px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVRespuestaB" runat="server" ControlToValidate="TxtRespuestaB" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pregunta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarB"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCRespuestaB" runat="server" HighlightCssClass="vco" TargetControlID="RFVRespuestaB" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtOrdenB" runat="server" CausesValidation="true" MaxLength="2" ValidationGroup="GrpGuardarB" Width="90px"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlPreguntaB" runat="server" AppendDataBoundItems="true" DataValueField="CvePregunta" DataTextField="Pregunta" ValidationGroup="GrpGuardarB" Width="90px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVPreguntaB" runat="server" ControlToValidate="DdlPreguntaB" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pregunta''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardarB"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOPreguntaB" runat="server" HighlightCssClass="vco" TargetControlID="RFVPreguntaB" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DDlPreguntaSiguienteB" runat="server" AppendDataBoundItems="true" DataValueField="CvePregunta" DataTextField="Pregunta" ValidationGroup="GrpGuardarB" Width="90px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
<td> </td>
|
||||
<td> </td>
|
||||
<td> </td>
|
||||
<td>
|
||||
<asp:LinkButton ID="LbAgregarEncuestaPeguntasRespuestas" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardarB"></asp:LinkButton>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatosPreguntasRespuestas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveRespuesta" EmptyDataText="No se encontraron Preguntas Registrados" ToolTip="Listado de Preguntas">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlRespuestaB" runat="server" Text='<%# Eval("Respuesta", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:TextBox ID="TxtRespuestaB" runat="server" CausesValidation="true" MaxLength="250" Text='<%# Eval("Respuesta") %>' ValidationGroup="GrpGuardarB" Width="95px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVRespuestaB" runat="server" ControlToValidate="TxtRespuestaB" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pregunta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarB"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOERespuestaB" runat="server" HighlightCssClass="vco" TargetControlID="RFVRespuestaB" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlOrdenB" runat="server" Text='<%# Eval("Orden", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:TextBox ID="TxtOrdenB" runat="server" CausesValidation="true" MaxLength="2" Text='<%# Eval("Orden") %>' ValidationGroup="GrpGuardarB" Width="95px"></asp:TextBox>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPreguntaB" runat="server" Text='<%# Eval("Pregunta", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:DropDownList ID="DdlPreguntaB" runat="server" DataValueField="CvePregunta" DataTextField="Pregunta" Width="95px"></asp:DropDownList>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPreguntaSiguienteB" runat="server" Text='<%# Eval("PreguntaSiguiente", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:DropDownList ID="DdlPreguntaSiguienteB" runat="server" DataValueField="CvePregunta" DataTextField="Pregunta" Width="95px"></asp:DropDownList>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEstatusB" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:CheckBox ID="ChkEstatusB" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaIngB" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlUsuarioB" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Editar">
|
||||
<EditItemTemplate>
|
||||
<center>
|
||||
<asp:ImageButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" ImageUrl="/Imagenes/Btn_Update.png" ValidationGroup="GrpGV" />
|
||||
<asp:ImageButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" ImageUrl="/Imagenes/Btn_Cancel.png" />
|
||||
</center>
|
||||
</EditItemTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:ImageButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" ImageUrl="/Imagenes/Btn_Edit.png" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Eliminar">
|
||||
<ItemTemplate>
|
||||
<asp:ImageButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" ImageUrl="/Imagenes/Btn_Delete.png" OnClientClick="javascript:return C();" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
<ajax:TabPanel ID="TabEncuestasRespuestas" runat="server" HeaderText="Encunestas Respuestas">
|
||||
<ContentTemplate>
|
||||
<table border="0" class="contenido">
|
||||
<tr>
|
||||
<td>
|
||||
<div>
|
||||
</div>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
</ajax:TabContainer>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<asp:UpdateProgress ID="upProgress" runat="server" DisplayAfter="0">
|
||||
<ProgressTemplate>
|
||||
<div id="overlay">
|
||||
<div id="modalprogress">
|
||||
<div id="theprogress">
|
||||
<center>
|
||||
<table border="0" cellpadding="0" cellspacing="0">
|
||||
<tr>
|
||||
<td>La información se está procesando...</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<img src="/Imagenes/Cargando.gif" style="border-width: 0px;" alt="" />
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</center>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ProgressTemplate>
|
||||
</asp:UpdateProgress>
|
||||
</asp:Content>
|
||||
|
||||
688
Prospectos/Encuestas/CatEncuestas.aspx.vb
Normal file
688
Prospectos/Encuestas/CatEncuestas.aspx.vb
Normal file
@@ -0,0 +1,688 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Linq
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class Prospectos_Encuestas_CatEncuestas
|
||||
Inherits ClsPaginas
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
ViewState("Orden") = ""
|
||||
ViewState("OEncuesta") = "Encuesta DESC"
|
||||
ViewState("OEstatus") = "Estatus DESC"
|
||||
ViewState("OFechaIng") = "FechaIng DESC"
|
||||
ViewState("OUsuario") = "Usuario DESC"
|
||||
CargaDatosEncuestas()
|
||||
|
||||
'Encuestas Preguntas
|
||||
|
||||
ViewState("OOrden") = ""
|
||||
ViewState("OPreguntaA") = "PreguntaA DESC"
|
||||
ViewState("OOrdenA") = "OrdenA DESC"
|
||||
ViewState("OPreguntaTipoA") = "PreguntaTipoA DESC"
|
||||
ViewState("OEstatusA") = "EstatusA DESC"
|
||||
ViewState("OFechaIngA") = "FechaIngA DESC"
|
||||
ViewState("OUsuarioA") = "UsuarioA DESC"
|
||||
|
||||
'ENCUESTAS PREGUNTAS RESPUESTAS
|
||||
|
||||
ViewState("OOOrden") = ""
|
||||
ViewState("ORespuestaB") = "RespuestaB DESC"
|
||||
ViewState("OOrdenB") = "OrdenB DESC"
|
||||
ViewState("OTipoRespuestaB") = "TipoRespuestaB DESC"
|
||||
ViewState("OEstatusB") = "EstatusB DESC"
|
||||
ViewState("OFechaIngB") = "FechaIngB DESC"
|
||||
ViewState("OUsuarioB") = "UsuarioB DESC"
|
||||
|
||||
CargaEncuesta()
|
||||
CargaDatosPreguntas()
|
||||
CargaDatosPreguntasRespuestas()
|
||||
CargaPreguntas()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "Tab Encuestas"
|
||||
Public Sub CargaDatosEncuestas()
|
||||
Dim ObjProsEncuestas As New ClsProspectos
|
||||
If ObjProsEncuestas.GetEncuestas(-1, UsuarioActual.CveEmpresa) Then
|
||||
ViewState("DTEncuestas") = ObjProsEncuestas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosEncuestas(UsuarioActual.CveEmpresa) = ObjProsEncuestas.DtResultados
|
||||
Else
|
||||
Me.GvDatosEncuesta.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjProsEncuestas.Dispose()
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGridEncuestas(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGridEncuestas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
|
||||
Dim ObjProsEncuestas As New ClsProspectos
|
||||
If ObjProsEncuestas.AddEncuestas(TxtEncuesta.Text.Trim, DdlEncuestaTipo.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
TxtEncuesta.Text = ""
|
||||
Alert("La nuevo Encuesta se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpTitulos.Update()
|
||||
ViewState("DTEncuestas") = ObjProsEncuestas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosEncuestas(UsuarioActual.CveEmpresa) = ObjProsEncuestas.DtResultados
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGridEncuestas(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGridEncuestas("")
|
||||
End If
|
||||
End If
|
||||
ObjProsEncuestas.Dispose()
|
||||
End Sub
|
||||
|
||||
#Region " O R D E N A M I E N T O"
|
||||
|
||||
Protected Sub LbEncuesta_Click(sender As Object, e As System.EventArgs) Handles LbEncuesta.Click, ImgEncuesta.Click
|
||||
If ViewState("OEncuesta").ToString() = "Encuesta DESC" Then
|
||||
ViewState("OEncuesta") = "Encuesta ASC"
|
||||
ImgEncuesta.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OEncuesta") = "Encuesta DESC"
|
||||
ImgEncuesta.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("Orden") = ViewState("OEncuesta")
|
||||
CargaGridEncuestas(ViewState("Orden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbEstatus_Click(sender As Object, e As System.EventArgs) Handles LbEstatus.Click, ImgEstatus.Click
|
||||
If ViewState("OEstatus").ToString() = "Estatus DESC" Then
|
||||
ViewState("OEstatus") = "Estatus ASC"
|
||||
ImgEstatus.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OEstatus") = "Estatus DESC"
|
||||
ImgEstatus.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("Orden") = ViewState("OEstatus")
|
||||
CargaGridEncuestas(ViewState("Orden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbFechaIng_Click(sender As Object, e As System.EventArgs) Handles LbFechaIng.Click, ImgFechaIng.Click
|
||||
|
||||
If ViewState("OFechaIng").ToString() = "FechaIng DESC" Then
|
||||
ViewState("OFechaIng") = "FechaIng ASC"
|
||||
ImgFechaIng.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OFechaIng") = "FechaIng DESC"
|
||||
ImgFechaIng.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("Orden") = ViewState("OFechaIng")
|
||||
CargaGridEncuestas(ViewState("Orden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbUsuario_Click(sender As Object, e As System.EventArgs) Handles LbUsuario.Click, ImgUsuario.Click
|
||||
If ViewState("OUsuario").ToString() = "Usuario DESC" Then
|
||||
ViewState("OUsuario") = "Usuario ASC"
|
||||
ImgUsuario.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OUsuario") = "Usuario DESC"
|
||||
ImgUsuario.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("Orden") = ViewState("OUsuario")
|
||||
CargaGridEncuestas(ViewState("Orden").ToString())
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
Protected Sub GvDatosEncuesta_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosEncuesta.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(0).Width = Unit.Pixel(250)
|
||||
e.Row.Cells(1).Width = Unit.Pixel(250)
|
||||
e.Row.Cells(2).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(3).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(4).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(5).Width = Unit.Pixel(50)
|
||||
End If
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosEncuesta_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatosEncuesta.RowDeleting
|
||||
Dim ObjProsEncuestas As New ClsProspectos
|
||||
If ObjProsEncuestas.RemoveEncuestas(GvDatosEncuesta.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
GvDatosEncuesta.EditIndex = -1
|
||||
ViewState("DTEncuestas") = ObjProsEncuestas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosEncuestas(UsuarioActual.CveEmpresa) = ObjProsEncuestas.DtResultados
|
||||
Alert("La Encuesta se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
ObjProsEncuestas.Dispose()
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGridEncuestas(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGridEncuestas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosEncuesta_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatosEncuesta.RowCancelingEdit
|
||||
GvDatosEncuesta.EditIndex = -1
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGridEncuestas(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGridEncuestas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosEncuesta_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatosEncuesta.RowUpdating
|
||||
|
||||
Dim ObjProsEncuestas As New ClsProspectos
|
||||
|
||||
Dim Encuesta As String = DirectCast(GvDatosEncuesta.Rows(e.RowIndex).FindControl("TxtEncuesta"), TextBox).Text.Trim
|
||||
Dim EncuestaTipo As Integer = DirectCast(GvDatosEncuesta.Rows(e.RowIndex).FindControl("DdlEncuestaTipo"), DropDownList).SelectedValue.ToEntero
|
||||
Dim Estatus As Boolean = GvDatosEncuesta.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
|
||||
Dim CveEncuesta As Integer = GvDatosEncuesta.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
||||
|
||||
If ObjProsEncuestas.UpdateEncuestas(Encuesta, EncuestaTipo, Estatus, CveEncuesta) Then
|
||||
GvDatosEncuesta.EditIndex = -1
|
||||
ViewState("DTEncuestas") = ObjProsEncuestas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosEncuestas(UsuarioActual.CveEmpresa) = ObjProsEncuestas.DtResultados
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
ObjProsEncuestas.Dispose()
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGridEncuestas(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGridEncuestas("")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosEncuesta_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatosEncuesta.RowEditing
|
||||
GvDatosEncuesta.EditIndex = e.NewEditIndex
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGridEncuestas(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGridEncuestas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGridEncuestas(Orden As String)
|
||||
If Orden <> String.Empty Then
|
||||
Dim DV As New DataView(CType(ViewState("DTEncuestas"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||
GvDatosEncuesta.DataSource = DV.ToTable()
|
||||
DV.Dispose()
|
||||
Else
|
||||
GvDatosEncuesta.DataSource = CType(ViewState("DTEncuestas"), DataTable)
|
||||
End If
|
||||
GvDatosEncuesta.DataBind()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "Tab Encuestas Preguntas Respuestas"
|
||||
|
||||
Public Sub CargaDatosPreguntasRespuestas()
|
||||
Dim ObjProsPreguntasRespuestas As New ClsProspectos
|
||||
If ObjProsPreguntasRespuestas.GetRespuestas() Then
|
||||
ViewState("DTPreguntasRespuestas") = ObjProsPreguntasRespuestas.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosEncuestasRespuestas(-1, -1, UsuarioActual.CveEmpresa) = ObjProsPreguntasRespuestas.DtResultados
|
||||
'GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntasRespuestas.DtResultados
|
||||
Else
|
||||
Me.GvDatosPreguntasRespuestas.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjProsPreguntasRespuestas.Dispose()
|
||||
|
||||
If ViewState("OOOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntasRespuestas(ViewState("OOOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntasRespuestas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub LbAgregarEncuestaPeguntasRespuestas_Click(sender As Object, e As System.EventArgs) Handles LbAgregarEncuestaPeguntasRespuestas.Click
|
||||
Dim ObjProsPreguntasRespuestas As New ClsProspectos
|
||||
If ObjProsPreguntasRespuestas.AddRespuesta(TxtRespuestaB.Text.Trim, DdlPreguntaB.SelectedValue.ToEntero, TxtOrdenB.Text.Trim.ToEntero, DDlPreguntaSiguienteB.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
|
||||
TxtRespuestaB.Text = ""
|
||||
TxtOrdenB.Text = ""
|
||||
DdlPreguntaB.SelectedValue = "-1"
|
||||
DDlPreguntaSiguienteB.SelectedValue = "-1"
|
||||
Alert("La Nueva Respuesta se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpTitulos.Update()
|
||||
ViewState("DTPreguntasRespuestas") = ObjProsPreguntasRespuestas.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
|
||||
GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntasRespuestas.DtResultados
|
||||
|
||||
If ViewState("OOOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntasRespuestas(ViewState("OOOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntasRespuestas("")
|
||||
End If
|
||||
End If
|
||||
ObjProsPreguntasRespuestas.Dispose()
|
||||
End Sub
|
||||
|
||||
#Region " O R D E N A M I E N T O"
|
||||
|
||||
Protected Sub LbRespuestaB_Click(sender As Object, e As System.EventArgs) Handles LbRespuestaB.Click, ImgRespuestaB.Click
|
||||
If ViewState("ORespuestaB").ToString() = "Pregunta DESC" Then
|
||||
ViewState("ORespuestaB") = "Pregunta ASC"
|
||||
ImgRespuestaB.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("ORespuestaB") = "Pregunta DESC"
|
||||
ImgRespuestaB.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOOrden") = ViewState("ORespuestaB")
|
||||
CargaGridPreguntasRespuestas(ViewState("OOOrden").ToString())
|
||||
End Sub
|
||||
Protected Sub LbOrdenB_Click(sender As Object, e As System.EventArgs) Handles LbOrdenB.Click, ImgOrdenB.Click
|
||||
|
||||
If ViewState("OOOrdenB").ToString() = "OrdenB DESC" Then
|
||||
ViewState("OOOrdenB") = "OrdenB ASC"
|
||||
ImgOrdenB.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OOOrdenB") = "OrdenB DESC"
|
||||
ImgOrdenB.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOOrden") = ViewState("OOOrdenB")
|
||||
CargaGridPreguntasRespuestas(ViewState("OOOrden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbPreguntaSiguienteB_Click(sender As Object, e As System.EventArgs) Handles LbPreguntaSiguienteB.Click, ImgPreguntaSiguienteB.Click
|
||||
If ViewState("OPreguntaSiguienteB").ToString() = "PreguntaSiguienteB DESC" Then
|
||||
ViewState("OPreguntaSiguienteB") = "PreguntaSiguienteB ASC"
|
||||
ImgPreguntaSiguienteB.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OPreguntaSiguienteB") = "PreguntaSiguienteB DESC"
|
||||
ImgPreguntaSiguienteB.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOOrden") = ViewState("OPreguntaSiguienteB")
|
||||
CargaGridPreguntasRespuestas(ViewState("OOOrden").ToString())
|
||||
End Sub
|
||||
Protected Sub LbEstatusB_Click(sender As Object, e As System.EventArgs) Handles LbEstatusB.Click, ImgEstatusB.Click
|
||||
If ViewState("OEstatusB").ToString() = "EstatusB DESC" Then
|
||||
ViewState("OEstatusB") = "EstatusB ASC"
|
||||
ImgEstatusB.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OEstatusB") = "EstatusB DESC"
|
||||
ImgEstatusB.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOOrden") = ViewState("OEstatusB")
|
||||
CargaGridPreguntasRespuestas(ViewState("OOOrden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbFechaIngB_Click(sender As Object, e As System.EventArgs) Handles LbFechaIngB.Click, ImgFechaIngB.Click
|
||||
|
||||
If ViewState("OFechaIngB").ToString() = "FechaIng DESC" Then
|
||||
ViewState("OFechaIngB") = "FechaIng ASC"
|
||||
ImgFechaIngB.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OFechaIngB") = "FechaIng DESC"
|
||||
ImgFechaIngB.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOOrden") = ViewState("OFechaIngB")
|
||||
CargaGridPreguntasRespuestas(ViewState("OOOrden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbUsuarioB_Click(sender As Object, e As System.EventArgs) Handles LbUsuarioB.Click, ImgUsuarioB.Click
|
||||
If ViewState("OUsuarioB").ToString() = "UsuarioB DESC" Then
|
||||
ViewState("OUsuarioB") = "UsuarioB ASC"
|
||||
ImgUsuarioB.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OUsuarioB") = "UsuarioB DESC"
|
||||
ImgUsuarioB.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOOrden") = ViewState("OUsuarioB")
|
||||
CargaGridPreguntasRespuestas(ViewState("OOOrden").ToString())
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
Private Sub CargaPreguntas()
|
||||
DdlPreguntaB.DataSource = GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa)
|
||||
DdlPreguntaB.DataBind()
|
||||
DDlPreguntaSiguienteB.DataSource = GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa)
|
||||
DDlPreguntaSiguienteB.DataBind()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPreguntasRespuestas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosPreguntasRespuestas.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(0).Width = Unit.Pixel(100) 'respuesta
|
||||
e.Row.Cells(1).Width = Unit.Pixel(100) 'orden
|
||||
e.Row.Cells(2).Width = Unit.Pixel(120) 'pregunta
|
||||
e.Row.Cells(3).Width = Unit.Pixel(120) 'pregunta siguiente
|
||||
e.Row.Cells(4).Width = Unit.Pixel(100) 'estatus
|
||||
e.Row.Cells(5).Width = Unit.Pixel(100) 'fecha ing
|
||||
e.Row.Cells(6).Width = Unit.Pixel(100) 'usuario
|
||||
e.Row.Cells(7).Width = Unit.Pixel(50)
|
||||
e.Row.Cells(8).Width = Unit.Pixel(50)
|
||||
End If
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
|
||||
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
||||
e.Row.FCDropDownList("DdlPreguntaB").DataSource = GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlPreguntaB").DataBind()
|
||||
e.Row.FCDropDownList("DdlPreguntaB").SelectedValue = e.Row.DBCampo("CvePregunta")
|
||||
e.Row.FCDropDownList("DdlPreguntaSiguienteB").DataSource = GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlPreguntaSiguienteB").DataBind()
|
||||
e.Row.FCDropDownList("DDlPreguntaSiguienteB").SelectedValue = e.Row.DBCampo("CvePreguntaSiguiente")
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPreguntasRespuestas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatosPreguntasRespuestas.RowDeleting
|
||||
Dim ObjProsPreguntasRespuestas As New ClsProspectos
|
||||
If ObjProsPreguntasRespuestas.RemoveRespuesta(GvDatosPreguntasRespuestas.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
GvDatosPreguntasRespuestas.EditIndex = -1
|
||||
ViewState("DTPreguntasRespuestas") = ObjProsPreguntasRespuestas.DtResultados ' .FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntasRespuestas.DtResultados
|
||||
Alert("La Respuesta se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
ObjProsPreguntasRespuestas.Dispose()
|
||||
|
||||
If ViewState("OOOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntasRespuestas(ViewState("OOOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntasRespuestas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPreguntasRespuestas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatosPreguntasRespuestas.RowCancelingEdit
|
||||
GvDatosPreguntasRespuestas.EditIndex = -1
|
||||
If ViewState("OOOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntasRespuestas(ViewState("OOOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntasRespuestas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPreguntasRespuestas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatosPreguntasRespuestas.RowUpdating
|
||||
|
||||
Dim ObjProsPreguntasRespuestas As New ClsProspectos
|
||||
|
||||
Dim Respuesta As String = DirectCast(GvDatosPreguntasRespuestas.Rows(e.RowIndex).FindControl("TxtRespuestaB"), TextBox).Text.Trim
|
||||
Dim CvePregunta As Integer = DirectCast(GvDatosPreguntasRespuestas.Rows(e.RowIndex).FindControl("DdlPreguntaB"), DropDownList).SelectedValue.ToEntero
|
||||
Dim CvePreguntaSiguiente As Integer = DirectCast(GvDatosPreguntasRespuestas.Rows(e.RowIndex).FindControl("DDlPreguntaSiguienteB"), DropDownList).SelectedValue.ToEntero
|
||||
Dim Estatus As Boolean = GvDatosPreguntasRespuestas.Rows(e.RowIndex).FCCheckBox("ChkEstatusB").Checked
|
||||
Dim Orden As Integer = DirectCast(GvDatosPreguntasRespuestas.Rows(e.RowIndex).FindControl("TxtOrdenB"), TextBox).Text.Trim.ToEntero
|
||||
Dim CveRespuesta As Integer = GvDatosPreguntasRespuestas.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
||||
|
||||
If ObjProsPreguntasRespuestas.UpdateRespuesta(Respuesta, CvePregunta, Estatus, Orden, CvePreguntaSiguiente, CveRespuesta) Then
|
||||
GvDatosPreguntasRespuestas.EditIndex = -1
|
||||
ViewState("DTPreguntasRespuestas") = ObjProsPreguntasRespuestas.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
' GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntasRespuestas.DtResultados
|
||||
GlobalDTProspectosEncuestasRespuestas(CvePregunta, CveRespuesta, UsuarioActual.CveEmpresa) = ObjProsPreguntasRespuestas.DtResultados
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
ObjProsPreguntasRespuestas.Dispose()
|
||||
|
||||
If ViewState("OOOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntasRespuestas(ViewState("OOOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntasRespuestas("")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPreguntasRespuestas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatosPreguntasRespuestas.RowEditing
|
||||
GvDatosPreguntasRespuestas.EditIndex = e.NewEditIndex
|
||||
|
||||
If ViewState("OOOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntasRespuestas(ViewState("OOOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntasRespuestas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGridPreguntasRespuestas(Orden As String)
|
||||
If Orden <> String.Empty Then
|
||||
Dim DVRespuestas As New DataView(CType(ViewState("DTPreguntasRespuestas"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||
GvDatosPreguntasRespuestas.DataSource = DVRespuestas.ToTable()
|
||||
DVRespuestas.Dispose()
|
||||
Else
|
||||
GvDatosPreguntasRespuestas.DataSource = CType(ViewState("DTPreguntasRespuestas"), DataTable)
|
||||
End If
|
||||
GvDatosPreguntasRespuestas.DataBind()
|
||||
UpDatosEncuestasPreguntas.Update()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "Tab Encuestas Preguntas"
|
||||
Public Sub CargaDatosPreguntas()
|
||||
Dim ObjProsPreguntas As New ClsProspectos
|
||||
If ObjProsPreguntas.GetPreguntas(-1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
ViewState("DTPreguntas") = ObjProsPreguntas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntas.DtResultados
|
||||
Else
|
||||
Me.GvDatosPregunta.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjProsPreguntas.Dispose()
|
||||
|
||||
If ViewState("OOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntas(ViewState("OOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub LbAgregarEncuestaPegunta_Click(sender As Object, e As System.EventArgs) Handles LbAgregarEncuestaPegunta.Click
|
||||
Dim ObjProsPreguntas As New ClsProspectos
|
||||
If ObjProsPreguntas.AddPreguntas(TxtPreguntaA.Text.Trim, DdlEncuesta.SelectedValue.ToEntero, DDlPreguntaTipoA.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
|
||||
TxtPreguntaA.Text = ""
|
||||
Alert("La nuevo Pregunta se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpTitulos.Update()
|
||||
ViewState("DTPreguntas") = ObjProsPreguntas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
|
||||
GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntas.DtResultados
|
||||
|
||||
If ViewState("OOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntas(ViewState("OOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntas("")
|
||||
End If
|
||||
End If
|
||||
ObjProsPreguntas.Dispose()
|
||||
End Sub
|
||||
|
||||
#Region " O R D E N A M I E N T O"
|
||||
|
||||
Protected Sub LbPreguntaA_Click(sender As Object, e As System.EventArgs) Handles LbPreguntaA.Click, ImgPreguntaA.Click
|
||||
If ViewState("OPreguntaA").ToString() = "PreguntaADESC" Then
|
||||
ViewState("OPreguntaA") = "PreguntaAASC"
|
||||
ImgPreguntaA.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OPreguntaA") = "PreguntaADESC"
|
||||
ImgPreguntaA.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOrden") = ViewState("OPreguntaA")
|
||||
CargaGridPreguntas(ViewState("OOrden").ToString())
|
||||
End Sub
|
||||
Protected Sub LbOrdenA_Click(sender As Object, e As System.EventArgs) Handles LbOrdenA.Click, ImgOrdenA.Click
|
||||
|
||||
If ViewState("OOrdenA").ToString() = "OrdenA DESC" Then
|
||||
ViewState("OOrdenA") = "OrdenA ASC"
|
||||
ImgOrdenA.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OOrdenA") = "OrdenA DESC"
|
||||
ImgOrdenA.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOrden") = ViewState("OOrdenA")
|
||||
CargaGridPreguntas(ViewState("OOrden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbPreguntaTipoA_Click(sender As Object, e As System.EventArgs) Handles LbPreguntaTipoA.Click, ImgPreguntaTipoA.Click
|
||||
If ViewState("OPreguntaTipoA").ToString() = "PreguntaTipoA DESC" Then
|
||||
ViewState("OPreguntaTipoA") = "PreguntaTipoA ASC"
|
||||
ImgPreguntaTipoA.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OPreguntaTipoA") = "PreguntaTipoA DESC"
|
||||
ImgPreguntaTipoA.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOrden") = ViewState("OPreguntaTipoA")
|
||||
CargaGridPreguntas(ViewState("OOrden").ToString())
|
||||
End Sub
|
||||
Protected Sub LbEstatusA_Click(sender As Object, e As System.EventArgs) Handles LbEstatusA.Click, ImgEstatusA.Click
|
||||
If ViewState("OEstatusA").ToString() = "EstatusA DESC" Then
|
||||
ViewState("OEstatusA") = "EstatusA ASC"
|
||||
ImgEstatusA.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OEstatusA") = "EstatusA DESC"
|
||||
ImgEstatusA.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOrden") = ViewState("OEstatusA")
|
||||
CargaGridPreguntas(ViewState("OOrden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbFechaIngA_Click(sender As Object, e As System.EventArgs) Handles LbFechaIngA.Click, ImgFechaIngA.Click
|
||||
|
||||
If ViewState("OFechaIngA").ToString() = "FechaIng DESC" Then
|
||||
ViewState("OFechaIngA") = "FechaIng ASC"
|
||||
ImgFechaIngA.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OFechaIngA") = "FechaIng DESC"
|
||||
ImgFechaIngA.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOrden") = ViewState("OFechaIngA")
|
||||
CargaGridPreguntas(ViewState("OOrden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbUsuarioA_Click(sender As Object, e As System.EventArgs) Handles LbUsuarioA.Click, ImgUsuarioA.Click
|
||||
If ViewState("OUsuarioA").ToString() = "UsuarioA DESC" Then
|
||||
ViewState("OUsuarioA") = "UsuarioA ASC"
|
||||
ImgUsuarioA.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OUsuarioA") = "UsuarioA DESC"
|
||||
ImgUsuarioA.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOrden") = ViewState("OUsuarioA")
|
||||
CargaGridPreguntas(ViewState("OOrden").ToString())
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
Private Sub CargaEncuesta()
|
||||
DdlEncuesta.DataSource = GlobalDTProspectosEncuestas(UsuarioActual.CveEmpresa) '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlEncuesta.DataBind()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPregunta_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosPregunta.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(0).Width = Unit.Pixel(190)
|
||||
e.Row.Cells(1).Width = Unit.Pixel(60)
|
||||
e.Row.Cells(2).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(3).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(4).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(5).Width = Unit.Pixel(96)
|
||||
e.Row.Cells(6).Width = Unit.Pixel(97)
|
||||
e.Row.Cells(7).Width = Unit.Pixel(97)
|
||||
e.Row.Cells(8).Width = Unit.Pixel(50)
|
||||
|
||||
End If
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
|
||||
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
||||
e.Row.FCDropDownList("DdlEncuesta").DataSource = GlobalDTProspectosEncuestas(UsuarioActual.CveEmpresa) '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlEncuesta").DataBind()
|
||||
e.Row.FCDropDownList("DdlEncuesta").SelectedValue = e.Row.DBCampo("CveEncuesta")
|
||||
e.Row.FCDropDownList("DDlPreguntaTipoA").SelectedValue = e.Row.DBCampo("PreguntaTipo")
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPregunta_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatosPregunta.RowDeleting
|
||||
Dim ObjProsPreguntas As New ClsProspectos
|
||||
If ObjProsPreguntas.RemovePreguntas(GvDatosPregunta.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
GvDatosPregunta.EditIndex = -1
|
||||
ViewState("DTPreguntas") = ObjProsPreguntas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntas.DtResultados
|
||||
Alert("La Pregunta se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
ObjProsPreguntas.Dispose()
|
||||
|
||||
If ViewState("OOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntas(ViewState("OOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPregunta_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatosPregunta.RowCancelingEdit
|
||||
GvDatosPregunta.EditIndex = -1
|
||||
If ViewState("OOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntas(ViewState("OOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPregunta_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatosPregunta.RowUpdating
|
||||
|
||||
Dim ObjProsPreguntas As New ClsProspectos
|
||||
|
||||
Dim Pregunta As String = DirectCast(GvDatosPregunta.Rows(e.RowIndex).FindControl("TxtPreguntaA"), TextBox).Text.Trim
|
||||
Dim Encuesta As Integer = DirectCast(GvDatosPregunta.Rows(e.RowIndex).FindControl("DdlEncuesta"), DropDownList).SelectedValue.ToEntero
|
||||
Dim PreguntaTipo As Integer = DirectCast(GvDatosPregunta.Rows(e.RowIndex).FindControl("DdlEncuesta"), DropDownList).SelectedValue.ToEntero
|
||||
Dim PiePregunta As String = DirectCast(GvDatosPregunta.Rows(e.RowIndex).FindControl("TxtPiePregunta"), TextBox).Text.Trim
|
||||
Dim Estatus As Boolean = GvDatosPregunta.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
|
||||
Dim Orden As Integer = 1
|
||||
Dim CvePregunta As Integer = GvDatosPregunta.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
||||
|
||||
If ObjProsPreguntas.UpdatePreguntas(Pregunta, Encuesta, PreguntaTipo, PiePregunta, Estatus, Orden, CvePregunta) Then
|
||||
GvDatosPregunta.EditIndex = -1
|
||||
ViewState("DTPreguntas") = ObjProsPreguntas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntas.DtResultados
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
ObjProsPreguntas.Dispose()
|
||||
|
||||
If ViewState("OOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntas(ViewState("OOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntas("")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPregunta_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatosPregunta.RowEditing
|
||||
GvDatosPregunta.EditIndex = e.NewEditIndex
|
||||
|
||||
If ViewState("OOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntas(ViewState("OOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGridPreguntas(Orden As String)
|
||||
If Orden <> String.Empty Then
|
||||
Dim DV As New DataView(CType(ViewState("DTPreguntas"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||
GvDatosPregunta.DataSource = DV.ToTable()
|
||||
DV.Dispose()
|
||||
Else
|
||||
GvDatosPregunta.DataSource = CType(ViewState("DTPreguntas"), DataTable)
|
||||
End If
|
||||
GvDatosPregunta.DataBind()
|
||||
UpDatosEncuestasPreguntas.Update()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Tab Encuestas---"
|
||||
|
||||
#End Region
|
||||
End Class
|
||||
183
Prospectos/Encuestas/CatEncuestasPreguntas.aspx
Normal file
183
Prospectos/Encuestas/CatEncuestasPreguntas.aspx
Normal file
@@ -0,0 +1,183 @@
|
||||
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="CatEncuestasPreguntas.aspx.vb" Inherits="Prospectos_Encuestas_CatEncuestasPreguntas" %>
|
||||
|
||||
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
|
||||
Catálogo de Preguntas
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
|
||||
<script language="javascript" type="text/javascript">
|
||||
function C() {
|
||||
return confirm('¿Está seguro que desea eliminar el Pregunta?');
|
||||
}
|
||||
</script>
|
||||
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<ajax:TabContainer ID="Tab" runat="server" Width="100%">
|
||||
<ajax:TabPanel ID="TabEncuestasPreguntas" runat="server" HeaderText="Encuestas Preguntas">
|
||||
<ContentTemplate>
|
||||
<table border="0" class="contenido">
|
||||
<tr>
|
||||
<td>
|
||||
<div>
|
||||
<table border="1" rules="all" style="border-collapse: collapse;">
|
||||
<tr class="Titulos">
|
||||
<td width="190px"><asp:LinkButton ID="LbRespuestaB" runat="server" CausesValidation="false" Text="Pregunta"></asp:LinkButton> <asp:ImageButton ID="ImgRespuestaB" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="60px"><asp:LinkButton ID="LbOrdenB" runat="server" CausesValidation="false" Text="Orden"></asp:LinkButton> <asp:ImageButton ID="ImgOrdenB" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"> <asp:LinkButton ID="LbPreguntaB" runat="server" CausesValidation="false" Text="Encuesta"></asp:LinkButton> <asp:ImageButton ID="ImgPreguntaB" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"> <asp:LinkButton ID="LbPreguntaSiguienteB" runat="server" CausesValidation="false" Text="Tipo Pregunta"></asp:LinkButton> <asp:ImageButton ID="ImgPreguntaSiguienteB" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"> <asp:LinkButton ID="LbEstatusB" runat="server" CausesValidation="false" Text="Estatus"></asp:LinkButton> <asp:ImageButton ID="ImgEstatusB" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"> <asp:LinkButton ID="LbFechaIngB" runat="server" CausesValidation="false" Text="Fecha Ing"></asp:LinkButton> <asp:ImageButton ID="ImgFechaIngB" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="100px"><asp:LinkButton ID="LbUsuarioB" runat="server" CausesValidation="false" Text="Usuario"></asp:LinkButton> <asp:ImageButton ID="ImgUsuarioB" runat="server" CausesValidation="false" ImageUrl="/Imagenes/FlechasAbajo.gif" /></td>
|
||||
<td width="103">Comandos</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtRespuestaB" runat="server" CausesValidation="true" MaxLength="250" ValidationGroup="GrpGuardarB" Width="175px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVRespuestaB" runat="server" ControlToValidate="TxtRespuestaB" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pregunta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarB"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCRespuestaB" runat="server" HighlightCssClass="vco" TargetControlID="RFVRespuestaB" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtOrdenB" runat="server" CausesValidation="true" MaxLength="2" ValidationGroup="GrpGuardarB" Width="50px"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DdlPreguntaB" runat="server" AppendDataBoundItems="true" DataValueField="CvePregunta" DataTextField="Encuesta" ValidationGroup="GrpGuardarB" Width="90px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVPreguntaB" runat="server" ControlToValidate="DdlPreguntaB" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Encuesta''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardarB"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOPreguntaB" runat="server" HighlightCssClass="vco" TargetControlID="RFVPreguntaB" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DDlPreguntaSiguienteB" runat="server" AppendDataBoundItems="true" DataValueField="PreguntaTipo" ValidationGroup="GrpGuardarB" Width="100px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
<asp:ListItem Text="Texto" Value="0"></asp:ListItem>
|
||||
<asp:ListItem Text="Listado" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="Opciones" Value="2"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
<td> </td>
|
||||
<td> </td>
|
||||
<td> </td>
|
||||
<td>
|
||||
<asp:LinkButton ID="LbAgregarEncuestaPeguntasRespuestas" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardarB"></asp:LinkButton>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<asp:UpdatePanel ID="UpDatosEncuestasPreguntas" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatosPreguntasRespuestas" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePregunta" EmptyDataText="No se encontraron Preguntas Registrados" ToolTip="Listado de Preguntas">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPregunta" runat="server" Text='<%# Eval("Pregunta", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:TextBox ID="TxtRespuestaB" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Respuesta") %>' ValidationGroup="GrpGuardarB" Width="175px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVRespuestaB" runat="server" ControlToValidate="TxtRespuestaB" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pregunta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarB"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOERespuestaB" runat="server" HighlightCssClass="vco" TargetControlID="RFVRespuestaB" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlOrdenB" runat="server" Text='<%# Eval("Orden", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:TextBox ID="TxtOrdenB" runat="server" CausesValidation="true" MaxLength="2" Text='<%# Eval("Orden") %>' ValidationGroup="GrpGuardarB" Width="52px"></asp:TextBox>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEncuesta" runat="server" Text='<%# Eval("Encuesta", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:DropDownList ID="DdlPreguntaB" runat="server" DataValueField="CvePregunta" DataTextField="Encuesta" Width="90px"></asp:DropDownList>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPreguntaSiguienteB" runat="server" Text='<%# Eval("PreguntaTipoTexto", " {0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:DropDownList ID="DropDownList2" runat="server" AppendDataBoundItems="true" DataValueField="PreguntaTipo" ValidationGroup="GrpGuardarB" Width="100px">
|
||||
<asp:ListItem Text="Texto" Value="0"></asp:ListItem>
|
||||
<asp:ListItem Text="Listado" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="Opciones" Value="2"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Editar">
|
||||
<EditItemTemplate>
|
||||
<center>
|
||||
<asp:ImageButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" ImageUrl="/Imagenes/Btn_Update.png" ValidationGroup="GrpGV" />
|
||||
<asp:ImageButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" ImageUrl="/Imagenes/Btn_Cancel.png" />
|
||||
</center>
|
||||
</EditItemTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:ImageButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" ImageUrl="/Imagenes/Btn_Edit.png" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Eliminar">
|
||||
<ItemTemplate>
|
||||
<asp:ImageButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" ImageUrl="/Imagenes/Btn_Delete.png" OnClientClick="javascript:return C();" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
</ajax:TabContainer>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<asp:UpdateProgress ID="upProgress" runat="server" DisplayAfter="0">
|
||||
<ProgressTemplate>
|
||||
<div id="overlay">
|
||||
<div id="modalprogress">
|
||||
<div id="theprogress">
|
||||
<center>
|
||||
<table border="0" cellpadding="0" cellspacing="0">
|
||||
<tr>
|
||||
<td>La información se está procesando...</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<img src="/Imagenes/Cargando.gif" style="border-width: 0px;" alt="" /></td>
|
||||
</tr>
|
||||
</table>
|
||||
</center>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ProgressTemplate>
|
||||
</asp:UpdateProgress>
|
||||
</asp:Content>
|
||||
|
||||
249
Prospectos/Encuestas/CatEncuestasPreguntas.aspx.vb
Normal file
249
Prospectos/Encuestas/CatEncuestasPreguntas.aspx.vb
Normal file
@@ -0,0 +1,249 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Linq
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class Prospectos_Encuestas_CatEncuestasPreguntas
|
||||
Inherits ClsPaginas
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
ViewState("OOrden") = ""
|
||||
ViewState("ORespuestaB") = "RespuestaB DESC"
|
||||
ViewState("OOrdenB") = "OrdenB DESC"
|
||||
ViewState("OTipoRespuestaB") = "TipoRespuestaB DESC"
|
||||
ViewState("OEstatusB") = "EstatusB DESC"
|
||||
ViewState("OFechaIngB") = "FechaIngB DESC"
|
||||
ViewState("OUsuarioB") = "UsuarioB DESC"
|
||||
CargaDatosPreguntas()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
#Region "Tab Encuestas Preguntas"
|
||||
Public Sub CargaDatosPreguntas()
|
||||
Dim ObjProsPreguntasRespuestas As New ClsProspectos
|
||||
If ObjProsPreguntasRespuestas.GetPreguntas(-1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
ViewState("DTPreguntas") = ObjProsPreguntasRespuestas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntasRespuestas.DtResultados
|
||||
Else
|
||||
Me.GvDatosPreguntasRespuestas.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjProsPreguntasRespuestas.Dispose()
|
||||
|
||||
If ViewState("OOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntasRespuestas(ViewState("OOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntasRespuestas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub LbAgregarEncuestaPeguntasRespuestas_Click(sender As Object, e As System.EventArgs) Handles LbAgregarEncuestaPeguntasRespuestas.Click
|
||||
Dim ObjProsPreguntasRespuestas As New ClsProspectos
|
||||
If ObjProsPreguntasRespuestas.AddPreguntas(TxtRespuestaB.Text.Trim, DdlPreguntaB.SelectedValue.ToEntero, DDlPreguntaSiguienteB.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
|
||||
TxtRespuestaB.Text = ""
|
||||
Alert("El nuevo Pregunta se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpTitulos.Update()
|
||||
ViewState("DTPreguntas") = ObjProsPreguntasRespuestas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
|
||||
GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntasRespuestas.DtResultados
|
||||
|
||||
If ViewState("OOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntasRespuestas(ViewState("OOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntasRespuestas("")
|
||||
End If
|
||||
End If
|
||||
ObjProsPreguntasRespuestas.Dispose()
|
||||
End Sub
|
||||
|
||||
#Region " O R D E N A M I E N T O"
|
||||
|
||||
Protected Sub LbRespuestaB_Click(sender As Object, e As System.EventArgs) Handles LbRespuestaB.Click, ImgRespuestaB.Click
|
||||
If ViewState("ORespuestaB").ToString() = "Pregunta DESC" Then
|
||||
ViewState("ORespuestaB") = "Pregunta ASC"
|
||||
ImgRespuestaB.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("ORespuestaB") = "Pregunta DESC"
|
||||
ImgRespuestaB.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOrden") = ViewState("ORespuestaB")
|
||||
CargaGridPreguntasRespuestas(ViewState("OOrden").ToString())
|
||||
End Sub
|
||||
Protected Sub LbOrdenB_Click(sender As Object, e As System.EventArgs) Handles LbOrdenB.Click, ImgOrdenB.Click
|
||||
|
||||
If ViewState("OOrdenB").ToString() = "OrdenB DESC" Then
|
||||
ViewState("OOrdenB") = "OrdenB ASC"
|
||||
ImgOrdenB.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OOrdenB") = "OrdenB DESC"
|
||||
ImgOrdenB.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOrden") = ViewState("OOrdenB")
|
||||
CargaGridPreguntasRespuestas(ViewState("OOrden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbPreguntaSiguienteB_Click(sender As Object, e As System.EventArgs) Handles LbPreguntaSiguienteB.Click, ImgPreguntaSiguienteB.Click
|
||||
If ViewState("OPreguntaSiguienteB").ToString() = "PreguntaSiguienteB DESC" Then
|
||||
ViewState("OPreguntaSiguienteB") = "PreguntaSiguienteB ASC"
|
||||
ImgPreguntaSiguienteB.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OPreguntaSiguienteB") = "PreguntaSiguienteB DESC"
|
||||
ImgPreguntaSiguienteB.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOrden") = ViewState("OPreguntaSiguienteB")
|
||||
CargaGridPreguntasRespuestas(ViewState("OOrden").ToString())
|
||||
End Sub
|
||||
Protected Sub LbEstatusB_Click(sender As Object, e As System.EventArgs) Handles LbEstatusB.Click, ImgEstatusB.Click
|
||||
If ViewState("OEstatusB").ToString() = "EstatusB DESC" Then
|
||||
ViewState("OEstatusB") = "EstatusB ASC"
|
||||
ImgEstatusB.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OEstatusB") = "EstatusB DESC"
|
||||
ImgEstatusB.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOrden") = ViewState("OEstatusB")
|
||||
CargaGridPreguntasRespuestas(ViewState("OOrden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbFechaIngB_Click(sender As Object, e As System.EventArgs) Handles LbFechaIngB.Click, ImgFechaIngB.Click
|
||||
|
||||
If ViewState("OFechaIngB").ToString() = "FechaIng DESC" Then
|
||||
ViewState("OFechaIngB") = "FechaIng ASC"
|
||||
ImgFechaIngB.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OFechaIngB") = "FechaIng DESC"
|
||||
ImgFechaIngB.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOrden") = ViewState("OFechaIngB")
|
||||
CargaGridPreguntasRespuestas(ViewState("OOrden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbUsuarioB_Click(sender As Object, e As System.EventArgs) Handles LbUsuarioB.Click, ImgUsuarioB.Click
|
||||
If ViewState("OUsuarioB").ToString() = "UsuarioB DESC" Then
|
||||
ViewState("OUsuarioB") = "UsuarioB ASC"
|
||||
ImgUsuarioB.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OUsuarioB") = "UsuarioB DESC"
|
||||
ImgUsuarioB.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OOrden") = ViewState("OUsuarioB")
|
||||
CargaGridPreguntasRespuestas(ViewState("OOrden").ToString())
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
Private Sub CargaPreguntas()
|
||||
DdlPreguntaB.DataSource = GlobalDTProspectosEncuestasPreguntas(DdlPreguntaB.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
|
||||
DdlPreguntaB.DataBind()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPreguntasRespuestas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosPreguntasRespuestas.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(0).Width = Unit.Pixel(190)
|
||||
e.Row.Cells(1).Width = Unit.Pixel(60)
|
||||
e.Row.Cells(2).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(3).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(4).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(5).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(6).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(7).Width = Unit.Pixel(50)
|
||||
End If
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
|
||||
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
||||
e.Row.FCDropDownList("DdlPreguntaB").DataSource = GlobalDTProspectosEncuestas(UsuarioActual.CveEmpresa) '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlPreguntaB").DataBind()
|
||||
e.Row.FCDropDownList("DdlPreguntaB").SelectedValue = e.Row.DBCampo("CvePregunta")
|
||||
e.Row.FCDropDownList("DDlPreguntaSiguienteB").SelectedValue = e.Row.DBCampo("CvePregunta")
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPreguntasRespuestas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatosPreguntasRespuestas.RowDeleting
|
||||
Dim ObjProsPreguntasRespuestas As New ClsProspectos
|
||||
If ObjProsPreguntasRespuestas.RemovePreguntas(GvDatosPreguntasRespuestas.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
GvDatosPreguntasRespuestas.EditIndex = -1
|
||||
ViewState("DTPreguntas") = ObjProsPreguntasRespuestas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntasRespuestas.DtResultados
|
||||
Alert("El Pregunta se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
ObjProsPreguntasRespuestas.Dispose()
|
||||
|
||||
If ViewState("OOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntasRespuestas(ViewState("OOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntasRespuestas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPreguntasRespuestas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatosPreguntasRespuestas.RowCancelingEdit
|
||||
GvDatosPreguntasRespuestas.EditIndex = -1
|
||||
If ViewState("OOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntasRespuestas(ViewState("OOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntasRespuestas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPreguntasRespuestas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatosPreguntasRespuestas.RowUpdating
|
||||
|
||||
Dim ObjProsPreguntasRespuestas As New ClsProspectos
|
||||
|
||||
Dim Pregunta As String = DirectCast(GvDatosPreguntasRespuestas.Rows(e.RowIndex).FindControl("TxtRespuestaB"), TextBox).Text.Trim
|
||||
Dim Encuesta As Integer = DirectCast(GvDatosPreguntasRespuestas.Rows(e.RowIndex).FindControl("DdlPreguntaB"), DropDownList).SelectedValue.ToEntero
|
||||
Dim PreguntaTipo As Integer = DirectCast(GvDatosPreguntasRespuestas.Rows(e.RowIndex).FindControl("DdlPreguntaB"), DropDownList).SelectedValue.ToEntero
|
||||
Dim PiePregunta As String = DirectCast(GvDatosPreguntasRespuestas.Rows(e.RowIndex).FindControl("TxtPiePregunta"), TextBox).Text.Trim
|
||||
Dim Estatus As Boolean = GvDatosPreguntasRespuestas.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
|
||||
Dim Orden As Integer = 1
|
||||
Dim CvePregunta As Integer = GvDatosPreguntasRespuestas.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
||||
|
||||
If ObjProsPreguntasRespuestas.UpdatePreguntas(Pregunta, Encuesta, PreguntaTipo, PiePregunta, Estatus, Orden, CvePregunta) Then
|
||||
GvDatosPreguntasRespuestas.EditIndex = -1
|
||||
ViewState("DTPreguntas") = ObjProsPreguntasRespuestas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntasRespuestas.DtResultados
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
ObjProsPreguntasRespuestas.Dispose()
|
||||
|
||||
If ViewState("OOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntasRespuestas(ViewState("OOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntasRespuestas("")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosPreguntasRespuestas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatosPreguntasRespuestas.RowEditing
|
||||
GvDatosPreguntasRespuestas.EditIndex = e.NewEditIndex
|
||||
|
||||
If ViewState("OOrden").ToString() <> String.Empty Then
|
||||
CargaGridPreguntasRespuestas(ViewState("OOrden").ToString())
|
||||
Else
|
||||
CargaGridPreguntasRespuestas("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGridPreguntasRespuestas(Orden As String)
|
||||
If Orden <> String.Empty Then
|
||||
Dim DV As New DataView(CType(ViewState("DTPreguntas"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||
GvDatosPreguntasRespuestas.DataSource = DV.ToTable()
|
||||
DV.Dispose()
|
||||
Else
|
||||
GvDatosPreguntasRespuestas.DataSource = CType(ViewState("DTPreguntas"), DataTable)
|
||||
End If
|
||||
GvDatosPreguntasRespuestas.DataBind()
|
||||
UpDatosEncuestasPreguntas.Update()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
16
Prospectos/Encuestas/CatEncuestasPreguntasRespuestas.aspx
Normal file
16
Prospectos/Encuestas/CatEncuestasPreguntasRespuestas.aspx
Normal file
@@ -0,0 +1,16 @@
|
||||
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="CatEncuestasPreguntasRespuestas.aspx.vb" Inherits="Prospectos_Encuestas_CatEncuestasPreguntasRespuestas" %>
|
||||
|
||||
<!DOCTYPE html>
|
||||
|
||||
<html xmlns="http://www.w3.org/1999/xhtml">
|
||||
<head runat="server">
|
||||
<title></title>
|
||||
</head>
|
||||
<body>
|
||||
<form id="form1" runat="server">
|
||||
<div>
|
||||
|
||||
</div>
|
||||
</form>
|
||||
</body>
|
||||
</html>
|
||||
@@ -0,0 +1,5 @@
|
||||
|
||||
Partial Class Prospectos_Encuestas_CatEncuestasPreguntasRespuestas
|
||||
Inherits System.Web.UI.Page
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user