From 5971af07972167f903af10d8f7ad706e31dbe93c Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Tue, 8 Jun 2021 14:13:49 -0700 Subject: [PATCH] cambiar el estatus a activo --- OC/CatEstatus.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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