DROIT
Description
Cette action est appelée après la lecture de lenregistrement de la table principale, avant lalimentation des écrans par la classe [F] de la table principale.
Type d'OBJet
Simple, Tableau, Combiné
Transaction
Non
Utilisation
Par cette action, on peut vérifier des droits daccès à lenregistrement. Lorsque les droits ne sont pas vérifier, on le signifiera au superviseur en positionnant la variable CLECUR = 0. De plus, il est possible dafficher un message par la variable GMESSAGE.
Exemple : SUBGAS Saisie des pièces comptables
Besoin de contrôler les droits d'accès au journal sur lequel est enregistrée la pièce.
$DROITCall LECTURE("JOU",[F:HAE]JOU,"") From CONTOBJ
If [F:JOU]ACS<>""
Call CONSACC([F:JOU]ACS,OK) From CPTSUB
If !OK
GMESSAGE = [F:HAE]JOU-mess(77,106,1) : # Journal non autorisé
GERR = 1 : CLECUR = 0
Endif
Endif
Return