TableSupprimeTout(Table1)
HLitRecherchePremier(PROJET_PARTICIPANTS,IDPROJET_ENTETE,IDPROJET_ENTETE)
TANTQUE HTrouve(PROJET_PARTICIPANTS)
HLitRecherchePremier(PERSONNEL,MATRICULE,PROJET_PARTICIPANTS.MATRICULE)
SI HTrouve(PERSONNEL) ALORS
Employé_e = PERSONNEL.NOMPRENOM
T_horaire = PERSONNEL.TAUX_HORAIRE
SINON
Employé_e = "???????????????"
T_horaire = 0
FIN
TableAjouteLigne(Table1,Employé_e,T_horaire)
HLitSuivant(PROJET_PARTICIPANTS,IDPROJET_ENTETE)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=3244&post_id=13715