4D View v15
PV ON COMMAND
- 4D View - Langage
-
- PV Zone
-
- PV Zone, Introduction
- PV Area to blob
- PV BLOB TO AREA
- PV DELETE OFFSCREEN AREA
- PV EXECUTE COMMAND
- PV Get area property
- PV GET COMMAND STATUS
- PV GET LAST ERROR
- PV Get on command method
- PV Get on error method
- PV Get on event method
- PV New offscreen area
- PV ON COMMAND
- PV ON ERROR
- PV ON EVENT
- PV REDRAW
- PV SCROLL AREA
- PV SET AREA PROPERTY
- PV SET COMMAND STATUS
PV ON COMMAND
| PV ON COMMAND ( zone ; numCommande ; méthode ) | ||||||||
| Paramètre | Type | Description | ||||||
| zone | Entier long |
|
Zone 4D View | |||||
| numCommande | Entier long |
|
Numéro de commande | |||||
| méthode | Chaîne |
|
Nom de méthode 4D | |||||
La commande PV APPELER SUR COMMANDE lie la commande de menu 4D View numCommande à une méthode 4D.
Pour définir le paramètre numCommande, utilisez les constantes du thème PV Commandes.
La méthode appelée reçoit 3 paramètres :
$1 : La référence de la zone 4D View
$2 : Le numéro de commande du menu
$3 : Le code de la touche de modification
Pour désinstaller la méthode d'appel sur commande, il suffit d’exécuter la commande PV APPELER SUR COMMANDE avec une chaîne vide en troisième paramètre.
Prenons l'exemple d'une base pour laquelle toute impression faisant appel à une zone 4D View incluse doit être tracée dans un journal d'impressions. La solution proposée tient en quelques lignes :
If(PV Get on command method(Zone;pv cmd file print document)#"MéthodeImpression")
`Enregistrement de la trace de l'impression des formules
PV ON COMMAND(Zone;pv cmd file print document;"MéthodeImpression")
End if
If(PV Get on command method(Zone;pv cmd file print formulas)#"MéthodeImpression")
`Enregistrement de la trace de l'impression standard
PV ON COMMAND(Zone;pv cmd file print formulas;"MéthodeImpression")
End ifLe code de la méthode MéthodeImpression est le suivant :
`Méthode : MéthodeImpression.
C_LONGINT($1) `Référence de la zone 4D View
C_LONGINT($2) `Numéro de commande du menu
C_LONGINT($3) `Code de la touche de modification
Case of
:($2=pv cmd file print formulas)
CREATE RECORD([PrintSpy]) `Nouvel enregistrement
[PrintSpy]CurUser:=Current user `Qui demande l'impression ?
[PrintSpy]Dte:=Current date(*) `Date de l'impression
[PrintSpy]Hre:=Current time(*) `Heure de l'impression
[PrintSpy]Sujet:="Impression des formules de la zone"
SAVE RECORD([PrintSpy]) `N'oublions pas de valider la création
:($2=pv cmd file print document) `Est-ce une demande d'impression ?
CREATE RECORD([PrintSpy]) `Nouvel enregistrement
[PrintSpy]CurUser:=Current user `Qui demande l'impression ?
[PrintSpy]Dte:=Current date(*) `Date de l'impression
[PrintSpy]Hre:=Current time(*) `Heure de l'impression
[PrintSpy]Sujet:="Impression standard de la zone"
SAVE RECORD([PrintSpy]) `N'oublions pas de valider la création
Else
TRACE `Autre cas ?
End case
Produit : 4D View
Thème : PV Zone
Numéro :
15992
Créé : 4D View 6.8
4D View - Langage ( 4D View v15)
