4D Doc Center : WR VERROUILLER COMMANDE

4D Write v14

WR VERROUILLER COMMANDE


WR VERROUILLER COMMANDE ( zone ; cmdNo ; verrouillé )

Paramètre	Type	Description
zone	Entier long	Zone 4D Write
cmdNo	Entier long	Numéro de commande à traiter
verrouillé	Entier	0=permet l'exécution 1=interdit l'exécution

Description

La commande WR VERROUILLER COMMANDE permet d'empêcher ou non l'exécution par l'utilisateur de la commande passée en paramètre. Ces commandes peuvent être localisées dans les menus (ce qui permet d’utiliser les menus de 4D Write par programmation) ou dans les palettes.

Vous pouvez passer dans le paramètre verrouillé l'une des constantes suivantes, placées dans le thème "WR Paramètres" :

Constante	Type	Valeur	Commentaire
wr commande déverrouillée	Entier long	0	La commande s'exécutera lorsqu'elle sera appelée.
wr commande verrouillée	Entier long	1	La commande ne s'exécutera pas lorsqu'elle sera appelée et elle apparaîtra grisée dans les menus et palettes où elle est présente.

Attention :

Si vous avez verrouillé une commande, vous pourrez toutefois, par programmation, l'exécuter avec la commande WR EXECUTER COMMANDE.
Par contre, WR APPELER SUR COMMANDE ne sera pas appelé si l'utilisateur tente d'actionner une commande (elle est grisée).
Lorsqu'un menu ou un sous-menu est passé dans cmdNo, le menu et toutes ses commandes sont grisés.

Notez que les commandes du menu verrouillé ne seront plus accessibles lors du déroulement du menu, toutefois celles qui possèdent un équivalent clavier ou une représentation dans les palettes pourront toujours être exécutées. Si vous désirez verrouiller complètement ces commandes, il vous faudra utiliser WR VERROUILLER COMMANDE spécifiquement sur chacune d'entre elles.

Note : La liste des menus, commandes et de leur référence vous est fournie dans le thème de constantes “WR Commandes”. Vous pouvez indifféremment passer la valeur ou la constante.

Exemple 1

Vous voulez laisser l’accès à la structure si l’utilisateur est le superviseur de la base et en interdire l’accès dans les autres cas :

 Si(Utilisateur courant="Super_Utilisateur")

    WR VERROUILLER COMMANDE(LaZone;wr cmd insérer expression 4D;wr commande déverrouillée)

 Sinon

    WR VERROUILLER COMMANDE(LaZone;wr cmd insérer expression 4D;wr commande verrouillée)

 Fin de si

Exemple 2

Si le nom de l'utilisateur n’est pas "Gourou", nous lui refusons la création de nouveaux documents :

 Si(Evenement formulaire=Sur chargement)

    Si(Utilisateur courant#"Gourou") `Si l’utilisateur n’est pas Gourou

       WR VERROUILLER COMMANDE(LaZone;wr cmd nouveau;wr commande verrouillée) `Protégeons la commande Nouveau

    Fin de si

 Fin de si