This commit is contained in:
2024-05-01 16:34:13 -07:00
parent a4d826f01f
commit 8178bddc89

View File

@@ -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