diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 15411ebe9..0e4c53628 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -638,7 +638,7 @@ Public Class ClsPaginas
     End Property
 
 
-    Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
+    Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1, Optional Estatus As Integer = 1) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTClasificaciones-{0}", CveEmpresa)
             'sino existe, recarga los datos
@@ -653,6 +653,7 @@ Public Class ClsPaginas
                 If CveCategoria <> -1 Then Str.AppendFormat(" AND CveCategoria = {0}", CveCategoria)
                 If UsoClasificacion <> -1 Then Str.AppendFormat(" AND UsoClasificacion IN ({0},3) ", UsoClasificacion)
                 If CveClasificacion <> -1 Then Str.AppendFormat(" AND CveClasificacion = {0}", CveClasificacion)
+                If Estatus <> -1 Then Str.AppendFormat(" AND Estatus = '{0}'", If(Estatus = 1, "Activo", "Inactivo"))
                 Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
                 GlobalDTClasificaciones = Dv.ToTable
                 Dv.Dispose()
@@ -3066,8 +3067,6 @@ Public Class ClsPaginas
         End Set
     End Property
 
-
-
     Property GlobalDTContaConceptosContables(CvePlantillaPoliza As Integer) As DataTable
         Get
             If CvePlantillaPoliza <> -1 Then