This action is called before executing a menu.
Window entry
For instance, it is possible to check the access rights to this menu, or to limit the possibilities in case of tunnel to an OBJect with GCONSULT.
GCONSULT = 0 access without limitations.
GCONSULT = 1 access to all the records being read.
GCONSULT = 2 access to the current record being read.
a message is displayed by assigning some text to the GMESSAGE variable and selecting the type of message with GERR =1,2 or 3.
the execution of the button is prohibited via FOK=0 (no execution of the dictionary action or BUTTON action)