1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| //boucle(120)
// Temporisation(100,tempoTimer)
//FIN
//HFermeConnexion(gcnxConnexionServer)
//HChangeConnexion("*",gcnxConnexionServer)
// On se repositionne dans l'exercice comptable actuel : la clôture s'initie depuis l'exercice antérieur
HChangeRep(journaux,".\" + gnCoproEnCours + "\Compta")
HChangeRep(ecritures,".\" + gnCoproEnCours + "\Compta")
HChangeRep(mouvement,".\" + gnCoproEnCours + "\Compta")
HLitRecherchePremier(journaux,RefJournal,"ANR")
HLitRecherchePremier(ecritures,IDJournaux,journaux.IDJournaux)
nIDEcriture est entier sur 8 = ecritures.IDEcriture
//nNumEnregistrement est entier sur 8
HSupprime(ecritures,hNumEnrEnCours,hIgnoreIntégrité)
HFiltre(mouvement,IDEcriture,nIDEcriture)
POUR TOUT mouvement SUR IDEcriture
HSupprime(mouvement,hNumEnrEnCours,hIgnoreIntégrité)
FIN
HDésactiveFiltre(mouvement) |
Partager