diff --git a/OC/CatEstatus.aspx.vb b/OC/CatEstatus.aspx.vb
index 0cd097280..724daf754 100644
--- a/OC/CatEstatus.aspx.vb
+++ b/OC/CatEstatus.aspx.vb
@@ -532,7 +532,7 @@ Partial Class OC_CatEstatus
             Dim CveSubProyecto = If(CboSubProyecto.SelectedValue.ToEntero = -2, -1, CboSubProyecto.SelectedValue.ToEntero)
             Dim objEstatusOC As New ClsOC
 
-            If objEstatusOC.GetEstatusUsuarios(-1, -1, CveSubProyecto, -1, UsuarioActual.CveEmpresa) Then
+            If objEstatusOC.GetEstatusUsuarios(-1, -1, CveSubProyecto, -1, UsuarioActual.CveEmpresa, -1, 1) Then
                 DTEstatusUsuarios = objEstatusOC.DtResultados
             End If