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()