-

2021-06-09 12:10:20 -07:00
parent 09615928fe 917e5fd43d
commit c7a0101706
32 changed files with 15519 additions and 5867 deletions
--- 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