From 86b4e0015c42a7c7aa4869bf4c179bc295eb252f Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 7 Jul 2022 18:41:38 -0700 Subject: [PATCH] =?UTF-8?q?--=20correci=C3=B3n=20de=20TCPAgo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 4c2548edd..a3c44fd31 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -7482,7 +7482,8 @@ Partial Class Compras_Compras Dim Pago As New CompraPago Pago.ImportePago = importeMovimiento Pago.CveIE = Ant.CveIE - Pago.CveMonedaPago = 1 + Pago.TCPago = Ant.TCCompra + Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1) ErrorPrepoliza = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)