WR LOCK COMMAND

4D Write v16

WR LOCK COMMAND


WR LOCK COMMAND ( 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	Comment
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 :

 If(Current user="Super_Utilisateur")

    WR LOCK COMMAND(LaZone;wr cmd insert 4D expression;wr enabled command)

 Else

    WR LOCK COMMAND(LaZone;wr cmd insert 4D expression;wr locked command)

 End if

Exemple 2

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

 If(Form event=On Load)

    If(Current user#"Gourou") `Si l’utilisateur n’est pas Gourou

       WR LOCK COMMAND(LaZone;wr cmd new;wr locked command) `Protégeons la commande Nouveau

    End if

 End if

Voir aussi

Annexe B : Codes des commandes de menus
WR ON COMMAND