-- activación de eliminar

-- envio de parametro para aplicar devolución

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"