From c1b942809f90dcf366eb27ad7fdc50b321a73c64 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 31 Jan 2025 12:36:51 -0700
Subject: [PATCH] =?UTF-8?q?--=20moneda=20en=20d=C3=B3lares=20para=20pagos.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/PVCobranza.aspx.vb | 1 +
 1 file changed, 1 insertion(+)

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