Trier ma Table

Invité · 14/06/2016, 15h15

Vous pouvez faire dans ce genre là par exemple, mais dans ce cas, il faut remplacer :

Code :

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

COL_regroupement="1-" + FGRAVEL.REFE1

par

Code :

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

COL_regroupement[TABLE_FGRAVEL..Occurrence]=FGRAVEL.REFE1+"-1"

et

Code :

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

COL_regroupement="2-" + COL_REFE1[IndiceLigne]

par

Code :

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

COL_regroupement[TABLE_FGRAVEL..Occurrence]=FGRAVEL.REFE1+"-2"

Autre façon : ajouter un nouvel argument dans la fonction TableAjouteLigne
PS: j'avais édité mon message initial pour mieux gérer le tri

**vavans** · 14/06/2016, 15h23

Je ne comprend pas comment je peux obtenir ça(qui donc n'est pas ce que je recherche):
Nom : Capture.PNG
Affichages : 114
Taille : 45,5 Ko

Avec ce code la:

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
POUR TOUT FGRAVEL 
 
	SELON FGRAVEL.TYPF1 
		CAS 1
 
			TableAjouteLigne(TABLE_FGRAVEL,FGRAVEL.TYPF1,FGRAVEL.IDEN1,FGRAVEL.COMM1,FGRAVEL.COMP1,FGRAVEL.CODP1,FGRAVEL.VILL1,FGRAVEL.PAYS1,SansEspace(FGRAVEL.REFE1),
			FGRAVEL.REFF1,FGRAVEL.DATE1,FGRAVEL.PROD1,FGRAVEL.MODV1,FGRAVEL.SENT1,FGRAVEL.NBRC1,FGRAVEL.TYPC1,FGRAVEL.NBSM1,FGRAVEL.POID1,FGRAVEL.VOLU1,
			FGRAVEL.NBPC1,FGRAVEL.NBUN1,FGRAVEL.MTVA1,FGRAVEL.DEVV1,FGRAVEL.MTVE1,FGRAVEL.DEVE1,FGRAVEL.MTCR1,FGRAVEL.DEVC1,FGRAVEL.MDCR1,FGRAVEL.ECCR1,hFixeIdAuto)	
			COL_regroupement[TABLE_FGRAVEL..Occurrence]=FGRAVEL.REFE1+"-1"
		CAS 2 
 
			CodeArticle est une chaîne=SansEspace(Gauche(FGRAVEL.COMM1, 10))
			IndiceLigne est un entier=(TableCherche(COL_REFE1, CodeArticle,1))
 
			SI IndiceLigne <>-1     ALORS
				TableAjouteLigne(TABLE_FGRAVEL,FGRAVEL.TYPF1,FGRAVEL.IDEN1,FGRAVEL.COMM1,FGRAVEL.COMP1,FGRAVEL.CODP1,FGRAVEL.VILL1,FGRAVEL.PAYS1,SansEspace(FGRAVEL.REFE1),
				FGRAVEL.REFF1,FGRAVEL.DATE1,FGRAVEL.PROD1,FGRAVEL.MODV1,FGRAVEL.SENT1,FGRAVEL.NBRC1,FGRAVEL.TYPC1,FGRAVEL.NBSM1,FGRAVEL.POID1,FGRAVEL.VOLU1,
				FGRAVEL.NBPC1,FGRAVEL.NBUN1,FGRAVEL.MTVA1,FGRAVEL.DEVV1,FGRAVEL.MTVE1,FGRAVEL.DEVE1,FGRAVEL.MTCR1,FGRAVEL.DEVC1,FGRAVEL.MDCR1,FGRAVEL.ECCR1,hFixeIdAuto)
				COL_regroupement[TABLE_FGRAVEL..Occurrence]=FGRAVEL.REFE1+"-2"
			FIN
		FIN
		TableTrie(TABLE_FGRAVEL,"+COL_regroupement")
FIN

Invité · 14/06/2016, 15h27

On peut voir la nouvelle colonne?

**vavans** · 14/06/2016, 15h31

Si vous parlez de la colonne regroupement et bien elle est vide.

Invité · 14/06/2016, 15h32

ajoutez alors la valeur en ajoutant un nouvel argument dans TableAjouteLigne

**vavans** · 14/06/2016, 15h40

Je ne comprend pas, c'est à dire ?
Je dois mettre TableAjouteLigne(...,"L'argument dont vous me parlez")

Invité · 14/06/2016, 15h44

c'est bien cela, mais avez-vous bien la colonne COL_REGROUPEMENT en dernière position dans la table?

**vavans** · 14/06/2016, 15h50

Oui en dernière position mais je ne comprend pas quoi mettre entre les parenthèses(en argument).

Invité · 14/06/2016, 15h56

Si FGRAVEL.TYPF1=1, mettre FGRAVEL.REFE1+"-1" dans la nouvelle colonne, sinon, COL_REFE1[IndiceLigne]+"-2"

**vavans** · 14/06/2016, 16h01

Donc si j'ai bien compris il faut que je fasse ça:

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
POUR TOUT FGRAVEL 
 
	SELON FGRAVEL.TYPF1 
		CAS 1
 
			TableAjouteLigne(TABLE_FGRAVEL,FGRAVEL.TYPF1,FGRAVEL.IDEN1,FGRAVEL.COMM1,FGRAVEL.COMP1,FGRAVEL.CODP1,FGRAVEL.VILL1,FGRAVEL.PAYS1,SansEspace(FGRAVEL.REFE1),
			FGRAVEL.REFF1,FGRAVEL.DATE1,FGRAVEL.PROD1,FGRAVEL.MODV1,FGRAVEL.SENT1,FGRAVEL.NBRC1,FGRAVEL.TYPC1,FGRAVEL.NBSM1,FGRAVEL.POID1,FGRAVEL.VOLU1,
			FGRAVEL.NBPC1,FGRAVEL.NBUN1,FGRAVEL.MTVA1,FGRAVEL.DEVV1,FGRAVEL.MTVE1,FGRAVEL.DEVE1,FGRAVEL.MTCR1,FGRAVEL.DEVC1,FGRAVEL.MDCR1,FGRAVEL.ECCR1,FGRAVEL.REFE1+"-1",hFixeIdAuto)	
			COL_regroupement[TABLE_FGRAVEL..Occurrence]=FGRAVEL.REFE1+"-1"
		CAS 2 
 
			CodeArticle est une chaîne=SansEspace(Gauche(FGRAVEL.COMM1, 10))
			IndiceLigne est un entier=(TableCherche(COL_REFE1, CodeArticle,1))
 
			SI IndiceLigne <>-1     ALORS
				TableAjouteLigne(TABLE_FGRAVEL,FGRAVEL.TYPF1,FGRAVEL.IDEN1,FGRAVEL.COMM1,FGRAVEL.COMP1,FGRAVEL.CODP1,FGRAVEL.VILL1,FGRAVEL.PAYS1,SansEspace(FGRAVEL.REFE1),
				FGRAVEL.REFF1,FGRAVEL.DATE1,FGRAVEL.PROD1,FGRAVEL.MODV1,FGRAVEL.SENT1,FGRAVEL.NBRC1,FGRAVEL.TYPC1,FGRAVEL.NBSM1,FGRAVEL.POID1,FGRAVEL.VOLU1,
				FGRAVEL.NBPC1,FGRAVEL.NBUN1,FGRAVEL.MTVA1,FGRAVEL.DEVV1,FGRAVEL.MTVE1,FGRAVEL.DEVE1,FGRAVEL.MTCR1,FGRAVEL.DEVC1,FGRAVEL.MDCR1,FGRAVEL.ECCR1, COL_REFE1[IndiceLigne]+"-2",hFixeIdAuto)
				COL_regroupement[TABLE_FGRAVEL..Occurrence]=FGRAVEL.REFE1+"-2"
			FIN
		FIN
		TableTrie(TABLE_FGRAVEL,"+COL_regroupement")
FIN

Mais avec ça la colonne regroupement reste vide.

Invité · 14/06/2016, 16h05

les lignes de code

Code :

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

COL_regroupement[TABLE_FGRAVEL..Occurrence]=FGRAVEL.REFE1+"-1"

et

Code :

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

COL_regroupement[TABLE_FGRAVEL..Occurrence]=FGRAVEL.REFE1+"-2"

peuvent disparaitre

**vavans** · 14/06/2016, 16h10

Et bien même en enlevant les lignes la colonne reste vide.

Invité · 14/06/2016, 16h12

Que représente hFixeIdAuto dans TableAjouteLigne?

**vavans** · 14/06/2016, 16h14

Je voulais essayer un truc avec les identifiant automatique mais je n'ai pas réussi et j'ai oublié de l'enlever.

Invité · 14/06/2016, 16h25

Je pense que ça vient d'un problème de remplissage.
Pour mieux le voir, il est impératif à ce que la fonction TableAjouteLigne soit écrite sur une seule ligne (de pas couper la ligne par des ...), ensuite, faire un simple clic gauche sur une valeur qu'on ajoute à la table, puis, faire ALT + F1, une petite info bulle apparait qui dit à quelle colonne cela correspond.

**vavans** · 14/06/2016, 16h38

C'est bon, Merci beaucoup. En effet il manquait une colonne.

Mon tuteur va être content.

Invité · 14/06/2016, 17h17

Ne pas oublier de cliquer sur "Résolu" quand un problème est solutionné

**Hemgé** · 14/06/2016, 20h07

Bonsoir,

Je repasse ce soir et comme cela semble quasi résolu, je n'ai pas lu le reste de la discussion.

Juste une chose que j'avais omis de relever :

		CAS 2 
 
			CodeArticle est une chaîne =SansEspace(Gauche(FGRAVEL.COMM1, 10))
			IndiceLigne est un entier  =(TableCherche(COL_REFE1, CodeArticle,1))

Vous déclarez les 2 variables CodeArticle et IndiceLigne à chaque passage dans cette section du code.
Il faut déclarer ces variables en amont, au début de votre code, et ensuite, vous les affectez quand nécessaire.

**tbc92** · 14/06/2016, 20h35

Différentes petites choses :

Tu fais :

Code :

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

1
2
3
4
TableAjouteLigne(TABLE_FGRAVEL,FGRAVEL.TYPF1,FGRAVEL.IDEN1,FGRAVEL.COMM1,FGRAVEL.COMP1,FGRAVEL.CODP1,FGRAVEL.VILL1,FGRAVEL.PAYS1,SansEspace(FGRAVEL.REFE1),
			FGRAVEL.REFF1,FGRAVEL.DATE1,FGRAVEL.PROD1,FGRAVEL.MODV1,FGRAVEL.SENT1,FGRAVEL.NBRC1,FGRAVEL.TYPC1,FGRAVEL.NBSM1,FGRAVEL.POID1,FGRAVEL.VOLU1,
			FGRAVEL.NBPC1,FGRAVEL.NBUN1,FGRAVEL.MTVA1,FGRAVEL.DEVV1,FGRAVEL.MTVE1,FGRAVEL.DEVE1,FGRAVEL.MTCR1,FGRAVEL.DEVC1,FGRAVEL.MDCR1,FGRAVEL.ECCR1,FGRAVEL.REFE1+"-1",hFixeIdAuto)	
			COL_regroupement[TABLE_FGRAVEL..Occurrence]=FGRAVEL.REFE1+"-1"

Tu pourrais faire :

Code :

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

1
2
3
TableAjouteLigne(TABLE_FGRAVEL,FGRAVEL.TYPF1,FGRAVEL.IDEN1,FGRAVEL.COMM1,FGRAVEL.COMP1,FGRAVEL.CODP1,FGRAVEL.VILL1,FGRAVEL.PAYS1,SansEspace(FGRAVEL.REFE1),
			FGRAVEL.REFF1,FGRAVEL.DATE1,FGRAVEL.PROD1,FGRAVEL.MODV1,FGRAVEL.SENT1,FGRAVEL.NBRC1,FGRAVEL.TYPC1,FGRAVEL.NBSM1,FGRAVEL.POID1,FGRAVEL.VOLU1,
			FGRAVEL.NBPC1,FGRAVEL.NBUN1,FGRAVEL.MTVA1,FGRAVEL.DEVV1,FGRAVEL.MTVE1,FGRAVEL.DEVE1,FGRAVEL.MTCR1,FGRAVEL.DEVC1,FGRAVEL.MDCR1,FGRAVEL.ECCR1,FGRAVEL.REFE1+"-1",hFixeIdAuto , FGRAVEL.REFE1+"-1" )

Ca ne change pas grand chose, mais ça fait juste un code plus cohérent.

Point n°2, tu fais un : Pour TOUT FGRAVEL et ensuite tu traites toutes les lignes dans l'ordre où le POUR TOUT a renvoyé les lignes.

Si par un malheureux hasard, ta boucle cherche à traiter d'abord une ligne DETAIL, puis la ligne PRODUIT correspondant à ce DETAIL, ça doit poser problème, non ? Est-tu garanti que ça n'arrivera pas ?

Point n°3 , tu fis un tablecherche(), très bien, mais alors exploitons cette information jusqu'au bout :

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
 
OUR TOUT FGRAVEL 
 
	SELON FGRAVEL.TYPF1 
		CAS 1
 
			   TableAjouteLigne(TABLE_FGRAVEL,FGRAVEL.TYPF1,FGRAVEL.IDEN1,FGRAVEL.COMM1,FGRAVEL.COMP1,FGRAVEL.CODP1, FGRAVEL.VILL1,FGRAVEL.PAYS1,SansEspace(FGRAVEL.REFE1),
			FGRAVEL.REFF1,FGRAVEL.DATE1,FGRAVEL.PROD1,FGRAVEL.MODV1, FGRAVEL.SENT1,FGRAVEL.NBRC1, FGRAVEL.TYPC1, FGRAVEL.NBSM1,FGRAVEL.POID1,FGRAVEL.VOLU1,
			FGRAVEL.NBPC1,FGRAVEL.NBUN1,FGRAVEL.MTVA1,FGRAVEL.DEVV1,FGRAVEL.MTVE1,FGRAVEL.DEVE1, FGRAVEL.MTCR1,FGRAVEL.DEVC1,FGRAVEL.MDCR1,FGRAVEL.ECCR1,FGRAVEL.REFE1+"-1",hFixeIdAuto,  FGRAVEL.REFE1+"-1" ) 	
 
		CAS 2 
 
			CodeArticle =SansEspace(Gauche(FGRAVEL.COMM1, 10))
			IndiceLigne=TableCherche(COL_REFE1, CodeArticle,1)
 
			SI IndiceLigne <>-1     ALORS
				TableInsèreLigne(TABLE_FGRAVEL indice_ligne+1 ,FGRAVEL.TYPF1,FGRAVEL.IDEN1,FGRAVEL.COMM1, FGRAVEL.COMP1,FGRAVEL.CODP1,FGRAVEL.VILL1, FGRAVEL.PAYS1,SansEspace(FGRAVEL.REFE1),
				FGRAVEL.REFF1,FGRAVEL.DATE1,FGRAVEL.PROD1,FGRAVEL.MODV1, FGRAVEL.SENT1,FGRAVEL.NBRC1, FGRAVEL.TYPC1,FGRAVEL.NBSM1, FGRAVEL.POID1,FGRAVEL.VOLU1,
				FGRAVEL.NBPC1,FGRAVEL.NBUN1,FGRAVEL.MTVA1,FGRAVEL.DEVV1, FGRAVEL.MTVE1,FGRAVEL.DEVE1, FGRAVEL.MTCR1,FGRAVEL.DEVC1, FGRAVEL.MDCR1,FGRAVEL.ECCR1, COL_REFE1[IndiceLigne]+"-2",hFixeIdAuto,  FGRAVEL.REFE1+"-2") 
 
                        SINON
                               Erreur ( " J'ai une ligne de type DETAIL alors que la ligne PRODUIT correspondant n'existe pas ", codeArticle)				 
			FIN
		FIN
 
FIN

Avec TableInsereLigne() tu choisis directement l'endroit où tu insères la ligne, et donc plus besoin de faire un TableTrie() à la fin.

C'est une variante parmi d'autres... avec la colonne 'cachée' qu'on t'a proposé d'ajouter à la fin, ça devrait aussi marcher très bien.

Dernier point : A différentes reprises, tu as demandé 'est-ce que c'est possible ?'
La question n'est pas de savoir si c'est possible, bien sûr et heureusement que c'est possible. Si Windev ne permettait pas d'afficher des données dans un ordre imposé, alors Windev n'existerait pas.

Invité · 15/06/2016, 14h18

Envoyé par tbc92

Dernier point : A différentes reprises, tu as demandé 'est-ce que c'est possible ?'
La question n'est pas de savoir si c'est possible, bien sûr et heureusement que c'est possible. Si Windev ne permettait pas d'afficher des données dans un ordre imposé, alors Windev n'existerait pas.

Tout est question de philosophie, quand quelque chose n'est pas possible, la plupart du temps, ça vient dans notre façon de raisonner qui n'est pas la bonne solution à adopter, et ce, quelque soit le langage de programmation qu'on utilise. Personnellement, j'avais voulu migrer du code vb.net en wlangage sur un projet assez complexe (j'ai mis 3 mois pour valider toute la partie test, et 2 jours pour faire le développement en production), sur les 2 poins les plus délicats, j'ai pu en régler qu'un seul.

Trier ma Table

WinDev

Discussions similaires

Partager

Partager