-- nueva función para obtner usuario que tienen un proceso

App_Code/ClsSisProcesos.vb

@@ -209,6 +209,25 @@ Public Class ClsSisProcesos
         Return OnError
     End Function
 
+    Public Function GetUsuariosconProceso(CveProceso As Integer, CveEmpresa As Integer) As Boolean
+        Dim OnError As Boolean = False
+
+        DataAdapter("PA_Sis_UsuarioconProcesoGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveProceso", SqlDbType.Int).Value = CveProceso
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            OnError = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener los usuarios con el Proceso.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return OnError
+    End Function
+
     ' IDisposable
     Protected Overridable Sub Dispose(disposing As Boolean)
         If Not Me.disposedValue Then