cGroupe est une chaine = gpwRecupInfoUtilisateur(gpwInfoGroupe)
Procedure EtatElement(cElement)
ENTERNE GPWCONFIGURATIONELEMENT
cGroupe est une chaine = gpwRecupInfoUtilisateur
(gpwInfoGroupe)
nEtat est un entier = -1
si hLitRecherchePremier(GPWCONFIGURATIONELEMENT,"configuration_element",...
hConstruitValCle(GPWCONFIGURATIONELEMENT,"configuration_element",cGroupe,cElement)) alors
nEtat = {"GPWCONFIGURATIONELEMENT.etat",indRubrique}
Fin
Renvoyer nEtat
si EtatElement("Menu._Menu.Fichier")=Actif alors
...
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=454&post_id=1592