diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 1e6327d03..c3123c9e4 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1732,13 +1732,14 @@ Public Class ClsPaginas
             Application("GlobalDTSeccionAlmacen") = value
         End Set
     End Property
-    Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1) As DataTable
+    Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1, Optional CveEstatus As Integer = 1) As DataTable
         Get
             If CveEmpresa <> -1 Then
 
                 Dim Str As New StringBuilder
                 Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
                 If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
+                If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)
 
                 Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacen"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
                 GlobalDTAlmacen = Dv.ToTable
@@ -1752,12 +1753,13 @@ Public Class ClsPaginas
             Application("GlobalDTAlmacen") = value
         End Set
     End Property
-    Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1) As DataTable
+    Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1, Optional CveEstatus As Integer = 1) As DataTable
         Get
             If CveEmpresa <> -1 Then
                 Dim Str As New StringBuilder
                 Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa)
                 If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
+                If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)
 
                 Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
                 GlobalDTAlmacenUsuarios = Dv.ToTable