4D Doc Center : WR ON COMMAND

4D Write v14

WR ON COMMAND


WR ON COMMAND ( area ; metodo4D )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
metodo4D	cadeia	Método de substituição

Descrição

O comando WR ON COMMAND executa o método passado como metodo4D quando um comando 4D Write é chamado pelo usuário, seja pela seleção de um comando de menu ou mediante um clique em um botão. Se area é igual à zero, metodo4D será aplicado a todas as áreas 4D Write até que o banco de dados se feche ou até que seja feita a seguinte chamada a WR ON COMMAND(0;"").

metodo4D recebe dois parâmetros:

$1 é um Inteiro longo que representa área.
$2 é um Inteiro longo que indica o número do comando.

Nota: A lista de constantes e seus valores se encontram disponíveis no tema de constantes “WR Tabs”. Pode passar um nome de constante ou seu valor.

Quando utilize uma base compilada, é necessário declarar $1 e $2 como Inteiros longos, inclusive se não os usa.

Se desejar que o comando inicial se execute, deverá incluir o seguinte no método chamado: WR EXECUTE COMMAND($1;$2).

Exemplo

Você quer salvar seus documentos na pasta “Archive” localizada em seu disco duro:

 C_LONGINT($1;$2)

 Case of

    :($2=wr cmd save as) `Se Salvar como... está selecionado

       $DocName:=Request("De nome a seu documento: ")

       If((OK=1) & ($DocName#""))

  `Salvar o documento na pasta selecionada

          WR SAVE DOCUMENT($1;"HDisk:Archives:"+$DocName) `Mac

          WR SAVE DOCUMENT($1;"D:\Archives\"+$DocName)  `Win

       Else

          BEEP `Algo não é correto

       End if

    Else `Para outro comando de menu

       WR EXECUTE COMMAND($1;$2)

  `Executar a ação padrão

 End case

 

  ` Método de formulário:

 If(Form event=On Load)

    WR ON COMMAND(Area;"TheMethod")

 End if