4D View v14

PV APPELER SUR COMMANDE

Accueil

 
4D View v14
PV APPELER SUR COMMANDE

PV APPELER SUR COMMANDE 


 

PV APPELER SUR COMMANDE ( zone ; numCommande ; méthode ) 
Paramètre Type   Description
zone  Entier long in Zone 4D View
numCommande  Entier long in Numéro de commande
méthode  Chaîne in 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.

Exemple  

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 :

 Si(PV Lire methode sur commande(Zone;pv cmd fichier imprimer)#"MéthodeImpression")
  `Enregistrement de la trace de l'impression des formules
    PV APPELER SUR COMMANDE(Zone;pv cmd fichier imprimer;"MéthodeImpression")
 Fin de si
 
 Si(PV Lire methode sur commande(Zone;pv cmd fichier impr formules)#"MéthodeImpression")
  `Enregistrement de la trace de l'impression standard
    PV APPELER SUR COMMANDE(Zone;pv cmd fichier impr formules;"MéthodeImpression")
 Fin de si

Le code de la méthode MéthodeImpression est le suivant :

  `Méthode : MéthodeImpression.
 C_ENTIER LONG($1`Référence de la zone 4D View
 C_ENTIER LONG($2`Numéro de commande du menu
 C_ENTIER LONG($3`Code de la touche de modification
 
 Au cas ou
 
    :($2=pv cmd fichier impr formules)
       CREER ENREGISTREMENT([PrintSpy]) `Nouvel enregistrement
       [PrintSpy]CurUser:=Utilisateur courant `Qui demande l'impression ?
       [PrintSpy]Dte:=Date du jour(*) `Date de l'impression
       [PrintSpy]Hre:=Heure courante(*) `Heure de l'impression
       [PrintSpy]Sujet:="Impression des formules de la zone"
       STOCKER ENREGISTREMENT([PrintSpy]) `N'oublions pas de valider la création
 
    :($2=pv cmd fichier imprimer`Est-ce une demande d'impression ?
       CREER ENREGISTREMENT([PrintSpy]) `Nouvel enregistrement
       [PrintSpy]CurUser:=Utilisateur courant `Qui demande l'impression ?
       [PrintSpy]Dte:=Date du jour(*) `Date de l'impression
       [PrintSpy]Hre:=Heure courante(*) `Heure de l'impression
       [PrintSpy]Sujet:="Impression standard de la zone"
       STOCKER ENREGISTREMENT([PrintSpy]) `N'oublions pas de valider la création
 
    Sinon
       TRACE `Autre cas ?
 Fin de cas

 
PROPRIÉTÉS 

Produit : 4D View
Thème : PV Zone
Numéro : 15992
Nom intl. : PV ON COMMAND

 
HISTORIQUE 

Créé : 4D View 6.8

 
VOIR AUSSI  

PV Lire methode sur commande

 
UTILISATION DE L'ARTICLE

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