//enregistre les relances
//1 : Continuer
//2 : Ne pas continuer
SELON Dialogue("Vous allez enregistrer les relances à la date du jour, voulez vous continuer ?")
// Continuer
CAS 1
i est un entier
POUR i=1 A TableOccurrence(Table)
TableSelectPlus(Table,i)
TableModifie(Table.relance_fact,DateDuJour(),i)
TableEnregistre(Table)
TableSelectPlus(Table,i+1)
FIN
// Ne pas continuer
CAS 2
RETOUR
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4586&post_id=19073