From 1fa83173bf27ec0a96a0224f871ee4c930e00fbe Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Thu, 29 Aug 2019 11:49:37 -0700
Subject: [PATCH] IE permite actualizar  Folio y observacion cuando no esta
 consiliado y tiene complemento vigente

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

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 28c52df1c..57d76e13f 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -1088,6 +1088,7 @@ Partial Class Bancos_IE
             '2019-08-28 unificados vista de controles complemento  (Cancelado, conciliciado, Con complemento vigente, sin complemento vigente)
             Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
             Dim ExistenComplementos As Boolean = VerificaComplementos(False)
+
             If Not ChkConciliado.Checked And ObjIE.CveEstatusIE <> 2 Then
 
                 If (Not ExistenComplementosVigentes) Then
@@ -1101,7 +1102,13 @@ Partial Class Bancos_IE
 
                 Else
 
-                    BtnEditar.Visible = False
+                    If UsuarioActual.TienePermisoProceso(99) Then
+                        BtnEditar.Visible = True
+                        PermisoComplementoVigente = True
+                    Else
+                        BtnEditar.Visible = False
+                    End If
+
                     LnkEliminar.Visible = False
                     LnkCancelar.Visible = False
 
@@ -5647,15 +5654,24 @@ Partial Class Bancos_IE
 
     Private Sub ControlesEdicion()
 
+        Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
 
         If PermisoComplementoVigente Then
 
-            DdlTipoTransaccion.Enabled = True
-            LblCuenta.Visible = False
-            DdlCuenta.Enabled = True
-            DdlCuenta.Visible = True
-            TxtFolio.Enabled = True
-            TxtObservaciones.Enabled = True
+            If ExistenComplementosVigentes Then
+                TxtFolio.Enabled = True
+                TxtObservaciones.Enabled = True
+            Else
+
+                DdlTipoTransaccion.Enabled = True
+                LblCuenta.Visible = False
+                DdlCuenta.Enabled = True
+                DdlCuenta.Visible = True
+                TxtFolio.Enabled = True
+                TxtObservaciones.Enabled = True
+
+            End If
+
             UpDatos.Update()
 
             CargaCuentasDepositoClientes()