4D Write v14

WR ON COMMAND

Página Inicial

 
4D Write v14
WR ON COMMAND

WR ON COMMAND 


 

WR ON COMMAND ( area ; metodo4D ) 
Parâmetro Tipo   Descrição
area  Inteiro longo in Área 4D Write
metodo4D  cadeia in Método de substituiçã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

 
PROPRIEDADES 

Produto: 4D Write
Tema: WR Controle da área
Número 89498

 
HISTÓRIA 

Criado por: 4D Write 6.5

 
VER TAMBÉM 

WR EXECUTE COMMAND
WR Get on command method

 
ARTICLE USAGE

4D Write - Linguagem ( 4D Write v11.6)
4D Write - Linguagem ( 4D Write v12)
4D Write - Linguagem ( 4D Write v14)
4D Write - Linguagem ( 4D v13)
4D Write - Linguagem ( 4D Write v14 R2)
4D Write - Linguagem ( 4D Write v14 R3)
4D Write - Linguagem ( 4D Write v14 R4)