Discussion :

[AUZUR]

Bonjour,
Voila, je souhaite affiché des données dans un libéllé automatiquement.
J'ai créé une carte de la FRANCE cliquable, sur laquelle, quand je clic sur une région, je voudrais voir apparaitre à coté, dans deux libellés différents, mon nom de région et mon CA. J'ai trouvé la solution, c'est celle-ci:

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
 
x, y sont des entiers
x = SourisPosX()
y = SourisPosY()
 
nCouleur est un numérique = dPixelCouleur(IMG_FRANCE2,x, y)
 
 
RechercheBis est un entier = TableCherche(COL_Couleur, nCouleur)
 
SI RechercheBis <> -1 ALORS
	nNbreLigne est un entier = TableOccurrence(TABLE_FRANCEANNUEL, toTotal)
	TableSelectPlus(TABLE_FRANCEANNUEL)
 
	i est un entier = RechercheBis
	xTotalEuro est un numérique = 0
 
	Recherche est un entier = TableCherche(COL_Couleur, nCouleur)
	TANTQUE Recherche <> -1
		i++
		xTotalEuro = xTotalEuro+TABLE_FRANCEANNUEL.COL_CA[Recherche]
		Recherche = TableCherche(COL_Couleur, nCouleur, Vrai, i)
FIN
DEPARTEMENT = TABLE_FRANCEANNUEL.COL_NomRegion[RechercheBis]
CHIFFRE_AFFAIRE = xTotalEuro  + "  € "
FIN

Mon problème maintenant !

Il se passe que j'ai à reproduire ce code pour plusieurs pays, donc j'ai fais une procédure globale:

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
39
40
41
42
43
44
45
 
PROCEDURE Legende(image2, tabpays, colcouleur, image1, dept, chiffaff est une chaîne, colca, colreg,tablegende,colx, coly, coul1,coul2,coul3,coul4 est un entier)
 
 
x, y sont des entiers
x = SourisPosX()
y = SourisPosY()
 
nCouleur est un entier = dPixelCouleur(image2, x, y)
TableSelect(tabpays)
RechercheBis est un entier = TableCherche(colcouleur, nCouleur)
 
SI RechercheBis <> -1 ALORS
	nNbreLigne est un entier = TableOccurrence(tabpays, toTotal)
	TableSelectPlus(tabpays)
 
	i est un entier = RechercheBis
	xTotalEuro est un numérique = 0
 
	Recherche est un entier = TableCherche(colcouleur, nCouleur)
	TANTQUE Recherche <> -1
		i++
		xTotalEuro = xTotalEuro + colca[Recherche]
		Recherche = TableCherche(colcouleur, nCouleur, Vrai, i)
	FIN
	dept = colreg[RechercheBis]
	chiffaff = xTotalEuro  + "  € "
	dDébutDessin(image1)
 
 
	SI xTotalEuro <= coul1 ALORS
		dRemplissage(colx[RechercheBis],coly[RechercheBis],  tablegende[1], iNoir)
	SINON SI xTotalEuro > coul1 ET xTotalEuro <= coul2
		dRemplissage(colx[RechercheBis], coly[RechercheBis],  tablegende[2], iNoir)
	SINON SI xTotalEuro > coul2 ET xTotalEuro <= coul3
		dRemplissage(colx[RechercheBis], coly[RechercheBis],  tablegende[3], iNoir)
	SINON SI xTotalEuro > coul3 ET xTotalEuro <= coul4
		dRemplissage(colx[RechercheBis], coly[RechercheBis],  tablegende[4], iNoir)
	SINON
		dRemplissage(colx[RechercheBis], coly[RechercheBis],  tablegende[5], iNoir)
	FIN
 
SINON
	Info("Pas de données sur la Région que vous venez de sélectionner")
FIN

Le soucis, c'est qu'avec ma procédure, mes données ne s'affiche plus dans mes libellés.

Que faire ?
Merci pour vos réponses.

[Redg9]

quel est le nom de tes libellés ?
DEPARTEMENT et CHIFFRE_AFFAIRE ?

[AUZUR]

C'est ça !

[sphynxounet]

{chiffaff,indchamp} = ...
et
{dept,indchamp} = ...

[Redg9]

pas bête d'utiliser les indirections..

[sphynxounet]

pas bête d'utiliser les indirections..

Je dirai plutôt pas le choix. Quand on appelle la procédure avec le nom des champs libellés, dept et chiffaff sont considérés comme des variables et non pas comme des champs.
Donc pour utiliser ces variables pour pointer sur les champs il faut passer par l'indirection sinon Windev va simplement stocker des données dans les variables dept et chiffaff.

[AUZUR]

Pas bête du tout vu que cela fonctionne.
Merci.