...
public function int Suppression_Ecriture(dos,NbEcrSupp,HmpEcrSupp)
; appel du programme de saisie pour suppression des écritures dont les numéros sont dans le hmp
; la chaine hmp est de la forme <EcrNo1>...<EcrNo2>...
; falseéchec du programcall
; truesuccès du programcall
1 dos>CCFDD.dhsd DOS= 0 ; numéro du dossier
1 HmpEcrSupp S
; chaine contenant les numéros des écritures à supprimer
1 NbEcrSupp 5,0 ; nombre d'écritures à supprimer
Paramètres obligatoires :
HmpEcrSupp
NbEcrSupp
Paramètre facultatif :
dos : si ce paramètre n'est pas renseigné, on prendra le dossier implicite
- Tunnel_Ecriture_Creer
Function int Tunnel_Ecriture_Creer(jnl, &c8commun, dos, etb)
; Appel du programme de saisie pour création d'écriture dans le journal "jnl".
; C8COMMUN est utilisé par le programme de saisie et contient les différents
; paramètres (compte, date d'écriture,...) communs à toutes les écritures que
; l'on saisit dans le programme.
; Fonction qui retourne
; falseéchec du programcall
; truesuccès du programcall
1 jnl>CCFDD.dhsdJnl ; journal dans lequel on créé
record CCFDD.DHSD C8T1 C8COMMUN; paramètres communs aux écritures
1 dos>CCFDD.dhsdDOS= 0 ; numéro du dossier
1 etb>CCFDD.HSDETB= ' '; code établissement
Paramètres obligatoires :
jnl
c8commun
Paramètre facultatif :
dos : si ce paramètre n'est pas renseigné, on prendra le dossier implicite
etb : si ce paramètre n'est pas renseigné, on prendra l'établissement courant
Au retour, il est possible de tester si une création a effectivement eu lieu, par le test
du pongreceive sur la donnée "creation".
if pongreceive("creation",valeur) = 0 ; creation effective
(re-chargement)
endif
...
public function int Tunnel_Ecriture_Creer_Modele_Abonnement(dos,NbEcrGenerer,HmpEcrGenerer)
; la chaine hmp est de la forme : <AboCod1>..<Etb1>..<Jnl1>..<Cpt1>..<EcrDt1>..<Mt>..<CE5>..<H4Etb>..<Modele>..<AboCod2>..
; falseéchec du programcall
; truesuccès du programcall
1 dos>CCFDD.dhsdDOS= 0 ; numéro du dossier
1 HmpEcrGenererS ; chaine contenant les infos du CABO pour créer l'écriture
1 NbEcrGenerer5,0 ; nombre d'écritures à créer
Paramètres obligatoires :
HmpEcrGenerer
NbEcrGenerer
Paramètre facultatif :
dos : si ce paramètre n'est pas renseigné, on prendra le dossier implicite
- Lettrage
Function int Lettrage(cpt, ecrno, dos, fetb)
; appel du programme de lettrage sur le compte "cpt"
; Fonction qui retroune
; falseéchec du programcall
; truesuccès du programcall
1 cpt >CCFDD.DHSDCPT ; numéro du compte à lettrer
1 ecrno >CCFDD.DHSDECRNO = 0; numéro de l'écriture déjà réservée
1 dos >CCFDD.DHSDDOS = 0; numéro du dossier
1 fetb >CCFDD.DHSD FiltreEtb = ' ' ; filtre établissement à transmettre au programme de lettrage (espace = tous les établissements)
Paramètre obligatoire :
cpt
Paramètres facultatifs :
ecrno : valeur par défaut 0
dos : si ce paramètre n'est pas renseigné, on prendra le dossier implicite
fetb : si ce paramètre n'est pas renseigné, on propose un lettrage sur tous les établissements
...
Function int C3_Integration(fic, version)
; appel du programme d'intégration du fichier "fic"
; Fonction qui retourne :
; falseéchec du programcall
; truesuccés du programcall
1 fic256= ' '; nom du fichier à intégrer
1 version256= ' '; version du fichier à intégrer
1 fictyp1,0= 1; format du fichier (séquentiel indexé par défaut)
Paramètres facultatifs :
fic : si non renseigné, le programme demandera le nom du fichier
version : si non renseigné, version actuelle
fictyp : si non renseigné, fichier séquentiel indexé par défaut Type de fichier d'entrée : 1 = Séquentiel indexé, 2 = Texte (Séparateur Point-Virgule), 3 = Texte (longueur fixe), 4 = Fichier FEC, 5 = ficher excel à partir de la version 10.10
1 flagSsSystem B = FALSE ; Indique si on vient d'un sous-système (TRUE) ou pas (FALSE, défaut)
1 nivControle 1,0 = 0 ; Niveau de contrôle : 1 = pré-contrôle, 2 = intégration, 3 = simulation
1 nomTabTmp >A5DD.dhsd NomTabTmp = ' '
1 RetEcrOk 1,0 = False ; = true pour récupérer une chaîne HMP des écritures générées
Paramètres facultatifs :
fic : si non renseigné, le programme demandera le nom du fichier
version : si non renseigné, version actuelle
fictyp : si non renseigné, fichier séquentiel indexé par défaut
nivControle : par défaut, le niveau de contrôle sera à 2 (c'est à dire intégration directe)
Si Niveau de contrôle est en simulation (3), une simulation sera faire et la liste des erreurs sera remontée
Si Niveau de contrôle est en pré-contrôle (1), une simulation sera faire. Si aucune erreur n'est détectée, la phase 2 d'intégration est effectuée
Si Niveau de contrôle est intégration (2) L'intégration sera effectuée en remontant les erreurs si il y en a. Les écritures valides seront intégrées.
RetEcrOk : Si RetEcrOk = true,une chaine hmp est générée permettant de faire le lien entre les écritures en entrée (ecrvalno) et le n° de l'écriture finale(ecrno)/
Exemple de récupération de la chaîne hmp.
En cas d'erreur, voici les informations en retour qui sont envoyées
- Reconstitution_Soldes
Function int Reconstitution_Soldes(cpt, tout)
; appel du programme de reconstitution des soldes, pour un ou tous les comptes
; Fonction qui retourne :
; falseéchec du programcall
; truesuccés du programcall
1cpt>CCFDD.HSDCPT= ' ' ; compte
1tout1,0= false ; tous les comptes (true / false)
Paramètres facultatifs :
cpt : si non renseigné, alors c'est pour tous les comptes
tout : valeur par défaut false
...
Function int Impression_Journal(jnl, dos, fetb)
; appel du programme de réimpression du journal "jnl"
; Fonction qui retourne
; falseéchec du programcall
; truesuccés du programcall
1jnl>CCFDD.HSDJNL; code du journal à réimprimer
1dos>CCFDD.HSDDOS= 0; numéro du dossier
1fetb>CCFDD.dhsdFiltreEtb= ' '; filtre établissement
Paramètre obligatoire :
jnl
Paramètre facultatif :
dos : si ce paramètre n'est pas renseigné, on prendra le dossier implicite
fetb : si ce paramètre n'est pas renseigné, on procède à une impression sur tous les établissements
- Tunnel_Banque_Rapprochement_Imprimer
...