From 2b2cedd106c422c50136247d9f3b014be42b57f2 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 14 Mar 2025 16:26:23 -0700 Subject: [PATCH] ProveedoresAbonar Ajsute direcia 1 centavo entre descuento y RNC --- Bancos/ProveedoresAbonar.aspx.vb | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 721e35e49..a74d504d2 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -888,6 +888,8 @@ Partial Class Bancos_ProveedoresAbonar CompraActual.UsuarioActual = UsuarioActual CompraActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero + + 'Importe de pago Pago.ImportePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal 'Tipos de cambio @@ -941,15 +943,15 @@ Partial Class Bancos_ProveedoresAbonar If descuentoParts.Length = 0 Then Descuento = 0 Else - - For i As Integer = 0 To descuentoParts.Length - 1 - Dim descuentoPart As Decimal = descuentoParts(i).Trim().ToDecimal - If descuentoPart > 0 Then - Descuento = Descuento + ((TotalTemp - Descuento) * (descuentoPart / 100)) - Else - Continue For - End If - Next + Descuento = gvr.DataKey("Saldo").ToString.ToDecimal - gvr.FCTextBox("TxtAbonar").Text.ToDecimal + 'For i As Integer = 0 To descuentoParts.Length - 1 + ' Dim descuentoPart As Decimal = descuentoParts(i).Trim().ToDecimal + ' If descuentoPart > 0 Then + ' Descuento = Descuento + ((TotalTemp - Descuento) * (descuentoPart / 100)) + ' Else + ' Continue For + ' End If + 'Next End If @@ -970,7 +972,7 @@ Partial Class Bancos_ProveedoresAbonar FolioRNC = serieFolioArray(0) End If - Descuento = Descuento.RoundSQL(2) + 'Descuento = Descuento.RoundSQL(2) If PorcentajeIVA > 0 Then Descuento = ((Descuento) / (1 + PorcentajeIVA))