diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 09722705d..c139578d4 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -488,7 +488,7 @@ Partial Class Bancos_ProveedoresAbonar
 
             If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(7).ForeColor = Drawing.Color.Red
             If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxC" Then e.Row.Cells(4).ForeColor = Drawing.Color.Red
-            If e.Row.DBCampo("Original").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = ""
+            If e.Row.DBCampo("TotalOriginal").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = ""
             If e.Row.DBCampo("Abonado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = ""
             If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = ""
 
@@ -895,7 +895,7 @@ Partial Class Bancos_ProveedoresAbonar
                                 MsgError = "No se pudo insertar la póliza"
                             End If
 
-                            If CveMoneda = 2 AndAlso UsaComplementariaBancos Then
+                            If Pago.CveMonedaPago = 2 AndAlso UsaComplementariaBancos Then
                                 If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, (Pago.ImportePago * Pago.TCPago - Pago.ImportePago).RoundSQL, 204, Referencia, ConceptoMovimiento, IdCuentaBancariaComplementaria, CveIE:=CveIE, CveProveedor:=CveProveedor, ImporteME:=Pago.ImportePago, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
                                     MsgError = "No se pudo insertar la póliza"
                                 End If
@@ -1005,7 +1005,7 @@ Partial Class Bancos_ProveedoresAbonar
                             For Each gvr As GridViewRow In GvCxP.Rows
                                 If gvr.FCCheckBox("Chk").Checked Then
                                     'obtengo su poliza para ver que presupuestos afecto
-                                    If gvr.DataKey("Original").ToDouble > 0 Then PorcentajePago = gvr.FCTextBox("TxtAbonar").Text.ToDouble / gvr.DataKey("Original").ToDouble Else PorcentajePago = 1
+                                    If gvr.DataKey("TotalOriginal").ToDouble > 0 Then PorcentajePago = gvr.FCTextBox("TxtAbonar").Text.ToDouble / gvr.DataKey("TotalOriginal").ToDouble Else PorcentajePago = 1
 
                                     If ObjComp.GetPresupuestosCompras(gvr.DataKey("CveCompra").ToEntero) Then
                                         dtAC.Merge(ObjComp.DtResultados)
@@ -1894,7 +1894,7 @@ Partial Class Bancos_ProveedoresAbonar
                     End If
                 End If
 
-                Dim PorcentajePago As Decimal = gr.DataKey("Saldo").ToDecimal / gr.DataKey("Original").ToDecimal
+                Dim PorcentajePago As Decimal = gr.DataKey("Saldo").ToDecimal / gr.DataKey("TotalOriginal").ToDecimal
 
                 If MsgError = "" AndAlso gr.DataKey("IVA").ToDecimal > 0 Then
                     Dim PorcentajeImpuesto As Decimal = gr.DataKey("PorcentajeIVA").ToDecimal