From 8308bbe2a71cc0e4a792f2f7134a6a0abcdd0068 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Tue, 24 Mar 2020 16:57:12 -0700
Subject: [PATCH] Proveedores Abonar Enviar a Lista de proveedores cuando ya no
 existan pagos  del proveedor que se esta pagando

---
 Bancos/ProveedoresAbonar.aspx.vb | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index a067637eb..240237025 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -2301,10 +2301,10 @@ Partial Class Bancos_ProveedoresAbonar
                         Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}"">Listado</a></li>", CveIE)
                         If IDPoliza > 0 Then Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Póliza</a></li>", IDPoliza)
 
-                        Dim Mensaje As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Msg.ToString)
-                        Alert(Mensaje.ToString, TipoMensaje.MsgInformacion, If(ChkSeguirRegistrando.Checked, "location.href =""#""", "location.href =""RepProveedoresPagos.aspx"""))
-
-                        'LIMPIA
+                        Dim Mensaje As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Msg.ToString)
+
+
+                        'LIMPIA
                         TxtFolio.Text = ""
                         TxtObservaciones.Text = ""
                         TxtImporte.Text = ""
@@ -2317,6 +2317,9 @@ Partial Class Bancos_ProveedoresAbonar
                         'upanexo.Update()
                         CargaDatos() '(CveProveedor, CveMoneda, FechaI, FechaF, CveUsuarioRegistro, CveUsuarioProgramo, Serie)
 
+
+                        Alert(Mensaje.ToString, TipoMensaje.MsgInformacion, If(ChkSeguirRegistrando.Checked And GvCxP.Rows.Count > 0, "location.href =""#""", "location.href =""RepProveedoresPagos.aspx"""))
+
                         'Notificación de Pago
                         If TxtNotificarA.Text.Trim <> "" AndAlso ChkEnviarCorreo.Checked Then
                             NotificacionPago(CveIE, TxtNotificarA.Text.Trim)