Discussion :

[rphenix]

Etant donné les déclarations

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
engt est une structure
	agce est une chaîne
	cli est une chaîne
	codeges est une chaîne
	compte est une chaîne
	devise est une chaîne
	chapitre est une chaîne
	inti est une chaîne
	solde est un monétaire		
FIN
 
TabEngt est un tableau de 10000 engt

comment puis ajouter les valeurs dans mon tableau à l'intérier du boucle genre TANTQUE?

Toute aide est la bienvenue

[Louis Griffont]

Je sais pas si j'ai bien compris la question.
Je propose donc ceci

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
 
engt est une structure
	agce est une chaîne
	cli est une chaîne
	codeges est une chaîne
	compte est une chaîne
	devise est une chaîne
	chapitre est une chaîne
	inti est une chaîne
	solde est un monétaire		
FIN
 
TabEngt est un tableau de 10000 engt
 
Tantque Quelquechose
   TabEngt[ compteur]:agce = Valeur_agce
   TabEngt[ compteur]:cli = Valeur_Cli
   TabEngt[ compteur]:codeges = Valeur_codeges
   TabEngt[ compteur]:compte = Valeur_Compte
   TabEngt[ compteur]:devise = Valeur_devise
   TabEngt[ compteur]:chapitre = valeur_chapitre
   TabEngt[ compteur]:inti = valeur_inti
   TabEngt[ compteur]:solde = valeur_solde
   Quelquechose = Testesuite( compteur)
   Si compteur > 1000 alors sortir //Ben c'est plus sûr :-)
fin

[rphenix]

J'ai bien essayé ce procédé, mais j'obtiens l'exception ci-dessous:

Erreur à la ligne 62 du traitement Clic sur Extraire.
La dimension 1 du tableau possède 0 élément(s) et vous tentez d'accéder à l'élément 0.


Informations techniques

Projet : MRC

Dump de l'erreur du module <WD100VM.DLL> <10.00Nu>.

- Appel WL :
Traitement de <Principale.Boîte1.Extraire>, ligne <62>, thread <0>

- Niveau : erreur fatale (EL_FATAL)

- Code erreur : 2304

- Code erreur WD55 : 0

- Pas de code d'erreur système

- Pas de message d'erreur système

- Que s'est-il passé ?
La dimension 1 du tableau possède 0 élément(s) et vous tentez d'accéder à l'élément 0.

- Pas d'info de debug

- Infos attachées :
EIT_DATEHEURE : 21/06/2007 08:40:15
EIT_PILEWL :
Clic sur Extraire (Principale.Boîte1.Extraire), ligne 62

- Identifiant dans le .err : 2304

[Grmmml]

Dans le code fourni je ne vois pas l'initialisation du compteur à 1, ne pas oublier.

Bob.

[rphenix]

L'initialisation du compteur est fait à la déclaration
genre indic est un entier=0, je crois qu'il faut chercher ailleurs!

[Jannus]

le code de Kwasin est un code exemple incomplet qui ne peut être utilisé tel quel et on ne peut pas se baser dessus pour trouver l'erreur.

Il faut nous donner le code qui provoque l'erreur.

[Louis Griffont]

Comme le dit Guardian, je n'ai donné qu'un exemple d'utilisation d'un tableau de structure. Maintenant, il faut voir le code pour trouver l'erreur.

[rphenix]

Après une selection des valeurs dans une table d'une base Oracle, j'exécute le bout de code suivant pour inserer les valeurs dans un tableau de structure:

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
SI SQLExec(strQuery,"LIST_CPTE")= Faux ALORS
			SQLInfoGene()
		       Erreur("Erreur de lecture des engagements clients: " + RC +	"Code erreur : " + SQL.Erreur +RC+...
	     		SQL.MesErreur + RC + strQuery)	
	    	SINON
 
			en_cours=" Extraction des comptes ayant un engagement : Tous les comptes"
			indic est un entier	=0	
 
			TANTQUE SQLAvance("LIST_CPTE")=0	
 
				TableauSupprimeTout(TabEngt)
				en_cours=" Extraction des comptes ayant un engagement  compte :" + SansEspace(SQLLitCol("LIST_CPTE",4)) + "-"  + SansEspace(SQLLitCol("LIST_CPTE",5))
				TabEngt[indic]:agce= SansEspace(SQLLitCol("LIST_CPTE",1))
				TabEngt[indic]:cli=SansEspace(SQLLitCol("LIST_CPTE",2))
				TabEngt[indic]:codeges=SansEspace(SQLLitCol("LIST_CPTE",3))
				TabEngt[indic]:compte=SansEspace(SQLLitCol("LIST_CPTE",4)) + "-"  + SansEspace(SQLLitCol("LIST_CPTE",5))
				TabEngt[indic]:devise=SansEspace(SQLLitCol("LIST_CPTE",6))
				TabEngt[indic]:chapitre=SansEspace(SQLLitCol("LIST_CPTE",7))
				TabEngt[indic]:inti=Remplace(SansEspace(SQLLitCol("LIST_CPTE",8)),"'","''")
				TabEngt[indic]:solde= SQLLitCol("LIST_CPTE",9)
 
				//incrémentation indice
				indic =indic+1	
				Info(indic)
 
			FIN
			Info("fin de lecture")
			SQLFerme("LIST_CPTE")

Ce qui conduit à l'erreur ci-dessus affichée

[Jannus]

Il manque un FIN déjà

Sinon je pense que le problème vient de l'instruction TableauSupprimeTout ()

La taille du tableau passe à 0.

[Louis Griffont]

JE ne vois pas l'instruction initialisant ta variable indic à 1 !

Si tu ne l'as pas fait, je pense que Windev l'initialise par défaut à zéro, et les tableaux sous windev commence à 1 !

[rphenix]

J'ai fait les deux choses suivantes:

- suppression de l'instruction tableausupprimetout(tabEngt)

- modification de l'initialisation du compteur indic
"indic est un entier=0"
par
"indic est un entier=1"

Tout est parfait maintenant.

Merci à vous pour votre aide.