From 0d77883d189837d1e3ee783d9fd2372cc1346b9c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 9 Mar 2021 19:32:07 -0700
Subject: [PATCH] =?UTF-8?q?--=20activaci=C3=B3n=20de=20eliminar=20--=20env?=
 =?UTF-8?q?io=20de=20parametro=20para=20aplicar=20devoluci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/IE.aspx.vb | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 7324ffd30..cc93a3b98 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -767,12 +767,12 @@ Partial Class Bancos_IE
 
 
 
-            If TabCancelacion.Visible Then
-                LnkCancelar.Visible = False
-                LnkCancelarComplemento.Visible = False
-                LnkEliminar.Visible = False
-                LnkCancelarComplementoImporte.Visible = False
-            End If
+            'If TabCancelacion.Visible Then
+            '    LnkCancelar.Visible = False
+            '    LnkCancelarComplemento.Visible = False
+            '    'LnkEliminar.Visible = False
+            '    LnkCancelarComplementoImporte.Visible = False
+            'End If
 
             UppEliminarIE.Update()
 
@@ -4490,14 +4490,17 @@ Partial Class Bancos_IE
                 GeneraCancelacionEnCero = True
             End If
 
+            Dim TipoMovimiento As Integer = 1
+
             If ChkGeneraCancelacion.Checked AndAlso GeneraCancelacionEnCero Then
                 GeneraCancelacionEnCero = False
+                TipoMovimiento = 2
             End If
             Dim CvePrePolizaCancelacion As Integer = 0
 
             If Not GeneraCancelacionEnCero Then
                 'CANCELA IE MES ANTERIOR
-                CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero)
+                CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, TipoMovimiento:=TipoMovimiento, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero)
                 If CvePrePolizaCancelacion <= 0 Then
                     ErrorCancelar = True
                     MensajeError = "Error al cancelar IE MES ANTERIOR"