//déclaration des fichiers d'archivage.
sdSaisie_Archive est une Source de Données



//crétion des Alias.
HAlias(Client,sdSaisie_Archive)

//assigantion avec les fichiers physiq
HChangeNom(sdSaisie_Archive,"NUISIBLES_"+COMBO_mois..ValeurAffichée+"_"+SAI_Année)

//RAZ des fichiers d'archivages
HCréation(sdSaisie_Archive)

//borne mini de la clé comp
sCléMin est une chaîne
sCléMin = Complète(SAI_Année,4)+NumériqueVersChaîne(COMBO_mois,"02d")+hValMin

//borne max de la clé
sCléMax est une chaîne
sCléMax =  Complète(SAI_Année,4)+NumériqueVersChaîne(COMBO_mois,"02d")+hValMax


//filtrage des enregistrements
HFiltre (Client,date,sCléMin,sCléMax)
HLitPremier(Client,date)

//1 : &Continuer
//2 : &Ne pas continuer
SELON Dialogue("Les données que vous allez archiver ne seront plus modifiables, voulez vous continuer?")
	// &Continuer
	CAS 1
		TANTQUE PAS HEnDehors(Client)
			HCopieEnreg(sdSaisie_Archive,Client,hCopieIdAuto)
			HAjoute(sdSaisie_Archive,hFixeIdAuto)
			HSupprime(Client,hNumEnrEnCours)
			HLitSuivant(Client,date)
		FIN
		
	// &Ne pas continuer
	CAS 2
		Info("L'archivage n'a pas été effectué.")
		
FIN

//fin
HDésactiveFiltre(Client)
HAnnuleAlias(sdSaisie_Archive)

TableAffiche(Table_Client.Table,taDébut)
Ferme(FEN_Archivage)