From ab61283f21df0f00c7b52edb4313630a88cd358e Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 16 Apr 2025 12:28:41 -0700
Subject: [PATCH] --dev ventas

---
 Bancos/IE.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index b419b6dd1..12b98c61b 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2314,7 +2314,7 @@ Partial Class Bancos_IE
                                 'CANCELA NC
                                 ImporteAplicar = ImporteAplicar - Impo
                                 ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), -(ImporteAplicarMN), 12, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteME:=ImporteAplicarME) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, (ImporteAplicar), -(ImporteAplicarMN), 91, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveVenta:=CveVentaDevDin, CveVentaAmortizacion:=CveVentaDevDin, CveCliente:=CveCliente, ImporteME:=ImporteAplicarME) Then
                                     MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
                                     Exit Select
                                 End If