From 8b18a6f9cc35820a0d429bbf19b90b19cd74193c Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 26 Nov 2024 20:04:10 -0700 Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20de=20aplicaci=C3=B3n=20d?= =?UTF-8?q?e=20Ant?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 77875fccb..6dd1247d9 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -7417,18 +7417,17 @@ Partial Class Compras_Compras Pago.ImportePago = importeMovimiento + ImporComisionAnticipo Pago.CveIE = Ant.CveIE Pago.TCPago = Ant.TCCompra + Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1) If Pago.CveMonedaPago = 1 AndAlso CompraActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en Pesos - Pago.TCPago = 1 ' TxtTC.Text.ToDecimal - Pago.TCCambioMoneda = Ant.TCCompra 'GlobalTipoCambio(Now).ToDecimal + Pago.TCPago = Ant.TCCompra ' TxtTC.Text.ToDecimal + Pago.TCCambioMoneda = 1 'GlobalTipoCambio(Now).ToDecimal If Ant.TCCompra = 1 Then Pago.TCCambioMoneda = 1 / GlobalTipoCambio(Ant.Fecha).ToDecimal End If - End If - Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1) Pago.OtroGastoIngreso = -ImporComisionAnticipo ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)