From 4eb0fa3b6fe175388f4f1f3951dc4f6dfe57acbb Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 10 Feb 2024 08:56:35 -0700 Subject: [PATCH] - mejora en permisos --- Bancos/IE.aspx.vb | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 7d769f070..836808ff2 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -836,12 +836,8 @@ Partial Class Bancos_IE 'DdlBanco.SelectedValue = ObjIE.CveBanco.ToString 'Abono es Egreso Egs - - CargaTipoTransaccion(If(Tipo = "Abono", "Egs", "Ing")) DdlTipoTransaccion.SelectedValue = ObjIE.CveTipoTransaccion.ToString - - DdlCuenta.SelectedValueExist(ObjIE.CveCuenta.ToString) DdlCuenta.Visible = False @@ -1026,7 +1022,11 @@ Partial Class Bancos_IE LnkEliminar.Visible = True End If Else - If UsuarioActual.TienePermisoProceso(80) AndAlso ObjIE.CveTipoCuenta = 1 Then LnkDesconciliar.Visible = True + If UsuarioActual.CveEmpresa = 119 Then + If UsuarioActual.TienePermisoProceso(80) AndAlso ObjIE.CveTipoCuenta = 1 Then LnkDesconciliar.Visible = True + Else + If UsuarioActual.TienePermisoProceso(80) Then LnkDesconciliar.Visible = True + End If End If If UsuarioActual.TienePermisoProceso(85) AndAlso Not ObjIE.FueConciliado Then LnkCancelar.Visible = True @@ -1052,6 +1052,8 @@ Partial Class Bancos_IE LnkEliminar.Visible = True End If + If UsuarioActual.TienePermisoProceso(80) Then LnkDesconciliar.Visible = True + If UsuarioActual.CveUsuario = 100 Then ImprimirIEPDF(ObjIE.CveTipoTransaccion) End If