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

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())

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())

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())

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())

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())

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())