Mega limpieza masiva GlobalDTs

+ de 30 globalDTs se movió la carga a ClsPaginas + se segmentaron todos los GlobalDTs que siempre hacían un DataView, a segmentar las tablas por empresa individual CAMBIOS EN BD (YA EN VENTAS) + @CveEmpresa INT ... a la mayoría de PAs que fueron comentados en Global.asax (aprox 17) PA_Pros_ProspectosApoyosGet PA_Pros_ProspectosClasificacionGet PA_Pros_ProspectosApoyosTiposGet PA_Pros_ProspectosTiposGet PA_Pros_ProspectosSolicitudesGet PA_Pros_ProspectosSolicitudesEstatusGet PA_Pros_ProspectosSolicitudesTiposGet PA_Pros_EncuestasRespuestasGet PA_AC_FuentesRecaudacionGet PA_AC_UnidadesAdministrativasGet PA_AC_ClasificacionFuncionalGet PA_AC_ClasificacionGeograficaGet PA_AC_FuentesFinanciamientoGet PA_AC_ClasificacionAdministrativaGet PA_AC_ProgramaOperativoGet PA_AC_PD_EjeRectorGet PA_Flo_CombustiblesGet
2023-02-23 20:59:06 -07:00
parent 96d540b73f
commit b540722f2f
12 changed files with 563 additions and 479 deletions
--- a/AC/CatClasificacionAdministrativa.aspx.vb
+++ b/AC/CatClasificacionAdministrativa.aspx.vb
@@ -17,15 +17,7 @@ Partial Class AC_CatClasificacionAdministrativa
    End Sub

    Public Sub CargaDatos()
-        Dim ObjClasificacionAdministrativa As New ClsAC
-        If ObjClasificacionAdministrativa.GetClasificacionAdministrativa() Then
-            ViewState("DTClasificacionAdministrativas") = ObjClasificacionAdministrativa.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_ClasificacionAdministrativa(UsuarioActual.CveEmpresa) = ObjClasificacionAdministrativa.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjClasificacionAdministrativa.Dispose()
+        ViewState("DTClasificacionAdministrativas") = GlobalDTAC_ClasificacionAdministrativa(UsuarioActual.CveEmpresa)

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
--- a/AC/CatClasificacionFuncional.aspx.vb
+++ b/AC/CatClasificacionFuncional.aspx.vb
@@ -52,15 +52,7 @@ Partial Class AC_CatClasificacionFuncional
    End Sub

    Public Sub CargaDatos()
-        Dim ObjClasificacionFuncional As New ClsAC
-        If ObjClasificacionFuncional.GetClasificacionFuncional() Then
-            ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjClasificacionFuncional.Dispose()
+        ViewState("DTClasificacionFuncional") = GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa)

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
--- a/AC/CatClasificacionGeografica.aspx.vb
+++ b/AC/CatClasificacionGeografica.aspx.vb
@@ -56,15 +56,7 @@ Partial Class AC_CatClasificacionGeografica
    End Sub

    Public Sub CargaDatos()
-        Dim ObjClasificacionGeografica As New ClsAC
-        If ObjClasificacionGeografica.GetClasificacionGeografica() Then
-            ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjClasificacionGeografica.Dispose()
+        ViewState("DTClasificacionGeografica") = GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa)

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
--- a/AC/CatFuentesFinanciamiento.aspx.vb
+++ b/AC/CatFuentesFinanciamiento.aspx.vb
@@ -47,15 +47,7 @@ Partial Class AC_CatFuentesFinanciamiento
    End Sub

    Public Sub CargaDatos()
-        Dim ObjFuentesFinanciamiento As New ClsAC
-        If ObjFuentesFinanciamiento.GetFuentesFinanciamiento() Then
-            ViewState("DTFuentesFinanciamiento") = ObjFuentesFinanciamiento.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_FuentesFinanciamiento(-1) = ObjFuentesFinanciamiento.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjFuentesFinanciamiento.Dispose()
+        ViewState("DTFuentesFinanciamiento") = GlobalDTAC_FuentesFinanciamiento(UsuarioActual.CveEmpresa)

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
--- a/AC/CatFuentesRecaudacion.aspx.vb
+++ b/AC/CatFuentesRecaudacion.aspx.vb
@@ -48,15 +48,7 @@ Partial Class AC_CatFuentesRecaudacion
    End Sub

    Public Sub CargaDatos()
-        Dim ObjFuenteRecaudacion As New ClsAC
-        If ObjFuenteRecaudacion.GetFuentesRecaudacion() Then
-            ViewState("DTFuenteRecaudacion") = ObjFuenteRecaudacion.DtResultados.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa))
-            GlobalDTAC_FuentesRecaudacion(-1) = ObjFuenteRecaudacion.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjFuenteRecaudacion.Dispose()
+        ViewState("DTFuenteRecaudacion") = GlobalDTAC_FuentesRecaudacion(UsuarioActual.CveEmpresa)

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
--- a/AC/CatUnidadesAdministrativas.aspx.vb
+++ b/AC/CatUnidadesAdministrativas.aspx.vb
@@ -26,15 +26,7 @@ Partial Class AC_CatUnidadesAdministrativas
    End Sub

    Public Sub CargaDatos()
-        Dim ObjUnidadAdministrativas As New ClsAC
-        If ObjUnidadAdministrativas.GetUnidadesAdministrativas() Then
-            ViewState("DTUnidadAdministrativas") = ObjUnidadAdministrativas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_UnidadesAdministrativas(-1) = ObjUnidadAdministrativas.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjUnidadAdministrativas.Dispose()
+        ViewState("DTUnidadAdministrativas") = GlobalDTAC_UnidadesAdministrativas(UsuarioActual.CveEmpresa)

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
--- a/App_Code/ClsAC.vb
+++ b/App_Code/ClsAC.vb
@@ -160,10 +160,12 @@ Public Class ClsAC
        Return Retorno
    End Function

-    Public Function GetProgramaOperativo() As Boolean
+    Public Function GetProgramaOperativo(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_AC_ProgramaOperativoGet")
-
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
@@ -1033,9 +1035,12 @@ Public Class ClsAC
 #End Region

 #Region "AC_UnidadesAdministrativas"
-    Public Function GetUnidadesAdministrativas() As Boolean
+    Public Function GetUnidadesAdministrativas(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_AC_UnidadesAdministrativasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
@@ -1127,9 +1132,12 @@ Public Class ClsAC
 #End Region

 #Region "AC_ClasificacionGeografica"
-    Public Function GetClasificacionGeografica() As Boolean
+    Public Function GetClasificacionGeografica(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_AC_ClasificacionGeograficaGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
@@ -1761,9 +1769,12 @@ Public Class ClsAC
 #End Region

 #Region "AC_ClasificacionFuncional"
-    Public Function GetClasificacionFuncional() As Boolean
+    Public Function GetClasificacionFuncional(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_AC_ClasificacionFuncionalGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
@@ -1852,9 +1863,12 @@ Public Class ClsAC
 #End Region

 #Region "AC_FuentesFinanciamiento"
-    Public Function GetFuentesFinanciamiento() As Boolean
+    Public Function GetFuentesFinanciamiento(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_AC_FuentesFinanciamientoGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
@@ -2223,9 +2237,12 @@ Public Class ClsAC
 #End Region

 #Region "AC_ClasificacionAdministrativa"
-    Public Function GetClasificacionAdministrativa() As Boolean
+    Public Function GetClasificacionAdministrativa(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_AC_ClasificacionAdministrativaGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
@@ -2315,9 +2332,12 @@ Public Class ClsAC
 #End Region

 #Region "AC_PD_EjeRector"
-    Public Function GetPD_EjeRector() As Boolean
+    Public Function GetPD_EjeRector(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_AC_PD_EjeRectorGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
@@ -2787,9 +2807,12 @@ Public Class ClsAC
 #End Region

 #Region "AC_FuentesRecaudacion"
-    Public Function GetFuentesRecaudacion() As Boolean
+    Public Function GetFuentesRecaudacion(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_AC_FuentesRecaudacionGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
--- a/App_Code/ClsFlotillas.vb
+++ b/App_Code/ClsFlotillas.vb
@@ -142,11 +142,12 @@ Public Class ClsFlotillas

 #Region " C O M B U S T I B L E S  "

-    Public Function GetCombustibles() As Boolean
+    Public Function GetCombustibles(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Flo_CombustiblesGet")
-
-
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
--- a/App_Code/ClsProspectos.vb
+++ b/App_Code/ClsProspectos.vb
@@ -1409,9 +1409,12 @@ Public Class ClsProspectos
 #End Region

 #Region "P R O S P E C T O S  -  C L A S I F I C A C I O N"
-    Public Function GetClasificacion() As Boolean
+    Public Function GetClasificacion(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Pros_ProspectosClasificacionGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
@@ -1674,9 +1677,12 @@ Public Class ClsProspectos


 #Region "P R O S P E C T O S  -  T I P O S"
-    Public Function GetProspectosTipos() As Boolean
+    Public Function GetProspectosTipos(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Pros_ProspectosTiposGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
@@ -1957,9 +1963,12 @@ Public Class ClsProspectos
 #End Region

 #Region "P R O S P E C T O S  -  A P O Y O S "
-    Public Function GetProspectoApoyo() As Boolean
+    Public Function GetProspectoApoyo(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Pros_ProspectosApoyosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
@@ -2265,7 +2274,7 @@ Public Class ClsProspectos
 #End Region

 #Region "P R O S P E C T O S  -  S O L I C I T U D E S "
-    Public Function GetProspectosSolicitudes(CveProspecto As Integer, CveApoyoTipo As Integer, CveClasificacion As Integer, CveProspectoSolicitud As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetProspectosSolicitudes(CveEmpresa As Integer, Optional CveProspecto As Integer = -1, Optional CveApoyoTipo As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveProspectoSolicitud As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Pros_ProspectosSolicitudesGet")
        With SqlAdapter.SelectCommand.Parameters
@@ -2586,9 +2595,12 @@ Public Class ClsProspectos
 #End Region

 #Region "P R O S P E C T O S  -  S O L I C I T U D E S - A P O Y O S - T I P O S "
-    Public Function GetApoyoTipo() As Boolean
+    Public Function GetApoyoTipo(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Pros_ProspectosApoyosTiposGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
@@ -2679,9 +2691,12 @@ Public Class ClsProspectos
 #End Region

 #Region "P R O S P E C T O S  -  S O L I C I T U D E S  -  E S T A T U S "
-    Public Function GetSolicitudEstatus() As Boolean
+    Public Function GetSolicitudEstatus(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Pros_ProspectosSolicitudesEstatusGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
@@ -2772,9 +2787,12 @@ Public Class ClsProspectos
 #End Region

 #Region "P R O S P E C T O S  -  S O L I C I T U D E S - T I P O S "
-    Public Function GetSolicitudTipo() As Boolean
+    Public Function GetSolicitudTipo(CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Pros_ProspectosSolicitudesTiposGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
        Try
            SqlAdapter.Fill(Data)
            Retorno = True
@@ -4235,12 +4253,13 @@ Public Class ClsProspectos
 #End Region

 #Region "E N C U E S T A S  -  R E S P U E S T A S"
-    Public Function GetRespuestas(CvePregunta As Integer, CveEncuesta As Integer) As Boolean
+    Public Function GetRespuestas(CvePregunta As Integer, CveEncuesta As Integer, CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Pros_EncuestasRespuestasGet")
        With SqlAdapter.SelectCommand.Parameters
            .Add("@CveEncuesta", SqlDbType.Int).Value = CveEncuesta
            .Add("@CvePregunta", SqlDbType.Int).Value = CvePregunta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
        End With

        Try
--- a/Global.asax
+++ b/Global.asax
@@ -42,23 +42,22 @@

        GuardaLogAsax(String.Format("Globalasax 5:{0}", DateTime.Now))
        Using ObjAC As New ClsAC
-            If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing
-            If ObjAC.GetClasificacionGeografica() Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing
-            If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
+            'If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing
+            'If ObjAC.GetClasificacionGeografica() Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing
+            'If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
            If ObjAC.GetFuenteFinanciamientoCONAC() Then Application("GlobalDTAC_FuentesFinanciamientoCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamientoCONAC") = Nothing
            If ObjAC.GetProgramaCONAC() Then Application("GlobalDTAC_ProgramasCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramasCONAC") = Nothing
-            If ObjAC.GetUnidadesAdministrativas() Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing
-            If ObjAC.GetClasificacionAdministrativa() Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing
-            If ObjAC.GetPD_EjeRector() Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing
+            'If ObjAC.GetUnidadesAdministrativas() Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing
+            'If ObjAC.GetClasificacionAdministrativa() Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing
+            'If ObjAC.GetPD_EjeRector() Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing
            If ObjAC.GetPD_Programas() Then Application("GlobalDTAC_PD_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Programas") = Nothing
            If ObjAC.GetPD_Estrategias() Then Application("GlobalDTAC_PD_Estrategias") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Estrategias") = Nothing
            If ObjAC.GetPD_LineasAccion() Then Application("GlobalDTAC_PD_LineasAccion") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_LineasAccion") = Nothing
            If ObjAC.GetPD_Metas() Then Application("GlobalDTAC_PD_Metas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Metas") = Nothing
            If ObjAC.GetTipoGasto() Then Application("GlobalDTAC_TipoGasto") = ObjAC.DtResultados Else Application("GlobalDTAC_TipoGasto") = Nothing
-            If ObjAC.GetProgramaOperativo() Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing
-            If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
+            'If ObjAC.GetProgramaOperativo() Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing
            If ObjAC.GetRubrosIngreso() Then Application("GlobalDTAC_RubrosIngreso") = ObjAC.DtResultados Else Application("GlobalDTAC_RubrosIngreso") = Nothing
-            If ObjAC.GetFuentesRecaudacion() Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing
+            'If ObjAC.GetFuentesRecaudacion() Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing
            If ObjAC.GetMatrizID Then Application("GlobalDTAC_MatrizIngresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizIngresos") = Nothing
            If ObjAC.GetMatrizGD Then Application("GlobalDTAC_MatrizEgresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizEgresos") = Nothing
            ' If ObjAC.GetAreas() Then Application("GlobalDTAC_Areas") = ObjAC.DtResultados Else Application("GlobalDTAC_Areas") = Nothing   
@@ -103,50 +102,50 @@
        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------        
        'P R O S P E C T O S

-        GuardaLogAsax(String.Format("Globalasax 10:{0}", DateTime.Now))
-        Using ObjProspectos As New ClsProspectos
-            If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
-            If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificacionesCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificacionesCaracteristicas") = Nothing
-            If ObjProspectos.GetCoordinadores(-1) Then Application("GlobalDTProspectosCoordinadores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCoordinadores") = Nothing
-            If ObjProspectos.GetSupervisores(-1) Then Application("GlobalDTProspectosSupervisores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSupervisores") = Nothing
-            If ObjProspectos.GetProspectosSolicitudes(-1, -1, -1, -1, -1) Then Application("GlobalDTProspectosSolicitudes") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudes") = Nothing
-            If ObjProspectos.GetSolicitudTipo Then Application("GlobalDTProspectosSolicitudesTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesTipos") = Nothing
-            If ObjProspectos.GetApoyoTipo Then Application("GlobalDTProspectosApoyosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyosTipos") = Nothing
-            If ObjProspectos.GetProspectoApoyo Then Application("GlobalDTProspectosApoyos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyos") = Nothing
-            If ObjProspectos.GetSolicitudEstatus Then Application("GlobalDTProspectosSolicitudesEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesEstatus") = Nothing
-            If ObjProspectos.GetEventosTipo(-1) Then Application("GlobalDTProspectosEventosTipo") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEventosTipo") = Nothing
-            If ObjProspectos.GetProspectosEventos(-1, -1) Then Application("GlobalDTProspectosEvento") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEvento") = Nothing
-            If ObjProspectos.GetProspectosTipos() Then Application("GlobalDTProspectosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTipos") = Nothing
-            If ObjProspectos.GetProspectosEstatus() Then Application("GlobalDTProspectosEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEstatus") = Nothing
-            If ObjProspectos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTProspectosCaracteristicasClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasClasificaciones") = Nothing
-            If ObjProspectos.GetTiposCaracteristicas(-1) Then Application("GlobalDTProspectosTiposCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTiposCaracteristicas") = Nothing
-            If ObjProspectos.GetCaracteristicas(-1) Then Application("GlobalDTProspectosCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicas") = Nothing
-            If ObjProspectos.GetCaracteristicasOpciones(-1, -1) Then Application("GlobalDTProspectosCaracteristicasOpciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasOpciones") = Nothing
-            If ObjProspectos.GetEncuestas(-1, -1) Then Application("GlobalDTProspectosEncuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestas") = Nothing
-            If ObjProspectos.GetPreguntas(-1, -1, -1) Then Application("GlobalDTProspectosEncuestasPreguntas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasPreguntas") = Nothing
-            If ObjProspectos.GetRespuestas(-1, -1) Then Application("GlobalDTProspectosEncuestasRespuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasRespuestas") = Nothing
-        End Using
+        'GuardaLogAsax(String.Format("Globalasax 10:{0}", DateTime.Now))
+        'Using ObjProspectos As New ClsProspectos
+        'If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
+        'If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificacionesCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificacionesCaracteristicas") = Nothing
+        'If ObjProspectos.GetCoordinadores(-1) Then Application("GlobalDTProspectosCoordinadores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCoordinadores") = Nothing
+        'If ObjProspectos.GetSupervisores(-1) Then Application("GlobalDTProspectosSupervisores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSupervisores") = Nothing
+        'If ObjProspectos.GetProspectosSolicitudes(-1, -1, -1, -1, -1) Then Application("GlobalDTProspectosSolicitudes") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudes") = Nothing
+        'If ObjProspectos.GetSolicitudTipo Then Application("GlobalDTProspectosSolicitudesTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesTipos") = Nothing
+        'If ObjProspectos.GetApoyoTipo Then Application("GlobalDTProspectosApoyosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyosTipos") = Nothing
+        'If ObjProspectos.GetProspectoApoyo Then Application("GlobalDTProspectosApoyos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyos") = Nothing
+        'If ObjProspectos.GetSolicitudEstatus Then Application("GlobalDTProspectosSolicitudesEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesEstatus") = Nothing
+        'If ObjProspectos.GetEventosTipo(-1) Then Application("GlobalDTProspectosEventosTipo") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEventosTipo") = Nothing
+        'If ObjProspectos.GetProspectosEventos(-1, -1) Then Application("GlobalDTProspectosEvento") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEvento") = Nothing
+        'If ObjProspectos.GetProspectosTipos() Then Application("GlobalDTProspectosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTipos") = Nothing
+        'If ObjProspectos.GetProspectosEstatus() Then Application("GlobalDTProspectosEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEstatus") = Nothing
+        'If ObjProspectos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTProspectosCaracteristicasClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasClasificaciones") = Nothing
+        'If ObjProspectos.GetTiposCaracteristicas(-1) Then Application("GlobalDTProspectosTiposCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTiposCaracteristicas") = Nothing
+        'If ObjProspectos.GetCaracteristicas(-1) Then Application("GlobalDTProspectosCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicas") = Nothing
+        'If ObjProspectos.GetCaracteristicasOpciones(-1, -1) Then Application("GlobalDTProspectosCaracteristicasOpciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasOpciones") = Nothing
+        'If ObjProspectos.GetEncuestas(-1, -1) Then Application("GlobalDTProspectosEncuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestas") = Nothing
+        'If ObjProspectos.GetPreguntas(-1, -1, -1) Then Application("GlobalDTProspectosEncuestasPreguntas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasPreguntas") = Nothing
+        'If ObjProspectos.GetRespuestas(-1, -1) Then Application("GlobalDTProspectosEncuestasRespuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasRespuestas") = Nothing
+        'End Using

-        GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now))
+        'GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now))

        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        'C L A S I F I C A C I O N E S

-        Using ObjClasificaciones As New ClsClasificaciones()
+        'Using ObjClasificaciones As New ClsClasificaciones()

-            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-            'F A M I L I A S 
-            If ObjClasificaciones.GetClasificaciones(Tipo:=2) Then Application("GlobalDTSubFamilias") = ObjClasificaciones.DtResultados Else Application("GlobalDTSubFamilias") = Nothing
+        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+        'F A M I L I A S 
+        'If ObjClasificaciones.GetClasificaciones(Tipo:=2) Then Application("GlobalDTSubFamilias") = ObjClasificaciones.DtResultados Else Application("GlobalDTSubFamilias") = Nothing

-            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-            'P R E S U P U E S T O
-            If ObjClasificaciones.GetClasificaciones(Tipo:=3) Then Application("GlobalDTClasificacionesPresupuestos") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificacionesPresupuestos") = Nothing
+        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+        'P R E S U P U E S T O
+        'If ObjClasificaciones.GetClasificaciones(Tipo:=3) Then Application("GlobalDTClasificacionesPresupuestos") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificacionesPresupuestos") = Nothing

-            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-            'C L A S I F I C A C I O N E S 2
-            If ObjClasificaciones.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificaciones2") = Nothing
-        End Using
-        GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now))
+        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+        'C L A S I F I C A C I O N E S 2
+        'If ObjClasificaciones.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificaciones2") = Nothing
+        'End Using
+        'GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now))

        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------       
        '------------------------------------------------------------------------------S I S T E M A ----------------------------------------------------------------------------------
@@ -162,11 +161,11 @@
        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        'C O M B U S T I B L E S

-        Using ObjFlotillas As New ClsFlotillas
-            If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing
-            If ObjFlotillas.GetCombustiblesTipos(-1) Then Application("GlobalDTCombustiblesTipos") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustiblesTipos") = Nothing
-        End Using
-        GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now))
+        'Using ObjFlotillas As New ClsFlotillas
+        'If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing
+        'If ObjFlotillas.GetCombustiblesTipos(-1) Then Application("GlobalDTCombustiblesTipos") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustiblesTipos") = Nothing
+        'End Using
+        'GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now))

        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--- a/Prospectos/CatClasificacionesCaracteristicas.aspx.vb
+++ b/Prospectos/CatClasificacionesCaracteristicas.aspx.vb
@@ -396,20 +396,11 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
        End If
    End Sub
    Public Sub CargaDatosO()
-        Dim ObjCaracteristicasOpciones As New ClsProspectos
-        If ObjCaracteristicasOpciones.GetCaracteristicasOpciones(-1, UsuarioActual.CveEmpresa) Then
-            ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            If CType(ViewState("DTCaracteristicasOpciones"), DataTable).Columns.Count = 0 Then
-                ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados
-            End If
-
-            GlobalDTProspectosCaracteristicasOpciones() = ObjCaracteristicasOpciones.DtResultados
-        Else
-            GvDatosOpciones.DataSource = Nothing
+        ViewState("DTCaracteristicasOpciones") = GlobalDTProspectosCaracteristicasOpciones(UsuarioActual.CveEmpresa, -1)
+        If CType(ViewState("DTCaracteristicasOpciones"), DataTable).Columns.Count = 0 Then
+            ViewState("DTCaracteristicasOpciones") = GlobalDTProspectosCaracteristicasOpciones(-1, -1)
        End If

-        ObjCaracteristicasOpciones.Dispose()
-
        If ViewState("OrdenO").ToString() <> String.Empty Then
            CargaGridO(ViewState("OrdenO").ToString())
        Else
@@ -439,7 +430,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
            TxtOpcion.Text = ""
            Alert("La nueva Opción para Característica se guardó correctamente.", TipoMensaje.MsgInformacion)
            ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados
-            GlobalDTProspectosCaracteristicasOpciones() = ObjCaracteristicasOpciones.DtResultados
+            GlobalDTProspectosCaracteristicasOpciones(UsuarioActual.CveEmpresa, -1) = ObjCaracteristicasOpciones.DtResultados

            CambioCaracteristicasOpciones()
        End If
@@ -615,7 +606,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
        If ObjCaracteristicasOpciones.RemoveCaracteristicasOpciones(GvDatosOpciones.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
            GvDatosOpciones.EditIndex = -1
            ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados
-            GlobalDTProspectosCaracteristicasOpciones() = ObjCaracteristicasOpciones.DtResultados
+            GlobalDTProspectosCaracteristicasOpciones(UsuarioActual.CveEmpresa, -1) = ObjCaracteristicasOpciones.DtResultados
            Alert("La Opción para Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)

            CambioCaracteristicasOpciones()
@@ -732,7 +723,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
        If ObjCaracteristicasOpciones.UpdateCaracteristicasOpciones(CaracteristicaOpcion, CveCaracteristica, Estatus, CveCaracteristicaOpcion) Then
            GvDatosOpciones.EditIndex = -1
            ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados
-            GlobalDTProspectosCaracteristicasOpciones() = ObjCaracteristicasOpciones.DtResultados
+            GlobalDTProspectosCaracteristicasOpciones(UsuarioActual.CveEmpresa, -1) = ObjCaracteristicasOpciones.DtResultados
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)

            CambioCaracteristicasOpciones()