487 lines
24 KiB
VB.net
487 lines
24 KiB
VB.net
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 |