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( )