-- mejora para aplicación de ixc, que no se paguen en exceso

Ventas/ClientesAbonar.aspx.vb

@@ -8,7 +8,6 @@ Imports Extensiones
 Partial Class Ventas_ClientesAbonar
     Inherits ClsPaginas
 
-
 #Region "Propiedades"
     Private Property CveCorte As Integer
         Get
@@ -805,7 +804,7 @@ Partial Class Ventas_ClientesAbonar
             Exit Sub
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso RblTipoPago.SelectedValue = "3" Then
+        If RblTipoPago.SelectedValue = "3" Then
             Dim DtSaldo As DataTable = Nothing
             Dim ObjMovto As New ClsMovimientos
             If ObjMovto.GetIngresosSaldosDetalle(CveCliente, -1, UsuarioActual.CveEmpresa) Then
@@ -830,10 +829,17 @@ Partial Class Ventas_ClientesAbonar
                 Next
                 ImporteAbonar += TxtAnticipo.Text.ToDecimal()
 
-                If ImporteRef.RoundSQL(2) <> ImporteAbonar.RoundSQL(2) Then
+                If ImporteRef.RoundSQL(2) < ImporteAbonar.RoundSQL(2) Then
+                    Alert("El importe abonado es mayor al saldo del ingreso por comprobar, especifique un valor correcto.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+
+                If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso ImporteRef.RoundSQL(2) <> ImporteAbonar.RoundSQL(2) Then
                     Alert("El importe abonado es diferente al saldo del ingreso", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If
+
+
             Else
                 Alert("No se pudieron validar los saldos", TipoMensaje.MsgError)
                 Exit Sub