correcion IE cancelado

Bancos/IE.aspx.vb

@@ -410,6 +410,21 @@ Partial Class Bancos_IE
         End Set
     End Property
 
+    Private Property CveEstatusIE As Integer
+        Get
+            If ViewState("CveEstatusIE") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveEstatusIE").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveEstatusIE") = value
+        End Set
+
+    End Property
+
+
 
 
 #Region "CANCELACIÓN COMPLEMENTO MODAL V2"
@@ -855,6 +870,8 @@ Partial Class Bancos_IE
                 LblRegistroFecha.Text = ObjIE.FechaIng.ToShortDateString
                 LblRegistroUsuario.Text = ObjIE.Usuario
 
+                CveEstatusIE = ObjIE.CveEstatusIE
+
                 Select Case ObjIE.CveEstatusIE
                     Case 1
                         If Not ObjIE.FueConciliado Then
@@ -954,6 +971,7 @@ Partial Class Bancos_IE
                 LnkComplementoPago.Visible = True
 
 
+
                 If ObjIE.CveEstatusIE = 1 AndAlso ObjIE.CveIECancelado > 0 Then
                     'cuando es cheque devuelto
                     TabCancelacion.Visible = True
@@ -1060,14 +1078,12 @@ Partial Class Bancos_IE
 
             If Not ChkConciliado.Checked Then
 
-
-                If Not VerificaComplementos(True) Then
+                If (Not VerificaComplementos(True)) And UsuarioActual.TienePermisoProceso(99) And ObjIE.CveEstatusIE <> 2 Then
                     BtnEditar.Visible = True
                 End If
 
                 UpGuardar.Update()
 
-
             End If
 
 
@@ -4763,25 +4779,25 @@ Partial Class Bancos_IE
 #Region "  COMPLEMENTOS PAGO  "
     Private Sub CargaComplementosPago()
 
+
+
+
         Dim ObjBancos As New ClsBancos
 
         If UsuarioActual.CveRol = 1 Then
             GvComplementoPagos.Columns(7).Visible = True
         End If
 
+        DVGenerarComplementoModal.Visible = False
 
         If ObjBancos.GetVincularPago(CveProveedor, CveCompra, 2, MinFecha, MaxFecha, UsuarioActual.CveEmpresa, CveIE) Then
 
             GvComplementoPagos.DataSource = ObjBancos.DtResultados
 
-            If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And UsuarioActual.CveRol = 1 Then
+            If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And UsuarioActual.CveRol = 1 And CveEstatusIE <> 2 Then
                 DVGenerarComplementoModal.Visible = True
-            Else
-
-                DVGenerarComplementoModal.Visible = False
             End If
         Else
-            DVGenerarComplementoModal.Visible = False
             GvComplementoPagos.DataSource = Nothing
         End If