--FIX Moneda al facturar

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))