L’action interne VAR permet de créer, modifier et supprimer des variables.
-
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 VAR |
|
ActCle |
C |
Clé |
o |
Clé pour lien avec WfEntVar |
|
EntCl1 |
C |
Clé 1 Entité |
o |
Type de variable |
|
EntCl2 |
C |
Clé 2 Entité |
o |
Référence variable |
-
Initialisation de la liste WFEntVar (pour CRE ou MOD) :
Pour chacun des champs (en dehors des champs clés) définissant une variable, 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 |
DesVarDiap |
|
Nom du champ Désignation |
|
EntVaC |
C |
Valeur Alphanumérique |
|
Valeur de la désignation |
Exemples :
Création de la variable de base (VBA) « VarCar » de type caractère court (A), valeur défaut = « X11 » (premier tableau = WfEntAct, second = WfEntVar) :
|
Action |
EntTEn |
EntCl1 |
EntCl2 |
EntCl3 |
|
CRE |
VAR |
VBA |
VarCar |
|
|
EntTVa |
EntVar |
EntVaC |
|
|
DesVarDiap |
Ma Variable |
|
|
DeCVarDiap |
Ma Var. |
|
|
TypeVarDiap |
A |
|
|
ValAlpNonDef |
X11 |
|
|
FormatVarDiap |
C/25 |
Equivalant en « DIALOG » :
CREATION Liste WfEntAct :
PRENDRE WfEntAct Action = ”CRE”
PRENDRE WfEntAct ActCle = CLO."ACT01"
PRENDRE WfEntAct EntTEn = ”VAR”
PRENDRE WfEntAct EntCl1 = ”VBA”
PRENDRE WfEntAct EntCl2 = ”VarCar”
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = CLO."ACT01"
PRENDRE WfEntVar EntTVa = “”
PRENDRE WfEntVar EntVar = “DesVarDiap”
PRENDRE WfEntVar EntVaC = ”Ma Variable”
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = CLO."ACT01"
PRENDRE WfEntVar EntTVa = “”
PRENDRE WfEntVar EntVar = “DeCVarDiap”
PRENDRE WfEntVar EntVaC = ” Ma Var.”
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = CLO."ACT01"
PRENDRE WfEntVar EntTVa = “”
PRENDRE WfEntVar EntVar = “TypeVarDiap”
PRENDRE WfEntVar EntVaC = ”A”
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = CLO."ACT01"
PRENDRE WfEntVar EntTVa = “”
PRENDRE WfEntVar EntVar = “ValAlpNonDef”
PRENDRE WfEntVar EntVaC = ”X11”
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = CLO."ACT01"
PRENDRE WfEntVar EntTVa = “”
PRENDRE WfEntVar EntVar = “FormatVarDiap”
PRENDRE WfEntVar EntVaC = ”C/25”
FIN_BLOC
VLO.Resultat = ENR-ACT-ENT( )
Modification de la variable partagée (VBP) « VarDec » de type décimal, pour modifier la valeur défaut = « 155.60 » (premier tableau = WfEntAct, second = WfEntVar) :
|
Action |
EntTEn |
EntCl1 |
EntCl2 |
EntCl3 |
|
MOD |
VAR |
VBP |
VarDec |
|
|
EntTVa |
EntVar |
EntVaN |
|
|
ValNumNonDef |
155.60 |
Duplication de la variable spécifique article VAR1 en variable VARDUP (tableau = WfEntAct) :
|
Action |
EntTEn |
EntCl1 |
EntCl1 |
DupCl1 |
DupCl2 |
|
DUP |
VAR |
VAS |
VARDUP |
VAS |
VAR1 |