diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 7fc7abe47..e2b7b3d4f 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -607,7 +607,7 @@ Partial Class Bancos_ProveedoresAbonar
 
         Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor)
         If dtc IsNot Nothing Then
-            Dim Row = dtc.FiltroPrimero(String.Format("CveCuentaDeposito = {0}", DdlCuentaDeposito.SelectedValue.ToEntero))
+            Dim Row As DataRow = dtc.FiltroPrimero(String.Format("CveCuentaDeposito = {0}", DdlCuentaDeposito.SelectedValue.ToEntero))
             If Row IsNot Nothing AndAlso Row("Estatus").ToString = "False" Then
                 Alert("La cuenta depósito del proveedor esta inactiva.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
@@ -804,9 +804,10 @@ Partial Class Bancos_ProveedoresAbonar
                                     Pago.TCPago = 1 ' TxtTC.Text.ToDecimal
                                     Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TxtTC.Text.ToDecimal).RoundSQL
                                 ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES
-                                    Pago.TCPago = TxtTCDolaresDolares.Text.ToDecimal
+                                    Pago.TCPago = TxtTCDolares.Text.ToDecimal
                                 ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
                                     Pago.TCPago = TxtTCDolares.Text.ToDecimal
+                                    Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal / TxtTCDolares.Text.ToDecimal)
                                 End If
                                 If ChkPagarPesos.Checked Then Pago.TCCambioMoneda = 1 / TxtTC.Text.ToDecimal
                                 If ChkPagarDolares.Checked Then Pago.TCCambioMoneda = TxtTCDolares.Text.ToDecimal
@@ -819,6 +820,7 @@ Partial Class Bancos_ProveedoresAbonar
 
                                 If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then
                                     MsgError = "No se pudo insertar la póliza"
+                                    Exit For
                                 End If
 
                                 'DESPROGRAMA LO PROGRAMADO DESPUES DE HACERLE UN PAGO
@@ -875,16 +877,8 @@ Partial Class Bancos_ProveedoresAbonar
                             End If
                         End If
 
-                        If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                            If Not ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                MsgError = "No se pudo simplificar los movimientos"
-                                Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
-                            End If
-                        End If
-
                         'Conta ContPAQ
                         If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
-
                             'If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjConta) Then
                             If ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, ObjConta:=ObjConta) Then
                                 IDPoliza = ObjMov.ContaIdPoliza