Cette action est appelée avant l'exécution d'un bouton de bas d'écran.
Saisie fenêtre
On peut par exemple, contrôler les droits daccès à ce bouton, ou restreinte lespossibilités en cas de tunnel sur un OBJet avec GCONSULT.
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 par FOK=0 ( pas d'exécutionde l'action dictionnaire ni de l'action BOUTON )
on affiche un message en affectant un texte à la variable GMESSAGE et enchoisissant le type de message par GERR =1,2 ou 3.
Attention !
En fonction de la valeur de GERR, le bouton s'exécutera ou pas, ceciquelque soit la valeur de la variable FOK.
GERR=1 pas d'exécution du bouton
GERR=2 exécution du bouton
GERR=3 exécution du bouton si réponse parle bouton OK.
Cela signifie que si l'on veut interdire le bouton et envoyer un messaged'information : On positionnera FOK=0, mais pas GERR=2 que l'on remplacera parCall MESSAGE ( message ) From GESECRAN.
Après l'activation et l'exécution des boutons OK, FIN et ABANDON, lesuperviseur ferme la fenêtre de saisie. On peut spécifier, qu'au contraire, onveut rester sur cette fenêtre en positionnant FIN=0 (notamment utilisé lorsque on positionne FOK=0 sur l'un de ces3 boutons).