From 039131293f23e7df166abeb72594765e535d62be Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 29 Jan 2025 12:21:50 -0700 Subject: [PATCH] =?UTF-8?q?--=20considerar=20el=20TC=20del=20d=C3=ADa=20ac?= =?UTF-8?q?tual=20para=20fechas=20futuras?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Transportes/RepContratoDetalle.aspx.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index 87fcf726c..272f108ad 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/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,