-

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)

Ventas/Ventas.aspx.vb

@@ -11695,6 +11695,7 @@ Partial Class Ventas
                 End If
 
             End If
+            saldo = saldo.RoundSQL()
 
             Dim maxsaldo As Decimal
             If total > saldo Then