FoxPro/Visual FoxPro - Ayuda con menu

   
Vista:
Imágen de perfil de Ronaldo

Ayuda con menu

Publicado por Ronaldo (11 intervenciones) el 11/03/2010 19:49:40
hola amigos tengo en siguiente codigo que pertenese a un menú principal, yo quiero saber como hago para desactivar temporalmente algunas de las opciones que me permiten llamar a los forms o bien tambien poder desactivar alguna de las opcionse del menu. Esto con el fin de restringir el acceso a estos según sea el usuario.

CLOSE ALL
Procedure menIni
para oForm
_screen.BackColor = RGB(255,255,255)
_Screen.ICON= "C:\CR_UTILITIES\IMAGENES\ArcticFirefox.ICO"
_SCREEN.ADDOBJECT("oImg", "Image")
_SCREEN.oImg.PICTURE = "C:\CR_UTILITIES\IMAGENES\CR_UTILITIES.BMP"
_SCREEN.oImg.TOP = _SCREEN.HEIGHT/2 - _SCREEN.oImg.HEIGHT/2
_SCREEN.oImg.LEFT = _SCREEN.WIDTH/2 - _SCREEN.oImg.WIDTH/2
_SCREEN.oImg.VISIBLE = .T.

Define Menu MenIni Bar At Line 0 In (oForm.Name) Font 'Arial',10 Style 'A'
*Define Pad A3 Of MenIni Prompt cFecha(DATE()) Font 'Arial Narrow',16 Style 'B'
Define Pad A1 Of MenIni Prompt '\<Opciones Generales'
Define Pad A2 Of MenIni Prompt '\<Contratos'
Define Pad A3 Of MenIni Prompt '\<Prorrogas'
Define Pad A4 Of MenIni Prompt '\<Cancelaciones'
Define Pad A5 Of MenIni Prompt '\<Ventas'
Define Pad A6 Of MenIni Prompt '\<Saca'
Define Pad A7 Of MenIni Prompt '\<Salir'



On Pad A1 Of MenIni Activate PopUp UtileriasA
On Pad A2 Of MenIni Activate PopUp UtileriasB
On Pad A3 Of MenIni Activate PopUp UtileriasC
On Pad A4 Of MenIni Activate PopUp UtileriasD
On Pad A5 Of MenIni Activate PopUp UtileriasE
On Pad A6 Of MenIni Activate PopUp UtileriasF

On Selection Pad A7 Of MenIni Do SalirIni

*****************************A
Define PopUp UtileriasA Relative Font gcFontMenu,gnSizeMenu Style gcStyleMenu
Define Bar 1 Of UtileriasA Prompt '\<Cambio de clave'
On Selection Bar 1 Of UtileriasA DO FORM ../CLAVE/cambio_clave
*****************************B
Define PopUp UtileriasB Relative Font gcFontMenu,gnSizeMenu Style gcStyleMenu
Define Bar 1 Of UtileriasB Prompt '\<Captura Contratos'
Define Bar 2 Of UtileriasB Prompt '\<Captura Contratos por Numeros'
Define Bar 3 Of UtileriasB Prompt '\-'
Define Bar 4 Of UtileriasB Prompt '\<Modifica Registro Contratos'
Define Bar 5 Of UtileriasB Prompt '\-'
On Selection Bar 1 Of UtileriasB DO FORM ../FORMCONTRATOS/contratos
On Selection Bar 2 Of UtileriasB DO FORM ../FORMCONTRATOS/contratos02
On Selection Bar 4 Of UtileriasB DO FORM ../llave_contratos


*****************************C
Define PopUp UtileriasC Relative Font gcFontMenu,gnSizeMenu Style gcStyleMenu
Define Bar 1 Of UtileriasC Prompt '\<Captura Prorrogas'
Define Bar 2 Of UtileriasC Prompt '\<Elimina Prorroga'
Define Bar 3 Of UtileriasC Prompt '\<Corrige Fecha Prorroga'
On Selection Bar 1 Of UtileriasC DO FORM ../FORMPRORROGAS/prorrogas
On Selection Bar 2 Of UtileriasC DO FORM .../Elimina_prorroga
On Selection Bar 3 Of UtileriasC DO FORM ..../cambiofech_prorroga
****************************D
Define PopUp UtileriasD Relative Font gcFontMenu,gnSizeMenu Style gcStyleMenu
Define Bar 1 Of UtileriasD Prompt '\<Captura Cancelaciones'
Define Bar 2 Of UtileriasD Prompt '\<Corregir Fecha de Cancelación'
Define Bar 3 Of UtileriasD Prompt '\<Reingresa Contrato'
On Selection Bar 1 Of UtileriasD DO FORM ../FORMCANCELA/cancelaciones
On Selection Bar 2 Of UtileriasD DO FORM ..../corrige_fcance
On Selection Bar 3 Of UtileriasD DO FORM ..../reingreso_contrato
****************************E
Define PopUp UtileriasE Relative Font gcFontMenu,gnSizeMenu Style gcStyleMenu
Define Bar 1 Of UtileriasE Prompt '\<Captura Ventas'
Define Bar 2 Of UtileriasE Prompt '\<Ingresar Compras'
Define Bar 3 Of UtileriasE Prompt '\<Reingresa Venta'
Define Bar 4 Of UtileriasE Prompt '\-'
Define Bar 5 Of UtileriasE Prompt '\<Modifica Registro Ventas'
Define Bar 6 Of UtileriasE Prompt '\-'
On Selection Bar 1 Of UtileriasE DO FORM ../FORMVENTAS/ventas
On Selection Bar 2 Of UtileriasE DO .../ventas
On Selection Bar 3 Of UtileriasE DO FORM .../correcion_ventas
On Selection Bar 5 Of UtileriasE DO FORM ..\permiso
ENDIF
*****************************F
Define PopUp UtileriasF Relative Font gcFontMenu,gnSizeMenu Style gcStyleMenu
Define Bar 1 Of UtileriasF Prompt '\<Cancela Saca'
On Selection Bar 1 Of UtileriasF DO FORM ./SACA
****************************FIN

Activate Menu MenIni NoWait
EndProc

Proc SalirIni

Deacti Menu MenIni
Release Menus MenIni Extended
CLEAR EVENTS
EndProc

gracias...
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