From 70a42e26e30f28ed4e2702371ed01b400014b5b6 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 1 Dec 2020 13:01:37 -0700
Subject: [PATCH] envio del usuario que actualizo

---
 OC/CatEstatus.aspx.vb | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/OC/CatEstatus.aspx.vb b/OC/CatEstatus.aspx.vb
index f44f0a3d6..7a9255c82 100644
--- a/OC/CatEstatus.aspx.vb
+++ b/OC/CatEstatus.aspx.vb
@@ -69,14 +69,14 @@ Partial Class OC_CatEstatus
             CargaDatos()
             CargaEstatus()
             CargaProyectos()
-            CargaUsuarios()
-
-            'SOLO MUESTRA SUBPROYECTO
-            If UsuarioActual.Empresa.GralSoloProyecto Then
-                'TdProyecto.Visible = False
-                'TdSubProyectoTitulo.Visible = False
-
-                DivProyecto.Visible = False
+            CargaUsuarios()
+
+            'SOLO MUESTRA SUBPROYECTO
+
+            'TdProyecto.Visible = False
+            'TdSubProyectoTitulo.Visible = False
+
+            DivProyecto.Visible = False
                 LblSubproyecto.Visible = False
 
 
@@ -84,9 +84,9 @@ Partial Class OC_CatEstatus
                 CboSubProyecto.DataBind()
                 CboSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-                CboSubProyecto_SelectedIndexChanged(CboSubProyecto, EventArgs.Empty)
-            End If
-
+                CboSubProyecto_SelectedIndexChanged(CboSubProyecto, EventArgs.Empty)
+
+
             chkMostrarLimites.Attributes.Add("onchange", "javascript:chkMostrarLimitesCambio();")
             MaintainScrollPositionOnPostBack = True
 
@@ -614,7 +614,7 @@ Partial Class OC_CatEstatus
 
                             'Insertar el nuevo registro
                         Else
-                            If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, CveSubProyecto, Row.DataKey("CveUsuario").ToString.ToEntero, True) Then
+                            If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, CveSubProyecto, Row.DataKey("CveUsuario").ToString.ToEntero, True, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                 HuboErrores = True
                                 Exit For
                             End If
@@ -699,6 +699,7 @@ Partial Class OC_CatEstatus
 
         If Not HuboErrores Then
             objEstatusOC.Commit()
+            GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing
             Alert("Se guardaron los Cambios exitosamente", TipoMensaje.MsgInformacion)
         Else
             objEstatusOC.RollBack()