From 8178bddc89b85fbd42ea874c01eb210e5dcf3b0e Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 May 2024 16:34:13 -0700 Subject: [PATCH] - --- asmx/WSApp.asmx | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx index 3d4d064e3..d58e8eef0 100644 --- a/asmx/WSApp.asmx +++ b/asmx/WSApp.asmx @@ -350,9 +350,10 @@ Public Class WSApp Return JsonConvert.SerializeObject(Retorno) End Function Private Sub EnviarCorreo(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario) - Try - Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoFactura(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual)) - Hilo.Start() + Try + EnviarCorreoFactura(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual) + 'Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoFactura(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual)) + 'Hilo.Start() Catch ex As Exception OnError("Ocurrió error al mandar el correo de facturación", ex) End Try