-- moneda en dólares para pagos.

2025-01-31 12:36:51 -07:00
parent 5d4253ef95
commit c1b942809f
1 changed files with 1 additions and 0 deletions
--- 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