- mejora en permisos

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