4D Write v14

WR ON COMMAND

Inicio

 
4D Write v14
WR ON COMMAND

WR ON COMMAND 


 

WR ON COMMAND ( area ; metodo4D ) 
Parámetro Tipo   Descripción
area  Entero largo in Área 4D Write
metodo4D  Cadena in Método de remplazo

El comando WR ON COMMAND ejecuta el método pasado como metodo4D cuando un comando 4D Write es invocado por el usuario, ya sea por la selección de un comando de menú o mediante un clic en un botón. Si area es igual a cero, metodo4D se aplicará a todas las áreas 4D Write hasta que la base de datos se cierre o hasta que se haga la siguiente llamada a WR ON COMMAND(0;"").

metodo4D recibe dos parámetros:

  • $1 es un Entero largo que representa area.
  • $2 es un Entero largo que indica el número del comando.

Nota: la lista de constantes y sus valores se encuentra disponible en el tema de constantes “WR Tabulaciones”. Puede pasar un nombre de constante o su valor.

Cuando vaya a utilizar una base compilada, es necesario declarar $1 y $2 como Enteros largos, incluso si no los usa.

Si desea que el comando inicial se ejecute, deberá incluir lo siguiente en el método llamado: WR EXECUTE COMMAND($1;$2).

Ejemplo  

Usted quiere guardar sus documentos en la carpeta “Archive” ubicada en su disco duro:

 C_LONGINT($1;$2)
 Case of
    :($2=wr cmd save as`Si Guardar como... está seleccionado
       $DocName:=Request("De nombre a su documento: ")
       If((OK=1) & ($DocName#""))
  `Guardar el documento en la carpeta seleccionada
          WR SAVE DOCUMENT($1;"HDisk:Archives:"+$DocName`Mac
          WR SAVE DOCUMENT($1;"D:\Archives\"+$DocName)  `Win
       Else
          BEEP `Algo no es correcto
       End if
    Else `Para otro comando de menú
       WR EXECUTE COMMAND($1;$2)
  `Ejecutar la acción estándar
 End case
 
  ` Método de formulario:
 If(Form event=On Load)
    WR ON COMMAND(Area;"TheMethod")
 End if

 
PROPIEDADES 

Producto: 4D Write
Tema: WR Control del área
Número 89498

 
HISTORIA 

Creado por: 4D Write 6.5

 
VER TAMBIÉN 

WR EXECUTE COMMAND
WR Get on command method

 
ARTICLE USAGE

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