diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index e6d65eee3..710d7e509 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -174,12 +174,6 @@ Partial Class Bancos_ProveedoresAbonar
             ViewState("PermiteModificarImporte") = value
         End Set
     End Property
-    Private ReadOnly Property IdCtaContMonedaExtranjera As Integer
-        Get
-            Return ViewState("IdCtaContMonedaExtranjera").ToString.ToEntero
-        End Get
-    End Property
-
     Private ReadOnly Property IdCtaContComplementaria As Integer
         Get
             Return ViewState("IdCtaContComplementaria").ToString.ToEntero
@@ -265,7 +259,6 @@ Partial Class Bancos_ProveedoresAbonar
         If Not Page.IsPostBack Then
 
             If Not UsuarioActual.Empresa.UsaAC Then
-                ViewState("IdCtaContMonedaExtranjera") = 0
                 ViewState("IdCtaContComplementaria") = 0
                 ViewState("IdCtaContRetIVA") = 0
                 ViewState("IdCtaContRetISR") = 0
@@ -851,7 +844,7 @@ Partial Class Bancos_ProveedoresAbonar
                                 CompraActual.EsImportacion = gvr.DataKey("EsImportacion") = "1"
                                 CompraActual.UsuarioActual = UsuarioActual
                                 CompraActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
-                                CompraActual.IdCtaContableProv = If(CompraActual.CveMoneda >= 2, IdCtaContMonedaExtranjera, CtaProveedor)
+                                CompraActual.IdCtaContableProv = If(CompraActual.CveMoneda >= 2, IdCtaProveedorExtranjera, CtaProveedor)
                                 CompraActual.IdCtaContableProvComplementaria = IdCtaContComplementaria
 
                                 'Importe de pago