4D Doc Center : PV ON COMMAND

4D View v14

PV ON COMMAND


PV ON COMMAND ( area ; comando ; metodo )

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D View
comando	Entero largo	Número de comando
metodo	Cadena	Nombre del método 4D

Descripción

El comando PV ON COMMAND asocia el comando de menú 4D View comando a un metodo 4D.

Las constantes del tema PV Comandos se utilizan para definir el parámetro comando.

El metodo recibe 3 parámetros:
$1: La referencia del área 4D View
$2: El número del comando de menú
$3: El código de la tecla de modificación

Para desinstalar el método de llamada al comando, simplemente ejecute el comando PV ON COMMAND con una cadena vacía en el tercer parámetro.

Ejemplo

Tome, por ejemplo, una base donde toda impresión llama un area 4D View que debe ser registrada en un diario de impresión. La solución propuesta se escribe en varias líneas:

 If(PV Get on command method(area;pv cmd file print document)#"PrintMethod")

  `Registro del seguimiento de la impresión de las fórmulas

    PV ON COMMAND(area;pv cmd file print document;"PrintMethod")

 End if

 

 If(PV Get on command method(area;pv cmd file print formulas)#"PrintMethod")

  `Registro del seguimiento de la impresión estándar

    PV ON COMMAND(area;pv cmd file print formulas;"PrintMethod")

 End if

El código del método MetododeImpresion es el siguiente:

  `Método: MetododeImpresion.

 C_LONGINT($1) `Referencia del área 4D View

 C_LONGINT($2) `Número de comando de menú

 C_LONGINT($3) `Código de la tecla de modificación

 

 Case of

    :($2=pv cmd file print formulas)

       CREATE RECORD([PrintSpy]) `Nuevo registro

       [PrintSpy]CurUser:=Current user `¿Quién solicitó la impresión?

       [PrintSpy]Dte:=Current date(*) `Fecha de la impresión

       [PrintSpy]Tme:=Current time `Hora de la impresión

       [PrintSpy]Subject:=Print area formulas

       SAVE RECORD([PrintSpy]) `No olvide validar la creación

 

    :($2=pv cmd file print document) `¿Es esta una solicitud de impresión?

       CREATE RECORD([PrintSpy]) `Nuevo registro

       [PrintSpy]CurUser:=Current user `¿Quién solicita la impresión?

       [PrintSpy]Dte:=Current date(*) `Fecha de la impresión

       [PrintSpy]Tme:=Current time `Hora de la impresión

       [PrintSpy]Subject:="Standard area print"

       SAVE RECORD([PrintSpy]) `No olvide validar la creación

 

    Else

       TRACE `¿Otros casos?

 End case