UTI : Gestion des Utilisateurs ( ENR-ACT-ENT )
L’action interne UTI permet de créer, modifier, dupliquer, supprimer et récupérer les informations des utilisateurs dans Diapason.
Initialisation de la liste WFEntAct telle que :
Nom | T | Désignation | O | Commentaire |
Action | C | Action à exécuter | o | INI, CRE, MOD, DUP ou SUP |
EntTEn | C | Entité | o | Doit contenir UTI |
ActCle | C | Clé | o | Clé pour lien avec WfEntVar |
EntCl1 | C | Clé 1 Entité | o | Référence Utilisateur |
DupCl1 | C | Clé 1 Entité à Dupliquer | f | Référence Utilisateur à Dupliquer si Action contient DUP |
Initialisation de la liste WFEntVar (pour CRE ou MOD) :
Pour chacun des champs (en dehors des champs clés) définissant un utilisateur, il faut créer un élément dans la liste WfEntVar tel que :
Nom | T | Désignation | O | Commentaire |
ActCle | C | Clé | o | Clé pour lien avec WfEntAct |
EntVar | C | GrpUtil | Nom du champ Groupe Utilisateur | |
EntVaC | C | Valeur Alphanumérique | Valeur du groupe utilisateur |
Il est également possible de gérer les valeurs des variables spécifiques définies pour l’objet paramétrable O_UTI.
Nom | T | Désignation | O | Commentaire |
ActCle | C | Clé | o | Clé pour lien avec WfEntAct |
EntVar | C | VOP.Equipe | Nom de la variable spécifique commençant par VOP. | |
EntVaC | C | Valeur Alphanumérique | Valeur de la variable spécifique |
Exemple :
VLO.Action = SCR.EntAct
VLO.Util = SCR.RefUtil
VLO.UtilDup = VCR.UtilDup
SI VLO.Action = CLO."DUP" OU VLO.Action = CLO."INI"
CREATION Liste WfEntAct :
PRENDRE WfEntAct Action = CLO."INI"
PRENDRE WfEntAct ActCle = VLO.Util
PRENDRE WfEntAct ActRes = CGL.VIDE
PRENDRE WfEntAct ActErr = CGL.VIDE
PRENDRE WfEntAct EntTEn = CLO."UTI"
PRENDRE WfEntAct EntCl1 = VLO.UtilDup
FIN_BLOC
VLO.Res = ENR-ACT-ENT( )
SI VLO.Action = CLO."DUP"
RECH PREM LST WfEntAct :
PRENDRE WfEntAct Action = CLO."CRE"
PRENDRE WfEntAct EntCl1 = VLO.Util
FIN_BLOC
POUR CHAQUE LST WfEntVar :
SI WfEntVar.EntVar = CLO."RefUtil" OU WfEntVar.EntVar = CLO."MotDirUtil"
PRENDRE WfEntVar EntVaC = VLO.Util
FIN_BLOC
SI WfEntVar.EntVar = CLO."VarListeSoc" ET WfEntVar.EntVaC CONTIENT CLO."ISIA"
PRENDRE WfEntVar EntVaC = CGL.VIDE
FIN_BLOC
SI WfEntVar.EntVar = CLO."UtilLogCnx"
PRENDRE WfEntVar EntVaC = CGL.VIDE
FIN_BLOC
SI WfEntVar.EntVar = CLO."VarListeImp"
PRENDRE WfEntVar EntVaC = WfEntVar.EntVaC + CLO.",HP528"
FIN_BLOC
SI WfEntVar.EntVar = CLO."VOP.Poste"
PRENDRE WfEntVar EntVaC = CLO."APP"
FIN_BLOC
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Util
PRENDRE WfEntVar EntVar = CLO."VOP.TOTO"
PRENDRE WfEntVar EntVaC = CLO."VOP.TOTO"
FIN_BLOC
VLO.Res = ENR-ACT-ENT( )
FIN_BLOC
FIN_BLOC
SINON
SI VLO.Action = CLO."SUP"
RECH TBD ISIA Utils AVEC INDEX AUTO (UtilsIdx) ISIA Utils.RefUtil = VLO.Util :
SI ISIA Utils.Valide = CLO.0
CREATION Liste WfEntAct :
PRENDRE WfEntAct Action = CLO."SUP"
PRENDRE WfEntAct ActCle = VLO.Util
PRENDRE WfEntAct ActRes = CGL.VIDE
PRENDRE WfEntAct ActErr = CGL.VIDE
PRENDRE WfEntAct EntTEn = CLO."UTI"
PRENDRE WfEntAct EntCl1 = VLO.Util
FIN_BLOC
VLO.Res = ENR-ACT-ENT( )
FIN_BLOC
FIN_BLOC
FIN_BLOC