FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ayuda con Men煤s.
Posts: 199
Joined: Tue Apr 22, 2008 09:54 AM
Ayuda con Men煤s.
Posted: Thu Feb 19, 2009 10:41 AM
Tengo una aplicaci贸n, en la que se est谩 empezando a desarrollar su c贸digo. En la misma, hay un men煤, el cual tiene opciones que ya "hacen algo" y otras opciones que a煤n no hacen nada, no tienen un ACTION asociado a煤n. Mi duda es c贸mo poder decirle que me desactive esas opciones de men煤, sin poner la cl谩usula DISABLED. Lo quiero hacer as铆, asutom谩tico, porque luego me puede servir para hacer un control de acceso a men煤s seg煤n usuario.

Gracias!

Code (fw): Select all Collapse
function crea_menu()
********************************************************************************************
聽local oMenu
聽 MENU oMenu
聽 聽 聽 聽MENUITEM "Archivo"
聽 聽 聽 聽MENUITEM "Mantenimiento Ficheros"
聽 聽 聽 聽 聽 聽 聽 MENU
聽 聽 聽 聽 聽 聽 聽 聽 聽 MENUITEM "Mantenimiento Art铆culos" MESSAGE "Altas / Bajas / Modificaci贸n de Art铆culos" ACTION MANART()
聽 聽 聽 聽 聽 聽 聽 聽 聽 MENUITEM "Mantenimiento Clientes" MESSAGE "Altas / Bajas / Modificaci贸n de Clientes" ACTION MANCLI()
聽 聽 聽 聽 聽 聽 聽 聽 聽 MENUITEM "Mantenimiento Proveedores" MESSAGE "Altas / Bajas / Modificaci贸n de Proveedores" ACTION MANPRO()
聽 聽 聽 聽 聽 聽 聽 聽 聽 MENUITEM "Mantenimiento Agentes" MESSAGE "Altas / Bajas / Modificaci贸n de Agentes"
聽 聽 聽 聽 聽 聽 聽 聽 聽 MENUITEM "Mantenimiento Subfamilias" MESSAGE "Altas / Bajas / Modificaci贸n de Subfamilias"
聽 聽 聽 聽 聽 聽 聽 聽 聽 MENUITEM "Mantenimiento Familias" MESSAGE "Altas / Bajas / Modificaci贸n de Familias"
聽 聽 聽 聽 聽 聽 聽 聽 聽 MENUITEM "Mantenimiento Almacenes" MESSAGE "Altas / Bajas / Modificaci贸n de Almacenes"
聽 聽 聽 聽 聽 聽 聽 聽 聽 MENUITEM "Mantenimiento Empresas" MESSAGE "Altas / Bajas / Modificaci贸n de Empresas" ACTION MANEMP()
聽 聽 聽 聽 聽 聽 聽 聽 聽 MENUITEM "Mantenimiento Fichas T茅cnias" MESSAGE "Altas / Bajas / Modificaci贸n de Fichas T茅cnicas"
聽 聽 聽 聽 聽 聽 聽 ENDMENU
聽ENDMENU
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Re: Ayuda con Men煤s.
Posted: Thu Feb 19, 2009 11:42 AM
Hola

Yo lo que hago es a帽adirle
Code (fw): Select all Collapse
When Publicas:cAccesot=.T.


Donde Publicas:cAcccesot es una variable publica que se carga al iniciar la aplicaci贸n con valor .F., y cuando la aplicaci贸n te pregunta la clave de usuario, pues dependiendo del tipo de acceso de permite o no.
Todas las variables plublicas las guardo en datas dentro de una funci贸n.
No se si es lo que quieres
--------------------------

Saludos



Jose Luis
Posts: 199
Joined: Tue Apr 22, 2008 09:54 AM
Re: Ayuda con Men煤s.
Posted: Thu Feb 19, 2009 11:58 AM
JoseLuis wrote:Hola

Yo lo que hago es a帽adirle
Code (fw): Select all Collapse
When Publicas:cAccesot=.T.


Donde Publicas:cAcccesot es una variable publica que se carga al iniciar la aplicaci贸n con valor .F., y cuando la aplicaci贸n te pregunta la clave de usuario, pues dependiendo del tipo de acceso de permite o no.
Todas las variables plublicas las guardo en datas dentro de una funci贸n.
No se si es lo que quieres



Jose Luis,

Muchas gracias. Algo as铆 hab铆a pensado para el control de usuarios, pero buscaba algo m谩s para de momento, mientras se va haciendo, me sirviese igualmente para el otro prop贸sito, que mientras no tengan un ACTION asociado las muestre desactivadas. Imagino que pueda hacerse con una DATA que tiene la clase que es... lActive, lo que no encuentro es c贸mo saber si tiene un ACTION asociado.

GRACIAS!
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: Ayuda con Men煤s.
Posted: Thu Feb 19, 2009 12:42 PM
Hola amigo...
Yo en vez de dejar la opci贸n del men煤 disable opt茅 por llamar una funci贸n que levante el siguiente di谩logo. Una vez desarrollada esa opci贸n del men煤 cambio esta funci贸n por la funci贸n final. Me parece que el usuario de esa forma entiende tambi茅n el p贸rque de la no funcionalidad de la opci贸n.



Espero te sirva la idea.
Saludos desde Argentina, Esteban.
Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
Posts: 199
Joined: Tue Apr 22, 2008 09:54 AM
Re: Ayuda con Men煤s.
Posted: Thu Feb 19, 2009 03:41 PM

Amigo Esteban,

Muchas gracias por tu sugerencia, adem谩s algo as铆 es por lo que optado (la verdad que con menos dise帽o que lo t煤 nos muestras :oops: ), pero ahora sinceramente, ya me ha entrado, despu茅s de echar varias horas buscando la manera, el gusanillo de saber si existe la manera de saber si un Item de men煤 tiene asociado un ACTION. Ya no es cuesti贸n de buscar una soluci贸n a lo que quer铆a pues las sugerencias han sido bien recibidas, pero ahora me gustar铆a saber ese otro aspecto. A ver si alguien sabe respondernos ese punto.

MUCHAS GRACIAS!

Saludos!

Posts: 325
Joined: Sun Feb 03, 2008 11:04 PM
Re: Ayuda con Men煤s.
Posted: Fri Feb 20, 2009 09:33 AM

Estimados

Mi sujerencia...

Al Usuario de entrada le asigno una variavle (alfanumerica) en la cual registro el acceso del menu que quiero que tenga, ejemplo ATRIBUTO:='SSSXSXXX', en la cual en el lugar que tengo la 'S' es que quiero que entre... y lo unico que hago al menu es colocar la clausula: WHEN SUBSTR(ATRIBUTO,1,1)=='S'.

Es simple pero me funciona...

salu2

david

Continue the discussion