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