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

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