From fcc9f1bbbb3625abf2e1f38c322b4eaac72e286d Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 26 Apr 2024 06:14:24 -0700 Subject: [PATCH] =?UTF-8?q?--=20para=20env=C3=ADo,=20se=20omiti=C3=B3=20el?= =?UTF-8?q?=20uso=20de=20hilo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/PagoElectronicoGrupos.aspx.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index 801a3d737..f3cac6682 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -2999,9 +2999,10 @@ Partial Class Bancos_PagoElectronicoGrupos Private Sub EnviarCorreoNotificacion(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario, MostarAlert As Boolean) Try - Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)) - Hilo.Start() + 'Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)) + 'Hilo.Start() + EnviarCorreoNotificacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) If MostarAlert Then Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) @@ -3017,7 +3018,7 @@ Partial Class Bancos_PagoElectronicoGrupos End Try End Sub - Private Sub EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario) + Private Sub EnviarCorreoNotificacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario) Try Dim ObjBancos As New ClsBancos()