SI PAS HExécuteRequête(REQ_Tarif) ALORS
DélaiAvantFermeture(1000)
Erreur("Problème d'initialisation de la requete",HErreurInfo())
SINON
sReference, sTarif sont chaînes
//
sReference = NumériqueVersChaîne(REQ_Tarif.Atart)
sTarif = NumériqueVersChaîne(REQ_Tarif.Atp01)
TableauSupprimeTout(TABLE_tarif)
//ok
HLitPremier(REQ_Tarif)
TANTQUE PAS HEnDehors(REQ_Tarif)
TableauAjouteLigne(TABLE_tarif,REQ_Tarif.Atart,REQ_Tarif.Atp01)
HLitSuivant(REQ_Tarif)
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4998&post_id=20626