Ocultar (No Desactivar o Activar) elementos de un menu

[Oscar Berriozabal]

Hola a todos, desde hace algunos dias estoy atorado queriendo OCULTAR elementos de un menu (A criterio del usuario) pero simplemente no he podido. ¿Alguien puede ayudarme por favor?  estoy desesperado. Saludos

[Allan Raúl Acuña]

En el item del menu utiliza la opcion SKIP FOR, y le pones una condicion que te retorne .T. o .F.

Saludos cordiales.

Lic. Allan Raúl Acuña
Analista Programador
msn= allan...@hotmail.com
skype= NicEasySoft
            +(505) 8 831 8191     
Managua, Nicaragua

Centroamérica

---

Date: Wed, 18 Jun 2014 17:02:14 -0700
From: ozkar...@gmail.com
To: publice...@googlegroups.com
Subject: [vfp] Ocultar (No Desactivar o Activar) elementos de un menu

[MALKASOFT ADPI: http://www.developervfp.blogspot.com/]

Hola puedes usar el SKPBAR, Determina si un elemento de menú está activado o desactivado con SET SKIP OF. 

así lo puedes desactivar o puedes crear dinamicamente los menus por cada usuario dando los permisos necesarios, te adjunto un vídeo para que ves como se crear o da acceso al menu por cada usuario http://www.youtube.com/watch?v=EDNtpKfxyfU

Saludos; 

Ing. Russvell Jesus Soto Gamarra 

Canal YouTube: http://www.youtube.com/rycjesusrj

Blog: http://developervfp.blogspot.mx/

Framework Multi-conexion v6.0 trabaja cualquier base de datos

(SQLServer, MySQL, Firebird, MariaDB, PostgreSQL, Oracle y etc.) 

http://www.youtube.com/watch?v=PCCZvCaet74

[ZeRoberto]

Puedes usar esto

If gcUserID == "ADMIN"

  DEFINE BAR 3 OF mnuPopup3 PROMPT "Se vera solo si es Administrador"

EndIf

--
btnMyVideo.Click()

[ZeRoberto]

O en todo caso usa GENMENUX

http://www.aksel.com/genmenux/

--
btnMyVideo.Click()

[Ultraton500]

Ze Roberto, serías tan amable de comentar un poco sobre tu experiencia con GenMenux? (si es fácil de implementar, si tiene problemas de compatibilidad de algún tipo, si permite cambiar colores de fondo, agregar íconos, etc).

Desde ya muchas gracias.

Saludos,

Javier.

[ZeRoberto]

Si trabaja con el editor de Menú del mismo Fox solo que en el campo comentario se le agrega algunos códigos, para que realice algunas cosas. 

--
btnMyVideo.Click()

[Hector Colman]

Este es lo que tengo

Local menn_local,s

menn_local = 0

Select (This.RecordSource)

If Reccount() > 0

s = 1

Else

s = 0

Endif

Define Popup menucontex SHORTCUT Relative From Mrow(),Mcol()

Define Bar 1 Of menucontex Prompt "\<Nuevo..." Picture "iconos\NewsAdd.png" &&"iconos\WZNEW.BMP"

Define Bar 2 Of menucontex Prompt "\<Modificar..." Picture "iconos\NewsRemove.png" &&WZEDIT.BMP"

Define Bar 3 Of menucontex Prompt "\<Borrar..." Picture "iconos\newspaper_close_32.png" &&WZDELETE.BMP"

Define Bar 4 Of menucontex Prompt "\-"

Define Bar 5 Of menucontex Prompt "\<Cerrar" Picture "iconos\onebit_27.png"     &&PICTURE "iconos\salir.bmp"  cancel.png

*Set Skip Of Bar 1 Of menucontex v_privilegio7 = 0

* para deshabilitar 

Set Skip Of Bar 2 Of menucontex s = 0

Set Skip Of Bar 3 Of menucontex s = 0

On Selection Bar 1 Of menucontex menn_local = 1

On Selection Bar 2 Of menucontex menn_local = 2

On Selection Bar 3 Of menucontex menn_local = 3

On Selection Bar 4 Of menucontex menn_local = 4

On Selection Bar 5 Of menucontex menn_local = 5

Activate Popup menucontex

Do Case

Case menn_local = 1

Thisform.Panel.HOja1.COMmand1.Click

Case menn_local = 2

Thisform.modificar

Case menn_local = 3

v_cliente = clicodigo

Thisform.borrar

Case menn_local = 5

Thisform.cancelar

Endcase

[Víctor Hugo Espínola Domínguez]

Hola Oscar

Busca "menu dinamico" en el foro, el aporte de Daniel Fabre es muy bueno.

Saludos,

Víctor.

Lambaré - Paraguay.

[Ultraton500]

Gracias ZeRoberto por la info.

Saludos cordiales,

Javier.