diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 3d7ffe631..3d2452ab8 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9652,15 +9652,17 @@ Public Class ClsPaginas
         Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
 
         Dim tFecha As Date = Pago.Fecha
-        Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
 
-        If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-            If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
-                tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
-                TCValuacion = UltimaFluctuacion.TCFluctuacion
+        If CompraActual.CveMoneda > 1 AndAlso UsuarioActual.Empresa.Funcionalidad(703) = "1" Then
+            Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
+            If UltimaFluctuacion IsNot Nothing Then
+                If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
+                    tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
+                    TCValuacion = UltimaFluctuacion.TCFluctuacion
+                End If
+                If CompraActual.Fecha < tFechaUltimaFluctuacion Then TCValuacion = TCValuacion
+                If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
             End If
-            If CompraActual.Fecha < tFechaUltimaFluctuacion Then TCValuacion = TCValuacion
-            If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
         End If
 
         If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then  'factura pesos, pago en dolares 
@@ -10125,16 +10127,17 @@ Public Class ClsPaginas
         Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
 
         Dim tFecha As Date = Pago.Fecha
-        Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
 
-        If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-            If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
-                tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
-                TCValuacion = UltimaFluctuacion.TCFluctuacion
+        If VentaActual.CveMoneda > 1 AndAlso UsuarioActual.Empresa.Funcionalidad(703) = "1" Then
+            Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
+            If UltimaFluctuacion IsNot Nothing Then
+                If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
+                    tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
+                    TCValuacion = UltimaFluctuacion.TCFluctuacion
+                End If
+                If VentaActual.Fecha < tFechaUltimaFluctuacion Then TCValuacion = TCValuacion
+                If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
             End If
-            If VentaActual.Fecha < tFechaUltimaFluctuacion Then TCValuacionVenta = TCValuacion
-            If Pago.FechaDocumentoRelacionado < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
-
         End If
 
         If VentaActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then  'factura pesos, pago en dolares