Discussion :

[Azer.]

Bonjour,

Je débute sur WinDev et je bute sur un point sur lequel je n'ai pas trouvé la réponse dans l'aide fournie par PC SOFT.

En fait, je cherche à afficher dans un e-mail toutes les lignes d'une table par le biais d’une boucle (Exemple en bas du message).

Vous trouverez ci-dessous le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
//Variables correspondantes aux balises HTML
sTRentrée est une chaîne = "<tr>"
sTDentrée est une chaîne = "<td style='text-align:center;border:1px solid black'>"
sTDfin est une chaîne = "</td>"
sTRfin est une chaîne = "</tr>"
sfinTable est une chaîne = "</table>"
 
//Variable pour n lignes du tableau 
nIndiceligne est un entier 
nIndiceligne = 1
sLigneBoucle est une chaîne
 
//En-tête du tableau (1er ligne) 
sLigne2 est une chaîne 
sLigne2 = "<Table><tr>"...
+sTDentrée+"N° de Facture</td>"...
+sTDentrée+"Date d&acute;&eacute;ch&eacute;ance</td>"...
+sTDentrée+"Montant de la Facture</td>"...
+sTDentrée+"Montant d&eacute;j&agrave; R&eacute;gl&eacute;</td>"...
+sTDentrée+"Solde Restant</td></tr>"
 
//Boucle
POUR TOUTE LIGNE DE TABLE_TEMPCreances	
nIndiceligne++
sLigneBoucle = (sTRentrée+sTDentrée+TABLE_TEMPCreances.COL_IDRefDoc[nIndiceligne]+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_DateEcheance_Texte[nIndiceligne]+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_MontantDev[nIndiceligne]+" €"+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_MontantRglDev[nIndiceligne]+" €"+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_SoldeCreance[nIndiceligne]+" €"+sTDfin+sTRfin)
FIN
 
//Signature
sLigneFin est une chaîne ANSI
sLigneFin = fChargeTexte("\\CheminComplet\signature.html")
EmailImporteHTML(sLigneFin,"\\CheminComplet")
 
//Concaténation de toutes les parties
Email.HTML = sLigne1 + RC + TexteCondition + RC + sLigne2 + sLigneBoucle + sfinTable + sLigneFin

Invariablement, seul le dernier enregistrement de la Table est affiché.

J’ai passé beaucoup de temps à chercher mais je ne vois pas l’erreur, c’est pourquoi je lance à appel à l’aide à tous les gentils experts de ce logiciel qui pourront m’assister.

D'après moi, il doit s'agir d’une erreur entre la conversion du tableau HTML et de WINDEV car lorsque je teste ma boucle avec Trace() cela fonctionne.

Je vous remercie de votre attention et de votre aide.

[JeAn-PhI]

bonjour,

essayez avec : "sLigneBoucle +="

[frenchsting]

Bonjour,
Jean-Phi a été plus rapide que moi.

Une aide précieuse (qui t'aurais permis de trouver tout seul) est d'utiliser le débugueur. Tu mets un point d'arrêt au niveau du code que tu souhaites examiner (dans ce cas, la ligne 25).

[Azer.]

Merci beaucoup, ça marche !
Maintenant, je vais essayer de comprendre la raison.
En tout cas, merci beaucoup pour votre aide.
Bonne journée

[Voroltinquo]

Bonjour,
La syntaxe de POUR TOUT/POUR TOUS est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
POUR TOUTE LIGNE [<Indice> [, <Compteur>]] DE <Champ>
  ...
FIN

Dans ton cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
POUR TOUTE LIGNE nIndiceLigne DE TABLE_TEMPCreances
     sLigneBoucle=....
FIN

Par ailleurs l'incrémentation est automatique.
Une autre solution est d'omettre l'indice. C'est alors la ligne en cours qui est prise en compte
Par ailleurs, il est inutile de préfixer les colonnes par le nom du champ table, on sait que c'est ce champ qui est parcouru. Même si, dans un autre champ table, tu as une colonne qui a le même nom , comme on parcours TABLE_TEMPCréances Windev reconnait les siens.

[tbc92]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sLigneBoucle = (sTRentrée+sTDentrée+TABLE_TEMPCreances.COL_IDRefDoc[nIndiceligne]+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_DateEcheance_Texte[nIndiceligne]+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_MontantDev[nIndiceligne]+" €"+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_MontantRglDev[nIndiceligne]+" €"+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_SoldeCreance[nIndiceligne]+" €"+sTDfin+sTRfin)

Ici, on dit que sligneBoucle est égal à tout le truc de droite. Peu importe la valeur de sLigneBoucle juste avant, on écrase cette valeur, et on met ce truc à la place.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sLigneBoucle = sLigneBoucle + (sTRentrée+sTDentrée+TABLE_TEMPCreances.COL_IDRefDoc[nIndiceligne]+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_DateEcheance_Texte[nIndiceligne]+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_MontantDev[nIndiceligne]+" €"+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_MontantRglDev[nIndiceligne]+" €"+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_SoldeCreance[nIndiceligne]+" €"+sTDfin+sTRfin)

Ici, on dit que sLigneBoucle vaut dorénavant son ancienne valeur, concaténée avec ce gros truc. C'est exactement ce qu'on veut. C'est la solution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sLigneBoucle += (sTRentrée+sTDentrée+TABLE_TEMPCreances.COL_IDRefDoc[nIndiceligne]+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_DateEcheance_Texte[nIndiceligne]+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_MontantDev[nIndiceligne]+" €"+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_MontantRglDev[nIndiceligne]+" €"+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_SoldeCreance[nIndiceligne]+" €"+sTDfin+sTRfin)

C'est une autre façon plus légère d'écrire la commande précédente.

J'ai même l'impression (sans certitude) que la bonne syntaxe, c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sLigneBoucle += [sTRentrée+sTDentrée]+(TABLE_TEMPCreances.COL_IDRefDoc[nIndiceligne]+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_DateEcheance_Texte[nIndiceligne]+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_MontantDev[nIndiceligne]+" €"+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_MontantRglDev[nIndiceligne]+" €"+sTDfin...
	+sTDentrée+TABLE_TEMPCreances.COL_SoldeCreance[nIndiceligne]+" €"+sTDfin+sTRfin)

Cf l'aide : Le séparateur n'est pas concaténé si la chaîne d'origine est une chaîne vide ("").

[Azer.]

Un grand merci à tous d'avoir donné votre temps pour me fournir toutes ces précisions !
J'ai bien compris mon erreur grâce à vos explications.
Bonne journée