-- considerar el TC del día actual para fechas futuras

Transportes/RepContratoDetalle.aspx.vb

@@ -701,13 +701,14 @@ Partial Class RepContratoDetalle
 
         Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
         Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero()
-        Dim TC As Decimal = If(CveMonedaNew = 2, GlobalTipoCambio(FechaVenta).ToDecimal, 1)
+        'validación si es una fecha posterior, que tome el día actual
+        Dim TC As Decimal = If(CveMonedaNew = 2, GlobalTipoCambio(If(FechaVenta > Now, NowADS(), FechaVenta)).ToDecimal, 1)
 
         Try
             If Not ObjVentas.UpdateVentas(SubTotalNew, 0, IVANew, 0, TotalNew, CveMonedaNew, TC, FechaVenta, DescripcionNew,
                                       UsuarioActual.CveEmpresa, CveVentaRemision,
                                       Vigencia:=FechaVenta, CondicionesPago:=-1,
-                                      PedidoContrato:="-1", AtencionA:="-1", CveMetodoPago:=-1,
+                                      PedidoContrato:="-1", AtencionA:="-1", CveMetodoPago33:=-1,
                                       CveFormaPago33:=-1, TipoDocto:="Rem", CveCliente:=CveClienteNew, CveClienteSucursal:=-1,
                                       OrdenCompra:="-1", RetIVA:=0, RetISR:=0, Kilometraje:=0D, CveUsoCFDi:=-1,
                                       CveVendedor:=-1, ServicioDomicilio:=False, CveMedico:=-1, CveProcedimiento:=-1,