cambiar el estatus a activo

This commit is contained in:
HECTOR RODRIGUEZ
2021-06-08 14:13:49 -07:00
parent 5c267871ec
commit 5971af0797

View File

@@ -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