SIG/Prospectos/Encuestas/CatEncuestas.aspx.vb

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