E-FACFOUR : Entêtes de Factures Fournisseurs ( ENR-ACT-ENT )
L’action interne E-FACFOUR permet de créer, modifier et supprimer des factures fournisseurs pré-enregistrées. Voir Facturation Fournisseur.
Initialisation de la liste WfEntAct telle que :
Nom | T | Désignation | O | Commentaire |
Action | C | Action à exécuter | o | CRE, MOD ou SUP |
EntTEn | C | Entité | o | Doit contenir E-FACFOUR |
ActCle | C | Clé | o | Clé pour lien avec WfEntVar |
EntCl1 | C | Clé 1 Entité | o | Doit contenir &1 pour la création (le numéro de facture est généré par Diapason) et le numéro de facture pour les autres actions. Cette facture ne doit pas contenir de lignes (facture pré-enregistrée) |
Initialisation de la liste WFEntVar (pour CRE ou MOD) :
Pour chacun des champs (sauf PRONumFac) définissant une entête de facture, 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 | AppRefFour | Nom du champ « Fournisseur » | |
EntVaC | C | Valeur Alphanumérique | Référence du fournisseur de la facture |
Cas particuliers des frais multiples hors provisions :
Pour gérer les frais multiples hors provisions, il faut créer des WfEntVar tels que :
Nom | T | Désignation | O | Commentaire |
ActCle | C | Clé | O | Clé pour lien avec WfEntAct |
EntVar | C | VarFraMul | Nom du champ « Frais Multiples » | |
EntVaL | L | Valeur Logique | Doit contenir Oui pour gérer des frais multiples |
Pour chaque frais hors provision à ajouter :
Nom | T | Désignation | O | Commentaire |
ActCle | C | Clé | O | Clé pour lien avec WfEntAct |
EntVar | C | VarDefFraisMul | Nom du champ « Détail Frais Multiples » | |
EntVaC | C | Valeur Alphanumérique | Contient une liste chainée avec comme séparateur « | » composée des 6 éléments suivants : Référence frais (obligatoire) Désignation frais Valeur frais (non nulle) Critère Comptable 1 (obligatoire) Critère Comptable 2 (obligatoire) Critère Comptable 3 (obligatoire) |
Il est également possible de supprimer un frais hors provision :
Nom | T | Désignation | O | Commentaire |
ActCle | C | Clé | O | Clé pour lien avec WfEntAct |
EntVar | C | VarDefFraisMul | Nom du champ « Détail Frais Multiples » | |
EntVaC | C | Valeur Alphanumérique | Contient une liste chainée avec comme séparateur « | » composée des 6 éléments suivants : Référence frais (obligatoire) Désignation frais 0 Critère Comptable 1 Critère Comptable 2 Critère Comptable 3 |
Exemple : création d’une facture
VLO.Cle = CLO."00001"
CREATION Liste WfEntAct :
PRENDRE WfEntAct Action = CLO."CRE"
PRENDRE WfEntAct EntTEn = CLO."E-FACFOUR"
PRENDRE WfEntAct EntCl1 = CLO."&1"
PRENDRE WfEntAct ActCle = VLO.Cle
PRENDRE WfEntAct ActErr = CLO.""
PRENDRE WfEntAct ActRes = CLO.""
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Cle
PRENDRE WfEntVar EntVar = CLO."GesUtiRef"
PRENDRE WfEntVar EntVaC = CLO."ISIA"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Cle
PRENDRE WfEntVar EntVar = CLO."AppRefFour"
PRENDRE WfEntVar EntVaC = SCR.AppFouRef
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Cle
PRENDRE WfEntVar EntVar = CLO."AppFourRegMod"
PRENDRE WfEntVar EntVaC = CLO."0"
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Cle
PRENDRE WfEntVar EntVar = CLO."ProNumFacFour"
PRENDRE WfEntVar EntVaC = VCR.Facture
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Cle
PRENDRE WfEntVar EntVar = CLO."ProDevMontFacHT"
PRENDRE WfEntVar EntVaN = VCR.Montant
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Cle
PRENDRE WfEntVar EntVar = CLO."ProDevMontFacTTC"
PRENDRE WfEntVar EntVaN = VCR.Montant * CLO.1,22
FIN_BLOC
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Cle
PRENDRE WfEntVar EntVar = CLO."ProDateEchFact"
PRENDRE WfEntVar EntVaD = DATEJOUR( )
FIN_BLOC
COMMENTAIRE : "Frais Hors Provisions"
SI VCR.FraisDiv VRAI
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Cle
PRENDRE WfEntVar EntVar = CLO."VarFraMul"
PRENDRE WfEntVar EntVaL = CGL.OUI
FIN_BLOC
VLO.MtFrais = CLO.1,5
VLO.LisFrais = CLO."POS" + CLO."|" + CLO."Frais Postaux" + CLO."|"
+ CHAINE( VALEUR= VLO.MtFrais )
+ CLO."|" + CLO."FRAIS" + CLO."|" + CLO."FRAIS" + CLO."|" + CLO."POS"
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Cle
PRENDRE WfEntVar EntVar = CLO."VarDefFraisMul"
PRENDRE WfEntVar EntVaC = VLO.LisFrais
FIN_BLOC
VLO.MtFrais = CLO.2
VLO.LisFrais = CLO."ADM" + CLO."|" + CLO."Frais Administratifs" + CLO."|"
+ CHAINE( VALEUR= VLO.MtFrais )+ CLO."|" + CLO."FRAIS" + CLO."|"
+ CLO."FRAIS" + CLO."|" + CLO."ADM"
CREATION Liste WfEntVar :
PRENDRE WfEntVar ActCle = VLO.Cle
PRENDRE WfEntVar EntVar = CLO."VarDefFraisMul"
PRENDRE WfEntVar EntVaC = VLO.LisFrais
FIN_BLOC
FIN_BLOC
VLO.Res = ENR-ACT-ENT( )