From f3ba2b444b077074561f475b1d0658126fddd3d4 Mon Sep 17 00:00:00 2001
From: janeth arvizu <janeth.arvizu@adssistemas.mx>
Date: Fri, 18 Oct 2019 14:58:00 -0700
Subject: [PATCH] DevDinC guarda Importe de Concepto 18 en Negativo

---
 Bancos/IE.aspx.vb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 09ab57456..f27e00567 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2809,8 +2809,9 @@ Partial Class Bancos_IE
                                 'CANCELA NC
                                 IdCtaContableAplicar = IDCtaBeneficiario
                                 ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
-
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, (ImporteAplicar), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then
+                                Dim Importe = If(DdlTipoTransaccion.SelectedValue.ToEntero = 7, ImporteAplicar * -1, ImporteAplicar) 'ImporteAplicar * -1
+
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, (Importe), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then
                                     MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
                                     Exit Select
                                 End If