4D Doc Center : WR LOCK COMMAND

4D Write v14

WR LOCK COMMAND


WR LOCK COMMAND ( area ; cmdNum ; bloqueado )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
cmdNum	Inteiro longo	Número do comando a processar
bloqueado	Inteiro	0=permite a execução 1=não ativa a execução

Descrição

O comando WR LOCK COMMAND lhe permite impedir que o usuário possa executar o comando, cujo número se passa em cmdNum. Estes comandos podem estar nos menus ou nas paletas. Este comando afeta o acesso do usuário ao comando indicado somente na área 4D Write referenciada por area. O acesso ao comando não é visto afetado em outras áreas 4D Write.

No parâmetro bloqueado, pode passar uma das seguintes constantes do tema "":

Constante	Tipo	Valor
wr enabled command	Inteiro longo	0
wr locked command	Inteiro longo	1

Notas:

Inclusive se um comando está bloqueado, seu código pode executar com o comando WR EXECUTE COMMAND.
WR ON COMMAND não será chamado se o usuário tenta selecionar um comando que está desativado (em cinza).
Quando um menu ou submenu é passado em cmdNum, o menu e todos seus comandos se desativam (em cinza).

Ainda que os comandos de um menu desativado não podem ser selecionados, podem utilizar os equivalentes de teclado ou os botões da barra de ferramentas. Se deseja bloquear completamente estes comandos, deve utilizar WR LOCK COMMAND.

Nota: A lista de menus, comandos e sua referencia estão disponíveis no tema de constantes "". Pode passar o valor ou a constante.

Exemplo 1

Você quer que o Designer seja o único usuário que possa acessar ao entorno Desenho:

 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

Exemplo 2

Se o nome de usuário não é "Guru", o usuário não poderá criar novos documentos:

 If(Form event=On Load)

    If(Current user#"Guru")

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

    End if

 End if