From f0522e462755a74ba1a69183dcd5ea61b9434e7a Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 16 Jan 2024 18:07:03 -0700 Subject: [PATCH] =?UTF-8?q?--=20mejora=20aplicaci=C3=B3n=20de=20pago=20usd?= =?UTF-8?q?-mxn?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 08c3873c6..a710b972e 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9205,7 +9205,7 @@ Public Class ClsPaginas End If If VentaActual.Fecha < tFechaUltimaFluctuacion Then TCValuacionVenta = TCValuacion 'si tiene fecha de documento, debe de evaluarse para su tc. y no la fecha de la prepóliza - If IIf(Pago.FechaDocumentoRelacionado > MinFecha, Pago.FechaDocumentoRelacionado, Pago.Fecha).ToString.ToDate < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion + If IIf(Pago.FechaDocumentoRelacionado > MinFecha, Pago.FechaDocumentoRelacionado, Pago.Fecha).ToString.ToDate < tFechaUltimaFluctuacion AndAlso Pago.CveMonedaPago > 1 Then TCValuacionPago = TCValuacion End If End If If VentaActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then 'factura pesos, pago en dolares @@ -9215,7 +9215,7 @@ Public Class ClsPaginas tImporteVenta = (Pago.ImportePago * TCValuacionVenta).RoundSQL tImportePago = (Pago.ImportePago * TCValuacionPago).RoundSQL ElseIf VentaActual.CveMoneda <> 1 And Pago.CveMonedaPago = 1 Then 'factura dolares, pago en pesos - tImporteVenta = (Pago.ImportePago * TCValuacionVenta).RoundSQL + tImporteVenta = (Pago.ImportePagoVenta * TCValuacionVenta).RoundSQL tImportePago = (Pago.ImportePago * TCValuacionPago).RoundSQL End If If VentaActual.CveMoneda > 1 Then ImporteME = Pago.ImportePagoVenta