PAR-LIBDIV : Libellés Divers ( ENR-ACT-ENT )
L’action interne PAR-LIBDIV permet de créer, modifier et supprimer des libellés d’une catégorie donnée.
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 PAR-LIBDIV |
ActCle | C | Clé | o | Clé pour lien avec WfEntVar |
EntCl1 | C | Clé 1 Entité | o | Référence Catégorie libellé |
EntCl2 | C | Clé 2 Entité | o | Référence libellé |
Initialisation de la liste WFEntVar (pour CRE ou MOD) :
Pour chacun des champs (en dehors des champs clés) définissant un libellé, 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 | TrLibLib | Nom du champ Contenu libellé | |
EntVaC | C | Valeur Alphanumérique | Valeur du contenu libellé |
Exemple
VLO.Ent = CLO."PAR-LIBDIV"
VLO.Cat = VCR.cricardeb
VLO.Deb = VCR.Entier1
VLO.Fin = VCR.Entier2
BOUCLE VLO.Boucle DE VLO.Deb A VLO.Fin :
VLO.Cl2 = CLO."LIB-ML-" + CHAINE( VALEUR= VLO.Boucle , FORMAT= E0/2 )
VLO.Cl1 = VLO.Cat
VLO.Cl3 = CLO.""
CREATION Liste WfEntAct :
PRENDRE WfEntAct Action = VCR.SI_Action
PRENDRE WfEntAct ActCle = VLO.Cl2
PRENDRE WfEntAct ActRes = CLO.""
PRENDRE WfEntAct ActErr = CLO.""
PRENDRE WfEntAct EntTEn = VLO.Ent
PRENDRE WfEntAct EntCl1 = VLO.Cl1
PRENDRE WfEntAct EntCl2 = VLO.Cl2
PRENDRE WfEntAct EntCl3 = VLO.Cl3
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Cl2
PRENDRE WfEntVar EntVar = CLO."TrLibLib"
PRENDRE WfEntVar EntVaC = CLO."Libellé Mis à Jour par ENR-ACT-ENT :" + " " + VLO.Cl2
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Cl2
PRENDRE WfEntVar EntVar = CLO."TrLibDom"
PRENDRE WfEntVar EntVaC = CLO."GEN"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Cl2
PRENDRE WfEntVar EntVar = CLO."TrLibFam"
PRENDRE WfEntVar EntVaC = VCR.Famille
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Cl2
PRENDRE WfEntVar EntVar = CLO."TrLibSFa"
PRENDRE WfEntVar EntVaC = VCR.SouFamArtDeb
FIN_BLOC
FIN_BLOC
VLO.Res = ENR-ACT-ENT( )