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)