Discussion :

[mail.spam]

Bonjour à tous..

voilà je vous explique mon problème..

J'utilise une table hiérarchique afin d'afficher une arborescence.
J'ai une colonne avec un intérupteur et une colonne de type jauge.

J'utlise cette table pour la copie de fichier et je voudrais utiliser le champ jauge de ma table pour afficher la progression mais là je n'y arrive pas.

Voici mon code lorsque j'appuie sur mon bouton pour lancer la copie.

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
46
 
 
CopieOk est un booléen
NumFicEnCours, NbFicACopier sont des entiers
UnFichier, ResListeFichier sont des chaînes
 
POUR TOUTE LIGNE DE TableHierarchique1
	//On ne prend que les lignes cochées..
	//et seulement si c'est un ligne machines, on ne prend pas les intitulé d'usine ou de ligne
	SI TableHierarchique1.Sélectionner ET TableHierarchique1.Machine ALORS
		//
		//	Comptabilise le nombre de fichier à copier
		//	pour toutes les extensions à copier
		//	afin de paramétrer la jauge
		NbFicACopier = 0
		NumFicEnCours = 0
		POUR TOUT Extension AVEC IdMachines = TableHierarchique1.IdMachines
 
			ResListeFichier = fListeFichier(ComplèteRep(Extension.Source) + Extension.Extension,frNonRécursif)	
			NbFicACopier += ChaîneOccurrence(ResListeFichier,RC) + 1
 
		FIN
		//
		//	Mise en place de la jauge de copie
		//
		TableHierarchique1[TableHierarchique1].JaugeCopie..BorneMin = 0
		TableHierarchique1[TableHierarchique1].JaugeCopie..BorneMax = NbFicACopier
		POUR TOUT Extension AVEC IdMachines = TableHierarchique1.IdMachines
			ResListeFichier = fListeFichier(ComplèteRep(Extension.Source) + Extension.Extension,frNonRécursif)
			Trace(Extension.Extension,ChaîneOccurrence(ResListeFichier,RC))
			POUR TOUTE CHAINE UnFichier DE ResListeFichier SEPAREE PAR RC
				NumFicEnCours++
				Trace(NumFicEnCours , "/" , NbFicACopier)
				TableHierarchique1..AffichageActif = Vrai
				JaugeCopie..Valeur = NumFicEnCours
				Multitâche(-1)
 
				//TableAffiche(TableHierarchique1.JaugeCopie)
				CopieOk = fCopieFichier(UnFichier,ComplèteRep(Extension.Déstination))
				SI PAS CopieOk ALORS
					Erreur(ErreurInfo())
				FIN
			FIN
		FIN
	FIN
FIN

La copie se passe correctement et la jauge affiche 100% seulement à la fin du traitement, je ne vois pas de progression.

Pouvez-vous m'aider à afficher cette jauge au fur et à mesure de la progression..

Merci d'avance à tous ceux qui vont se pencher sur mon problème.

[klbsjpolp]

Tu as essayer

Code :

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

TableHierarchique1[TableHierarchique1].JaugeCopie..Valeur = NumFicEnCours

au lieu de

Code :

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

JaugeCopie..Valeur = NumFicEnCours

?

[mail.spam]

Oui j'ai déjà essayé..
La jaune ne s'affiche qu'une fois le traitement terminé

[mail.spam]

J'ai trouvé..

Il faut utilisé

Code :

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

pour i = 1 a tableoccurence(TableHierarchique1)

et pas

Code :

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

POUR TOUTE LIGNE DE TableHierarchique1

Là je vois bien les jauges augmentées.