Discussion :

[mail.spam]

Bonjour,

Voila j'ai une table UnEvenement qui se compose comme suit

IdUnEvenement (idAuto)
Nom (Chaine)
IdUnEvenementParent (Entier)


Ce qui me permet de creer la liste suivant

Anniversaire
|---Mail.Spam
|---Autre
Repas
|---Midi
|---Soir
----|--Semaine
----|--Wekkend

Ce qui donne dans ma table
1 Anniversaire 0
2 Mail.Spam 1
3 Autre 1
4 Repas 0
5 Midi 4
6 Soir 4
7 Semaine 6
8 Weekend 6

Voilà je voudrais afficher cela dans un champ arbre

J'ai donc penser à une procédure récursive
voici mon code
Initialisation de mon arbre

Code :

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

1
2
ArbreAjoute(FI_Evènement.Arbre, "Evènement", aDéfaut, aDéfaut, 0, aTriAlpha)
Contenue(0,"Evènement")

Et ma procedure Contenue

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
PROCEDURE Contenue(IdParent est un entier,UneFeuille est une chaîne)
Nouvellefeuille est une chaîne
NouveauIdParent est un entier
//	on regarde si la feuille contient des sous feuilles
SI HLitRecherchePremier(UnEvènement,IdUnévèmentPArent,IdParent) ALORS
	TANTQUE HTrouve(UnEvènement)
		Nouvellefeuille = UneFeuille + TAB + UnEvènement.Nom
		NouveauIdParent = UnEvènement.IDUnEvènement
		Contenue(NouveauIdParent,Nouvellefeuille)
		HLitSuivant(UnEvènement)
	FIN
SINON
	Trace(UneFeuille,IdParent)
	ArbreAjoute(Arbre,UneFeuille,aDéfaut,aDéfaut,IdParent,aTriAlpha)
FIN

Mais voilà la recursivite me change la position de mon enregistrement
Et donc ne marche pas

J'ai essayé aussi avec une requête mais après la première recursivite il me dit
que ma requête est inconnu

voici le code avec la 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
18
19
20
21
22
23
24
PROCEDURE Contenue(IdParent est un entier,UneFeuille est une chaîne)
Nouvellefeuille est une chaîne
NouveauIdParent est un entier
MaRQT est Sources de Données
 
//	on regarde si la feuille contient des sous feuilles
SI PAS HExécuteRequêteSQL(MaRQT,hRequêteDéfaut,"SELECT IDUnEvènement, Nom FROM UnEvènement WHERE IdUnévèmentParent = " + IdParent) ALORS
	Erreur(ErreurInfo())
SINON
	//	On se place sur le premier enregistrement de la requête
	//	Si on ne peut pas c'est qu'il n'y a pas d'enregistrement donc pas de sous feuille
	SI HLitPremier(MaRQT) ALORS
		TANTQUE PAS HEnDehors(MaRQT)
			Nouvellefeuille = UneFeuille + TAB + MaRQT.Nom
			NouveauIdParent = MaRQT.IDUnEvènement
			Contenue(NouveauIdParent,Nouvellefeuille)
			HLitSuivant(MaRQT)
		FIN
	SINON
		Trace(UneFeuille,IdParent)
		ArbreAjoute(Arbre,UneFeuille,aDéfaut,aDéfaut,IdParent,aTriAlpha)
	FIN
 
FIN

Donc peux t on faire de la récursivité avec des filtre ou des requêtes


Merci pour votre aide

[vmolines]

La réponse rapide est oui si on utilise un nom généré pour la source de données dans ton exemple qui utilise la requête SQL (Cf. la longue discussion sur la magnifique gestion des contextes HyperFile).

Pour le premier exemple, tu pourrais mémoriser et restaurer la position.

Et enfin une solution alternative : tu peux parcourir tous les éléments d'un même niveau et les mettre dans un tableau. Et seulement ensuite, boucler sur le tableau pour lancer la récursivité. Ainsi tu es débranché des problématiques de contexte sur les fichiers de données.

[mogwai162]

En ce qui concerne le mode fichier : Il te faut utiliser hsauveposition et hretourposition pour que ça marche bien.

En ce qui concerne le mode requête : Il te faut une requête par entrée dans la fonction c'est à dire utiliser un tableau de source de données.

Edit Tableau à définir en dehors de la fonction.

Lol : pas assez rapide moi !

[mail.spam]

Bonjour

et merci pour vos réponse très rapide.

Je vais me pencher sur la solution de plusieur Source de donnée.

Car sauver ma position ne vas pas sauver ma condition de hlitrecherchepremier

Enfin je ne crois pas.

Encore Merci


Merci aussi a JBO pour la solution

Il faut simplement ajouter

Code :

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

1
2
MaRQT += HeureSys()
Temporisation(1)

Après la déclaration de la source de donnée ce qui permet d'avoir une source
de donnée différente à chaque fois

Il faut mettre aussi Temporisation(1) sinon le nom peut être le même

[vmolines]

DonneIdentifiant est plus approprié qu'une heure systrème temporisée.

[mogwai162]

...Car sauver ma position ne vas pas sauver ma condition de hlitrecherchepremier...

Mais si...

Il faut simplement ajouter
MaRQT += HeureSys()
Temporisation(1)...

Pas idiot du tout ça... mais ça fait bidouille quand même...

[mogwai162]

Et n'oubliez pas qu'il faudra peut-être libérer les ressources une fois fini...

[mail.spam]

DonneIdentifiant est plus approprié qu'une heure systrème temporisée.

Merci je ne connaissais pas.

sinon mogwai162 je vais essayer en sauvant ma position.

Mais MaRQT += DonneIdentifiant()

fonctionne très bien, il faut que je regarde pour libérer les ressources

Merci beaucoup