Madate est une Date=DateSys()
x est un entier système=0


HLitRecherchePremier(Absence,NUMEDOTI,efface.doti)
TANTQUE HTrouve(Absence)
		SI (Absence.date1)<Madate ALORS 
		Madate=Absence.date1
		x=Absence.IDAbsence
		
	FIN
	
	HLitSuivant(Absence,NUMEDOTI)
	
	
FIN
//HCopieEnreg(archive,absence)
//hajoute(Archive)
Info("l identifiant de cette absence est  :"+x)


// Initialisation de la requête "Tache"
// Cette requête utilise une fonction WLangage
// Cette requête sélectionne les tâches de plus de 5 jours
//HExécuteRequêteSQL("ReqTache",...
//"DELETE  FROM Absence WHERE absence.idabsence=idd")
HLitRecherchePremier(Absence,IDAbsence,x)
SI HTrouve ALORS
	HCopieEnreg(Archive,Absence,hValDéfaut)
	HAjoute(Archive)
	HDelete(Absence,hNumEnrEnCours)
FIN

SI HDelete=Vrai ALORS
Info("bravo il a été supprimé, et archivé")
LIB_Libellé5..Visible=Faux

SINON
	HSurErreur("*",hErrTout,"")
	
	
FIN

RAZ()