cambio para envío de correo

Bancos/ProveedoresAbonar.aspx.vb

@@ -317,9 +317,6 @@ Partial Class Bancos_ProveedoresAbonar
                 chkaplicaDescuento.Visible = True
             End If
 
-
-            tmpValida()
-
         End If
     End Sub
 
@@ -1389,31 +1386,26 @@ Partial Class Bancos_ProveedoresAbonar
             'Hilo.Start()
 
             If MostarAlert Then
-                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+                Alert("El correo se envió correctamente", TipoMensaje.ToastInformacion)
             End If
 
         Catch ex As Exception
-
             If MostarAlert Then
                 Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
             End If
-
-
         End Try
     End Sub
 
     Private Sub EnviarCorreoNotificacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario)
 
-
         Try
             Dim ObjBancos As New ClsBancos()
 
             If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then
-                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+                Alert("El correo se envió correctamente", TipoMensaje.ToastInformacion)
             Else
                 Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
             End If
-
             ObjBancos.Dispose()
         Catch ex As Exception
             GuardaLog("Error al enviar notificación de pago ProveedoresAbonar --> " & ex.StackTrace.ToString)
@@ -1715,9 +1707,5 @@ Partial Class Bancos_ProveedoresAbonar
         End If
     End Sub
 
-
-    Protected Sub Button1_Click(sender As Object, e As EventArgs)
-        tmpValida()
-    End Sub
 End Class