SIG/Prospectos/Encuestas/CatEncuestasPreguntas.aspx.vb

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