FoxPro/Visual FoxPro - desactivar menu y submenu

   
Vista:

desactivar menu y submenu

Publicado por gustavo (34 intervenciones) el 08/07/2008 02:25:26
buenas a todos

cree un menu con nombre menualumnos y coloq por ahora lo siguient
ARCHIVO-SALIR
ALUMNOS-inasistencia-notas(submenues)
ADMINISTRACION-usuarios-copia de seguridad(submenues)
DATOS NECESARIOS-notas-materias
ACERCA DE

como podria dsactivar la barra d menu completo y tambien solo un menu por ejemplo ADMINISTRACION
otra cosa k kiero hacer es desactivar del menu ADMINISTRACION el submenu usuarios y dejar activo copia de seguridad
todo esto lo kiero hacer debido a los niveles de usuario
USUARIO NORMAL
USUARIO ADMINISTRADOR

gracias y hata pronto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:desactivar menu y submenu

Publicado por Saul (El Guatemalteco...) (676 intervenciones) el 08/07/2008 06:28:37
Hay una opcion el menu que se llama skip for alli pones una variable segun si tu usuario tiene o no acceso.

ejemplo.

Te muestro un pequeno ejemplo para que te des idea.
pero tu tienes que hacer tu meno no asi como te lo muestro sino con el creador de menus. alli con el SKIP FOR esta un acceso_menu [1,2] es un arreglo que traigo de una tabla de datos de accesos que le asigno a cada usuario.

Suerte.


SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1w10xrtz6 OF _MSYSMENU PROMPT "<Archivo" COLOR SCHEME 3 ;
DEFINE PAD _1w10xrtzc OF _MSYSMENU PROMPT "<Salir" COLOR SCHEME 3 ;
KEY ALT+S, ""
ON PAD _1w10xrtz6 OF _MSYSMENU ACTIVATE POPUP archivo
ON SELECTION PAD _1w10xrtzc OF _MSYSMENU;
DO _1w10xrtzd ;
IN LOCFILE("VENTASLIBRERIAMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

DEFINE POPUP archivo MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF archivo PROMPT "Catalogo de Empresas" ;
SKIP FOR !acces_menu[1,2]
DEFINE BAR 2 OF archivo PROMPT "Catalogo de Clientes" ;
SKIP FOR !acces_menu[2,2]
DEFINE BAR 3 OF archivo PROMPT "Catalogo de Cobradores" ;
SKIP FOR !acces_menu[3,2]
DEFINE BAR 4 OF archivo PROMPT "Catalogo de Vendedores" ;
SKIP FOR !acces_menu[4,2]
DEFINE BAR 5 OF archivo PROMPT "Catalogo de Coordinadores"
DEFINE BAR 6 OF archivo PROMPT "Catalogo de Rubros para Cobros" ;
SKIP FOR !acces_menu[5,2]
DEFINE BAR 7 OF archivo PROMPT "Catalogo de Rubros para Ventas" ;
SKIP FOR !acces_menu[6,2]
DEFINE BAR 8 OF archivo PROMPT "Catalogo de Bancos" ;
SKIP FOR !acces_menu[7,2]
DEFINE BAR 9 OF archivo PROMPT "Catalogo de Bancos Contables" ;
SKIP FOR !acces_menu[11,2]
DEFINE BAR 10 OF archivo PROMPT "Catalogo de Terrenos" ;
SKIP FOR !acces_menu[8,2]
DEFINE BAR 11 OF archivo PROMPT "Catalogo de Departamento" ;
SKIP FOR !acces_menu[9,2]
DEFINE BAR 12 OF archivo PROMPT "Catalogo de Municipio" ;
SKIP FOR !acces_menu[10,2]
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:desactivar menu y submenu

Publicado por gustavo (34 intervenciones) el 09/07/2008 00:41:42
hola

lo voy a probar pero no me kdo muy claro
muchas gracias y hasta pronto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar