AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2025-05-23 09:00:10 -07:00
parent 2b642d2872
commit 479bd668af
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Ventas/ClientesAbonar.aspx.vb
View File

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