-- 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/AC/CatOGClasificaciones.aspx.vb
+++ b/AC/CatOGClasificaciones.aspx.vb
@@ -47,10 +47,10 @@ Partial Class AC_CatOGClasificaciones

    Public Sub CargaDatos()
        Dim ObjClasificaciones As New ClsClasificaciones
-        If ObjClasificaciones.GetClasificaciones() Then
+        If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
            ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' AND CveEmpresa = " & UsuarioActual.CveEmpresa, "Codigo")
-            GlobalDTClasificaciones = ObjClasificaciones.DtResultados
-            GlobalDTACClasificadorObjetoGasto = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ")
+
+            GlobalDTACClasificadorObjetoGasto(UsuarioActual.CveEmpresa) = Nothing
        Else
            Me.GvDatos.DataSource = Nothing
        End If
@@ -74,14 +74,14 @@ Partial Class AC_CatOGClasificaciones
                Alert("La Clasificacion de Objeto de Gasto se guardó correctamente.", TipoMensaje.MsgInformacion)
                'UpTitulos.Update()
                ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-                GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+                GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing

            End If
        Else
            If ObjClasificaciones.UpdateClasificacion(TxtOGClasificacion.Text, TxtCodigo.Text, -1, "", -1, "", -1, "", ChkEstatus.Checked, ChkAfectable.Checked, 0, UsuarioActual.CveUsuario, CveClasificacion) Then
                GvDatos.EditIndex = -1
                ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-                GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+                GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
                Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
            End If
        End If
@@ -119,7 +119,7 @@ Partial Class AC_CatOGClasificaciones
        If ObjClasificaciones.RemoveClasificacion(GvRow.DataKey("CveClasificacion").ToEntero) Then
            GvDatos.EditIndex = -1
            ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
            Alert("la Clasificacion de Objeto de Gasto se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If

@@ -159,7 +159,7 @@ Partial Class AC_CatOGClasificaciones
        If ObjClasificaciones.RemoveClasificacion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
            GvDatos.EditIndex = -1
            ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
            Alert("la Clasificacion de Objeto de Gasto se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If

@@ -194,7 +194,7 @@ Partial Class AC_CatOGClasificaciones
        If ObjOGClasificaciones.UpdateClasificacion(OGClasificacion, Codigo, -1, "", -1, "", -1, "", Estatus, Afectable, 0, UsuarioActual.CveUsuario, CveOGClasificacion) Then
            GvDatos.EditIndex = -1
            ViewState("DTOGClasificaciones") = ObjOGClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTClasificaciones = ObjOGClasificaciones.DtResultados
+            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
        End If

--- a/AC/RepPresupuestoEgresos.aspx.vb
+++ b/AC/RepPresupuestoEgresos.aspx.vb
@@ -115,7 +115,7 @@ Partial Class AC_RepPresupuestoEgresos
    Private Sub CargaDatos()
        Dim objAC As New ClsContPAQi(UsuarioActual.Empresa)
        Dim FechaF As Date = txtFechaF.Text.ToDate
-        Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto.FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))
+        Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))

        If objAC.GetRepPresupuestosEgresosSaldos(DdlEjercicio.SelectedValue.ToEntero, FechaF, Capitulo, DdlClasificaciones.SelectedValue.ToEntero, DdlFuenteFinanciamiento.SelectedValue.ToEntero, DdlProgramaOperativo.SelectedValue.ToEntero, DdlUnidadAdministrativa.SelectedValue.ToEntero, DdlTipoGasto.SelectedValue.ToEntero, DdlOrden.SelectedValue.ToEntero) Then
            DtPresupuestoEgresos = objAC.DtResultados
--- a/AC/RepPresupuestoEgresosMensual.aspx.vb
+++ b/AC/RepPresupuestoEgresosMensual.aspx.vb
@@ -75,7 +75,7 @@ Partial Class AC_RepPresupuestoEgresosMensual
        BtnImprimir.Visible = False

        Dim objAC As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto.FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))
+        Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))
        UPPDatos.Update()
        Gv.DataBind()

--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -847,7 +847,7 @@ Public Class ClsPaginas
        End Set
    End Property
 #End Region
-    Public Shared Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
+    Public Shared Property GlobalDTClasificaciones(CveEmpresa As Integer, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
        Get
            Dim AppNombre As String = $"GlobalDTClasificaciones-{CveEmpresa}"
            If HttpContext.Current.Application(AppNombre) Is Nothing Then
@@ -888,10 +888,9 @@ Public Class ClsPaginas
            Application(AppNombre) = value
        End Set
    End Property
-    Public Shared Property GlobalDTClasificaciones2(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable
+    Public Shared Property GlobalDTClasificaciones2(CveEmpresa As Integer, Optional CveCategoria As Integer = -1) As DataTable
        Get
            Dim AppNombre As String = $"GlobalDTClasificaciones2-{CveEmpresa}"
-            'sino existe, recarga los datos
            If HttpContext.Current.Application(AppNombre) Is Nothing Then
                Dim ObjClasificaciones As New ClsClasificaciones
                If ObjClasificaciones.GetClasificaciones(CveEmpresa:=CveEmpresa, Tipo:=4) Then HttpContext.Current.Application(AppNombre) = ObjClasificaciones.DtResultados
@@ -933,7 +932,7 @@ Public Class ClsPaginas
            Application(AppNombre) = value
        End Set
    End Property
-    Property GlobalDTACClasificadorObjetoGasto(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable
+    Property GlobalDTACClasificadorObjetoGasto(CveEmpresa As Integer, Optional CveCategoria As Integer = -1) As DataTable
        Get
            Dim AppNombre As String = $"GlobalDTACClasificadorObjetoGasto-{CveEmpresa}"
            If HttpContext.Current.Application(AppNombre) Is Nothing Then
@@ -956,7 +955,7 @@ Public Class ClsPaginas
            Application(AppNombre) = value
        End Set
    End Property
-    Property GlobalDTClasificacionesDetalle(Optional CveEmpresa As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
+    Property GlobalDTClasificacionesDetalle(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1) As DataTable
        Get
            Dim AppNombre As String = $"GlobalDTClasificacionesDetalle-{CveEmpresa}"
            If Application(AppNombre) Is Nothing Then
@@ -998,10 +997,9 @@ Public Class ClsPaginas
            HttpContext.Current.Application(AppNombre) = value
        End Set
    End Property
-    Property GlobalDTFamilias(Optional CveEmpresa As Integer = -1) As DataTable
+    Property GlobalDTFamilias(CveEmpresa As Integer) As DataTable
        Get
            Dim AppNombre As String = $"GlobalDTFamilias-{CveEmpresa}"
-            'sino existe, recarga los datos
            If Application(AppNombre) Is Nothing Then
                Dim ObjGenerales As New ClsGenerales
                If ObjGenerales.GetCategorias(CveEmpresa, 2) Then Application(AppNombre) = ObjGenerales.DtResultados
@@ -1014,7 +1012,7 @@ Public Class ClsPaginas
            Application(AppNombre) = value
        End Set
    End Property
-    Property GlobalDTCategoriasPresupuestos(Optional CveEmpresa As Integer = -1) As DataTable
+    Property GlobalDTCategoriasPresupuestos(CveEmpresa As Integer) As DataTable
        Get
            Dim AppNombre As String = $"GlobalDTCategoriasPresupuestos-{CveEmpresa}"
            If Application(AppNombre) Is Nothing Then
@@ -1661,20 +1659,20 @@ Public Class ClsPaginas
            HttpContext.Current.Application(AppNombre) = value
        End Set
    End Property
-    'Property GlobalDTProductosServiciosCaracteristicas(CveEmpresa As Integer) As DataTable
-    '    Get
-    '        If CveEmpresa <> -1 Then
-    '            Dim Dv As New DataView(DirectCast(Application("GlobalDTProductosServiciosCaracteristicas"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-    '            GlobalDTProductosServiciosCaracteristicas = Dv.ToTable
-    '            Dv.Dispose()
-    '        Else
-    '            GlobalDTProductosServiciosCaracteristicas = DirectCast(Application("GlobalDTProductosServiciosCaracteristicas"), DataTable)
-    '        End If
-    '    End Get
-    '    Set(value As DataTable)
-    '        Application("GlobalDTProductosServiciosCaracteristicas") = value
-    '    End Set
-    'End Property
+    Property GlobalDTProductosServiciosCaracteristicas(CveEmpresa As Integer) As DataTable
+        Get
+            If CveEmpresa <> -1 Then
+                Dim Dv As New DataView(DirectCast(Application("GlobalDTProductosServiciosCaracteristicas"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
+                GlobalDTProductosServiciosCaracteristicas = Dv.ToTable
+                Dv.Dispose()
+            Else
+                GlobalDTProductosServiciosCaracteristicas = DirectCast(Application("GlobalDTProductosServiciosCaracteristicas"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            Application("GlobalDTProductosServiciosCaracteristicas") = value
+        End Set
+    End Property
    Property GlobalDTPSAdicionales(CvePS As Integer, CveEmpresa As Integer) As DataTable
        Get
            Dim AppNombre As String = $"GlobalDTPSAdicionales-{CveEmpresa}"
@@ -1697,20 +1695,20 @@ Public Class ClsPaginas
            Application(AppNombre) = value
        End Set
    End Property
-    'Property GlobalDTProductosServiciosCaracteristicasOpciones(CveEmpresa As Integer) As DataTable
-    '    Get
-    '        If CveEmpresa <> -1 Then
-    '            Dim Dv As New DataView(DirectCast(Application("GlobalDTProductosServiciosCaracteristicasOpciones"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-    '            GlobalDTProductosServiciosCaracteristicasOpciones = Dv.ToTable
-    '            Dv.Dispose()
-    '        Else
-    '            GlobalDTProductosServiciosCaracteristicasOpciones = DirectCast(Application("GlobalDTProductosServiciosCaracteristicasOpciones"), DataTable)
-    '        End If
-    '    End Get
-    '    Set(value As DataTable)
-    '        Application("GlobalDTProductosServiciosCaracteristicasOpciones") = value
-    '    End Set
-    'End Property
+    Property GlobalDTProductosServiciosCaracteristicasOpciones(CveEmpresa As Integer) As DataTable
+        Get
+            If CveEmpresa <> -1 Then
+                Dim Dv As New DataView(DirectCast(Application("GlobalDTProductosServiciosCaracteristicasOpciones"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
+                GlobalDTProductosServiciosCaracteristicasOpciones = Dv.ToTable
+                Dv.Dispose()
+            Else
+                GlobalDTProductosServiciosCaracteristicasOpciones = DirectCast(Application("GlobalDTProductosServiciosCaracteristicasOpciones"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            Application("GlobalDTProductosServiciosCaracteristicasOpciones") = value
+        End Set
+    End Property
    Property GlobalDTInvMetodosInventario() As DataTable
        Get
            Dim AppNombre As String = $"GlobalDTInvMetodosInventario"
--- a/Contratos/Estimaciones.aspx.vb
+++ b/Contratos/Estimaciones.aspx.vb
@@ -59,7 +59,7 @@ Partial Class Contratos_Estimaciones
        DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
    End Sub
    Private Sub CargaClasificacion()
-        DdlClasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
        DdlClasificacion.DataBind()
        DdlClasificacion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
    End Sub
--- a/Contratos/RepContratos.aspx.vb
+++ b/Contratos/RepContratos.aspx.vb
@@ -60,7 +60,7 @@ Partial Class RepContratos
        DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
    End Sub
    Private Sub CargaClasificacion()
-        DdlClasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
        DdlClasificacion.DataBind()
        DdlClasificacion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
    End Sub
--- a/Contratos/RepContratosDetalle.aspx.vb
+++ b/Contratos/RepContratosDetalle.aspx.vb
@@ -60,7 +60,7 @@ Partial Class RepContratos
        DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
    End Sub
    Private Sub CargaClasificacion()
-        DdlClasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
        DdlClasificacion.DataBind()
        DdlClasificacion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
    End Sub
--- a/Flotillas/CatCombustibles.aspx.vb
+++ b/Flotillas/CatCombustibles.aspx.vb
@@ -33,14 +33,14 @@ Partial Class Maq_CatCombustibles

        If ObjFlotilla.GetCombustiblesTipos(UsuarioActual.CveEmpresa) Then
            ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
+            GlobalDTCombustiblesTipos(UsuarioActual.CveEmpresa) = Nothing
        Else
            Me.GvDatosCombustiblesTipos.DataSource = Nothing
        End If

-        If ObjFlotilla.GetCombustibles() Then
+        If ObjFlotilla.GetCombustibles(UsuarioActual.CveEmpresa) Then
            ViewState("DTCombustible") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
+            GlobalDTCombustiblesTipos(UsuarioActual.CveEmpresa) = Nothing
        Else
            Me.GvDatosCombustibles.DataSource = Nothing
        End If
@@ -75,7 +75,7 @@ Partial Class Maq_CatCombustibles
            Alert("El nuevo Combustible se guardó correctamente.", TipoMensaje.MsgInformacion)
            UpTitulosCombustibles.Update()
            ViewState("DTCombustible") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTCombustibles(-1) = ObjFlotilla.DtResultados
+            GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing

            If ViewState("Orden").ToString() <> String.Empty Then
                CargaGrid(ViewState("Orden").ToString(), 0)
@@ -126,7 +126,7 @@ Partial Class Maq_CatCombustibles
        If ObjFlotilla.RemoveCombustibles(GvDatosCombustibles.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
            GvDatosCombustibles.EditIndex = -1
            ViewState("DTCombustible") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
+            GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing
            Alert("El Combustible se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If

@@ -189,7 +189,7 @@ Partial Class Maq_CatCombustibles
            Alert("El nuevo Tipo de Combustible se guardó correctamente.", TipoMensaje.MsgInformacion)
            UpTitulosCombustiblesTipos.Update()
            ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTCombustibles(-1) = ObjFlotilla.DtResultados
+            GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing

            If ViewState("Orden").ToString() <> String.Empty Then
                CargaGrid(ViewState("Orden").ToString(), 1)
@@ -221,7 +221,7 @@ Partial Class Maq_CatCombustibles
        If ObjFlotilla.RemoveCombustiblesTipos(GvDatosCombustiblesTipos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
            GvDatosCombustiblesTipos.EditIndex = -1
            ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
+            GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing
            Alert("El Tipo de Combustible se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If

@@ -255,7 +255,7 @@ Partial Class Maq_CatCombustibles
        If ObjFlotilla.UpdateCombustiblesTipos(CombustibleTipo, EstatusCombustibleTipo, CveCombustibleTipo) Then
            GvDatosCombustiblesTipos.EditIndex = -1
            ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
+            GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
        End If

--- a/General/CatProductosServiciosCaracteristicas.aspx.vb
+++ b/General/CatProductosServiciosCaracteristicas.aspx.vb
@@ -40,9 +40,9 @@ Partial Class GRAL_CatCaracteristicasProductosServicios

    Public Sub CargaDatos()
        Dim ObjCaracteristicas As New ClsGralProductosServiciosCaracteristicas
-        If ObjCaracteristicas.GetProductosServiciosCaracteristicas() Then
+        If ObjCaracteristicas.GetProductosServiciosCaracteristicas(UsuarioActual.CveEmpresa) Then
            ViewState("DTProductosServiciosCaracteristicas") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProductosServiciosCaracteristicas(UsuarioActual.CveEmpresa) = ObjCaracteristicas.DtResultados
+            'GlobalDTProductosServiciosCaracteristicas(UsuarioActual.CveEmpresa) = ObjCaracteristicas.DtResultados
        Else
            Me.GvDatosCaracteristicas.DataSource = Nothing
        End If
@@ -56,9 +56,9 @@ Partial Class GRAL_CatCaracteristicasProductosServicios

    Public Sub CargaDatosO()
        Dim ObjOpciones As New ClsGralProductosServiciosCaracteristicas
-        If ObjOpciones.GetProductosServiciosCaracteristicasOpciones() Then
+        If ObjOpciones.GetProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) Then
            ViewState("DTProductosServiciosCaracteristicasOpciones") = ObjOpciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = ObjOpciones.DtResultados
+            'GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = ObjOpciones.DtResultados
        Else
            GvDatosOpciones.DataSource = Nothing
        End If
--- a/OS/PopUpMateriales.aspx.vb
+++ b/OS/PopUpMateriales.aspx.vb
@@ -96,7 +96,7 @@ Partial Class OS_PopUpMateriales
    End Sub

    Private Sub CargaClasificaciones()
-        DdlClasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
        DdlClasificacion.DataBind()
    End Sub

@@ -129,7 +129,7 @@ Partial Class OS_PopUpMateriales
                    Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString.ToEntero
                    Dim UM = GlobalDTUnidadesMedida.FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString
                    Dim CveClasificacion As Integer = RowPS("CveClasificacion").ToString.ToEntero
-                    Dim Clasificacion As String = GlobalDTClasificaciones.FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString
+                    Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString

                    AddPS(Material("CveMaterialUtilizado").ToString.ToEntero, CveOSDetalle, Material("Cantidad").ToString.ToDecimal, CveUnidadMedida, UM, Material("CvePS").ToString.ToEntero, PS, CveClasificacion, Clasificacion, Material("SeFacturara").ToString)
                Next
@@ -176,7 +176,7 @@ Partial Class OS_PopUpMateriales
                e.Row.FCDropDownList("DdlPS").DataBind()
                e.Row.FCDropDownList("DdlPS").SelectedValue = e.Row.DBCampo("CvePS")

-                e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
                e.Row.FCDropDownList("DdlClasificacion").DataBind()
                e.Row.FCDropDownList("DdlClasificacion").SelectedValue = e.Row.DBCampo("CveClasificacion")
            End If
--- 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

--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -366,23 +366,23 @@ Partial Class Sistemas_CatSesiones
    End Sub
    Private Sub cargaAC()
        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(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing
+            If ObjAC.GetClasificacionGeografica(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing
+            If ObjAC.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) 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(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing
+            If ObjAC.GetClasificacionAdministrativa(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing
+            If ObjAC.GetPD_EjeRector(UsuarioActual.CveEmpresa) 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(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing
+            If ObjAC.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = 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(UsuarioActual.CveEmpresa) 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

@@ -509,7 +509,7 @@ Partial Class Sistemas_CatSesiones

    Private Sub CargaProsCla()
        Dim Prosp As New ClsProspectos
-        If Prosp.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = Prosp.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
+        If Prosp.GetClasificacion(UsuarioActual.CveEmpresa) Then Application("GlobalDTProspectosClasificaciones") = Prosp.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
        Prosp.Dispose()
    End Sub

@@ -583,21 +583,21 @@ Partial Class Sistemas_CatSesiones
    Private Sub CargaCONAC()
        Dim ObjAC As New ClsAC

-        If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing
+        If ObjAC.GetClasificacionFuncional(UsuarioActual.CveEmpresa) 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.GetClasificacionGeografica(UsuarioActual.CveEmpresa) 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.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) 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.GetUnidadesAdministrativas(UsuarioActual.CveEmpresa) 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.GetClasificacionAdministrativa(UsuarioActual.CveEmpresa) 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_EjeRector(UsuarioActual.CveEmpresa) 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

@@ -609,13 +609,13 @@ Partial Class Sistemas_CatSesiones

        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.GetProgramaOperativo(UsuarioActual.CveEmpresa) 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.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = 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(UsuarioActual.CveEmpresa) 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

@@ -646,7 +646,7 @@ Partial Class Sistemas_CatSesiones
    Private Sub CargarCombustible()

        Dim ObjFlotillas As New ClsFlotillas
-        If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing
+        If ObjFlotillas.GetCombustibles(UsuarioActual.CveEmpresa) Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing

        ObjFlotillas.Dispose()
    End Sub
--- a/Ventas/CatClasificacionesDetalle.aspx.vb
+++ b/Ventas/CatClasificacionesDetalle.aspx.vb
@@ -82,12 +82,12 @@ Partial Class CatClasificacionesDetalle
    Private Sub CargaGlobal()
        Dim ObjClasificaciones As New ClsClasificaciones

-        If ObjClasificaciones.GetClasificaciones() Then
-            GlobalDTClasificaciones = ObjClasificaciones.DtResultados
-        Else
-            Alert("Ocurrió un error al cargar las clasificaciones generales. Por favor avisar a Sistemas.", TipoMensaje.MsgError)
-        End If
-
+        'If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
+        '    GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+        'Else
+        '    Alert("Ocurrió un error al cargar las clasificaciones generales. Por favor avisar a Sistemas.", TipoMensaje.MsgError)
+        'End If
+        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
        If ObjClasificaciones.GetClasificacionesSubProyecto(CveClasificacion, UsuarioActual.CveEmpresa) Then
            ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados
        End If
--- a/Ventas/CatFamiliaSubFamilia.aspx.vb
+++ b/Ventas/CatFamiliaSubFamilia.aspx.vb
@@ -76,8 +76,7 @@ Partial Class Ventas_CatFamiliaSubFamilia

    Public Sub CargaDatosS()
        Dim ObjClasificaciones As New ClsClasificaciones
-        If ObjClasificaciones.GetClasificaciones(-1, 2) Then
-            GlobalDTSubFamilias = ObjClasificaciones.DtResultados
+        If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then
            ViewState("DTSubFamilias") = GlobalDTSubFamilias(UsuarioActual.CveEmpresa)
        Else
            GvDatosS.DataSource = Nothing
@@ -197,9 +196,9 @@ Partial Class Ventas_CatFamiliaSubFamilia
            Alert("La nueva SubFamilia se guardó correctamente.", TipoMensaje.MsgInformacion)
            UpTitulosS.Update()

-            If ObjClasificaciones.GetClasificaciones(-1, 2) Then
-                ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-                GlobalDTSubFamilias = ObjClasificaciones.DtResultados
+            If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then
+                ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados
+                GlobalDTSubFamilias(UsuarioActual.CveEmpresa) = Nothing
            End If

            'DdlCuentaGastoS.SelectedValue = "-1"
@@ -290,9 +289,9 @@ Partial Class Ventas_CatFamiliaSubFamilia
        Dim ObjClasificaciones As New ClsClasificaciones
        If ObjClasificaciones.RemoveClasificacion(GvDatosS.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
            GvDatosS.EditIndex = -1
-            If ObjClasificaciones.GetClasificaciones(-1, 2) Then
-                ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-                GlobalDTSubFamilias = ObjClasificaciones.DtResultados
+            If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then
+                ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados
+                GlobalDTSubFamilias(UsuarioActual.CveEmpresa) = Nothing
            End If
            Alert("La SubFamilia se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If
--- a/Ventas/CatPS.aspx.vb
+++ b/Ventas/CatPS.aspx.vb
@@ -51,7 +51,7 @@ Partial Class CatPS
    End Sub

    Public Sub CargaClasificaciones()
-        Ddlclasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros(String.Format("CveEmpresa = {0} AND (UsoClasificacion = {1} OR {1} = -1)", UsuarioActual.CveEmpresa, DdlTipoClasificacion.SelectedValue.ToEntero))
+        Ddlclasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (UsoClasificacion = {0} OR {0} = -1)", DdlTipoClasificacion.SelectedValue.ToEntero))
        Ddlclasificacion.DataBind()
        Ddlclasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -898,7 +898,7 @@ Partial Class Ventas_ClientesAbonar

                        For Each Gvr As GridViewRow In GvCxC.Rows
                            If Gvr.FCCheckBox("Chk").Checked Then
-                                CveSubProyecto = Gvr.DataKey("CveSubProyecto").ToEntero
+                                CveSubProyectoMaximo = Gvr.DataKey("CveSubProyecto").ToEntero
                                Exit For
                            End If
                        Next
@@ -1225,9 +1225,9 @@ Partial Class Ventas_ClientesAbonar
                        End If
                    End If

-                    If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) AndAlso UsuarioActual.CveEmpresa <> 158 Then
+                    If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
                        If ObjMov.ValorPolizaDescuadre > 0 Then
-                            MsgError = ObjMov.MensajePolizaDescuadre + " La diferencia es de: " + ObjMov.ValorDiferencia
+                            MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia
                        End If
                    End If

--- a/Ventas/PopUpBuscarPs.aspx.vb
+++ b/Ventas/PopUpBuscarPs.aspx.vb
@@ -28,7 +28,7 @@ Partial Class PopUpBuscarPs

 #Region "  INICIALIZA VALORES  "
    Private Sub CargaClasificaciones()
-        Ddlclasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+        Ddlclasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
        Ddlclasificacion.DataBind()
        Ddlclasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -657,7 +657,7 @@ Partial Class ProductosyServicios
        If ObjOpciones.UpdateProductosServiciosCaracteristicasOpciones(Opcion, CveCaracteristica, CveOpcion) Then
            GvDatosOpciones.EditIndex = -1
            ViewState("DTProductosServiciosCaracteristicasOpciones") = ObjOpciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = ObjOpciones.DtResultados
+            GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = Nothing
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)

            CambioProductosServiciosCaracteristicasOpciones()