diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 08c3873c6..a710b972e 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9205,7 +9205,7 @@ Public Class ClsPaginas
                 End If
                 If VentaActual.Fecha < tFechaUltimaFluctuacion Then TCValuacionVenta = TCValuacion
                 'si tiene fecha de documento, debe de evaluarse para su tc. y no la fecha de la prepóliza
-                If IIf(Pago.FechaDocumentoRelacionado > MinFecha, Pago.FechaDocumentoRelacionado, Pago.Fecha).ToString.ToDate < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
+                If IIf(Pago.FechaDocumentoRelacionado > MinFecha, Pago.FechaDocumentoRelacionado, Pago.Fecha).ToString.ToDate < tFechaUltimaFluctuacion AndAlso Pago.CveMonedaPago > 1 Then TCValuacionPago = TCValuacion
             End If
         End If
         If VentaActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then  'factura pesos, pago en dolares 
@@ -9215,7 +9215,7 @@ Public Class ClsPaginas
             tImporteVenta = (Pago.ImportePago * TCValuacionVenta).RoundSQL
             tImportePago = (Pago.ImportePago * TCValuacionPago).RoundSQL
         ElseIf VentaActual.CveMoneda <> 1 And Pago.CveMonedaPago = 1 Then  'factura dolares, pago en pesos
-            tImporteVenta = (Pago.ImportePago * TCValuacionVenta).RoundSQL
+            tImporteVenta = (Pago.ImportePagoVenta * TCValuacionVenta).RoundSQL
             tImportePago = (Pago.ImportePago * TCValuacionPago).RoundSQL
         End If
         If VentaActual.CveMoneda > 1 Then ImporteME = Pago.ImportePagoVenta