// Initialise la requête
SI PAS HExécuteRequête(REQ_Trouve_Ref,hRequêteDéfaut,gTempo_Cle) ALORS
Erreur("Erreur d'initialisation de la requête"+RC+HErreurInfo())
RETOUR
FIN
// Lecture du résultat
HLitPremier(REQ_Trouve_Ref)
TANTQUE PAS HEnDehors()
TableAjouteLigne(TABLE_Article_Popup,REQ_Trouve_Ref.Ref_Interne, REQ_Trouve_Ref.LibProd)
HLitSuivant()
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4153&post_id=17169