AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- para envío, se omitió el uso de hilo

Browse Source
This commit is contained in:
rrene
2024-04-26 06:14:24 -07:00
parent f63a98b94e
commit fcc9f1bbbb
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Bancos/PagoElectronicoGrupos.aspx.vb
View File

@@ -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) Private Sub EnviarCorreoNotificacion(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario, MostarAlert As Boolean)
Try Try
Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)) 'Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar))
Hilo.Start() 'Hilo.Start()
EnviarCorreoNotificacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)
If MostarAlert Then If MostarAlert Then
Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
@@ -3017,7 +3018,7 @@ Partial Class Bancos_PagoElectronicoGrupos
End Try End Try
End Sub 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 Try
Dim ObjBancos As New ClsBancos() Dim ObjBancos As New ClsBancos()