validación para mostrar una pesatña en ventas, en oc se recupera el usuario asignado

2020-09-01 11:04:53 -07:00
parent 98ca712342
commit 03b322f5f6
2 changed files with 12 additions and 2 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3668,7 +3668,7 @@ Partial Class Ventas
                                HlCuentaTerminal.Visible = True
                            End If
                            CargarSaldoAuxiliar(CveCliente)
-                            TabAuxiliarConta.Visible = True
+                            TabAuxiliarConta.Visible = UsuarioActual.TienePermisoProceso(306)
                            Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
                            If TienePermiso <> "" Then ' si tiene acceso en el subproyecto 
                                'LkNotaCredito.Visible = UsuarioActual.TienePermisoProceso(175)