diff --git a/OC/CatEstatus.aspx.vb b/OC/CatEstatus.aspx.vb
index 856492b95..5c739aaa7 100644
--- a/OC/CatEstatus.aspx.vb
+++ b/OC/CatEstatus.aspx.vb
@@ -603,7 +603,7 @@ Partial Class OC_CatEstatus
                         'Guardado masivo cuando sea SubProyecto "Todos"
                         If CveSubProyecto = -2 Then
                             For Each dr As DataRow In GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).Rows
-                                If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, dr("CveSubProyecto").ToString.ToEntero, Row.DataKey("CveUsuario").ToString.ToEntero, True) Then
+                                If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, dr("CveSubProyecto").ToString.ToEntero, Row.DataKey("CveUsuario").ToString.ToEntero, True, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     HuboErrores = True
                                     Exit For
                                 End If
@@ -669,7 +669,7 @@ Partial Class OC_CatEstatus
                         'Guardado masivo cuando sea SubProyecto "Todos"
                         If CveSubProyecto = -2 Then
                             For Each dr As DataRow In GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).Rows
-                                If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, dr("CveSubProyecto").ToString.ToEntero, Row.DataKey("CveUsuario").ToString.ToEntero, True) Then
+                                If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, dr("CveSubProyecto").ToString.ToEntero, Row.DataKey("CveUsuario").ToString.ToEntero, True, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     HuboErrores = True
                                     Exit For
                                 End If
@@ -680,7 +680,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