L’action interne « CPT-CTI » permet de créer, modifier, dupliquer et supprimer des comptes de tiers.
Initialisation de la liste WFEntAct :
|
Nom |
T |
Désignation |
O |
Commentaire |
|
Action |
C |
Action à exécuter |
o |
INI, CRE, MOD, DUP ou SUP |
|
EntTEn |
C |
Entité |
o |
Doit contenir CPT-CTI |
|
ActCle |
C |
Clé |
o |
Clé pour lien avec WfEntVar |
|
EntCl1 |
C |
Clé 1 Entité |
o |
Société Comptable |
|
EntCl2 |
C |
Clé 2 Entité |
o |
Type de Tiers (C ou F) |
|
EntCl3 |
C |
Clé 3 Entité |
o |
Compte de Tiers |
|
DupCl1 |
C |
Clé 1 Entité à Dupliquer |
f |
Société Comptable à Dupliquer si Action contient DUP |
|
DupCl2 |
C |
Clé 2 Entité à Dupliquer |
f |
Type de Tiers à Dupliquer si Action contient DUP |
|
DupCl3 |
C |
Clé 3 Entité à Dupliquer |
f |
Compte de Tiers à Dupliquer si Action contient DUP |
Initialisation de la liste WFEntVar (pour CRE ou MOD) :
Pour chacune des variables (sauf les clés) définissant un compte de tiers, il faut créer un élément dans la liste WFEntVar tel que :
|
Nom |
T |
Désignation |
O |
Commentaire |
|
ActCle |
C |
Clé |
o |
Clé pour lien avec WfEntAct |
|
EntVar |
C |
Nom de la variable |
|
Nom de la variable |
|
EntVaC |
C |
Valeur Alphanumérique |
|
Valeur de la variable si elle est de type alphanumérique |
|
EntVaN |
N |
Valeur Numérique |
|
Valeur de la variable si elle est de type numérique |
|
EntVaL |
L |
Valeur Logique |
|
Valeur de la variable si elle est de type logique |
Exemple :
VLO.Action = SCR.EntAct
VLO.SocCpt = SCR.RefSocCpt
VLO.SocDup = VCR.Societe
VLO.CptNum = SCR.CptGenNum
VLO.CptDup = VCR.NumEvt
VLO.CptTyp = VCR.Type
SI VLO.Action = CLO."INI"
CREATION Liste WfEntAct :
PRENDRE WfEntAct Action = CLO."INI"
PRENDRE WfEntAct ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntAct ActRes = CGL.VIDE
PRENDRE WfEntAct ActErr = CGL.VIDE
PRENDRE WfEntAct EntTEn = CLO."CPT-CTI"
PRENDRE WfEntAct EntCl1 = VLO.SocCpt
PRENDRE WfEntAct EntCl2 = VLO.CptTyp
PRENDRE WfEntAct EntCl3 = VLO.CptNum
FIN_BLOC
VLO.Res = ENR-ACT-ENT( )
POUR CHAQUE LST WfEntVar :
TRACE= WfEntVar.EntVar + CLO."=" + " " + WfEntVar.EntVaC + " " + CHAINE( VALEUR= WfEntVar.EntVaN ) + " " + CHAINE( VALEUR= WfEntVar.EntVaL )
FIN_BLOC
FIN_BLOC
SINON
SI VLO.Action = CLO."DUP"
CREATION Liste WfEntAct :
PRENDRE WfEntAct Action = CLO."DUP"
PRENDRE WfEntAct ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntAct ActRes = CGL.VIDE
PRENDRE WfEntAct ActErr = CGL.VIDE
PRENDRE WfEntAct EntTEn = CLO."CPT-CTI"
PRENDRE WfEntAct EntCl1 = VLO.SocCpt
PRENDRE WfEntAct EntCl2 = VLO.CptTyp
PRENDRE WfEntAct EntCl3 = VLO.CptNum
PRENDRE WfEntAct DupCl1 = VLO.SocDup
PRENDRE WfEntAct DupCl2 = VLO.CptTyp
PRENDRE WfEntAct DupCl3 = VLO.CptDup
FIN_BLOC
VLO.Res = ENR-ACT-ENT()
FIN_BLOC
SINON
SI VLO.Action = CLO."SUP"
CREATION Liste WfEntAct :
PRENDRE WfEntAct Action = VLO.Action
PRENDRE WfEntAct ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntAct ActRes = CGL.VIDE
PRENDRE WfEntAct ActErr = CGL.VIDE
PRENDRE WfEntAct EntTEn = CLO."CPT-CTI"
PRENDRE WfEntAct EntCl1 = VLO.SocCpt
PRENDRE WfEntAct EntCl2 = VLO.CptTyp
PRENDRE WfEntAct EntCl3 = VLO.CptNum
FIN_BLOC
VLO.Res = ENR-ACT-ENT( )
FIN_BLOC
SINON
SI VLO.Action = CLO."MOD"
RECH TBD/SOC DTD COTiers AVEC DTD COTiers.RefSocCpt = VLO.SocCpt ET DTD COTiers.CptTieTyp = VLO.CptTyp ET DTD COTiers.CptTieNum = VLO.CptNum :
SI DTD COTiers.CptTieNom NE_COMMENCE_PAS_PAR CLO."EAE"
CREATION Liste WfEntAct :
PRENDRE WfEntAct Action = VLO.Action
PRENDRE WfEntAct ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntAct ActRes = CGL.VIDE
PRENDRE WfEntAct ActErr = CGL.VIDE
PRENDRE WfEntAct EntTEn = CLO."CPT-CTI"
PRENDRE WfEntAct EntCl1 = VLO.SocCpt
PRENDRE WfEntAct EntCl2 = VLO.CptTyp
PRENDRE WfEntAct EntCl3 = VLO.CptNum
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptTieNom"
PRENDRE WfEntVar EntVaC = CLO."EAE :" + " " + DTD COTiers.CptTieNom
FIN_BLOC
VLO.Res = ENR-ACT-ENT()
FIN_BLOC
FIN_BLOC
FIN_BLOC
SINON
CREATION Liste WfEntAct :
PRENDRE WfEntAct Action = VLO.Action
PRENDRE WfEntAct ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntAct ActRes = CGL.VIDE
PRENDRE WfEntAct ActErr = CGL.VIDE
PRENDRE WfEntAct EntTEn = CLO."CPT-CTI"
PRENDRE WfEntAct EntCl1 = VLO.SocCpt
PRENDRE WfEntAct EntCl2 = VLO.CptTyp
PRENDRE WfEntAct EntCl3 = VLO.CptNum
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptTieNom"
PRENDRE WfEntVar EntVaC = CLO."Compte de Tiers" + " " + VLO.CptNum
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptTieRef"
PRENDRE WfEntVar EntVaC = VLO.CptNum
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptJouRef"
PRENDRE WfEntVar EntVaC = CLO."ACH"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptTieAdresse[1]"
PRENDRE WfEntVar EntVaC = CLO."Adresse 1"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptTieAdresse[2]"
PRENDRE WfEntVar EntVaC = CLO."Adresse 2"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptTieAdresse[3]"
PRENDRE WfEntVar EntVaC = CLO."Adresse 3"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptTieCodPostal"
PRENDRE WfEntVar EntVaC = CLO."65000"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptTieVille"
PRENDRE WfEntVar EntVaC = CLO."Tarbes"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptTiePays"
PRENDRE WfEntVar EntVaC = CLO."F"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptTieDev"
PRENDRE WfEntVar EntVaC = CLO."EUR"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptTieRegMod"
PRENDRE WfEntVar EntVaC = CLO."VIR"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptTieRegDel"
PRENDRE WfEntVar EntVaC = CLO."90"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptTieRegDebEch"
PRENDRE WfEntVar EntVaC = CLO."0"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar EntTEn = CLO."CPT-CTI"
PRENDRE WfEntVar ActCle = VLO.SocCpt + VLO.CptNum + VLO.CptTyp
PRENDRE WfEntVar EntVar = CLO."CptTieRegFinEch"
PRENDRE WfEntVar EntVaC = CLO."99"
FIN_BLOC
VLO.Res = ENR-ACT-ENT()
FIN_BLOC
FIN_BLOC
FIN_BLOC
FIN_BLOC