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("OrdenE") = ""
            ViewState("OrdenP") = ""
            ViewState("OrdenPR") = ""

            CargaDatosEncuestas()
            CargaEncuesta()
            CargaDatosPreguntas()
            CargaDatosPreguntasRespuestas()
            CargaPreguntas()
        End If
    End Sub

#Region "C A R G A S"
    Private Sub CargaEncuesta()
        DdlEncuesta.DataSource = GlobalDTProspectosEncuestas(UsuarioActual.CveEmpresa) '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        DdlEncuesta.DataBind()
    End Sub

    Private Sub CargaPreguntas()
        DdlPreguntaB.DataSource = GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa)
        DdlPreguntaB.DataBind()
        DDlPreguntaSiguienteB.DataSource = GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa)
        DDlPreguntaSiguienteB.DataBind()
    End Sub

    Protected Sub DdlEncuesta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEncuesta.SelectedIndexChanged
        CargaDatosPreguntas()
        UpDatosEncuestasPreguntas.Update()
    End Sub
#End Region

#Region "C A R G A  D A T O S"
    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("OrdenE").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenE").ToString(), 0)
        Else
            CargaGrid("", 0)
        End If
    End Sub

    Public Sub CargaDatosPreguntas()
        Dim ObjProsPreguntas As New ClsProspectos
        If ObjProsPreguntas.GetPreguntas(DdlEncuesta.SelectedValue.ToEntero, 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("OrdenP").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenP").ToString(), 1)
        Else
            CargaGrid("", 1)
        End If
    End Sub

    Public Sub CargaDatosPreguntasRespuestas()
        Dim ObjProsPreguntasRespuestas As New ClsProspectos
        If ObjProsPreguntasRespuestas.GetRespuestas() Then
            ViewState("DTPreguntasRespuestas") = ObjProsPreguntasRespuestas.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
            'comente este renglon RMF, marca error
            ' GlobalDTProspectosEncuestasRespuestas(-1, -1, UsuarioActual.CveEmpresa) = ObjProsPreguntasRespuestas.DtResultados
            'GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntasRespuestas.DtResultados
        Else
            Me.GvDatosPreguntasRespuestas.DataSource = Nothing
        End If

        ObjProsPreguntasRespuestas.Dispose()

        If ViewState("OrdenPR").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenPR").ToString(), 2)
        Else
            CargaGrid("", 2)
        End If
    End Sub
#End Region

    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 nueva Encuesta se guardó correctamente.", TipoMensaje.MsgInformacion)
            UpDatos.Update()
            ViewState("DTEncuestas") = ObjProsEncuestas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
            GlobalDTProspectosEncuestas(UsuarioActual.CveEmpresa) = ObjProsEncuestas.DtResultados

            If ViewState("OrdenE").ToString() <> String.Empty Then
                CargaGrid(ViewState("OrdenE").ToString(), 0)
            Else
                CargaGrid("", 0)
            End If
        End If
        ObjProsEncuestas.Dispose()
    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("El nuevo Pregunta se guardó correctamente.", TipoMensaje.MsgInformacion)
            UpDatosEncuestasPreguntas.Update()
            ViewState("DTPreguntas") = ObjProsPreguntas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)

            GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntas.DtResultados

            If ViewState("OrdenP").ToString() <> String.Empty Then
                CargaGrid(ViewState("OrdenP").ToString(), 1)
            Else
                CargaGrid("", 1)
            End If
        End If
        ObjProsPreguntas.Dispose()
    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)
            UpDatosPreguntasRespuestas.Update()
            ViewState("DTPreguntasRespuestas") = ObjProsPreguntasRespuestas.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)

            GlobalDTProspectosEncuestasPreguntas(-1, UsuarioActual.CveEmpresa) = ObjProsPreguntasRespuestas.DtResultados

            If ViewState("OrdenPR").ToString() <> String.Empty Then
                CargaGrid(ViewState("OrdenPR").ToString(), 2)
            Else
                CargaGrid("", 2)
            End If
        End If
        ObjProsPreguntasRespuestas.Dispose()
    End Sub

#Region "G V  E N C U E S T A S"
    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(256)
                e.Row.Cells(1).Width = Unit.Pixel(256)
                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(65)
            End If
            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
            e.Row.Cells(1).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("OrdenE").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenE").ToString(), 0)
        Else
            CargaGrid("", 0)
        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("OrdenE").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenE").ToString(), 0)
        Else
            CargaGrid("", 0)
        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
            CargaGrid(ViewState("Orden").ToString(), 0)
        Else
            CargaGrid("", 0)
        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("OrdenE").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenE").ToString(), 0)
        Else
            CargaGrid("", 0)
        End If
    End Sub
#End Region

#Region "G V  P R E G U N T A S"
    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(196)
                e.Row.Cells(1).Width = Unit.Pixel(106)
                e.Row.Cells(2).Width = Unit.Pixel(106)
                e.Row.Cells(3).Width = Unit.Pixel(106)
                e.Row.Cells(4).Width = Unit.Pixel(126)
                e.Row.Cells(5).Width = Unit.Pixel(89)
                e.Row.Cells(6).Width = Unit.Pixel(95)
                e.Row.Cells(7).Width = Unit.Pixel(91)
                e.Row.Cells(8).Width = Unit.Pixel(94)
                e.Row.Cells(9).Width = Unit.Pixel(65)
            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("El Pregunta se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If

        ObjProsPreguntas.Dispose()

        If ViewState("OrdenP").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenP").ToString(), 1)
        Else
            CargaGrid("", 1)
        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("OrdenP").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenP").ToString(), 1)
        Else
            CargaGrid("", 1)
        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("OrdenP").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenP").ToString(), 1)
        Else
            CargaGrid("", 1)
        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("OrdenP").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenP").ToString(), 1)
        Else
            CargaGrid("", 1)
        End If
    End Sub
#End Region

#Region "G V  P R E G U N T A S - R E S P U E S T A S"
    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

            End If
            e.Row.Cells(0).Width = Unit.Pixel(156) 'respuesta
            e.Row.Cells(1).Width = Unit.Pixel(156) 'orden
            e.Row.Cells(2).Width = Unit.Pixel(176) 'pregunta
            e.Row.Cells(3).Width = Unit.Pixel(176) 'pregunta siguiente
            e.Row.Cells(4).Width = Unit.Pixel(84) 'estatus
            e.Row.Cells(5).Width = Unit.Pixel(95) 'fecha ing
            e.Row.Cells(6).Width = Unit.Pixel(86) 'usuario
            e.Row.Cells(7).Width = Unit.Pixel(74)
            e.Row.Cells(8).Width = Unit.Pixel(61)

            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("OrdenPR").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenPR").ToString(), 2)
        Else
            CargaGrid("", 2)
        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("OrdenPR").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenPR").ToString(), 2)
        Else
            CargaGrid("", 2)
        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("OrdenPR").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenPR").ToString(), 2)
        Else
            CargaGrid("", 2)
        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("OrdenPR").ToString() <> String.Empty Then
            CargaGrid(ViewState("OrdenPR").ToString(), 2)
        Else
            CargaGrid("", 2)
        End If
    End Sub
#End Region

#Region "O R D E N A M I E N T O"
    Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim Orden As String = ""
        Dim Campo As String = ""
        Dim gvi As Integer = 0
        Dim Literal As Literal = Nothing
        Const OrdenInicial As String = ""
        Dim Arg(2) As String

        Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
        Campo = Arg(0)
        gvi = Arg(1).ToEntero
        Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
        Campo = Campo.Substring(0, Campo.Length - 1)

        If ViewState(String.Format("O{0}", Campo, gvi)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo, gvi)).ToString = String.Format("{0} DESC", Campo) Then
            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
            Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
        Else
            ViewState(String.Format("O{0}", Campo, gvi)) = String.Format("{0} DESC", Campo)
            Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
        End If
        Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo, gvi)).ToString
        ViewState("Orden") = Orden
        CargaGrid(Orden, gvi)
    End Sub

    Private Sub CargaGrid(Orden As String, gvi As Integer)
        If gvi = 0 Then
            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
            ViewState("OrdenE") = Orden
            GvDatosEncuesta.DataBind()
            UpDatos.Update()
        ElseIf gvi = 1 Then
            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
            ViewState("OrdenP") = Orden
            GvDatosPregunta.DataBind()
            UpDatosEncuestasPreguntas.Update()
        ElseIf gvi = 2 Then
            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
            ViewState("OrdenPR") = Orden
            GvDatosPreguntasRespuestas.DataBind()
            UpDatosEncuestasPreguntas.Update()
        End If

    End Sub
#End Region
End Class