4D View v14

PV ON COMMAND

Inicio

 
4D View v14
PV ON COMMAND

PV ON COMMAND 


 

PV ON COMMAND ( area ; comando ; metodo ) 
Parámetro Tipo   Descripción
area  Entero largo in Área 4D View
comando  Entero largo in Número de comando
metodo  Cadena in Nombre del método 4D

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

 
PROPIEDADES 

Producto: 4D View
Tema: PV Área
Número 15992

 
HISTORIA 

Creado por: 4D View 6.8

 
VER TAMBIÉN 

PV Get on command method

 
ARTICLE USAGE

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