4D Doc Center : WR LOCK COMMAND

4D Write v14

WR LOCK COMMAND


WR LOCK COMMAND ( area ; cmdNum ; bloqueado )

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Write
cmdNum	Entero largo	Número del comando a procesar
bloqueado	Entero	0=permite la ejecución 1=no activa la ejecución

Descripción

El comando WR LOCK COMMAND le permite impedir que el usuario pueda ejecutar el comando, cuyo número se pasa en cmdNum. Estos comandos pueden estar en los menús o en las paletas. Este comando afecta el acceso del usuario al comando indicado sólo en el área 4D Write referenciada por area. El acceso al comando no se ve afectado en otras áreas 4D Write.

En el parámetro bloqueado, puede pasar una de las siguientes constantes del tema "WR Parámetros":

Constante	Tipo	Valor
wr enabled command	Entero largo	0
wr locked command	Entero largo	1

Notas:

Incluso si un comando está bloqueado, su código puede ejecutarlo con el comando WR EXECUTE COMMAND.
WR ON COMMAND no se llamará si el usuario intenta seleccionar un comando que está desactivado (en gris).
Cuando un menú o submenú se pasa en cmdNum, el menú y todos sus comandos se desactivan (en gris).

Aunque los comandos de un menú desactivado no pueden seleccionarse, se pueden utilizar los equivalentes de teclado o los botones de la barra de herramientas. Si desea bloquear por completo estos comandos, debe utilizar WR LOCK COMMAND.

Nota: la lista de menús, comandos y su referencia están disponibles en el tema de constantes "WR Comandos". Puede pasar el valor o la constante.

Ejemplo 1

Usted quiere que el Diseñador sea el único usuario que pueda acceder al entorno Diseño:

 If(Current user="Designer")

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

 Else

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

 End if

Ejemplo 2

Si el nombre de usuario no es "Guru", el usuario no podrá crear nuevos documentos:

 If(Form event=On Load)

    If(Current user#"Guru")

       WR LOCK COMMAND(Area;wr cmd new;wr locked command)

    End if

 End if