WDForge.org - Forums

[RESOLU] L'archivage... et le désarchivage !

Sujet: [RESOLU] L'archivage... et le désarchivage !
par Le_GnU sur 20/9/2007 18:49:28

Bonjour,
C'est encors moi, avec un gros soucis ...
J'ai réussi ( on ne sais pas trop comment ) à créer un systeme d'archivage ( bidouillage ... ).

Le principe :
Dans mon analyse, j'ai ma rubrique "Donnee" et dedans, un champ booléen "Archiver".

Dans ma table, l'utilisateur coche plusieurs de ses cases "Archiver", appui sur le bouton "V_Archive".

Merci de votre aide,
@+

Excusez moi, vraiment, mais j'ai résolu mon problème, je post simplement le code d'archivage/désarchivage

Archivage :

// 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)

Désarchivage :

// 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)