//Remplissage de la liste
dSdatedeb est une Date
SI LISTE_EvEnCours <> 0 ALORS
LISTE_EvEnCours..Visible =Vrai
FIN
//execute la requete
HExécuteRequête(REQ_EvEnCours,hRequêteDéfaut)
HLitPremier(REQ_EvEnCours,IDIntervention)
//alimente la liste
ListeSupprimeTout(LISTE_EvEnCours)
TANTQUE PAS HEnDehors()
dSdatedeb = DateVersChaîne(REQ_EvEnCours.date_debut,"JJ MM AAAA")
ListeAjoute(LISTE_EvEnCours,dSdatedeb+TAB+REQ_EvEnCours.Code_sinistre)
HLitSuivant()
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=3801&post_id=16009