diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index e0a31b773..9531d6855 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -3770,7 +3770,7 @@ Public Class ClsContabilidad
     End Function
 
 
-    Public Function GetAnexoCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean
+    Public Function GetAnexoCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_AnexoCatalogoGet")
@@ -3781,6 +3781,7 @@ Public Class ClsContabilidad
             .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
             .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
             .Add("@OpcionCuentas", SqlDbType.Int).Value = OpcionCuentas
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@SAT", SqlDbType.Int).Value = SAT
@@ -3797,7 +3798,7 @@ Public Class ClsContabilidad
     End Function
 
 
-    Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, CveSubProyecto As String, CveEmpresa As Integer, TipoReporte As String) As Boolean
+    Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, TipoReporte As String) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_MovimientosAuxiliaresCatalogoGet")
@@ -3806,6 +3807,7 @@ Public Class ClsContabilidad
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Tipo", SqlDbType.Int).Value = TipoReporte
@@ -3841,7 +3843,7 @@ Public Class ClsContabilidad
 
         Return Retorno
     End Function
-    Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
+    Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_EstadoActividadesGet")
@@ -3850,6 +3852,7 @@ Public Class ClsContabilidad
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@SAT", SqlDbType.Int).Value = SAT
diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb
index 6d6d28caf..23fd65a2e 100644
--- a/App_Code/ClsOC.vb
+++ b/App_Code/ClsOC.vb
@@ -1299,9 +1299,14 @@ Public Class ClsOC
 #End Region
 
 #Region " O R D E N  E S  -  D E  -  C O M P R A - E S T A T U S"
-    Public Function GetEstatus() As Boolean
+    Public Function GetEstatus(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_OC_EstatusGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@_CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb
index cad410eeb..1f3aec036 100644
--- a/App_Code/ClsOS.vb
+++ b/App_Code/ClsOS.vb
@@ -357,9 +357,14 @@ Public Class ClsOS
     '#End Region
 
 #Region "ClsOSEstatusOrdenServicio"
-    Public Function GetEstatusOrdenServicio() As Boolean
+    Public Function GetEstatusOrdenServicio(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_OS_EstatusOrdenServicioGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 85cb7f1a4..30c365a91 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1387,12 +1387,20 @@ Public Class ClsPaginas
     '        Application("GlobalDTMesas") = value
     '    End Set
     'End Property
-    Property GlobalDTTipoOrdenServicios(CveEmpresa As Integer) As DataTable
+    Public Shared Property GlobalDTTipoOrdenServicios(CveEmpresa As Integer) As DataTable
         Get
-            GlobalDTTipoOrdenServicios = DirectCast(Application("GlobalDTTipoOrdenServicios"), DataTable).FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa))
+            Dim AppNombre As String = $"GlobalDTTipoOrdenServicios-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjOS As New ClsOS
+                If ObjOS.GetTipoOrdenesServicios(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjOS.DtResultados
+                ObjOS.Dispose()
+            End If
+            GlobalDTTipoOrdenServicios = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Application("GlobalDTTipoOrdenServicios") = value
+            Dim AppNombre As String = $"GlobalDTTipoOrdenServicios-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTSubTipoOrdenServicios() As DataTable
@@ -1704,20 +1712,36 @@ Public Class ClsPaginas
             Application("GlobalDTAFCaracteristicasOpciones") = value
         End Set
     End Property
-    Property GlobalDTAFCaracteristicas() As DataTable
+    Public Shared Property GlobalDTAFCaracteristicas(CveEmpresa As Integer) As DataTable
         Get
-            GlobalDTAFCaracteristicas = DirectCast(Application("GlobalDTAFCaracteristicas"), DataTable)
+            Dim AppNombre As String = $"GlobalDTAFCaracteristicas-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjActivosFijos As New ClsAF
+                If ObjActivosFijos.GetCaracteristicas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
+                ObjActivosFijos.Dispose()
+            End If
+            GlobalDTAFCaracteristicas = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Application("GlobalDTAFCaracteristicas") = value
+            Dim AppNombre As String = $"GlobalDTAFCaracteristicas-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTAFCaracteristicasClasificaciones() As DataTable
+    Public Shared Property GlobalDTAFCaracteristicasClasificaciones(CveEmpresa As Integer) As DataTable
         Get
-            GlobalDTAFCaracteristicasClasificaciones = DirectCast(Application("GlobalDTAFCaracteristicasClasificaciones"), DataTable)
+            Dim AppNombre As String = $"GlobalDTAFCaracteristicasClasificaciones-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjActivosFijos As New ClsAF
+                If ObjActivosFijos.GetCaracteristicasClasificaciones(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
+                ObjActivosFijos.Dispose()
+            End If
+            GlobalDTAFCaracteristicasClasificaciones = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Application("GlobalDTAFCaracteristicasClasificaciones") = value
+            Dim AppNombre As String = $"GlobalDTAFCaracteristicasClasificaciones-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTImpuestosLocales(CvePS As Integer, CveEmpresa As Integer) As DataTable
@@ -1939,18 +1963,20 @@ Public Class ClsPaginas
             Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTEstatusOrdenServicios(CveEmpresa As Integer) As DataTable
+    Public Shared Property GlobalDTEstatusOrdenServicios(CveEmpresa As Integer) As DataTable
         Get
-            If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTEstatusOrdenServicios"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-                GlobalDTEstatusOrdenServicios = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTEstatusOrdenServicios = DirectCast(Application("GlobalDTEstatusOrdenServicios"), DataTable)
+            Dim AppNombre As String = $"GlobalDTEstatusOrdenServicios-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjOS As New ClsOS
+                If ObjOS.GetEstatusOrdenServicio(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjOS.DtResultados
+                ObjOS.Dispose()
             End If
+            GlobalDTEstatusOrdenServicios = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Application("GlobalDTEstatusOrdenServicios") = value
+            Dim AppNombre As String = $"GlobalDTEstatusOrdenServicios-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
     'Variables para Ventas
@@ -2428,87 +2454,94 @@ Public Class ClsPaginas
             Application("GlobalDTActivoFijos") = value
         End Set
     End Property
-    Property GlobalDTEstadoActivoFijo() As DataTable
+    Public Shared Property GlobalDTEstadoActivoFijo() As DataTable
         Get
-            GlobalDTEstadoActivoFijo = DirectCast(Application("GlobalDTEstadoActivoFijo"), DataTable)
-        End Get
-        Set(value As DataTable)
-            Application("GlobalDTEstadoActivoFijo") = value
-        End Set
-    End Property
-    Property GlobalDTMarcaActivoFijo(CveEmpresa As Integer) As DataTable
-        Get
-            Dim dt As DataTable = Nothing
-            Dim ObjAF As New ClsAF
-            If ObjAF.GetMarcasActivosFijos(CveEmpresa) Then
-                dt = ObjAF.DtResultados
+            Dim AppNombre As String = "GlobalDTEstadoActivoFijo"
+            If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
+                Dim ObjActivosFijos As New ClsAF
+                If ObjActivosFijos.GetEstatusActivoFijo() Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
+                ObjActivosFijos.Dispose()
             End If
-            ObjAF.Dispose()
-            GlobalDTMarcaActivoFijo = dt
+            GlobalDTEstadoActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Application("GlobalDTMarcaActivoFijo") = value
+            Dim AppNombre As String = "GlobalDTEstadoActivoFijo"
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTModeloActivoFijo(CveEmpresa As Integer, CveMarca As Integer) As DataTable
+    Public Shared Property GlobalDTMarcaActivoFijo(CveEmpresa As Integer) As DataTable
         Get
-            Dim dt As DataTable = Nothing
-            Dim ObjAF As New ClsAF
-            If ObjAF.GetModelosActivosFijos(CveEmpresa, CveMarca) Then
-                dt = ObjAF.DtResultados
+            Dim AppNombre As String = $"GlobalDTMarcaActivoFijo-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjActivosFijos As New ClsAF
+                If ObjActivosFijos.GetMarcasActivosFijos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
+                ObjActivosFijos.Dispose()
             End If
-            ObjAF.Dispose()
-            GlobalDTModeloActivoFijo = dt
+            GlobalDTMarcaActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Application("GlobalDTModeloActivoFijo") = value
+            Dim AppNombre As String = $"GlobalDTMarcaActivoFijo-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTSubTipoActivoFijo(CveEmpresa As Integer, Optional CveTipoActivoFijo As Integer = -1) As DataTable
+    Public Shared Property GlobalDTModeloActivoFijo(CveEmpresa As Integer, CveMarca As Integer) As DataTable
+        Get
+            Dim AppNombre As String = $"GlobalDTModeloActivoFijo-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjActivosFijos As New ClsAF
+                If ObjActivosFijos.GetModelosActivosFijos(CveEmpresa, -1) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
+                ObjActivosFijos.Dispose()
+            End If
+            If CveMarca > 0 Then
+                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), $"CveMarca = {CveMarca}", "", DataViewRowState.CurrentRows)
+                GlobalDTModeloActivoFijo = Dv.ToTable
+                Dv.Dispose()
+            Else
+                GlobalDTModeloActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = $"GlobalDTModeloActivoFijo-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
+        End Set
+    End Property
+    Public Shared Property GlobalDTSubTipoActivoFijo(CveEmpresa As Integer, Optional CveTipoActivoFijo As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTSubTipoActivoFijo-{CveEmpresa}"
             'sino existe, recarga los datos
-            If Application(AppNombre) Is Nothing Then
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Dim ObjSubTipos As New ClsAF
-                If ObjSubTipos.GetSubTiposActivosFijos(CveEmpresa) Then Application(AppNombre) = ObjSubTipos.DtResultados
+                If ObjSubTipos.GetSubTiposActivosFijos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubTipos.DtResultados
                 ObjSubTipos.Dispose()
             End If
             Dim Str As New StringBuilder
             If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
             If CveTipoActivoFijo > 0 Then Str.AppendFormat("AND CveTipoActivoFijo = {0}", CveTipoActivoFijo)
-            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
             GlobalDTSubTipoActivoFijo = Dv.ToTable
             Dv.Dispose()
         End Get
         Set(value As DataTable)
             Dim AppNombre As String = $"GlobalDTSubTipoActivoFijo-{CveEmpresa}"
-            Application(AppNombre) = value
+            HttpContext.Current.Application(AppNombre) = value
         End Set
-        'Get
-        '    If CveEmpresa <> -1 Then
-        '        Dim Dv As New DataView(DirectCast(Application("GlobalDTSubTipoActivoFijo"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-        '        GlobalDTSubTipoActivoFijo = Dv.ToTable
-        '        Dv.Dispose()
-        '    Else
-        '        GlobalDTSubTipoActivoFijo = DirectCast(Application("GlobalDTSubTipoActivoFijo"), DataTable)
-        '    End If
-        'End Get
-        'Set(value As DataTable)
-        '    Application("GlobalDTSubTipoActivoFijo") = value
-        'End Set
     End Property
-    Property GlobalDTTipoActivoFijo(CveEmpresa As Integer) As DataTable
+    Public Shared Property GlobalDTTipoActivoFijo(CveEmpresa As Integer) As DataTable
         Get
-            If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTTipoActivoFijo"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-                GlobalDTTipoActivoFijo = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTTipoActivoFijo = DirectCast(Application("GlobalDTTipoActivoFijo"), DataTable)
+            Dim AppNombre As String = $"GlobalDTTipoActivoFijo-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim GetTiposActivosFijos As New ClsAF
+                If GetTiposActivosFijos.GetCaracteristicas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = GetTiposActivosFijos.DtResultados
+                GetTiposActivosFijos.Dispose()
             End If
+            GlobalDTTipoActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Application("GlobalDTTipoActivoFijo") = value
+            Dim AppNombre As String = $"GlobalDTTipoActivoFijo-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
 #End Region
@@ -3202,18 +3235,20 @@ Public Class ClsPaginas
     End Property
 #End Region
 #Region "***********************************************************************GLOBAL DT ORDENES DE COMPRA***********************************************************************"
-    Property GlobalDTOCEstatus(CveEmpresa As Integer) As DataTable
+    Public Shared Property GlobalDTOCEstatus(CveEmpresa As Integer) As DataTable
         Get
-            If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTOCEstatus"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-                GlobalDTOCEstatus = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTOCEstatus = DirectCast(Application("GlobalDTOCEstatus"), DataTable)
+            Dim AppNombre As String = $"GlobalDTOCEstatus-{CveEmpresa}"
+            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjOC As New ClsOC
+                If ObjOC.GetEstatus(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjOC.DtResultados
+                ObjOC.Dispose()
             End If
+            GlobalDTOCEstatus = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Application("GlobalDTOCEstatus") = value
+            Dim AppNombre As String = $"GlobalDTOCEstatus-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTOCEstatusUsuarios(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional Tipo As String = "") As DataTable
diff --git a/Contabilidad2/RepAnexoCatalogo.aspx b/Contabilidad2/RepAnexoCatalogo.aspx
index ed892e682..5710390e5 100644
--- a/Contabilidad2/RepAnexoCatalogo.aspx
+++ b/Contabilidad2/RepAnexoCatalogo.aspx
@@ -49,7 +49,7 @@
                                 <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
-                            
+
                             <div class="col-md-1 truncate">
                                 Fecha Inicio:  
                             </div>
@@ -90,17 +90,17 @@
                 <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
                     <div class="row">
                         <div class="col-md-1 truncate">
-                                Tipo Movto
-                            </div>
-                            <div class="col-md-2 truncate">
-                                <asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
-                                    <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
-                                    <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
-                                    <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
-                                    <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
-                                </asp:DropDownList>
-                            </div>
+                            Tipo Movto
+                        </div>
+                        <div class="col-md-2 truncate">
+                            <asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
+                                <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                         <div class="col-md-1 truncate" id="tdTipoReporte" visible="true">
                             Tipo
                         </div>
@@ -111,12 +111,16 @@
                                 <asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <div class="col-md-1 truncate">
-                            SubProyecto
+                        <div class="col-md-1">
+                            <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
                         </div>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlSubproyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
+                            </asp:DropDownList>
+                        </div>
+                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
                             </asp:DropDownList>
                         </div>
                         <div class="col-md-2">
diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb
index 5529ff8d8..2c528d53d 100644
--- a/Contabilidad2/RepAnexoCatalogo.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb
@@ -52,6 +52,14 @@ Partial Class AC2_RepAnexoCatalogo
     '        ViewState("DTCuentas") = value
     '    End Set
     'End Property
+    Private Property CveProyecto As String
+        Get
+            CveProyecto = ViewState("CveProyecto").ToString
+        End Get
+        Set(value As String)
+            ViewState("CveProyecto") = value
+        End Set
+    End Property
     Private Property CveSubProyecto As String
         Get
             CveSubProyecto = ViewState("CveSubProyecto").ToString
@@ -121,6 +129,12 @@ Partial Class AC2_RepAnexoCatalogo
                         DdlCuenta.SelectedValueExist(Request("CM").ToString)
                     End If
 
+                    If Request("CveProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveProyecto")) Then
+                        CveProyecto = Request("CveProyecto").ToString
+                        DdlProyecto.SelectedValueExist(CveProyecto)
+                        DdlProyecto_SelectedIndexChanged(Nothing, Nothing)
+                    End If
+
                     If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
                         CveSubProyecto = Request("CveSubProyecto").ToString
                         DdlSubproyecto.SelectedValueExist(CveSubProyecto)
@@ -187,9 +201,14 @@ Partial Class AC2_RepAnexoCatalogo
 
         DdlCuentas.DataBind()
 
-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
-        DdlSubproyecto.DataBind()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
+
     End Sub
+
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
+    End Sub
+
     Private Sub CargaDatos()
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
@@ -200,13 +219,11 @@ Partial Class AC2_RepAnexoCatalogo
             TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
         End If
         'Dim CveSubProyecto As String
-        If Request("CveSubProyecto") IsNot Nothing Then
-            CveSubProyecto = Request("CveSubProyecto").ToString
-        Else
-            CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
-        End If
 
-        If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte) Then
+        CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
+        CveProyecto = DdlProyecto.SelectedValue.ToEntero.ToString
+
+        If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveProyecto.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte) Then
 
             If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
                 DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")
@@ -270,7 +287,7 @@ Partial Class AC2_RepAnexoCatalogo
                 e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
             End If
 
-            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
+            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}&TP={5}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto, TipoReporte)
         End If
     End Sub
 
diff --git a/Contabilidad2/RepEstadoActividades.aspx b/Contabilidad2/RepEstadoActividades.aspx
index 4e6ff6bdf..ed4a8de04 100644
--- a/Contabilidad2/RepEstadoActividades.aspx
+++ b/Contabilidad2/RepEstadoActividades.aspx
@@ -20,7 +20,7 @@
 
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-     
+
     <asp:UpdatePanel runat="server" ID="UpFiltros" UpdateMode="Conditional">
         <ContentTemplate>
             <div class="portlet solid  grey-cascade portlet-filter">
@@ -52,20 +52,27 @@
                                     <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
-                                <label class="col-md-2" style="width: 80px;">SubProyecto: </label>
-                                <div class="col-md-2 ">
-                                    <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
-                                        <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                                    </asp:DropDownList>
-                                </div>
 
-                                <li runat="server" id="liTipoReporte" visible="false">Tipo:
-                                    <asp:DropDownList ID="DdlTipoReporte" runat="server" Width="150px" >
+                            <div class="col-md-1">
+                                <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
+                            </div>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
+                                </asp:DropDownList>
+                            </div>
+                            <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
+                                </asp:DropDownList>
+                            </div>
+
+                            <li runat="server" id="liTipoReporte" visible="false">Tipo:
+                                    <asp:DropDownList ID="DdlTipoReporte" runat="server" Width="150px">
                                         <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
                                         <asp:ListItem Text="Contable y Complementario" Value="2"></asp:ListItem>
                                         <asp:ListItem Text="Complementario" Value="3"></asp:ListItem>
                                     </asp:DropDownList>
-                                </li>                                
+                            </li>
                             </ul>
                         </div>
                     </div>
@@ -169,8 +176,7 @@
                     <td width="30%" align="right">
                         <asp:Label runat="server" Font-Bold="true" ID="LbTotalAnterior"></asp:Label>
                     </td>
-                    <td width="12%" align="right">
-                    </td>
+                    <td width="12%" align="right"></td>
                 </tr>
             </table>
         </ContentTemplate>
diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb
index 207b4d58c..9fd2fe7a7 100644
--- a/Contabilidad2/RepEstadoActividades.aspx.vb
+++ b/Contabilidad2/RepEstadoActividades.aspx.vb
@@ -117,22 +117,26 @@ Partial Class AC_RepEstadoActividades
         End If
         DdlPeriodo.SelectedValue = Now.Month.ToString
 
-        DdlSubproyecto.datasource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
-        DdlSubproyecto.databind
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
 
     End Sub
 
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
+    End Sub
+
     Private Sub CargaDatos()
 
 
         FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
         FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
         Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1)
-        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
+        Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatos = Nothing
@@ -254,8 +258,8 @@ Partial Class AC_RepEstadoActividades
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
             End If
 
 
@@ -283,8 +287,8 @@ Partial Class AC_RepEstadoActividades
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
             End If
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
index 848671d12..78feef96d 100644
--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
@@ -109,10 +109,16 @@
                             <asp:DropDownList ID="DdlMoneda" CssClass="form-control input-sm select2me" runat="server" DataTextField="Moneda" DataValueField="CveMoneda" TabIndex="5" ClientIDMode="Static" Width="100%">
                             </asp:DropDownList>
                         </div>
-                        <label class="col-md-2" style="width: 80px;">SubProyecto: </label>
-                        <div class="col-md-2 ">
-                            <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="100%">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                        <div class="col-md-1">
+                            <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
+                        </div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
+                            </asp:DropDownList>
+                        </div>
+                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
                             </asp:DropDownList>
                         </div>
                         <div class="col-md-2" runat="server" id="tdTipoReporte" visible="true">
@@ -243,6 +249,6 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">
 
-    </script>
+</script>
 
 </asp:Content>
diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
index eeba1fdb8..395451537 100644
--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
@@ -135,12 +135,14 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
                         TxtFechaF.Text = FechaInicio.ToShortDateString
                     End If
 
-                    If Request("CveSubProyecto") IsNot Nothing Then
-                        If IsNumeric(Request("CveSubProyecto")) Then
-                            DdlSubproyecto.SelectedValueExist(Request("CveSubProyecto").ToString)
-                        End If
+                    If Request("CveProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveProyecto")) Then
+                        DdlProyecto.SelectedValueExist(Request("CveProyecto"))
+                        DdlProyecto_SelectedIndexChanged(Nothing, Nothing)
                     End If
 
+                    If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
+                        DdlSubproyecto.SelectedValueExist(Request("CveSubProyecto"))
+                    End If
 
                     ErrorParametros = False
 
@@ -207,9 +209,6 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         Dim ObjTipoCuenta As New ClsContabilidad '(UsuarioActual.Empresa)
         Dim strGlobal As String = ""
 
-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
-        DdlSubproyecto.DataBind()
-
         If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa, 1, -1) Then
             Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
             If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
@@ -228,11 +227,19 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         End If
         ObjTipoCuenta.Dispose()
         DdlCuentas.DataBind()
+
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
+
+    End Sub
+
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
     End Sub
     Private Sub CargaDatos()
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
 
-        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
+        Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
         TipoReporte = DdlTipoReporte.SelectedValue.ToString
         If TipoReporte = "1" And DdlCuentas.SelectedValue.ToEntero < 0 Then
             Alert("No ha seleccionado cuenta, Favor de especificar una", TipoMensaje.MsgAdvertencia)
@@ -241,7 +248,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         IdCuenta = DdlCuentas.SelectedValue.ToEntero
         Cuenta = DdlCuentas.SelectedItem.ToString
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte) Then
+        If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte) Then
             DtDatos = ObjConta.DtResultados
             DtTotales = DtDatos.Clone
 
diff --git a/General/ExcelToBD.aspx.cs b/General/ExcelToBD.aspx.cs
index 363c8a8c1..848adaff4 100644
--- a/General/ExcelToBD.aspx.cs
+++ b/General/ExcelToBD.aspx.cs
@@ -146,7 +146,7 @@ public partial class General_ExcelToBD : System.Web.UI.Page
         {
             if (objbase.ExcelToBD(xml))
             {
-                Alert("Información capturada", ModExtensiones.TipoMensaje.MsgInformacion);
+                ClsPaginas.Alert("Información capturada", ModExtensiones.TipoMensaje.MsgInformacion);
             }
         }
         GVDatos.DataSource = dt;
diff --git a/Global.asax b/Global.asax
index 4fce1947f..f2ce1c56b 100644
--- a/Global.asax
+++ b/Global.asax
@@ -63,33 +63,33 @@
 #End If
         '----------------------------------------------------------------------------------------------------------------------        
         'C A R G A  -  O S
-        GuardaLogAsax(String.Format("Globalasax 2:{0}", DateTime.Now))
+        'GuardaLogAsax(String.Format("Globalasax 2:{0}", DateTime.Now))
 
-        Using ObjOS As New ClsOS
-            If ObjOS.GetEstatusOrdenServicio() Then Application("GlobalDTEstatusOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTEstatusOrdenServicios") = Nothing
-            If ObjOS.GetTipoOrdenesServicios(-1) Then Application("GlobalDTTipoOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTTipoOrdenServicios") = Nothing
-        End Using
+        'Using ObjOS As New ClsOS
+        '    If ObjOS.GetEstatusOrdenServicio() Then Application("GlobalDTEstatusOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTEstatusOrdenServicios") = Nothing
+        '    If ObjOS.GetTipoOrdenesServicios(-1) Then Application("GlobalDTTipoOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTTipoOrdenServicios") = Nothing
+        'End Using
         '-------------------------------------------------------------------------------------------------------------------------        
         'A C T I V O S  - F I J O S
-        GuardaLogAsax(String.Format("Globalasax 3:{0}", DateTime.Now))
+        'GuardaLogAsax(String.Format("Globalasax 3:{0}", DateTime.Now))
 
-        Using ObjActivosFijos As New ClsAF
-            If ObjActivosFijos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTAFCaracteristicasClasificaciones") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicasClasificaciones") = Nothing
-            If ObjActivosFijos.GetCaracteristicas(-1) Then Application("GlobalDTAFCaracteristicas") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicas") = Nothing
-            'If ObjActivosFijos.GetSubTiposActivosFijos(-1) Then Application("GlobalDTSubTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTSubTipoActivoFijo") = Nothing
-            If ObjActivosFijos.GetTiposActivosFijos(-1) Then Application("GlobalDTTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTTipoActivoFijo") = Nothing
-            If ObjActivosFijos.GetEstatusActivoFijo() Then Application("GlobalDTEstadoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTEstadoActivoFijo") = Nothing
-            If ObjActivosFijos.GetMarcasActivosFijos(-1) Then Application(" GlobalDTMarcaActivoFijo") = ObjActivosFijos.DtResultados Else Application(" GlobalDTMarcaActivoFijo") = Nothing
-            If ObjActivosFijos.GetModelosActivosFijos(-1, -1) Then Application("GlobalDTModeloActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTModeloActivoFijo") = Nothing
-        End Using
+        'Using ObjActivosFijos As New ClsAF
+        'If ObjActivosFijos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTAFCaracteristicasClasificaciones") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicasClasificaciones") = Nothing
+        'If ObjActivosFijos.GetCaracteristicas(-1) Then Application("GlobalDTAFCaracteristicas") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicas") = Nothing
+        'If ObjActivosFijos.GetSubTiposActivosFijos(-1) Then Application("GlobalDTSubTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTSubTipoActivoFijo") = Nothing
+        'If ObjActivosFijos.GetTiposActivosFijos(-1) Then Application("GlobalDTTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTTipoActivoFijo") = Nothing
+        'If ObjActivosFijos.GetEstatusActivoFijo() Then Application("GlobalDTEstadoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTEstadoActivoFijo") = Nothing
+        'If ObjActivosFijos.GetMarcasActivosFijos(-1) Then Application(" GlobalDTMarcaActivoFijo") = ObjActivosFijos.DtResultados Else Application(" GlobalDTMarcaActivoFijo") = Nothing
+        'If ObjActivosFijos.GetModelosActivosFijos(-1, -1) Then Application("GlobalDTModeloActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTModeloActivoFijo") = Nothing
+        'End Using
         '-------------------------------------------------------------------------------------------------------------------------        
         'C A R G A  -  O R D E N E S  -  D E  - C O M P R A S
 
-        GuardaLogAsax(String.Format("Globalasax 4:{0}", DateTime.Now))
-        Using ObjOC As New ClsOC
-            If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
-            'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
-        End Using
+        'GuardaLogAsax(String.Format("Globalasax 4:{0}", DateTime.Now))
+        'Using ObjOC As New ClsOC
+        'If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
+        'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
+        'End Using
 
         '-------------------------------------------------------------------------------------------------------------------------        
         'A M O R T I Z A C I O N  -  C O N T A B L E
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index d51bd2d66..8105b1328 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -982,6 +982,7 @@ Partial Class Sistemas_UsuarioDetalle
                             Exit For
                         End If
                     End If
+                    GlobalDTUsuarios(-1, dr("CveEmpresa").ToString.ToEntero) = Nothing
                 Next
             End If