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()
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=20&topic_id=6235&post_id=24797