4D Write v16
WR ON COMMAND
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 | |||||
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).
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
Producto: 4D Write
Tema: WR Control del área
Número
89498
Creado por: 4D Write 6.5
4D Write - Lenguaje ( 4D Write v16)
