diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index acb22ef22..442153439 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -851,7 +851,8 @@ Partial Class Bancos_ProveedoresAbonar
                                 CompraActual.EsImportacion = gvr.DataKey("EsImportacion") = "1"
                                 CompraActual.UsuarioActual = UsuarioActual
                                 CompraActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
-                                CompraActual.IdCtaContableProv = CtaProveedor
+                                CompraActual.IdCtaContableProv = If(CompraActual.CveMoneda >= 2, IdCtaContMonedaExtranjera, CtaProveedor)
+                                CompraActual.IdCtaContableProvComplementaria = IdCtaContComplementaria
 
                                 'Importe de pago
                                 Pago.ImportePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal