Discussion :

[NouveauDev]

Bonjour à tous !

Je demande votre aide car j'ai un souci prise de tête que je n'arrive pas à résoudre.

J'ai une requête où je fais un comptage, la requête s'exécute correctement seulement au moment d'additionner
le résultat Windev m'affiche une erreur :
"Erreur dans la procédure. Un champ n'a pas de sous élément. L'opérateur '.' est interdit"

Voici ma requête :

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
sql="SELECT COUNT(BASE_ONE.REF) AS NB, 
DECODE (BASE_ONE.IT, 'PINOT', 'ALSACE', 'RIESLING', 'ALSACE', 'CHABLIS', 'BOURGOGNE') AS IT
BASE_ONE.SEMAINE AS SEMAINE
FROM BASE_ONE
WHERE LEFT(BASE_ONE.DATE_COM,4)=2017
Group by DECODE (BASE_ONE.IT, 'PINOT', 'ALSACE', 'RIESLING', 'ALSACE', 'CHABLIS', 'BOURGOGNE'), SEMAINE"
 
HExécuteRequêteSQL(Rq,hRequêteDéfaut,sql)
	HLitPremier(Rq) 
	TANTQUE PAS HEnDehors(Rq) 
		K=TableCherche(Table.SEMAINE,Rq.semaine,Vrai,1) 
		SI K<>-1 ALORS 
			{"Table.VIN_"+Rq.IT}[K]+=Rq.NB //L'erreur apparaît ici
		FIN
		HLitSuivant(Rq)
	FIN
	HLibèreRequête(Rq)

Merci pour votre aide.

[tbc92]

Normalement, Windev te dit sur quelle ligne ça plante (il donne le n°). Et dans la fenêtre en question, si tu cliques sur le bouton "Débugguer", il te positionne sur la ligne qui plante.

Quelle est la ligne qui plante ?

En relisant, je vois que c'est sur la ligne : {"Table.VIN_"+Rq.IT}[K]+=Rq.NB

Décompose ton 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
 
sch est une chaine 
sql=[
SELECT COUNT(BASE_ONE.REF) AS NB, 
DECODE (BASE_ONE.IT, 'PINOT', 'ALSACE', 'RIESLING', 'ALSACE', 'CHABLIS', 'BOURGOGNE') AS IT
BASE_ONE.SEMAINE AS SEMAINE
FROM BASE_ONE
WHERE LEFT(BASE_ONE.DATE_COM,4)=2017
Group by DECODE (BASE_ONE.IT, 'PINOT', 'ALSACE', 'RIESLING', 'ALSACE', 'CHABLIS', 'BOURGOGNE'), SEMAINE
]
 
HExécuteRequêteSQL(Rq,hRequêteDéfaut,sql)
	HLitPremier(Rq) 
	TANTQUE PAS HEnDehors(Rq) 
		K=TableCherche(Table.SEMAINE,Rq.semaine,Vrai,1) 
		SI K<>-1 ALORS 
                        sch = "Table.VIN_"+Rq.IT
                        info ( " Pour controle ", "<" +sch  + ">"  ) 
			{ sch, indchamp }[K]+=Rq.NB //L'erreur apparaît ici
		FIN
		HLitSuivant(Rq)
	FIN
	HLibèreRequête(Rq)

La ligne info() va te permettre de voir si ce qui s'affiche là correspond bien au nom de ta colonne.
En mettant <> avant et après, ça permet de voir s'il n'y aurait pas des caractères ESPACE qui gèneraient ?

Et sur la ligne suivante, le tag IndChamp permet juste d'accélérer le traitement.

[Invité]

Code :

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

{"Table.VIN_"+Rq.IT}[K]+=Rq.NB

à remplacer par

Code :

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

{"Table.VIN_"+Rq.IT, indChamp}[K]+=Rq.NB

[NouveauDev]

Bonjour et merci pour vos réponse.

L'info affiche bien la bonne colonne sans espace.
Le bug est toujours sur la même colonne qui est ALSACE-LORAINE.

J'ai modifié mon code mais l'erreur reste sur :
{"Table.VIN_"+Rq.IT, indChamp}[K]+=Rq.NB
Le point ne lui plait visiblement pas ...

[Narwe]

Que donne le test de l'existence de la colonne (cf code ci-dessous) ?

Code :

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

1
2
3
4
5
SI PAS ChampExiste(sch) ALORS
	Erreur("La colonne n'existe pas !")
SINON
	{ sch, indchamp }[K]+=Rq.NB //L'erreur apparaît ici
FIN

[NouveauDev]

Merci pour votre aide, dans ma base de données il me manquait le "-" dans mon IT composé.
Merci beaucoup !