From 945ba91d1b44697ab2c5c65938535d82ac925abb Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 27 May 2024 20:13:16 -0700
Subject: [PATCH] =?UTF-8?q?--=20nueva=20funci=C3=B3n=20para=20obtner=20usu?=
 =?UTF-8?q?ario=20que=20tienen=20un=20proceso?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsSisProcesos.vb | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/App_Code/ClsSisProcesos.vb b/App_Code/ClsSisProcesos.vb
index 9f877382a..f97454c9e 100644
--- a/App_Code/ClsSisProcesos.vb
+++ b/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