IE permite actualizar Folio y observacion cuando no esta consiliado y tiene complemento vigente
This commit is contained in:
@@ -1088,6 +1088,7 @@ Partial Class Bancos_IE
|
|||||||
'2019-08-28 unificados vista de controles complemento (Cancelado, conciliciado, Con complemento vigente, sin complemento vigente)
|
'2019-08-28 unificados vista de controles complemento (Cancelado, conciliciado, Con complemento vigente, sin complemento vigente)
|
||||||
Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
|
Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
|
||||||
Dim ExistenComplementos As Boolean = VerificaComplementos(False)
|
Dim ExistenComplementos As Boolean = VerificaComplementos(False)
|
||||||
|
|
||||||
If Not ChkConciliado.Checked And ObjIE.CveEstatusIE <> 2 Then
|
If Not ChkConciliado.Checked And ObjIE.CveEstatusIE <> 2 Then
|
||||||
|
|
||||||
If (Not ExistenComplementosVigentes) Then
|
If (Not ExistenComplementosVigentes) Then
|
||||||
@@ -1101,7 +1102,13 @@ Partial Class Bancos_IE
|
|||||||
|
|
||||||
Else
|
Else
|
||||||
|
|
||||||
BtnEditar.Visible = False
|
If UsuarioActual.TienePermisoProceso(99) Then
|
||||||
|
BtnEditar.Visible = True
|
||||||
|
PermisoComplementoVigente = True
|
||||||
|
Else
|
||||||
|
BtnEditar.Visible = False
|
||||||
|
End If
|
||||||
|
|
||||||
LnkEliminar.Visible = False
|
LnkEliminar.Visible = False
|
||||||
LnkCancelar.Visible = False
|
LnkCancelar.Visible = False
|
||||||
|
|
||||||
@@ -5647,15 +5654,24 @@ Partial Class Bancos_IE
|
|||||||
|
|
||||||
Private Sub ControlesEdicion()
|
Private Sub ControlesEdicion()
|
||||||
|
|
||||||
|
Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
|
||||||
|
|
||||||
If PermisoComplementoVigente Then
|
If PermisoComplementoVigente Then
|
||||||
|
|
||||||
DdlTipoTransaccion.Enabled = True
|
If ExistenComplementosVigentes Then
|
||||||
LblCuenta.Visible = False
|
TxtFolio.Enabled = True
|
||||||
DdlCuenta.Enabled = True
|
TxtObservaciones.Enabled = True
|
||||||
DdlCuenta.Visible = True
|
Else
|
||||||
TxtFolio.Enabled = True
|
|
||||||
TxtObservaciones.Enabled = True
|
DdlTipoTransaccion.Enabled = True
|
||||||
|
LblCuenta.Visible = False
|
||||||
|
DdlCuenta.Enabled = True
|
||||||
|
DdlCuenta.Visible = True
|
||||||
|
TxtFolio.Enabled = True
|
||||||
|
TxtObservaciones.Enabled = True
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
UpDatos.Update()
|
UpDatos.Update()
|
||||||
|
|
||||||
CargaCuentasDepositoClientes()
|
CargaCuentasDepositoClientes()
|
||||||
|
|||||||
Reference in New Issue
Block a user