----------------------------------------------
//Initialisation de la requete
HExécuteRequête(RecupPointages)
SI ErreurDétectée ALORS
Erreur("Erreur d'initialisation de la requête " + RC+ HErreurInfo())
RETOUR
FIN
//lecture du 1er enregistrement
HLitPremier(RecupPointages))
TANTQUE PAS HEnDehors()
// ICI le code d'envois dans la table
TableAjouteLigne(TABLE,RecupPointages.RUBIQUE1,...
RecupPointages.RUBIQUE2,RecupPointages.RUBIQUE3)
//traitement et récup du prochain
HLitSuivant(RecupPointages)
FIN
HAnnuleDéclaration(RecupPointages) //option
--------------------------------------------------
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=1761&post_id=7336