diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 9798e5937..83f46e6bd 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -2720,7 +2720,7 @@ Namespace Modelos
                                     End If
 
 
-                                    If ValorMultiplicador = -1 AndAlso UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso esMesAnterior Then
+                                    If ValorMultiplicador = -1 AndAlso UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso esMesAnterior AndAlso ObjFactura.CveMoneda = 2 Then
                                         Dim UltimaFluctuacion As ClsPaginas.MTipoCambioFluctuacion = ClsPaginas.GlobalTipoCambioUltimaFluctuacion(FechaCancelacion)
                                         If UltimaFluctuacion IsNot Nothing Then
                                             If UltimaFluctuacion.FechaFluctuacion < FechaCancelacion Then
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 361628548..2d757bc67 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14111,7 +14111,7 @@ Partial Class Ventas
                                         Pago.CveVentaAmortizacion = ObjFactura.CveVenta 'Dr("CveVenta").ToString().ToEntero()
                                         Pago.AplicaTraslado = False
                                         Pago.Referencia = Concepto
-                                        Pago.CveConceptoPago = 251
+                                        'Pago.CveConceptoPago = 251
 
                                         ErrorPrepoliza = AplicaPrePolizaPagoVenta(ventaRef, Pago, ObjFactura.CvePrePoliza, ObjConta)
 
@@ -16469,7 +16469,7 @@ Partial Class Ventas
                                         Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero()
                                         Pago.AplicaTraslado = gvr.DataKey("RegresarImpuesto") = "1"
                                         Pago.Referencia = gvr.DataKey("Folio")
-                                        Pago.CveConceptoPago = 251
+                                        'Pago.CveConceptoPago = 251
 
                                         ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta)
                                         SimplificaPrePoliza = False