envio del usuario que actualizo

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()