Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
499
General/Encuestas.aspx.vb
Normal file
499
General/Encuestas.aspx.vb
Normal file
@@ -0,0 +1,499 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
Partial Class General_Encuestas
|
||||
Inherits ClsPaginas
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
InicializaValores()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub InicializaValores()
|
||||
CargaGridCampañas()
|
||||
CargaGridTiposEncuestas()
|
||||
CargaDdlTemaPregunta()
|
||||
CargaGridEncuestas()
|
||||
CargaEstructura()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#Region " C A M P A Ñ A "
|
||||
Private Sub CargaGridCampañas()
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.GetCampañas(-1, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvCampañas.DataSource = Objeto.DtResultados
|
||||
GvCampañas.DataBind()
|
||||
UpCampañas.Update()
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarCampaña_Click(sender As Object, e As EventArgs) Handles BtnAgregarCampaña.ServerClick
|
||||
TxtCampaña.Text = ""
|
||||
TxtObservaciones.Text = ""
|
||||
UpModalCampaña.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalCampaña"))
|
||||
End Sub
|
||||
|
||||
Private Sub LbAgregarCampaña_Click(sender As Object, e As EventArgs) Handles LbAgregarCampaña.Click
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.AddCampañas(TxtCampaña.Text, TxtObservaciones.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
CargaGridCampañas()
|
||||
Alert("Se agregó correctamente la Campaña.", TipoMensaje.MsgInformacion)
|
||||
OcultaDiv("ModalCampaña")
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvCampañas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvCampañas.RowDeleting
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.RemoveCampañas(GvCampañas.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
CargaGridCampañas()
|
||||
Alert("La Campaña se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
#Region " T i p o E n c u e s t a s"
|
||||
Private Sub CargaGridTiposEncuestas()
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.GetTiposEncuestas(-1, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvTipoEncuesta.DataSource = Objeto.DtResultados
|
||||
GvTipoEncuesta.DataBind()
|
||||
UpTipoEncuesta.Update()
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarTipo_Click(sender As Object, e As EventArgs) Handles BtnAgregarTipo.ServerClick
|
||||
TxtTipo.Text = ""
|
||||
UpModalTipoEncuesta.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalTipoEncuesta"))
|
||||
End Sub
|
||||
|
||||
Private Sub LbAgregarTipoEncuesta_Click(sender As Object, e As EventArgs) Handles LbAgregarTipoEncuesta.Click
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.AddTiposEncuestas(TxtTipo.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
CargaGridTiposEncuestas()
|
||||
Alert("Se agregó correctamente el Tipo de Encuesta.", TipoMensaje.MsgInformacion)
|
||||
OcultaDiv("ModalTipoEncuesta")
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvTipoEncuesta_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvTipoEncuesta.RowDeleting
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.RemoveTiposEncuestas(GvTipoEncuesta.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
CargaGridTiposEncuestas()
|
||||
Alert("El Tipo de Encuesta se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
#Region " T e m a E n c u e s t a s"
|
||||
Private Sub CargaDdlTemaPregunta()
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.GetTemasEncuestas(-1, -1, UsuarioActual.CveEmpresa) Then
|
||||
DdlTemaPregunta.Items.Clear()
|
||||
DdlTemaPregunta.DataSource = Objeto.DtResultados
|
||||
DdlTemaPregunta.DataBind()
|
||||
DdlTemaPregunta.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
UpModalPreguntas.Update()
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub BtnAgregarTema_Click(sender As Object, e As EventArgs) Handles BtnAgregarTema.ServerClick
|
||||
HdnModalidad.Value = "I"
|
||||
HdnID.Value = "-1"
|
||||
TxtTema.Text = ""
|
||||
UpHdn.Update()
|
||||
UpModalTema.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalTema"))
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ActualizaTema(GvRow As GridViewRow)
|
||||
HdnModalidad.Value = "U"
|
||||
HdnID.Value = GvRow.DataKey("CveTema")
|
||||
CargaPreguntasEnModal()
|
||||
TxtTema.Text = GvRow.DataKey("Tema")
|
||||
UpHdn.Update()
|
||||
UpModalTema.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalTema"))
|
||||
End Sub
|
||||
|
||||
Private Sub LbAgregarTema_Click(sender As Object, e As EventArgs) Handles LbAgregarTema.Click
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If HdnModalidad.Value = "I" Then
|
||||
If Objeto.AddTemasEncuestas(TxtTema.Text, DdlEncuestaTema.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
CargaDdlTemaPregunta()
|
||||
Alert("Se agregó correctamente el Tema de Encuesta.", TipoMensaje.MsgInformacion)
|
||||
OcultaDiv("ModalTema")
|
||||
CargaEstructura()
|
||||
End If
|
||||
Else
|
||||
If HdnID.Value.ToEntero <> -1 Then
|
||||
If Objeto.UpdateTemasEncuestas(HdnID.Value.ToEntero, TxtTema.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
CargaDdlTemaPregunta()
|
||||
Alert("Se actualizó correctamente el Tema de Encuesta.", TipoMensaje.MsgInformacion)
|
||||
OcultaDiv("ModalTema")
|
||||
CargaEstructura()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub EliminarTema(GvRow As GridViewRow)
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.RemoveTemasEncuestas(GvRow.DataKey("CveTema").ToEntero) Then
|
||||
CargaEstructura()
|
||||
Alert("El Tema se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
#Region " P r e g u n t a s "
|
||||
Private Sub AgregaPregunta(GvRow As GridViewRow)
|
||||
HdnModalidad.Value = "I"
|
||||
HdnID.Value = "-1"
|
||||
TxtPregunta.Text = ""
|
||||
DdlTemaPregunta.SelectedValue = GvRow.DataKey("CveTema")
|
||||
DdlTipoPregunta.SelectedIndex = 0
|
||||
UpModalPreguntas.Update()
|
||||
|
||||
UpHdn.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalPreguntas"))
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ActualizaPregunta(GvRow As GridViewRow)
|
||||
HdnModalidad.Value = "U"
|
||||
HdnID.Value = GvRow.DataKey("CvePregunta")
|
||||
TxtPregunta.Text = GvRow.DataKey("Pregunta")
|
||||
DdlTemaPregunta.SelectedValue = GvRow.DataKey("CveTema")
|
||||
DdlTipoPregunta.SelectedIndex = 0
|
||||
UpModalPreguntas.Update()
|
||||
UpHdn.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalPreguntas"))
|
||||
End Sub
|
||||
|
||||
Private Sub LbAgregarPregunta_Click(sender As Object, e As EventArgs) Handles LbAgregarPregunta.Click
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
|
||||
If HdnModalidad.Value = "I" Then
|
||||
If Objeto.AddPreguntas(TxtPregunta.Text, DdlTipoPregunta.SelectedValue.ToEntero, DdlTemaPregunta.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
Alert("La Pregunta se agregó correctamente.", TipoMensaje.MsgInformacion)
|
||||
OcultaDiv("ModalPreguntas")
|
||||
CargaEstructura()
|
||||
End If
|
||||
Else
|
||||
If HdnID.Value.ToEntero <> -1 Then
|
||||
If Objeto.UpdatePreguntas(HdnID.Value.ToEntero, TxtPregunta.Text, DdlTipoPregunta.SelectedValue.ToEntero, DdlTemaPregunta.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
Alert("La Pregunta se actualizó correctamente.", TipoMensaje.MsgInformacion)
|
||||
OcultaDiv("ModalPreguntas")
|
||||
CargaEstructura()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub EliminarPregunta(GvRow As GridViewRow)
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.RemovePreguntas(GvRow.DataKey("CvePregunta").ToEntero) Then
|
||||
CargaEstructura()
|
||||
Alert("La Pregunta se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
#Region " R E S P U E S T A S "
|
||||
Private Sub CargaPreguntasEnModal()
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.GetPreguntas(-1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
DdlPregunta.DataSource = Objeto.DtResultados
|
||||
DdlPregunta.Items.Clear()
|
||||
DdlPregunta.Items.Insert(0, New ListItem("Seleccione (Todos)", "-1"))
|
||||
DdlPregunta.DataBind()
|
||||
UpModalRespuestas.Update()
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub AgregaRespuestas(GvRow As GridViewRow)
|
||||
HdnModalidad.Value = "I"
|
||||
HdnID.Value = "-1"
|
||||
CargaPreguntasEnModal()
|
||||
DdlPregunta.SelectedValue = GvRow.DataKey("CvePregunta")
|
||||
TxtRespuesta.Text = ""
|
||||
UpHdn.Update()
|
||||
UpModalRespuestas.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalRespuestas"))
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ActualizaRespuestas(GvRow As GridViewRow)
|
||||
HdnModalidad.Value = "U"
|
||||
HdnID.Value = GvRow.DataKey("CveRespuesta")
|
||||
CargaPreguntasEnModal()
|
||||
DdlPregunta.SelectedValue = GvRow.DataKey("CvePregunta")
|
||||
TxtRespuesta.Text = GvRow.DataKey("Respuesta")
|
||||
UpHdn.Update()
|
||||
UpModalRespuestas.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalRespuestas"))
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub LbAgregarRespuesta_Click(sender As Object, e As EventArgs) Handles LbAgregarRespuesta.Click
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If HdnModalidad.Value = "I" Then
|
||||
If Objeto.AddRespuestas(TxtRespuesta.Text, DdlPregunta.SelectedValue.ToEntero) Then
|
||||
Alert("La Respuesta se registró correctamente.", TipoMensaje.MsgInformacion)
|
||||
OcultaDiv("ModalRespuestas")
|
||||
CargaEstructura()
|
||||
End If
|
||||
Else
|
||||
If HdnID.Value.ToEntero <> -1 Then
|
||||
If Objeto.UpdateRespuestas(HdnID.Value.ToEntero, TxtRespuesta.Text, DdlPregunta.SelectedValue.ToEntero) Then
|
||||
Alert("La Respuesta se actualizó correctamente.", TipoMensaje.MsgInformacion)
|
||||
OcultaDiv("ModalRespuestas")
|
||||
CargaEstructura()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub EliminarRespuesta(GvRow As GridViewRow)
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.RemoveRespuesta(GvRow.DataKey("CveRespuesta").ToEntero) Then
|
||||
Alert("La respuesta se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
CargaEstructura()
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
#Region " E N C U E S T A S "
|
||||
|
||||
Private Sub BtnAgregarEncuesta_Click(sender As Object, e As EventArgs) Handles BtnAgregarEncuesta.ServerClick
|
||||
CargaModalEncuestas()
|
||||
TxtFecha.Text = ""
|
||||
TxtEncuesta.Text = ""
|
||||
TxtObservacionesEncuesta.Text = ""
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalEncuestas"))
|
||||
End Sub
|
||||
|
||||
Private Sub BtnFiltrar_ServerClick(sender As Object, e As EventArgs) Handles BtnFiltrar.ServerClick
|
||||
DdlFiltroEncuestas.SelectedIndex = 0
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalFiltroEncuestas"))
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub BtnFiltrarEncuestas_Click(sender As Object, e As EventArgs) Handles BtnFiltrarEncuestas.Click
|
||||
FiltraEstructura(DdlFiltroEncuestas.SelectedValue.ToEntero)
|
||||
OcultaDiv("ModalFiltroEncuestas")
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaModalEncuestas()
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
|
||||
|
||||
If Objeto.GetCampañas(-1, -1, UsuarioActual.CveEmpresa) Then
|
||||
DdlCampana.DataSource = Objeto.DtResultados
|
||||
DdlCampana.Items.Clear()
|
||||
DdlCampana.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlCampana.DataBind()
|
||||
End If
|
||||
|
||||
If Objeto.GetTiposEncuestas(-1, -1, UsuarioActual.CveEmpresa) Then
|
||||
DdlTipoEncuesta.DataSource = Objeto.DtResultados
|
||||
DdlTipoEncuesta.Items.Clear()
|
||||
DdlTipoEncuesta.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlTipoEncuesta.DataBind()
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
UpModalEncuestas.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub LbAgregarEncuesta_Click(sender As Object, e As EventArgs) Handles LbAgregarEncuesta.Click
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.AddEncuesta(DdlCampana.SelectedValue.ToEntero, -1, TxtEncuesta.Text, TxtObservacionesEncuesta.Text, -1,
|
||||
DdlTipoEncuesta.SelectedValue.ToEntero, True, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
Alert("La Encuesta se agregó correctamente.", TipoMensaje.MsgInformacion)
|
||||
CargaGridEncuestas()
|
||||
OcultaDiv("ModalEncuestas")
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub GvEncuesta_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvEncuesta.RowDeleting
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.RemoveEncuestas(GvEncuesta.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
CargaGridEncuestas()
|
||||
Alert("La Encuesta se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaGridEncuestas()
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.GetEncuestas(UsuarioActual.CveEmpresa) Then
|
||||
GvEncuesta.DataSource = Objeto.DtResultados
|
||||
DdlFiltroEncuestas.Items.Clear()
|
||||
DdlEncuestaTema.Items.Clear()
|
||||
DdlFiltroEncuestas.DataSource = Objeto.DtResultados
|
||||
DdlEncuestaTema.DataSource = Objeto.DtResultados
|
||||
DdlFiltroEncuestas.DataBind()
|
||||
DdlEncuestaTema.DataBind()
|
||||
GvEncuesta.DataBind()
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
UpEncuestas.Update()
|
||||
UpModalTema.Update()
|
||||
UpFiltroEncuestas.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " E S T R U C T U R A "
|
||||
Private Sub CargaEstructura()
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.GetEstructura(-1, UsuarioActual.CveEmpresa) Then
|
||||
GvEstructura.DataSource = Objeto.DtResultados
|
||||
GvEstructura.DataBind()
|
||||
UpEstructura.Update()
|
||||
End If
|
||||
Objeto.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub FiltraEstructura(CveEncuesta As Integer)
|
||||
Dim Objeto As New ClsGralEncuestas
|
||||
If Objeto.GetEstructura(CveEncuesta, UsuarioActual.CveEmpresa) Then
|
||||
GvEstructura.DataSource = Objeto.DtResultados
|
||||
GvEstructura.DataBind()
|
||||
UpEstructura.Update()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvEstructura_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvEstructura.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
Dim Tipo = e.Row.DataKey("Tipo").ToString
|
||||
Select Case Tipo
|
||||
Case "1"
|
||||
e.Row.Font.Bold = True
|
||||
e.Row.ForeColor = Drawing.Color.White
|
||||
e.Row.BackColor = Drawing.Color.FromArgb(1, 186, 205, 206)
|
||||
e.Row.FCLiteral("LtlTema").Visible = True
|
||||
e.Row.FCLinkButton("ImgA").Visible = True
|
||||
Case "2"
|
||||
e.Row.BackColor = Drawing.Color.FromArgb(1, 213, 225, 225)
|
||||
e.Row.FCLiteral("LtlPregunta").Visible = True
|
||||
e.Row.FCLinkButton("ImgA").Visible = True
|
||||
|
||||
Case "3"
|
||||
e.Row.BackColor = Drawing.Color.White
|
||||
e.Row.FCLiteral("LtlRespuesta").Visible = True
|
||||
End Select
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub AddEstructura(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim Tipo As Integer = GvRow.DataKey("Tipo").ToString.ToEntero
|
||||
Select Case Tipo
|
||||
Case -1
|
||||
Case 2
|
||||
AgregaRespuestas(GvRow)
|
||||
Case 1
|
||||
AgregaPregunta(GvRow)
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Protected Sub EliminarEstructura(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim Tipo As Integer = GvRow.DataKey("Tipo").ToString.ToEntero
|
||||
Select Case Tipo
|
||||
Case 3
|
||||
'RESPUESTA
|
||||
EliminarRespuesta(GvRow)
|
||||
Case 2
|
||||
'PREGUNTAS
|
||||
EliminarPregunta(GvRow)
|
||||
Case 1
|
||||
'TEMA
|
||||
EliminarTema(GvRow)
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Protected Sub UpdateEstructura(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim Tipo As Integer = GvRow.DataKey("Tipo").ToString.ToEntero
|
||||
Select Case Tipo
|
||||
Case 3
|
||||
ActualizaRespuestas(GvRow)
|
||||
Case 2
|
||||
ActualizaPregunta(GvRow)
|
||||
' ActualizaPregunta(GvRow)
|
||||
Case 1
|
||||
'ActualizaTema(GvRow)
|
||||
ActualizaTema(GvRow)
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " E X T R A S "
|
||||
Private Sub OcultaDiv(Modal As String)
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", Modal))
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user