Bancos/IE.aspx.vb

@@ -179,10 +179,19 @@ Partial Class Bancos_IE
             ViewState("FechaCompra") = value
         End Set
     End Property
+    Private Property CveIECancelacion As Integer
+        Get
+            If ViewState("CveIECancelacion") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveIECancelacion").ToString().ToEntero()
+            End If
 
-
-
-
+        End Get
+        Set(value As Integer)
+            ViewState("CveIECancelacion") = value
+        End Set
+    End Property
 
     Private Property ImporteOriginalDevDin As Decimal
         Get
@@ -1002,9 +1011,6 @@ Partial Class Bancos_IE
                 Select Case ObjIE.CveEstatusIE
                     Case 1
                         If Not ObjIE.FueConciliado Then
-                            'If UsuarioActual.TienePermisoProceso(85) Then ImgCancelarMovimiento.Visible = True
-                            If UsuarioActual.TienePermisoProceso(85) Then LnkCancelar.Visible = True
-
                             'ELIMINAR IE SIN VALIDACIONES
                             If UsuarioActual.TienePermisoProceso(80) AndAlso NumComplementos = 0 Then LnkEliminar.Visible = True
 
@@ -1014,6 +1020,8 @@ Partial Class Bancos_IE
                             End If
                         End If
 
+                        If UsuarioActual.TienePermisoProceso(85) Then LnkCancelar.Visible = True
+
                         ''COMENTAR - solo para pruebas
                         'If UsuarioActual.TienePermisoProceso(85) Then LnkCancelar.Visible = True
                         'If UsuarioActual.TienePermisoProceso(80) Then LnkEliminar.Visible = True
@@ -1134,6 +1142,7 @@ Partial Class Bancos_IE
                         LbMovimientoCancelado.Text = "Movimiento de Cancelación:"
                         HLIECancelacion.NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", ObjIE.CveIECancelacion)
                         HLIECancelacion.Text = ObjIE.FolioIECancelacion
+                        CveIECancelacion = ObjIE.CveIECancelacion
                     End If
 
                     'MOVIMIENTO CANCELADO
@@ -1233,7 +1242,7 @@ Partial Class Bancos_IE
                     End If
 
                     LnkEliminar.Visible = False
-                    LnkCancelar.Visible = False
+                    'LnkCancelar.Visible = False
 
                     LnkCancelarComplemento.Visible = True
                     LnkCancelarComplementoImporte.Visible = True
@@ -1243,7 +1252,7 @@ Partial Class Bancos_IE
 
             Else
                 BtnEditar.Visible = False
-                LnkEliminar.Visible = False
+                'LnkEliminar.Visible = False
                 LnkCancelarComplemento.Visible = False
                 LnkCancelarComplementoImporte.Visible = False
                 DVGenerarComplementoModal.Visible = False
@@ -4753,7 +4762,11 @@ Partial Class Bancos_IE
     End Sub
 
     Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Handles LnkEliminar.Click
-        RegistraScript(String.Format("$('#{0}').modal('show');", "divDescripcion"))
+        If CveIECancelacion > 0 Then
+            Alert("El Movimiento no se puede eliminar porque tiene una cancelación relacionada, se tiene que eliminar primero la cancelación", TipoMensaje.MsgAdvertencia)
+        Else
+            RegistraScript(String.Format("$('#{0}').modal('show');", "divDescripcion"))
+        End If
     End Sub
 #End Region
 
@@ -5990,11 +6003,36 @@ Partial Class Bancos_IE
 
     Protected Sub LnkCancelar_Click(sender As Object, e As EventArgs)
         If ChkConciliado.Checked Then
-            Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)
-            Exit Sub
+            TxtFechaDesconciliado.Text = Now.ToShortDateString
+            UpDesconciliar.Update()
+            RegistraScript("$('#DModalDesconciliar').modal()")
         End If
         RegistraScript("ShowDivCancelarIE();")
     End Sub
+    Protected Sub BtnDesconciliar_Click(sender As Object, e As EventArgs)
+        Dim ObjBancos As New ClsBancos
+        Dim ObjOI As New ClsOIEventos(ObjBancos.IniciaTransacSQL())
+        Dim ErrorTrans As Boolean = False
+
+
+        If ObjBancos.DesconciliarIE(CveIE, TxtFechaDesconciliado.Text.ToDate(), UsuarioActual.CveUsuario) Then
+            If Not ObjOI.AddEventoBitacora("El pago ha sido desconciliado", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
+                ErrorTrans = True
+            End If
+        Else
+            ErrorTrans = True
+        End If
+
+        If Not ErrorTrans Then
+            ObjBancos.Commit()
+            Alert("Desconciliado correctamente")
+            RegistraScript("$('#DModalDesconciliar').modal('hide')")
+        Else
+            ObjBancos.RollBack()
+        End If
+        ObjBancos.Dispose()
+        ObjOI.Dispose()
+    End Sub
 
     Private Sub LnkEmitirComplemento_Click(sender As Object, e As EventArgs) Handles LnkEmitirComplemento.Click
         GeneraTimbre()