-- cambios en GlobalDT

2023-02-24 10:51:18 -07:00
parent 601c23100a
commit 07d161bff3
24 changed files with 143 additions and 147 deletions
--- a/Prospectos/CatClasificacionesCaracteristicas.aspx.vb
+++ b/Prospectos/CatClasificacionesCaracteristicas.aspx.vb
@@ -56,7 +56,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
            If (ViewState("DTClasificacionesCaracteristicas") Is Nothing) Then
                ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados
            End If
-            GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing
        Else
            Me.GvDatosCl.DataSource = Nothing
        End If
@@ -77,7 +77,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
            Alert("La nueva Clasificación de Tipo de Característica se guardó correctamente.", TipoMensaje.MsgInformacion)
            'UpTitulos.Update()
            ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing

            CambioClasificacionesCaracteristicas()
        End If
@@ -186,7 +186,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left

            If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
-                e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").DataSource = GlobalDTProspectosCaracteristicasClasificaciones.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+                e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
                e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").DataBind()
                e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").SelectedValue = e.Row.DBCampo("CveCaracteristicaClasificacion")
            End If
@@ -199,11 +199,11 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
    End Sub
    Private Sub CargaClasificaciones()
        DdlCaracteristicaClasificacion.Items.Clear()
-        DdlCaracteristicaClasificacion.DataSource = GlobalDTProspectosCaracteristicasClasificaciones.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlCaracteristicaClasificacion.DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
        DdlCaracteristicaClasificacion.DataBind()

        DdlCaracteristicaClasificacionC.Items.Clear()
-        DdlCaracteristicaClasificacionC.DataSource = GlobalDTProspectosCaracteristicasClasificaciones.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlCaracteristicaClasificacionC.DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
        DdlCaracteristicaClasificacionC.DataBind()
    End Sub
    Protected Sub BtnDuplicarCaracteristicaTipo_Click(sender As Object, e As EventArgs) Handles BtnDuplicarCaracteristicaTipo.Click
@@ -219,7 +219,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
            Alert("El nuevo Tipo de Característica se guardó correctamente.", TipoMensaje.MsgInformacion)
            'UpTitulos.Update()
            ViewState("DTTiposCaracteristicas") = ObjCaracteristicaTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosTiposCaracteristicas = ObjCaracteristicaTipo.DtResultados
+            GlobalDTProspectosTiposCaracteristicas(UsuarioActual.CveEmpresa) = Nothing

            CambioCaracteristicaTipo()
        End If
@@ -292,11 +292,11 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas

    Private Sub CargaTiposCaracteristicas()
        DdlCaracteristicaTipo.Items.Clear()
-        DdlCaracteristicaTipo.DataSource = GlobalDTProspectosTiposCaracteristicas.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlCaracteristicaTipo.DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
        DdlCaracteristicaTipo.DataBind()

        DdlCaracteristicaTipoO.Items.Clear()
-        DdlCaracteristicaTipoO.DataSource = GlobalDTProspectosTiposCaracteristicas.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlCaracteristicaTipoO.DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
        DdlCaracteristicaTipoO.DataBind()
    End Sub
    Protected Sub GvDatosCaracteristicas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosCaracteristicas.RowDataBound
@@ -316,7 +316,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left

            If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
-                e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").DataSource = GlobalDTProspectosTiposCaracteristicas.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+                e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
                e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").DataBind()
                e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").SelectedValue = e.Row.DBCampo("CveCaracteristicaTipo")

@@ -382,7 +382,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
            If (ViewState("DTTiposCaracteristicas") Is Nothing) Then
                ViewState("DTTiposCaracteristicas") = ObjCaracteristicaTipo.DtResultados
            End If
-            GlobalDTProspectosTiposCaracteristicas = ObjCaracteristicaTipo.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing
        Else
            Me.GvDatos.DataSource = Nothing
        End If
@@ -415,7 +415,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
            Alert("El nuevo Tipo de Característica se guardó correctamente.", TipoMensaje.MsgInformacion)
            'UpTitulos.Update()
            ViewState("DTTiposCaracteristicas") = ObjTiposCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosTiposCaracteristicas = ObjTiposCaracteristicas.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing

            CambioCaracteristicaTipo()
        End If
@@ -564,7 +564,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
        If ObjClasificaciones.RemoveClasificacionesCaracteristicas(GvDatosCl.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
            GvDatosCl.EditIndex = -1
            ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing
            Alert("La Clasificacion de Tipo de Caracteristica se eliminó correctamente.", TipoMensaje.MsgInformacion)

            CambioClasificacionesCaracteristicas()
@@ -578,7 +578,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
        If ObjTiposCaracteristicas.RemoveTiposCaracteristicas(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
            GvDatos.EditIndex = -1
            ViewState("DTTiposCaracteristicas") = ObjTiposCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosTiposCaracteristicas = ObjTiposCaracteristicas.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosTiposCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
            Alert("El Tipo de Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)

            CambioCaracteristicaTipo()
@@ -661,7 +661,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
        If ObjClasificaciones.UpdateClasificacionesCaracteristicas(CaracteristicaClasificacion, Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristicaClasificacion) Then
            GvDatosCl.EditIndex = -1
            ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)

            CambioClasificacionesCaracteristicas()
@@ -681,7 +681,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
        If ObjTiposCaracteristicas.UpdateTiposCaracteristicas(CaracteristicaTipo, CveCaracteristicaClasificacion, Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristicaTipo) Then
            GvDatos.EditIndex = -1
            ViewState("DTTiposCaracteristicas") = ObjTiposCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosTiposCaracteristicas = ObjTiposCaracteristicas.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosTiposCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)

            CambioCaracteristicaTipo()
--- a/Prospectos/CatProspectosApoyos.aspx.vb
+++ b/Prospectos/CatProspectosApoyos.aspx.vb
@@ -18,9 +18,9 @@ Partial Class Prospectos_CatProspectosApoyos

    Public Sub CargaDatos()
        Dim ObjProspectosApoyos As New ClsProspectos
-        If ObjProspectosApoyos.GetProspectoApoyo() Then
-            ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = ObjProspectosApoyos.DtResultados
+        If ObjProspectosApoyos.GetProspectoApoyo(UsuarioActual.CveEmpresa) Then
+            ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados
+            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = Nothing
        Else
            Me.GvDatos.DataSource = Nothing
        End If
@@ -40,8 +40,8 @@ Partial Class Prospectos_CatProspectosApoyos
            TxtProspectoApoyo.Text = ""
            Alert("El nuevo Apoyo se guardó correctamente.", TipoMensaje.MsgInformacion)
            UpTitulos.Update()
-            ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = ObjProspectosApoyos.DtResultados
+            ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados
+            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = Nothing

            If ViewState("Orden").ToString() <> String.Empty Then
                CargaGrid(ViewState("Orden").ToString())
@@ -72,7 +72,7 @@ Partial Class Prospectos_CatProspectosApoyos
        If ObjProspectosApoyos.RemoveProspectoApoyo(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
            GvDatos.EditIndex = -1
            ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = ObjProspectosApoyos.DtResultados
+            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = Nothing
            Alert("El Apoyo se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If

@@ -103,7 +103,7 @@ Partial Class Prospectos_CatProspectosApoyos
        If ObjProspectosApoyos.UpdateProspectoApoyo(ProspectoApoyo, Estatus, CveProspectoApoyo) Then
            GvDatos.EditIndex = -1
            ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = ObjProspectosApoyos.DtResultados
+            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = Nothing
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
        End If

--- a/Prospectos/CatProspectosApoyosTipos.aspx.vb
+++ b/Prospectos/CatProspectosApoyosTipos.aspx.vb
@@ -18,9 +18,9 @@ Partial Class Prospectos_CatProspectosApoyosTipos

    Public Sub CargaDatos()
        Dim ObjApoyoTipo As New ClsProspectos
-        If ObjApoyoTipo.GetApoyoTipo() Then
-            ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = ObjApoyoTipo.DtResultados
+        If ObjApoyoTipo.GetApoyoTipo(UsuarioActual.CveEmpresa) Then
+            ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados
+            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = Nothing
        Else
            Me.GvDatos.DataSource = Nothing
        End If
@@ -40,8 +40,8 @@ Partial Class Prospectos_CatProspectosApoyosTipos
            TxtApoyoTipo.Text = ""
            Alert("El nuevo Tipo de Apoyo se guardó correctamente.", TipoMensaje.MsgInformacion)
            UpTitulos.Update()
-            ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = ObjApoyoTipo.DtResultados
+            ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados
+            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = Nothing

            If ViewState("Orden").ToString() <> String.Empty Then
                CargaGrid(ViewState("Orden").ToString())
@@ -72,7 +72,7 @@ Partial Class Prospectos_CatProspectosApoyosTipos
        If ObjApoyoTipo.RemoveApoyoTipo(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
            GvDatos.EditIndex = -1
            ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = ObjApoyoTipo.DtResultados
+            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = Nothing
            Alert("El Tipo de Apoyo se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If

@@ -102,7 +102,7 @@ Partial Class Prospectos_CatProspectosApoyosTipos
        If ObjApoyoTipo.UpdateApoyoTipo(ApoyoTipo, Estatus, CveApoyoTipo) Then
            GvDatos.EditIndex = -1
            ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = ObjApoyoTipo.DtResultados
+            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = Nothing
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
        End If

--- a/Prospectos/RedesCallCenter.aspx.vb
+++ b/Prospectos/RedesCallCenter.aspx.vb
@@ -97,7 +97,7 @@ Partial Class Prospectos_RedesCallCenter

                    GvPreguntas.DataSource = ObjProsEncuestas.DtResultados
                    DTProspectosPreguntas = ObjProsEncuestas.DtResultados
-                    If ObjProsEncuestas.GetRespuestas(-1, CveEncuesta) Then
+                    If ObjProsEncuestas.GetRespuestas(-1, CveEncuesta, UsuarioActual.CveEmpresa) Then
                        DTProspectosRespuestas = ObjProsEncuestas.DtResultados
                    End If

--- a/Prospectos/RedesEncuestas.aspx.vb
+++ b/Prospectos/RedesEncuestas.aspx.vb
@@ -463,7 +463,7 @@ Partial Class Prospectos_RedesEncuestas
            GvPreguntas.DataSource = ObjProsEncuestas.DtResultados
            DTProspectosPreguntas = ObjProsEncuestas.DtResultados

-            If ObjProsEncuestas.GetRespuestas(-1, CveEncuesta) Then
+            If ObjProsEncuestas.GetRespuestas(-1, CveEncuesta, UsuarioActual.CveEmpresa) Then
                DTProspectosRespuestas = ObjProsEncuestas.DtResultados
            End If

--- a/Prospectos/Solicitudes/CatProspectosSolicitudesEstatus.aspx.vb
+++ b/Prospectos/Solicitudes/CatProspectosSolicitudesEstatus.aspx.vb
@@ -22,9 +22,8 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus

    Public Sub CargaDatos()
        Dim ObjProspectosEstatus As New ClsProspectos
-        If ObjProspectosEstatus.GetSolicitudEstatus() Then
-            ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados
+        If ObjProspectosEstatus.GetSolicitudEstatus(UsuarioActual.CveEmpresa) Then
+            ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados
        Else
            Me.GvDatos.DataSource = Nothing
        End If
@@ -45,7 +44,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus
            Alert("El nuevo Estatus se guardó correctamente.", TipoMensaje.MsgInformacion)
            UpTitulos.Update()
            ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados
+            GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = Nothing

            If ViewState("Orden").ToString() <> String.Empty Then
                CargaGrid(ViewState("Orden").ToString())
@@ -126,7 +125,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus
        If ObjProspectosEstatus.RemoveSolicitudEstatus(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
            GvDatos.EditIndex = -1
            ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados
+            GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = Nothing
            Alert("El Estatus se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If

@@ -159,7 +158,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus
        If ObjProspectosEstatus.UpdateSolicitudEstatus(SolicitudEstatus, Estatus, CveSolicitudEstatus) Then
            GvDatos.EditIndex = -1
            ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados
+            GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = Nothing
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
        End If

--- a/Prospectos/Solicitudes/CatProspectosSolicitudesTipos.aspx.vb
+++ b/Prospectos/Solicitudes/CatProspectosSolicitudesTipos.aspx.vb
@@ -22,9 +22,9 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos

    Public Sub CargaDatos()
        Dim ObjSolicitudTipo As New ClsProspectos
-        If ObjSolicitudTipo.GetSolicitudTipo() Then
-            ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados
+        If ObjSolicitudTipo.GetSolicitudTipo(UsuarioActual.CveEmpresa) Then
+            ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados
+            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing
        Else
            Me.GvDatos.DataSource = Nothing
        End If
@@ -45,7 +45,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos
            Alert("El nuevo Tipo de Solicitud se guardó correctamente.", TipoMensaje.MsgInformacion)
            UpTitulos.Update()
            ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados
+            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing

            If ViewState("Orden").ToString() <> String.Empty Then
                CargaGrid(ViewState("Orden").ToString())
@@ -126,7 +126,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos
        If ObjSolicitudTipo.RemoveSolicitudTipo(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
            GvDatos.EditIndex = -1
            ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados
+            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing
            Alert("El Tipo de Solicitud se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If

@@ -159,7 +159,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos
        If ObjSolicitudTipo.UpdateSolicitudTipo(SolicitudTipo, Estatus, CveSolicitudTipo) Then
            GvDatos.EditIndex = -1
            ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados
+            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
        End If