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