AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://rpimienta@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Raul Pimienta
2019-08-29 13:19:57 -07:00
parent b079e768ab 7bc10804f8
commit b09185499b
1 changed files with 23 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Bancos/IE.aspx.vb
View File

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