Sablier(Vrai)
//Liste des facturés
i est un entier
POUR i=1 A TableOccurrence(Table)
// si le client fait partie des destinataires
SI Table.Inter[i]=1 ET Table.facturé[i]="" ALORS
TableSelectPlus(Table,i)
Table.facturé[i] ="OUI"
Table.date_facturé[i]=DateDuJour()
// enregistre les modif
TableEnregistre(Table)
FIN
FIN
//impression mailing
iAperçu(iPage,"Aperçu écran",Vrai)
iImprimeEtat(Etat_etiquette)
iAperçu(iPage, "Aperçu écran", Vrai)
iImprimeEtat(EtatMailing)
Rafraichir()
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4586&post_id=19026