4D Doc Center : PV APPELER SUR COMMANDE

4D View v14

PV APPELER SUR COMMANDE


PV APPELER SUR COMMANDE ( 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

Description

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