-- mandar correo unificado de pago

Bancos/IE.aspx.vb

@@ -5212,8 +5212,9 @@ Partial Class Bancos_IE
     Private Sub EnviarCorreoNotificacion(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario, MostarAlert As Boolean)
 
         Try
-            Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar))
-            Hilo.Start()
+            EnviarCorreoNotificacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)
+            'Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar))
+            'Hilo.Start()
             If MostarAlert Then
                 Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
                 RegistraScript("$('#ModalDivMail').modal('hide');")
@@ -5226,7 +5227,7 @@ Partial Class Bancos_IE
 
     End Sub
 
-    Private Sub EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario)
+    Private Sub EnviarCorreoNotificacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario)
 
         Try
             Dim ObjBancos As New ClsBancos()

Bancos/PopIECompras.aspx.vb

@@ -1522,9 +1522,10 @@ Partial Class Bancos_PopIECompras
     Private Sub EnviarCorreoNotificacion(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario, MostarAlert As Boolean)
 
         Try
-            Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar))
-            'Dim Hilo As New Threading.Thread(  EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar))
-            Hilo.Start()
+            EnviarCorreoNotificacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)
+            'Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotificacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar))
+            ''Dim Hilo As New Threading.Thread(  EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar))
+            'Hilo.Start()
 
 
             If MostarAlert Then
@@ -1541,7 +1542,7 @@ Partial Class Bancos_PopIECompras
         End Try
     End Sub
 
-    Private Sub EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario)
+    Private Sub EnviarCorreoNotificacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario)
 
         Try
             Dim ObjBancos As New ClsBancos()

Bancos/ProveedoresAbonar.aspx.vb

@@ -1383,9 +1383,10 @@ Partial Class Bancos_ProveedoresAbonar
     Private Sub EnviarCorreoNotificacion(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario, MostarAlert As Boolean)
 
         Try
-            Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar))
+            EnviarCorreoNotificacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)
+            'Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotificacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar))
             'Dim Hilo As New Threading.Thread(  EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar))
-            Hilo.Start()
+            'Hilo.Start()
 
             If MostarAlert Then
                 Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
@@ -1401,7 +1402,7 @@ Partial Class Bancos_ProveedoresAbonar
         End Try
     End Sub
 
-    Private Sub EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario)
+    Private Sub EnviarCorreoNotificacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario)
 
 
         Try

Compras/Proveedores.aspx.vb

@@ -5493,35 +5493,47 @@ Partial Class Compras_Proveedores
 
     Private Sub BtnSendMail_Click(sender As Object, e As EventArgs) Handles BtnSendMail.Click
         'NotificacionPago(HdnCveIE.Value.ToEntero, Txt)
-        Dim ObjMail As New ClsSisMail()
-        Dim Body As String = GeneraCorreo(HdnCveIE.Value.ToEntero)
 
-        Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
+        Dim ObjBancos As New ClsBancos()
 
-        Dim ObjIE As New ClsBancos()
-        Dim ComprobanteIE As String
-        If ObjIE.GetBancosIE(HdnCveIE.Value.ToEntero, UsuarioActual.CveEmpresa) Then
-            If ObjIE.DtResultados.Rows.Count > 0 Then
-                If ObjIE.Comprobante <> "" Then
-                    ComprobanteIE = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString)
-
-                    If IO.File.Exists(ComprobanteIE) Then
-                        ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = ComprobanteIE.ToString})
-                    End If
-                End If
+            If ObjBancos.NotificacionPago(HdnCveIE.Value.ToEntero, TxtParaMail.Text.Trim, TxtCC.Text.Trim, UsuarioActual) Then
+                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+            Else
+                Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
             End If
-        End If
-        ObjIE.Dispose()
 
-        If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Notificaciones de pago", Body, TxtCC.Text.Trim, Displayname:="Notificaciones de pago", Archivos:=ListaArchivos) Then
-            'ResultadoMail = 1
-            TxtCC.Text = ""
-            TxtBody.Text = ""
-            RegistraScript("$('#ModalDivMail').modal('hide');")
-            Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
-        Else
-            Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
-        End If
+            ObjBancos.Dispose()
+
+
+        'Dim ObjMail As New ClsSisMail()
+        'Dim Body As String = GeneraCorreo(HdnCveIE.Value.ToEntero)
+
+        'Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
+
+        'Dim ObjIE As New ClsBancos()
+        'Dim ComprobanteIE As String
+        'If ObjIE.GetBancosIE(HdnCveIE.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+        '    If ObjIE.DtResultados.Rows.Count > 0 Then
+        '        If ObjIE.Comprobante <> "" Then
+        '            ComprobanteIE = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString)
+
+        '            If IO.File.Exists(ComprobanteIE) Then
+        '                ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = ComprobanteIE.ToString})
+        '            End If
+        '        End If
+        '    End If
+        'End If
+        'ObjIE.Dispose()
+
+        'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Notificaciones de pago", Body, TxtCC.Text.Trim, Displayname:="Notificaciones de pago", Archivos:=ListaArchivos) Then
+        '    'ResultadoMail = 1
+        '    TxtCC.Text = ""
+        '    TxtBody.Text = ""
+        '    RegistraScript("$('#ModalDivMail').modal('hide');")
+        '    Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+        'Else
+        '    Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
+        'End If
 
     End Sub
 #End Region