TAC : Gestion des Tâches ( ENR-ACT-ENT )
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( )