FORUM WINDEV

Voila le resultat que j'ai :

Madame, Monsieur,

Sauf erreur de notre part, nous n'avons pas reçu votre règlement correspondant aux factures suivantes:
Numéro Date facture Montant Echéance Réglé Solde
20090825 20091120 394.68 20091120 0 394.68
20090891 20091120 411.13 20091204 0 411.13

Nous vous serions reconnaissants de bien vouloir faire le nécessaire rapidement afin de régulariser la situation de votre compte.

Avec nos remerciements anticipés,

Nous vous prions d'agréer, Madame, Monsieur, l'expression de nos sincères salutations.


Marie JOBART

- J'aimerais rajouter un total et faire des espaces car je trouve que la commande +TAB+ pour cela , voilà ce que j'aimerais avoir :

Madame, Monsieur,

Sauf erreur de notre part, nous n'avons pas reçu votre règlement correspondant aux factures suivantes:
Numéro Date facture Montant Echéance Réglé Solde
20090825 20091120 394.68 20091120 0 394.68
20090891 20091120 411.13 20091204 0 411.13
Soit un total de 805,81EUR

Nous vous serions reconnaissants de bien vouloir faire le nécessaire rapidement afin de régulariser la situation de votre compte.

Avec nos remerciements anticipés,

Nous vous prions d'agréer, Madame, Monsieur, l'expression de nos sincères salutations.


Marie JOBART

Voici le code :

FONCTION sPrepareMessage(sMessageType,nLigne)


sContenu est une chaîne = sMessageType
// sContenu = remplace(sContenu, "%CIV%",Civilite[nligne])
// sContenu = remplace(sContenu, "%NOM_PRENOM%",olemail2.table1.NOM[nligne])

clientsuiv=ad_mail




ente_rel est une chaîne
ente_rel="Numéro Date facture Montant Echéance Réglé Solde"
datef est une chaîne
djap est un monétaire
suiv est un entier
total est un monétaire

STOP
HLitRecherche("PARADIV","TOPCD","R"+Complète(SAISIE1,5))
SI HTrouve() ET PARADIV.TOP="R" ET SansEspace(PARADIV.CODE)=SansEspace(SAISIE1) ALORS
suiv=0
sContenu=PARADIV.MEMO1+RC
scontenu=ente_rel+RC
HLitRecherche(Echeanc,factech,"E"+nfac+dc)
SI HTrouve(Echeanc) ALORS
datef=Echeanc.datefact
djap=Echeanc.montregF
FIN
scontenu=scontenu+nfac+TAB+datef+TAB+mont+TAB+dc+TAB+djap+TAB+treg+RC
POUR suiv=1 A 10
SI Mail_Cli[i+suiv]=clientsuiv ALORS
scontenu=scontenu+NUFAC[i+suiv]+TAB+datef+TAB+MONTH[i+suiv]+TAB+DATEC[i+suiv]+TAB+djap+TAB+RESTEREG[i+suiv]+RC
SINON
SORTIR
FIN
FIN
scontenu=PARADIV.MEMO1+RC+sContenu+RC+PARADIV.MEMO2





FIN




RENVOYER sContenu

Merci d'avance pour votre aide

Pour calculer le total du solde c'est bien :
total=treg+restereg[i+suiv]??