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

Envio de correo en un hilo aparte

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-10-02 18:09:20 -07:00
parent f07ae42437
commit 81691a49e8
1 changed files with 32 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
asmx/WSApp.asmx
View File

@@ -748,6 +748,8 @@ Public Class WSApp
Exit For
End If
End If
ElseIf CveTipoPS = 1 Then
Continuar = True
End If
Else
Continuar = False
@@ -772,23 +774,16 @@ Public Class WSApp
Dim Correo As String = If(CveSubProyecto.Contiene(11714, 11761), "mezclas.pescadito@gmail.com", "pedidosaguas@gmail.com")
'Dim Correo As String = "japmx95@gmail.com"
Dim SerieFolio As String = Factura.SerieFolio
Dim DireccionEnvio As String = ""
Dim ObjClientes As New ClsClientes
If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then
DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto")
End If
End If
ObjClientes.Dispose()
Dim Body = GeneraCorreoRemision(Retorno.CveVenta, SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Observaciones, DateTime.Now)
Factura.Dispose()
Try
Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", SerieFolio)
Dim Mail As New ClsSisMail()
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo, Asunto, Body)
Catch ex As Exception
OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex)
End Try
Dim DireccionEnvio As String = ""
Using ObjClientes As New ClsClientes
If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then
DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto")
End If
End If
End Using
Factura.Dispose()
EnviarCorreo(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual)
Else
Factura.Dispose()
End If
@@ -806,7 +801,26 @@ Public Class WSApp
End Try
Return JsonConvert.SerializeObject(Retorno)
End Function
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()
Catch ex As Exception
OnError("Ocurrió error al mandar el correo de facturación", ex)
End Try
End Sub
Private Sub EnviarCorreoFactura(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario)
Dim Body = GeneraCorreoRemision(Retorno.CveVenta, Retorno.SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Factura.Observaciones, DateTime.Now)
Factura.Dispose()
Try
Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", Retorno.SerieFolio)
Dim Mail As New ClsSisMail()
Mail.SendMail(UsuarioActual.Empresa, Correo, Asunto, Body)
Catch ex As Exception
OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex)
End Try
End Sub
<WebMethod()>
Public Function CancelarDocumento(CveVenta As Integer, CveUsuario As Integer) As String
Dim Retorno = New Modelos.Factura.MMensajeFactura()