Discussion :

[Rokitdev]

Bonjour,

Dans une fenêtre j'ai inséré un champ arbre mais je n'arrive pas à rajouter mon dernier dernier niveau.

Code :

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

1
2
3
4
5
6
PROCÉDURE FEN_TypeImpressionEtiquette()
 
GLOBAL
i est un entier
s est une chaîne
nIDFFProduits est un entier

Mon ABRE

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
// Variables
sRacineTV est une chaîne = "Toutes"
sBrancheTV est une chaîne
sFeuilleTV est une chaîne
 
// Initialisation
ArbreAjoute(ARBRE_Etiquettes,sRacineTV,IMG_Dossierracine,IMG_Dossierracine)
 
// Groupes des produits
i=0
BOUCLE
	i++
	HLit(FTypesProduits,i)
	SI HEnDehors() ALORS SORTIR
	SI (HEtat()=hEtatActif) ALORS
		// Création du groupe des types de produit dans le TreeView
		sBrancheTV=SansEspace(FTypesProduits.NomTypeProduit)
		ArbreAjoute(ARBRE_Etiquettes,sRacineTV+TAB+sBrancheTV,IMG_Typefermes,IMG_Typeouvert,aDéfaut,aDéfaut,"G"+FTypesProduits.IDFTypesProduits)
		ArbreDéroule(ARBRE_Etiquettes,sRacineTV+TAB+sBrancheTV)
		// Recherche des Familles de produits affectées à ce groupe
		HLitRecherche(FFamillesProduits,NomTypeProduit,FTypesProduits.NomTypeProduit)
		TANTQUE HTrouve()
			ArbreAjoute(ARBRE_Etiquettes,sRacineTV+TAB+sBrancheTV+TAB+SansEspace(FFamillesProduits.NomFamillesProduits),IMG_Dossierfermé,IMG_Dossierfermé,"P"+FFamillesProduits.IDFFamillesProduits)
			HLitSuivant(FFamillesProduits,NomTypeProduit)
		FIN
	FIN
FIN

J'ai ma Racine, mes Noeuds, mais lorsque j'essaye d'ajouter mes feuilles soit rien ne s'affiche ou tous dans un noeud au hasard.

Merci de votre aide.

[Voroltinquo]

Bonjour,
Il est préférable d'initialiser les parcours par les fonctions suffixées par Premier/Dernier. Cela peut avoir une influence au niveau de la recherche. Si le pointeur est déjà sur le dernier enregistrement, il retourne la position de cet enregistrement, et il ne trouve pas d'enregistrement suivant.

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
 
	HLitPremier(FTypesProduits,i)
	TANTQUE HTrouve(FTypeProduit)
		// Création du groupe des types de produit dans le TreeView
		sBrancheTV=SansEspace(FTypesProduits.NomTypeProduit)
		ArbreAjoute(ARBRE_Etiquettes,sRacineTV+TAB+sBrancheTV,IMG_Typefermes,IMG_Typeouvert,aDéfaut,aDéfaut,"G"+FTypesProduits.IDFTypesProduits)
		ArbreDéroule(ARBRE_Etiquettes,sRacineTV+TAB+sBrancheTV).
 
		// Recherche des Familles de produits affectées à ce groupe
		HLitRecherchePremier(FFamillesProduits,NomTypeProduit,FTypesProduits.NomTypeProduit)
		TANTQUE HTrouve(FFamillesProduits)
	 ArbreAjoute(ARBRE_Etiquettes,sRacineTV+TAB+sBrancheTV+TAB+SansEspace(FFamillesProduits.NomFamillesProduits),IMG_Dossierfermé,IMG_Dossierfermé,"P"+FFamillesProduits.IDFFamillesProduits)
			HLitSuivant(FFamillesProduits,NomTypeProduit)
		FIN
                HLitSuivant(FtypeProduit)
	FIN

Dans le cas de ton problème, il aurait été souhaitable d'utiliser le mode Pas à pas.

Il y a aussi la version "Compacte"

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
 
PROCÉDURE RemplirArbre(chNomArbre est Champ)
sNomBranche est une chaîne
sNomFeuille est chaîne
sCondition est chaîne
 
ArbreAjoute(chNomArbre,"Racine")
POUR TOUT TypeProduit 
	sNomBranche=ChaîneConstruit("Racine%1%2",TAB,TypeProduit.Type)
	ArbreAjoute(chNomArbre,sNomBranche)
	sCondition=ChaîneConstruit("FK_TypeProduit=%1",TypeProduit.PK_TypeProduit)
	POUR TOUT Famille  AVEC sCondition
		sNomFeuille=ChaîneConstruit("%1%2%3",sNomBranche,TAB,Famille.Famille)
		ArbreAjoute(chNomArbre,sNomFeuille)
	FIN
FIN
ArbreDérouleTout(chNomArbre)

[Rokitdev]

Merci pour ces 2 solutions