4D Doc Center : WR ON COMMAND

4D Write v14

WR ON COMMAND


WR ON COMMAND ( area ; metodo4D )

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Write
metodo4D	Cadena	Método de remplazo

Descripción

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