From 479bd668afc2e4a8fb06be023a754326accf1056 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 May 2025 09:00:10 -0700 Subject: [PATCH] =?UTF-8?q?--=20mejora=20para=20aplicaci=C3=B3n=20de=20ixc?= =?UTF-8?q?,=20que=20no=20se=20paguen=20en=20exceso?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ClientesAbonar.aspx.vb | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index dc316c96b..76f76bf2b 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/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