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

No enviar notificaion pago layout y layout grupos

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-05-28 19:59:08 -07:00
parent eb41fe2102
commit 7111dc47db
3 changed files with 46 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -2680,22 +2680,26 @@ Partial Class Bancos_ProveedoresAbonar
#Region " NOTIFICACION PAGO "
Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String)
'Dim Param As New List(Of String)
'Param.Add(CorreoNotificarA) 'Para
'Param.Add("Notificaciones de pago") 'Asunto
'Param.Add(GeneraCorreo(CveIE)) 'Body
'Param.Add(CveIE.ToString) 'CveIE
Dim Body As String = GeneraCorreo(CveIE)
Dim Comprobante = If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "") 'Archivo Adjunto
If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
'Dim Param As New List(Of String)
Dim File As Byte() = Nothing
If UsuarioActual.Empresa.Funcionalidad(545).ToEntero > 0 Then
File = NewGeneraBytesCxP(CveProveedor, UsuarioActual.Nombre)
'Param.Add(CorreoNotificarA) 'Para
'Param.Add("Notificaciones de pago") 'Asunto
'Param.Add(GeneraCorreo(CveIE)) 'Body
'Param.Add(CveIE.ToString) 'CveIE
Dim Body As String = GeneraCorreo(CveIE)
Dim Comprobante = If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "") 'Archivo Adjunto
Dim File As Byte() = Nothing
If UsuarioActual.Empresa.Funcionalidad(545).ToEntero > 0 Then
File = NewGeneraBytesCxP(CveProveedor, UsuarioActual.Nombre)
End If
Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, Comprobante, File))
Hilo.Start()
End If
Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, Comprobante, File))
Hilo.Start()
End Sub
Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte())