diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx
index 1b1028021..1e7945306 100644
--- a/Bancos/ProveedoresAbonar.aspx
+++ b/Bancos/ProveedoresAbonar.aspx
@@ -338,13 +338,8 @@
-
-
-
-
-
-
-
+
+
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 911a889a4..a1791b726 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/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