// On copie tous les enregistrements
HLitPremier(NomEtablissement,"IDDonnee")
TANTQUE PAS HEnDehors()
// Ajouter l'enregistrement dans le fichier Archives
HCopieEnreg(Archives, NomEtablissement, hValDéfaut)
HAjoute(Archives)
// Passer à l'enregistrement suivant
HLitSuivant(NomEtablissement, "IDDonnee")
FIN
// On supprime les enregistrements non-archivés du fichier Archives
HLitRecherchePremier(Archives,archiver,0)
TANTQUE HTrouve()
HSupprime()
HLitSuivant()
FIN
// On supprime les enregistrements archivés du fichier en cours
HLitRecherchePremier(NomEtablissement,"archiver","1")
TANTQUE HTrouve()
HSupprime()
HLitSuivant()
FIN
// On rafraichit la table
TableAffiche(Table,taDébut)
// On ouvre la fenetre Archive
Ouvre(Table_Archive,NomEtablissement)
// On copie tous les enregistrements
HLitPremier(Archives,"IDDonnee")
TANTQUE PAS HEnDehors()
// Ajouter l'enregistrement dans le fichier NomEtablissement
HCopieEnreg(NomEtaArchive, Archives, hValDéfaut)
HAjoute(NomEtaArchive)
// Passer à l'enregistrement suivant
HLitSuivant(Archives, "IDDonnee")
FIN
// On supprime les enregistrements archivés du fichier NomEtaArchive
HLitRecherchePremier(NomEtaArchive,"archiver","1")
TANTQUE HTrouve()
HSupprime()
HLitSuivant()
FIN
// On supprime les enregistrements non-archivés du fichier en cours
HLitRecherchePremier(Archives,"archiver","0")
TANTQUE HTrouve()
HSupprime()
HLitSuivant()
FIN
// On rafraichit la table
TableAffiche(TABLE_Archives,taDébut)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=5408&post_id=22281