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

30
Bancos/IE.aspx.vb
View File

@@ -3350,17 +3350,25 @@ Partial Class Bancos_IE
End Sub End Sub
#Region " NOTIFICACION PAGO " #Region " NOTIFICACION PAGO "
Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String) Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String)
Dim Param As New List(Of String)
If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
Param.Add(CorreoNotificarA) 'Para
Param.Add("Notificaciones de pago") 'Asunto Dim Param As New List(Of String)
Param.Add(GeneraCorreo2(CveIE)) 'Body
Param.Add(CveIE.ToString) 'CveIE Param.Add(CorreoNotificarA) 'Para
Param.Add(If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "")) 'Archivo Adjunto Param.Add("Notificaciones de pago") 'Asunto
Param.Add(GeneraCorreo2(CveIE)) 'Body
Dim Hilo As New Threading.Thread(AddressOf MandaCorreo) Param.Add(CveIE.ToString) 'CveIE
Hilo.Start(Param) Param.Add(If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "")) 'Archivo Adjunto
Dim Hilo As New Threading.Thread(AddressOf MandaCorreo)
Hilo.Start(Param)
End If
End Sub End Sub
Private Sub MandaCorreo(data As Object) Private Sub MandaCorreo(data As Object)
Dim Parametros As List(Of String) = DirectCast(data, List(Of String)) Dim Parametros As List(Of String) = DirectCast(data, List(Of String))

18
Bancos/PagoElectronicoGrupos.aspx.vb
View File

@@ -966,6 +966,16 @@ Partial Class Bancos_PagoElectronicoGrupos
RegistrosPago.Append("PSC") RegistrosPago.Append("PSC")
End If End If
If drow("CLABEDestino").ToString.Trim.Length.Contiene(10, 18) Then
RegistrosPago.Append(drow("CLABEDestino").ToString.PadLeft(18, CeroRelleno))
Else
ErrorLayout = True
MENSAJEError.AppendLine("ERROR EN CLABE cuenta destino")
Exit For
End If
If drow("CLABEOrigen").ToString.Trim.Length.Contiene(10, 18) Then If drow("CLABEOrigen").ToString.Trim.Length.Contiene(10, 18) Then
RegistrosPago.Append(drow("CLABEOrigen").ToString.PadLeft(18, CeroRelleno)) RegistrosPago.Append(drow("CLABEOrigen").ToString.PadLeft(18, CeroRelleno))
@@ -976,13 +986,7 @@ Partial Class Bancos_PagoElectronicoGrupos
Exit For Exit For
End If End If
If drow("CLABEDestino").ToString.Trim.Length.Contiene(10, 18) Then
RegistrosPago.Append(drow("CLABEDestino").ToString.PadLeft(18, CeroRelleno))
Else
ErrorLayout = True
MENSAJEError.AppendLine("ERROR EN CLABE cuenta destino")
Exit For
End If
RegistrosPago.Append(drow("Abreviatura").ToString) RegistrosPago.Append(drow("Abreviatura").ToString)
RegistrosPago.Append(drow("Abonado").ToString.ToDecimal.ToString("0000000000000.00")) RegistrosPago.Append(drow("Abonado").ToString.ToDecimal.ToString("0000000000000.00"))

28
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -2680,22 +2680,26 @@ Partial Class Bancos_ProveedoresAbonar
#Region " NOTIFICACION PAGO " #Region " NOTIFICACION PAGO "
Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String) Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String)
'Dim Param As New List(Of String)
'Param.Add(CorreoNotificarA) 'Para If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
'Param.Add("Notificaciones de pago") 'Asunto 'Dim Param As New List(Of String)
'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 'Param.Add(CorreoNotificarA) 'Para
If UsuarioActual.Empresa.Funcionalidad(545).ToEntero > 0 Then 'Param.Add("Notificaciones de pago") 'Asunto
File = NewGeneraBytesCxP(CveProveedor, UsuarioActual.Nombre) '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 End If
Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, Comprobante, File))
Hilo.Start()
End Sub End Sub
Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte()) Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte())