From 97f7e607112bef981e1fa9b0365bada682f16625 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 14 Jan 2025 17:43:57 -0700
Subject: [PATCH] --FIX Moneda al facturar

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

diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index 7138981c5..3d6b8452f 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -1012,6 +1012,13 @@ Partial Class Ventas_PVCobranza
             End If
 
             Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, VentaRemision.CveSubProyecto, VentaRemision.CveCliente, VentaRemision.CveMoneda, "Ing")
+            ObjFactura.CveMoneda = VentaRemision.CveMoneda
+
+            If ObjFactura.CveMoneda = 2 Then
+                ObjFactura.TipoCambio = GlobalTipoCambio(Now).ToString().ToDecimal()
+            Else
+                ObjFactura.TipoCambio = 1
+            End If
 
             ObjFactura.RemisionesLista = RemisionesLista
             ObjFactura.DtRemisionesPS = DtRemisionesPS
@@ -1234,6 +1241,12 @@ Partial Class Ventas_PVCobranza
 
         Try
             Dim ObjNC = Modelos.Factura.CrearVentaNueva(UsuarioActual, Venta.CveSubProyecto, Venta.CveCliente, Venta.CveMoneda, "Egs")
+            ObjNC.CveMoneda = Venta.CveMoneda
+            If ObjNC.CveMoneda = 2 Then
+                ObjNC.TipoCambio = GlobalTipoCambio(Now).ToString().ToDecimal()
+            Else
+                ObjNC.TipoCambio = 1
+            End If
 
             Dim Total As Decimal = TxtNCDev.Text.ToDecimal()
             Dim subTotal As Decimal = (Total / (1D + Venta.PorcentajeIVA))