AVANTBOUT
Description
Cette action est appelée lorsqu'un bouton ou un menu a été actionné, avant lexécution du traitement lié à ce bouton ou menu.
Type d'OBJet
Simple, Tableau, Combiné
Transaction
Non
Utilisation
On peut par exemple, contrôler les droits daccès à ce bouton ou menu, ou restreinte les possibilités en cas de tunnel sur un OBJet avec la variable GCONSULT. On connaît le code bouton par la variable BOUT.
GCONSULT = 0 accès sans restriction.
GCONSULT = 1 accès à toutes les fiches en lecture.
GCONSULT = 2 accès à la fiche courante en lecture.
on empêche l'exécution du bouton ou menu par la variable OK=0
on affiche un message par la variable GERR = 1, 2 ou 3.
attention ! fonction de la valeur de GERR, le bouton
s'exécutera ou pas, ceci quelque soit la valeur de la variable OK.
GERR=1 pas d'exécution du bouton
GERR=2 exécution du bouton
GERR=3 exécution du bouton si réponse par
le bouton OK.
Cela signifie que si l'on veut interdire le bouton et envoyer un message
d'information : On positionnera OK=0, mais pas GERR=2 que l'on remplacera par
Call MESSAGE ( message ) From GESECRAN.