PV APPELER SUR COMMANDE

version 6.8

PV APPELER SUR COMMANDE (zone; numCommande; méthode)

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 :

   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

PV Lire methode sur commande.

Thème PV Commandes.