DROIT

Description

Cette action est appelée après la lecture de l’enregistrement de la tableprincipale, avant l’alimentation des écrans par la classe [F] de la tableprincipale.

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 positionnantla variable CLECUR = 0. De plus, il est possible d’afficher unmessage 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 lapiè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 nonautorisé
   GERR = 1 : CLECUR = 0
   Endif
Endif
Return