*CPT-CONF : Confirmation d’Ecritures Comptables ( ENR-ACT-ENT )

L’action interne *CPT-CONF permet de lancer le traitement de confirmation des écritures comptables.

Initialisation de la liste WfEntAct :

Nom	T	Désignation	O	Commentaire
Action	C	Action à exécuter	o	Mode d’exécution du traitement. Doit contenir, soit « B » pour un lancement en batch, soit « I » pour un lancement en interactif
EntTEn	C	Entité	o	Doit contenir *CPT-CONF
ActCle	C	Clé	o	Clé pour lien avec WfEntVar

Remarque : Si le traitement est lancé en mode interactif (Action = « I ») et que le traitement est défini avec un niveau de trace détaillée (voir Maintenance des Traitements), celle-ci est affichée dans la trace courante.

Initialisation de la liste WFEntVar :

Transfert ou non des écritures en comptabilité : indique si la confirmation est faite avec ou sans transfert vers une comptabilité externe à DIAPASON.

Nom	T	Désignation	O	Commentaire
ActCle	C	Clé	o	Clé pour lien avec WfEntAct
EntVar	C	TRANSFERT	o	Nom de la variable
EntVaC	C	Valeur Alphanumérique	o	Doit contenir « + » si on transfert les écritures en comptabilité et « - » sinon.

Référence de l’écriture comptable à confirmer : sous la forme TypeEcriture.RéférenceEcriture WfEntVar doit être défini pour chaque écriture comptable à confirmer.

Nom	T	Désignation	O	Commentaire
ActCle	C	Clé	o	Clé pour lien avec WfEntAct
EntVar	C	ECRITURE	o	Nom de la variable
EntVaC	C	Valeur Alphanumérique	o	Valeur de la variable sous la forme TypeEcriture.RéférenceEcriture

Exemple :

COMMENTAIRE : "Confirmation des factures fournisseurs rattachées à un relevé de factures"

SI VCR.Conf_FF VRAI

COMMENTAIRE : "Récupération des Ecritures de factures fournisseurs non confirmées"

POUR CHAQUE/SOC DTD COConfEn AVEC INDEX (ParConfCOConfEnIdx) DTD COConfEn.CptConfEcr FAUX

ET DTD COConfEn.CptTypEcr = CLO."FF" INDEX ParConfCOConfEnIdx :

VLO.NumFac = DTD COConfEn.CptCleEcr

VLO.Fct = REC-VAR-SPE( TYPE-VARIABLE= O_ECtrF , TYPE= CARACTERE , NOM-VARIABLE= ReleveFacFour

, CLE-1= VLO.NumFac , CLE-2= CLO."" , CLE-3= CLO."" , S:VALEUR= VLO.Releve )

SI VLO.Releve = VCR.FF_Releve

CREATION Liste LST.FacFour :

PRENDRE FacFour NumFac = VLO.NumFac

FIN_BLOC

RECH PREM LST FacFour :

COMMENTAIRE : "Lancement du traitement en interactif"

CREATION Liste WfEntAct :

PRENDRE WfEntAct Action = CLO."I"

PRENDRE WfEntAct EntTEn = CLO."*CPT-CONF"

PRENDRE WfEntAct ActRes = CLO.""

PRENDRE WfEntAct ActErr = CLO.""

PRENDRE WfEntAct ActCle = CLO."FF"

FIN_BLOC

COMMENTAIRE : "Pas de transfert en comptabilité"

CREATION Liste WfEntVar :

PRENDRE WfEntVar EntTEn = CLO."*CPT-CONF"

PRENDRE WfEntVar ActCle = CLO."FF"

PRENDRE WfEntVar EntVar = CLO."TRANSFERT"

PRENDRE WfEntVar EntVaC = CLO."-"

FIN_BLOC

COMMENTAIRE : "Factures à confirmer"

POUR CHAQUE LST FacFour :

CREATION Liste WfEntVar :

PRENDRE WfEntVar EntTEn = CLO."*CPT-CONF"

PRENDRE WfEntVar ActCle = CLO."FF"

PRENDRE WfEntVar EntVar = CLO."ECRITURE"

PRENDRE WfEntVar EntVaC = CLO."FF" + CLO."." + FacFour.NumFac

FIN_BLOC

SINON

COMMENTAIRE : "Confirmation d'Ecritures de Clôture"

SI VCR.Conf_Clo VRAI

COMMENTAIRE : "Récupération des écritures de clôture"

POUR CHAQUE/SOC DTD COConfEn AVEC INDEX (ParConfCOConfEnIdx) DTD COConfEn.CptConfEcr

FAUX :

SI DTD COConfEn.CptTypEcr = CLO."PR" OU DTD COConfEn.CptTypEcr = CLO."VS" OU

DTD COConfEn.CptTypEcr = CLO."DS"

COMMENTAIRE : "Ecritures à confirmer"

CREATION Liste WfEntVar :

PRENDRE WfEntVar EntTEn = CLO."*CPT-CONF"

PRENDRE WfEntVar ActCle = CLO."CLO"

PRENDRE WfEntVar EntVar = CLO."ECRITURE"

PRENDRE WfEntVar EntVaC = DTD COConfEn.CptTypEcr + CLO."." + DTD COConfEn.CptCleEcr

FIN_BLOC

RECH PREM LST WfEntVar AVEC WfEntVar.ActCle = CLO."CLO" :

COMMENTAIRE : "Lancement du traitement en batch"

CREATION Liste WfEntAct :

PRENDRE WfEntAct Action = CLO."B"

PRENDRE WfEntAct EntTEn = CLO."*CPT-CONF"

PRENDRE WfEntAct ActRes = CLO.""

PRENDRE WfEntAct ActErr = CLO.""

PRENDRE WfEntAct ActCle = CLO."CLO"

FIN_BLOC

COMMENTAIRE : "Transfert en comptabilité"

CREATION Liste WfEntVar :

PRENDRE WfEntVar EntTEn = CLO."*CPT-CONF"

PRENDRE WfEntVar ActCle = CLO."CLO"

PRENDRE WfEntVar EntVar = CLO."TRANSFERT"

PRENDRE WfEntVar EntVaC = CLO."+"

FIN_BLOC

RECH PREM LST WfEntAct :

VLO.Res = ENR-ACT-ENT( )

FIN_BLOC