From 28b42b681fcd74c9d14782833fe9f7d5adedd2d3 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Thu, 8 Oct 2020 18:12:07 -0700
Subject: [PATCH] - envio de parametro de usuario

---
 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 84303384c..f44f0a3d6 100644
--- a/OC/CatEstatus.aspx.vb
+++ b/OC/CatEstatus.aspx.vb
@@ -280,7 +280,7 @@ Partial Class OC_CatEstatus
         Dim CveSuperior As Integer = If(tblSuperior.Visible = True, ddlSuperior.SelectedValue.ToEntero, -1)
 
         If hdnCveEstatusUsuarios.Value.ToEntero = -1 Then
-            If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, CboSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior) Then
+            If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, CboSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior, UsuarioActual.CveUsuario) Then
                 RegistraScript(String.Format("{0}.style.background-color='yellow'", IDCellYellow.Value))
 
             End If