CPT-CTI : Comptes de Tiers ( ENR-ACT-ENT )
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