From b2cb32c00bf38c52f63cbd94baa0f208faa3d848 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 20 Dec 2022 19:26:48 -0700 Subject: [PATCH] =?UTF-8?q?--=20mejora=20pago=20en=20d=C3=B3lares=20factur?= =?UTF-8?q?as=20en=20pesos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 7f8ceb36f..79c553a79 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9634,7 +9634,8 @@ Public Class ClsPaginas Dim TCValuacion As Decimal = CompraActual.TC Dim TCValuacionPago As Decimal = Pago.TCPago Dim tFechaUltimaFluctuacion As Date - Dim tImportePago, tImporteCompra As Decimal + Dim tImportePago As Decimal + Dim tImporteCompra As Decimal = Pago.ImportePago Dim CveConceptoContableComplementaria As Integer = 206 Pago.CveConceptoPago = If(Pago.CveConceptoPago = -1, 17, Pago.CveConceptoPago) 'si viene en parametro lo toma com primera opcion, sino el 17 @@ -9664,6 +9665,7 @@ Public Class ClsPaginas If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then 'factura pesos, pago en dolares tImportePago = ((Pago.ImportePago * TCValuacion / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL + tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago <> 1 Then 'factura dolares, pago en dolares tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL