DROIT

Description

Cette action est appelée après la lecture de l’enregistrement de la table principale, avant l’alimentation 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 d’accès à l’enregistrement. Lorsque les droits ne sont pas vérifier, on le signifiera au superviseur en positionnant la variable CLECUR = 0. De plus, il est possible d’afficher 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.

$DROIT
Call 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