agregando validación al IE

Bancos/IE.aspx.vb

@@ -423,7 +423,19 @@ Partial Class Bancos_IE
         End Set
 
     End Property
+    Private Property PermisoComplementoVigente As Boolean
+        Get
+            If ViewState("PermisoComplementoVigente") Is Nothing Then
+                Return False
+            Else
+                Return CBool(ViewState("PermisoComplementoVigente"))
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("PermisoComplementoVigente") = value
+        End Set
 
+    End Property
 
 
 #Region "CANCELACIÓN COMPLEMENTO MODAL V2"
@@ -1090,6 +1102,9 @@ Partial Class Bancos_IE
 
                 If (Not VerificaComplementos(True)) And UsuarioActual.TienePermisoProceso(99) And ObjIE.CveEstatusIE <> 2 Then
                     BtnEditar.Visible = True
+                    PermisoComplementoVigente = True
+                Else
+                    BtnEditar.Visible = True
                 End If
 
                 UpGuardar.Update()
@@ -5598,14 +5613,14 @@ Partial Class Bancos_IE
         BtnEditar.Visible = False
         UpGuardar.Update()
 
-        ControlesEdicion(True)
+        ControlesEdicion()
 
     End Sub
 
-    Private Sub ControlesEdicion(mostrar As Boolean)
+    Private Sub ControlesEdicion()
 
 
-        If mostrar Then
+        If PermisoComplementoVigente Then
 
             DdlTipoTransaccion.Enabled = True
             LblCuenta.Visible = False
@@ -5617,12 +5632,11 @@ Partial Class Bancos_IE
 
             CargaCuentasDepositoClientes()
 
+        Else
+            TxtFolio.Enabled = True
+            TxtObservaciones.Enabled = True
 
-
-
-
-
-
+            UpDatos.Update()
         End If
 
     End Sub