WDForge.org - Forums - WD 10 - [RESOLU] L'archivage... et le désarchivage !

Index des forums WDForge.org

WD 10

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

Bas

Suivant S'enregistrer pour contribuer

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

Utilisateur WDF

Inscrit:
28/05/2007 18:18

Post(s): 90

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)

Contribution le : 20/09/2007 18:49

Haut

S'enregistrer pour contribuer

Vous ne pouvez pas débuter de nouveaux sujets.

Vous pouvez voir les sujets.

Vous ne pouvez pas répondre aux contributions.

Vous ne pouvez pas éditer vos contributions.

Vous ne pouvez pas effacez vos contributions.

Vous ne pouvez pas ajouter de nouveaux sondages.

Vous ne pouvez pas voter en sondage.

Vous ne pouvez pas attacher des fichiers à vos contributions.

Vous ne pouvez pas poster sans approbation.