FoxPro/Visual FoxPro - menu

   
Vista:
Imágen de perfil de ronaldo

menu

Publicado por ronaldo (11 intervenciones) el 12/03/2010 16:29:11
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

RE:menu

Publicado por Oscar Ramirez (37 intervenciones) el 12/03/2010 17:20:28
Con la Propiedad Skip For

Debes condicionarla con una variable y cuando la variable toma un valor en el Skip For colocas la variable y el valor que toma cuando quieres que se desactive la opcion

Por ejemplo Skip For Colocas C = 1

Entonces cuando le das click en el form en alguna parte colocas que C = 1
y automticamente se desactiva la opcion del Menu.

Cordial saludo
espero que haya sido claro.
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
Imágen de perfil de ronaldo

RE:menu

Publicado por ronaldo (11 intervenciones) el 12/03/2010 17:43:14
hal amigo gracias por contestar talves tengas algunos ejemplos de la consulta ue me puedas facilitar

gracias
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:menu

Publicado por Oscar Ramirez (37 intervenciones) el 12/03/2010 19:16:22
Descarga este pequeño programita y hay encontraras ejemplo de lo que necesitas

http://cid-4c021bee25e17026.skydrive.live.com/self.aspx/P%C3%BAblico/Agenda.zip?lc=22538

Colcas la carpeta en la ruta C:\
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