...
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 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
...