L’action interne TAC permet de créer, modifier et supprimer les tâches d’un utilisateur.
-
Initialisation de la liste WfEntAct telle que :
|
Nom |
T |
Désignation |
O |
Commentaire |
|
Action |
C |
Action à exécuter |
o |
INI, CRE, MOD ou SUP |
|
EntTEn |
C |
Entité |
o |
Doit contenir TAC |
|
ActCle |
C |
Clé |
o |
Clé pour lien avec WfEntVar |
|
EntCl1 |
C |
Clé 1 Entité |
o |
Doit contenir &1 pour l’action CRE (la référence d’une tâche est générée) Doit contenir une référence de tâche pour mes actions MOD et SUP |
-
Initialisation de la liste WFEntVar (pour CRE ou MOD) :
Pour chacun des champs (sauf EntTacRef) définissant une tâche, il faut créer un WFEntVar tel que :
|
Nom |
T |
Désignation |
O |
Commentaire |
|
ActCle |
C |
Clé |
O |
Clé pour lien avec WfEntAct |
|
EntVar |
C |
EntTacDes |
|
Nom du champ « Description » |
|
EntVaC |
C |
Valeur Numérique |
|
Valeur de la description de la tâche |
Exemple : Création d’une tâche pour chaque commande fournisseur des années précédentes non livrées
VLO.today = DATEJOUR( )
VLO.DateLim = CAL-DATE( DATE= VLO.today , NB-JOURS= CLO.365 , SENS= - )
VLO.FinEch = CAL-DATE( DATE= VLO.today , NB-JOURS= CLO.30 , SENS= + )
POUR CHAQUE/SOC DTD APFoEn AVEC INDEX (ParLivAPFoEnIdx) DTD APFoEn.AppCdeSolSta FAUX ET
DTD APFoEn.AppCdeDatLivFin <= VLO.DateLim :
SI DTD APFoEn.AppRefFour = SCR.AppFouRef
CREATION Liste WfEntAct :
PRENDRE WfEntAct Action = CLO."CRE"
PRENDRE WfEntAct ActCle = CLO."CLE" + CLO."-" + DTD APFoEn.AppNumCom
PRENDRE WfEntAct ActRes = CLO.""
PRENDRE WfEntAct ActErr = CLO.""
PRENDRE WfEntAct EntTEn = CLO."TAC"
PRENDRE WfEntAct EntCl1 = CLO."&1"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = CLO."CLE" + CLO."-" + DTD APFoEn.AppNumCom
PRENDRE WfEntVar EntVar = CLO."EntTacDes"
PRENDRE WfEntVar EntVaC = CLO."Commande en retard de livraison :" + " " + DTD APFoEn.AppNumCom
+ " " + CLO.":" + " " + CLO."appeler le fournisseur" + " " + DTD APFoEn.AppRefFour
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = CLO."CLE" + CLO."-" + DTD APFoEn.AppNumCom
PRENDRE WfEntVar EntVar = CLO."EntTacDatDeb"
PRENDRE WfEntVar EntVaD = VLO.today
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = CLO."CLE" + CLO."-" + DTD APFoEn.AppNumCom
PRENDRE WfEntVar EntVar = CLO."EntTacDatEch"
PRENDRE WfEntVar EntVaD = VLO.FinEch
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = CLO."CLE" + CLO."-" + DTD APFoEn.AppNumCom
PRENDRE WfEntVar EntVar = CLO."EntTacEnt"
PRENDRE WfEntVar EntVaC = CLO."APE"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = CLO."CLE" + CLO."-" + DTD APFoEn.AppNumCom
PRENDRE WfEntVar EntVar = CLO."EntTacCl1"
PRENDRE WfEntVar EntVaC = DTD APFoEn.AppNumCom
FIN_BLOC
FIN_BLOC
FIN_BLOC
VLO.Res = ENR-ACT-ENT( )