diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 23bfd5a2b..48d7cad99 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -1144,7 +1144,7 @@ Partial Class Bancos_ProveedoresAbonar
             Else
                 CveMoneda = dr("CveMoneda").ToString.ToEntero
 
-                If dr("CveMoneda").ToString.ToEntero = 1 Then
+                If CveMoneda = 1 Then
                     RegistraScript("CambiaDolaresPesos();")
                 End If