CTX-INI-ARD : Lecture Contextes Commerciaux en base archivage ( ENR-ACT-ENT )
Le but de cette action de la fonction ENR-ACT-ENT est de récupérer les caractéristiques d'un scénario commercial d'une ligne de commande archivée ou d'un article archivé. Ces caractéristiques sont formatées pour la fonction ENR-ACT-ENT et peuvent être directement ré-utilisées comme scénario commercial pour créer ou modifier une ligne de commande commerciale dans la base de gestion.
Initialisation fonction : initialisation de WfEntAct
Pour cela, il faut alimenter WfEntAct de la façon suivante :
Pour une ligne de commande commerciale :
Nom | T | Désignation | O | Commentaire |
ActCle | C | Clé action | F | Clé de lien avec WfEntVar. Evite de renseigner EntTEn, EntCl1, EntCl2 et EntCl3 sur WfEntVar. |
Action | C | Action à exécuter | O | Doit contenir CTX-INI-ARD |
EntTEn | C | Entité | O | Doit contenir CDC-LIG |
EntCl1 | C | Clé 1 Entité | O | Numéro de commande commerciale |
EntCl2 | C | Clé 2 Entité | O | Numéro de lgne de commande commerciale |
EntCom | C | Commentaire | O | Doit contenir la référence de la base archivage à parcourir sous la forme Base_ARD=référence_base_archivage (exemple de contenu : Base_ARD=ARC_2012) |
Pour un article standard
Nom | T | Désignation | O | Commentaire |
ActCle | C | Clé action | F | Clé de lien avec WfEntVar. Evite de renseigner EntTEn, EntCl1, EntCl2 et EntCl3 sur WfEntVar. |
Action | C | Action à exécuter | O | Doit contenir CTX-INI-ARD |
EntTEn | C | Entité | O | Doit contenir ART |
EntCl1 | C | Clé 1 Entité | O | Doit contenir R |
EntCl2 | C | Clé 2 Entité | O | Référence de l’article standard |
EntCom | C | Commentaire | O | Doit contenir la référence de la base archivage à parcourir sous la forme Base_ARD=référence_base_archivage (exemple de contenu : Base_ARD=ARC_2012) |
Retour fonction dans le cas d'un scénario mullti-contexte : résultat dans WfEntVar
En retour, la liste WfEntVar contient les caractéristiques du scénario commercial multi-contexte structurées de la manière suivante :
Pour une ligne de commande
Liste des contextes :
Nom | T | Désignation | O | Commentaire |
EntTEn | C | Entité | O | Contient CDC-LIG |
ActCle | C | Clé | O | Clé pour lien avec WfEntAct |
EntTVa | C | Type de Variable | O | Contient SDL |
EntVar | C | Variable | O | Contient EntCtxLisCtx |
EntVaC | C | Valeur Alphanumérique | O | Liste chaînée des contextes dans l’ordre récursif |
Liste des niveaux de contextes :
Nom | T | Désignation | O | Commentaire |
EntTEn | C | Entité | O | Contient CDC-LIG |
ActCle | C | Clé | O | Clé pour lien avec WfEntAct |
EntTVa | C | Type de Variable | O | Contient SDL |
EntVar | C | Variable | O | Contient EntCtxLisNiv |
EntVaC | C | Valeur Alphanumérique | O | Liste chaînée des niveaux des contextes de la liste ci-dessus |
Statut sauvegarde/validé du scénario :
Nom | T | Désignation | O | Commentaire |
EntTEn | C | Entité | O | Contient CDC-LIG |
ActCle | C | Clé | O | Clé pour lien avec WfEntAct |
EntTVa | C | Type de Variable | O | Contient SDL |
EntVar | C | Variable | O | Contient CfgSceEnrVal |
EntVaC | C | Valeur Alphanumérique | O | Contient V si scénario validé, S si scénario sauvegardé |
Pour chaque contexte composant le scénario, le résultat est le suivant :
- Liste des variables du contexte refctx (si scénario multi-contexte) :
Nom | T | Désignation | O | Commentaire |
EntTEn | C | Entité | O | Contient CDC-LIG |
ActCle | C | Clé | O | Clé pour lien avec WfEntAct |
EntTVa | C | Type de Variable | O | Contient SDL |
EntVar | C | Variable | O | Contient CdeLigComDescCFGVar.refctx |
EntVaC | C | Valeur Alphanumérique | O | Liste chaînée des variables du contexte refctx |
- Liste des valeurs des variables du contexte refctx (si scénario multi-contexte) :
Nom | T | Désignation | O | Commentaire |
EntTEn | C | Entité | O | Contient CDC-LIG |
ActCle | C | Clé | O | Clé pour lien avec WfEntAct |
EntTVa | C | Type de Variable | O | Contient SDL |
EntVar | C | Variable | O | Contient CdeLigComDescCFGVal.refctx |
EntVaC | C | Valeur Alphanumérique | O | Liste chaînée des valeurs des variables du contexte refctx |
Pour un article standard, la liste WfEntVar est initialisée de la même manière que pour une ligne de commande, mais EntTEn contient ART et EntTVa contient SAS.
Retour fonction dans le cas d'un scénario mono-contexte : résultat dans WfEntVar
Cette fonctionnalité est disponible uniquement sur les lignes de commandes commerciales. En retour, la liste WfEntVar contient les caractéristiques du scénario commercial multi-contexte structurées de la manière suivante :
Liste des variables du questionnaire
Nom | T | Désignation | O | Commentaire |
EntTEn | C | Entité | O | Contient CDC-LIG |
ActCle | C | Clé | O | Clé pour lien avec WfEntAct |
EntTVa | C | Type de Variable | O | Contient SDL |
EntVar | C | Variable | O | Contient CdeLigComDescCFGVar |
EntVaC | C | Valeur Alphanumérique | O | Liste chaînée des variables du contexte principal |
Liste des valeurs des variables du questionnaire
Nom | T | Désignation | O | Commentaire |
EntTEn | C | Entité | O | Contient CDC-LIG |
ActCle | C | Clé | O | Clé pour lien avec WfEntAct |
EntTVa | C | Type de Variable | O | Contient SDL |
EntVar | C | Variable | O | Contient CdeLigComDescCFGVal |
EntVaC | C | Valeur Alphanumérique | O | Liste chaînée des valeurs des variables du contexte principal |
Connexion aux bases d'archivages
Si la base d'archivage est déjà connectée avant exécution de l'action de la fonction, la base d'archivage reste connectée à la session DIAPASON après exécution de l'action de la fonction; si la base d'archivage n'est pas connectée avant exécution de l'action de la fonction, la base d'archivage est connectée par DIAPASON durant l'exécution de la fonction puis déconnectée après exécution de l'action de la fonction.
Exemple
La requête REB exemple est la suivante :
CREATION Liste WfEntAct :
PRENDRE WfEntAct ActCle = CLO."ARD"
PRENDRE WfEntAct Action = CLO."CTX-INI-ARD"
PRENDRE WfEntAct EntTEn = CLO."CDC-LIG"
PRENDRE WfEntAct EntCl1 = SCR.CdeNumCom
PRENDRE WfEntAct EntCl2 = SCR.CdeNumLig
PRENDRE WfEntAct EntCom = CLO."Base_ARD=" + SCR.RefBase
FIN_BLOC
VLO.Fct = ENR-ACT-ENT( )
MESSAGE= CLO."Retour Fonction =" + " " + VLO.Fct
POUR CHAQUE LST WfEntVar :
MESSAGE= CLO."Détail retour" + " " + WfEntVar.EntTVa + CLO."/" + WfEntVar.EntVar + CLO."/" + WfEntVar.EntVaC
FIN_BLOC
La trace de la simulation de cette requête est la suivante :
************************************************************
* Environnement Requete
************************************************************
> REB/TIS81 = /Diap/3105/Patch/Shell/../Prgs/Req_ISIA/Req_Prgs/142890001.p
> Temps d'exécution = 26 ms
SCR.CdeNumCom = 1008000005
SCR.CdeNumLig = 0002
SCR.RefBase = TISARD
************************************************************
* Trace exécution requete
************************************************************
>----------------------------------------------------------------------------------------------------
TR_ENR-ACT-ENT (APP): CDC-LIG
(ACT): CTX-INI-ARD
(INT): OUI
(CLE): 1008000005 / 0002 / / ARD
"" "" no 0 no no "CDC-LIG" "ARD" "1008000005" "0002" "" "SDL" "CdeLigComDescCFGVar.BVR" "g_ha,s_sensmo" 0 no ?
"" "" no 0 no no "CDC-LIG" "ARD" "1008000005" "0002" "" "SDL" "CdeLigComDescCFGVal.BVR" "24," 0 no ?
"" "" no 0 no no "CDC-LIG" "ARD" "1008000005" "0002" "" "SDL" "CdeLigComDescCFGVar.CAS-DOR" "COULEUR,Option,s_tdessin,TISdanscdMod,TISdleCtxCar,TISdleCtxNum,TISdleCtxRN1Car,v_hauteur,v_largeur,N_SansSeuil,RefDate" 0 no ?
"" "" no 0 no no "CDC-LIG" "ARD" "1008000005" "0002" "" "SDL" "CdeLigComDescCFGVal.CAS-DOR" ",+,,AUCUN,O1#O2#O3#BVR,3,CAS-OUV#CAS-OUV#CAS-OUV#CAS-BVR,200,250,7,?" 0 no ?
"" "" no 0 no no "CDC-LIG" "ARD" "1008000005" "0002" "" "SDL" "CdeLigComDescCFGVar.O1" "COULEUR,Q_NbTrav,TISdanscdHau,TISdleCtxCar,TISdleCtxRN1Car" 0 no ?
"" "" no 0 no no "CDC-LIG" "ARD" "1008000005" "0002" "" "SDL" "CdeLigComDescCFGVal.O1" "J,0,60,," 0 no ?
"" "" no 0 no no "CDC-LIG" "ARD" "1008000005" "0002" "" "SDL" "CdeLigComDescCFGVar.O2" "Q_NbTrav,TISdanscdHau,TISdleCtxCar,TISdleCtxRN1Car" 0 no ?
"" "" no 0 no no "CDC-LIG" "ARD" "1008000005" "0002" "" "SDL" "CdeLigComDescCFGVal.O2" "0,60,," 0 no ?
"" "" no 0 no no "CDC-LIG" "ARD" "1008000005" "0002" "" "SDL" "CdeLigComDescCFGVar.O3" "Q_NbTrav,TISdanscdHau,TISdleCtxCar,TISdleCtxRN1Car" 0 no ?
"" "" no 0 no no "CDC-LIG" "ARD" "1008000005" "0002" "" "SDL" "CdeLigComDescCFGVal.O3" "0,60,," 0 no ?
"" "" no 0 no no "CDC-LIG" "ARD" "1008000005" "0002" "" "SDL" "EntCtxLisCtx" "CAS-DOR,BVR,O1,O2,O3" 0 no ?
"" "" no 0 no no "CDC-LIG" "ARD" "1008000005" "0002" "" "SDL" "EntCtxLisNiv" "0,1,1,1,1" 0 no ?
"" "" no 0 no no "CDC-LIG" "ARD" "1008000005" "0002" "" "SDL" "CfgSceEnrVal" "V" 0 no ?
TR_ENR-ACT-ENT (APP): CDC-LIG
(ACT): CTX-INI-ARD
(CLE): 1008000005 / 0002 / / ARD
(RES):
<----------------------------------------------------------------------------------------------------
************************************************************
* Contenu des Listes
************************************************************
"WfEntAct,TIS81" "CH" "Action,ActCle,EntTEn,EntCl1,EntCl2,EntCom,Attribut,WFSP,WFNoSP,WFLV,WFLS"
"WfEntAct,TIS81" "CL" "Action à réaliser,Cle de lien avec WfEntVar,Type Entité (ART#CDC#CDC-LIG# ...),Clé 1 Entité,Clé 2 Entité,Commentaire libre,Attribut,WFSP,WFNoSP,WFLV,WFLS"
"WfEntAct,TIS81" "CF" "C/10,C/10,C/10,C/25,C/25,C/25,,,,,"
"WfEntAct,TIS81" "CT" "C,C,C,C,C,C,C,L,I,L,L"
"WfEntAct,TIS81" "CD" "C,C,C,C,C,C,C,L,N,L,L"
"WfEntAct,TIS81" "CA" "1,1,1,1,1,1,0,0,0,0,0"
"WfEntAct,TIS81" "CO" "CTX-INI-ARD,ARD,CDC-LIG,1008000005,0002,Base_ARD=TISARD,#####,-,0,-,-"
"WfEntVar,TIS81" "CH" "EntTVa,EntVar,EntVaC,Attribut,WFSP,WFNoSP,WFLV,WFLS"
"WfEntVar,TIS81" "CL" "Type Variable,Nom Variable,Valeur (pour variable de type caractère),Attribut,WFSP,WFNoSP,WFLV,WFLS"
"WfEntVar,TIS81" "CF" "C/10,C/25,C/50,,,,,"
"WfEntVar,TIS81" "CT" "C,C,C,C,L,I,L,L"
"WfEntVar,TIS81" "CD" "C,C,C,C,L,N,L,L"
"WfEntVar,TIS81" "CA" "1,1,1,0,0,0,0,0"
"WfEntVar,TIS81" "CO" "SDL,CdeLigComDescCFGVar.BVR,g_ha#s_sensmo,##,-,0,-,-"
"WfEntVar,TIS81" "CO" "SDL,CdeLigComDescCFGVal.BVR,24#,##,-,0,-,-"
"WfEntVar,TIS81" "CO" "SDL,CdeLigComDescCFGVar.CAS-DOR,COULEUR#Option#s_tdessin#TISdanscdMod#TISdleCtxCar#TISdleCtxNum#TISdleCtxRN1Car#v_hauteur#v_largeur#N_SansSeuil#RefDate,##,-,0,-,-"
"WfEntVar,TIS81" "CO" "SDL,CdeLigComDescCFGVal.CAS-DOR,#+##AUCUN#O1#O2#O3#BVR#3#CAS-OUV#CAS-OUV#CAS-OUV#CAS-BVR#200#250#7#?,##,-,0,-,-"
"WfEntVar,TIS81" "CO" "SDL,CdeLigComDescCFGVar.O1,COULEUR#Q_NbTrav#TISdanscdHau#TISdleCtxCar#TISdleCtxRN1Car,##,-,0,-,-"
"WfEntVar,TIS81" "CO" "SDL,CdeLigComDescCFGVal.O1,J#0#60##,##,-,0,-,-"
"WfEntVar,TIS81" "CO" "SDL,CdeLigComDescCFGVar.O2,Q_NbTrav#TISdanscdHau#TISdleCtxCar#TISdleCtxRN1Car,##,-,0,-,-"
"WfEntVar,TIS81" "CO" "SDL,CdeLigComDescCFGVal.O2,0#60##,##,-,0,-,-"
"WfEntVar,TIS81" "CO" "SDL,CdeLigComDescCFGVar.O3,Q_NbTrav#TISdanscdHau#TISdleCtxCar#TISdleCtxRN1Car,##,-,0,-,-"
"WfEntVar,TIS81" "CO" "SDL,CdeLigComDescCFGVal.O3,0#60##,##,-,0,-,-"
"WfEntVar,TIS81" "CO" "SDL,EntCtxLisCtx,CAS-DOR#BVR#O1#O2#O3,##,-,0,-,-"
"WfEntVar,TIS81" "CO" "SDL,EntCtxLisNiv,0#1#1#1#1,##,-,0,-,-"
"WfEntVar,TIS81" "CO" "SDL,CfgSceEnrVal,V,##,-,0,-,-"
************************************************************
* Valeur des Variables
************************************************************
SCR.CdeNumCom = 1008000005
SCR.CdeNumLig = 0002
SCR.RefBase = TISARD
Le résultat formaté est le suivant :
************************************************************
* WfEntAct,TIS81
************************************************************
Action à réaliser Cle de lien avec WfEntVar Type Entité (ART,CDC,CDC-LIG, ...) Clé 1 Entité Clé 2 Entité Commentaire libre
CTX-INI-ARD ARD CDC-LIG 1008000005 0002 Base_ARD=TISARD
************************************************************
* WfEntVar,TIS81
************************************************************
Type Variable Nom Variable Valeur (pour variable de type caractère)
SDL CdeLigComDescCFGVar.BVR g_ha,s_sensmo
SDL CdeLigComDescCFGVal.BVR 24,
SDL CdeLigComDescCFGVar.CAS-DOR COULEUR,Option,s_tdessin,TISdanscdMod,TISdleCtxCar,TISdleCtxNum,TISdleCtxRN1Car,v_hauteur,v_largeur,N_SansSeuil,RefDate
SDL CdeLigComDescCFGVal.CAS-DOR ,+,,AUCUN,O1,O2,O3,BVR,3,CAS-OUV,CAS-OUV,CAS-OUV,CAS-BVR,200,250,7,?
SDL CdeLigComDescCFGVar.O1 COULEUR,Q_NbTrav,TISdanscdHau,TISdleCtxCar,TISdleCtxRN1Car
SDL CdeLigComDescCFGVal.O1 J,0,60,,
SDL CdeLigComDescCFGVar.O2 Q_NbTrav,TISdanscdHau,TISdleCtxCar,TISdleCtxRN1Car
SDL CdeLigComDescCFGVal.O2 0,60,,
SDL CdeLigComDescCFGVar.O3 Q_NbTrav,TISdanscdHau,TISdleCtxCar,TISdleCtxRN1Car
SDL CdeLigComDescCFGVal.O3 0,60,,
SDL EntCtxLisCtx CAS-DOR,BVR,O1,O2,O3
SDL EntCtxLisNiv 0,1,1,1,1
SDL CfgSceEnrVal V