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))