-

2020-02-28 13:48:31 -07:00
parent ba355845f5
commit 161dad4592
4 changed files with 7 additions and 21 deletions
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1385,7 +1385,7 @@ Partial Class Ventas_ClientesAbonar
                                            ImporteMovimiento = 0
                                    End Select

-                                    If ImporteMovimiento <> 0 Then
+                                    If ImporteMovimiento <> 0 AndAlso MsgError = "" Then
                                        'Conta ContPAQ
                                        If (IdCtaContable < 1 Or IdCuentaBancaria < 1) Then
                                            CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)