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 Exit For
End If End If
End If End If
ElseIf CveTipoPS = 1 Then
Continuar = True
End If End If
Else Else
Continuar = False 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 = If(CveSubProyecto.Contiene(11714, 11761), "mezclas.pescadito@gmail.com", "pedidosaguas@gmail.com")
'Dim Correo As String = "japmx95@gmail.com" 'Dim Correo As String = "japmx95@gmail.com"
Dim SerieFolio As String = Factura.SerieFolio Dim SerieFolio As String = Factura.SerieFolio
Dim DireccionEnvio As String = "" Dim DireccionEnvio As String = ""
Dim ObjClientes As New ClsClientes Using ObjClientes As New ClsClientes
If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then If ObjClientes.DtResultados.Rows.Count > 0 Then
DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto") DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto")
End If End If
End If End If
ObjClientes.Dispose() End Using
Dim Body = GeneraCorreoRemision(Retorno.CveVenta, SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Observaciones, DateTime.Now) Factura.Dispose()
Factura.Dispose() EnviarCorreo(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual)
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
Else Else
Factura.Dispose() Factura.Dispose()
End If End If
@@ -806,7 +801,26 @@ Public Class WSApp
End Try End Try
Return JsonConvert.SerializeObject(Retorno) 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()> <WebMethod()>
Public Function CancelarDocumento(CveVenta As Integer, CveUsuario As Integer) As String Public Function CancelarDocumento(CveVenta As Integer, CveUsuario As Integer) As String
Dim Retorno = New Modelos.Factura.MMensajeFactura() Dim Retorno = New Modelos.Factura.MMensajeFactura()