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