diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index c0a61447e..2a836730e 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -1570,6 +1570,7 @@ Partial Class Ventas_PVCobranza
                     Pago.CveMonedaPago = VentaActual.CveMoneda
                     Pago.Fecha = NowADS()
                     Pago.Referencia = VentaActual.SerieFolio
+                    If Pago.CveMonedaPago > 1 Then Pago.TCPago = GlobalTipoCambio(Now).ToDecimal
 
                     ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta)
                 End If