Bonjour,

je ne trouve pas comment conserver les filtres et les tris appliqués sur une table hiérarchique rempli par programmation avec un Tableaffiche Tanit ça ne fonctionne pas la table s'affiche en totalité voici mon code initialisation :

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
// Variables lecture journées conventions
Datedebjour est une Date
Datefinjour est une Date
// Variables combo mois et année
Datedeb est une Date=DateDuJour()// Début de l'échelle Période
DateFinAnnee est une Date=DateDuJour()// Fin de l'échelle Période
SI COMBO_mois =13 ALORS
	Datedeb..Jour=1	
	Datedeb..Mois=1
	Datedeb..Année=COMBO_Année..ValeurAffichée
	DateFinAnnee=DernierJourDuMois(COMBO_Année..ValeurAffichée,12)
SINON
	Datedeb..Jour=1
	Datedeb..Mois=COMBO_mois
	Datedeb..Année=COMBO_Année..ValeurAffichée
	DateFinAnnee=DernierJourDuMois(COMBO_Année..ValeurAffichée,COMBO_mois)
FIN
 
 
TableSupprimeTout(TABLEH_conventions)
 
//vMoiselect est un variant= COMBO_mois // variant accepte tout type de valeur pour pouvoir prendre la valeur NULL
REQ_convention_client.Param_date_deb=Datedeb
REQ_convention_client.Param_date_fin=DateFinAnnee
REQ_convention_client.Param_id_etablissement=COMBO_agence
REQ_convention_client.Param_proprietaire=COMBO_Collaborateur
 
HExécuteRequête(REQ_convention_client)// la requête recherche déjà les infos donc inutile de remettre HlitrecherchePremier
HLitPremier(REQ_convention_client)
 
TANTQUE PAS HEnDehors(REQ_convention_client)
 
 
	TABLEH_conventions..ImageEnroulée ="convention_16.png"
	TABLEH_conventions..ImageDéroulée ="convention_16.png"
 
 
		NumParent=TableChercheFils(COL_Indice,REQ_convention_client.Société)// On recherche pour éviter de l'afficher en double
		SI NumParent < 1 ALORS 
			//		La catégorie contient le numéro du parent, donc l'enfant ira se mettre sous le parent dans la table
			NumParent=TableAjouteFils(TABLEH_conventions,Null,REQ_convention_client.Société,"","","","","","","","","","","","","","","","","",REQ_convention_client.NumClient)// Null il n'a pas de parent on est à la racine
		FIN
 
	HLitRecherchePremier(Formateur,IDFORMATEUR,REQ_convention_client.IDFORMATEUR)
	HLitRecherchePremier(Catégorie_de_formation,IDGROUPE,REQ_convention_client.IDGROUPE)// On cherche la valeur de l'IDGROUPE de la Requete Commande_client en remontant au fichier source Catégorie de formation 
 
	//On recherche les journées de la commande et on lit le premier jour et le dernier jour (car ils sont triés par date)
	HExécuteRequête(REQ_Journees_commande,hRequêteDéfaut,REQ_convention_client.IDCommande)
	HLitPremier(REQ_Journees_commande)
	Datedebjour=REQ_Journees_commande.Date
	HLitDernier(REQ_Journees_commande)
	Datefinjour=REQ_Journees_commande.Date
 
	moTotal_ttc est un monétaire=0
	moTotaltva est un monétaire=0
	moTotal_HT est un monétaire=0
	moTOTALfinance est un monétaire=0
 
 
	SI REQ_convention_client.Subrogation=2 ALORS
		moTotal_HT=REQ_convention_client.Sous_total-REQ_convention_client.Sous_total_remise
		moTOTALfinance =REQ_convention_client.Financement
		moTotal_ttc=REQ_convention_client.Total_convention_TTC
		moTotaltva=REQ_convention_client.tva_sous_total
	SINON
		moTotal_HT=REQ_convention_client.Sous_total-REQ_convention_client.Sous_total_remise
		moTOTALfinance =REQ_convention_client.Financement
		moTotaltva=REQ_convention_client.Total_tva
		moTotal_ttc=REQ_convention_client.Total_TTC
	FIN
 
	NumFils=TableAjouteFils(TABLEH_conventions,NumParent,REQ_convention_client.Indice,"",-1,REQ_convention_client.NumContact,Formateur.Prenom+" "+Formateur.nom,REQ_convention_client.Datecde,Datedebjour,Datefinjour,REQ_convention_client.Intra_inter,Catégorie_de_formation.LIBGROUPE,REQ_convention_client.Intitule,REQ_convention_client.Nbre_jour,REQ_convention_client.DUREE_FORMATION,REQ_convention_client.Sous_total,moTotal_HT,moTotaltva,moTotal_ttc,moTOTALfinance,REQ_convention_client.IDCommande,REQ_convention_client.NumClient,REQ_convention_client.Statut,REQ_convention_client.Prof_part,REQ_convention_client.IDSESSION,REQ_convention_client.Nouv_commande)
 
 
	//On met les icônes pour les stagiaires
 
	TABLEH_conventions..ImageEnroulée ="client16.png"
	TABLEH_conventions..ImageDéroulée ="client16.png"
 
	HExécuteRequête(REQ_commande_client_stagiaire,hRequêteDéfaut,REQ_convention_client.IDCommande)
 
	HLitPremier(REQ_commande_client_stagiaire)
	TANTQUE PAS HEnDehors(REQ_commande_client_stagiaire)
		//On ajoute les stagiaires de la formation
		TableAjouteFils(TABLEH_conventions,NumFils,REQ_commande_client_stagiaire.Stagiaire,REQ_commande_client_stagiaire.Stagiaire,REQ_commande_client_stagiaire.NumContact,REQ_commande_client_stagiaire.IDCommande,"","","","","","","","","","","","","","",REQ_convention_client.IDCommande,REQ_convention_client.NumClient)
 
		HLitSuivant(REQ_commande_client_stagiaire)
 
 
	FIN
	SI HNbEnr(REQ_commande_client_stagiaire) = 0 ALORS
		TableAjouteFils(TABLEH_conventions,NumFils,"Identité des apprenants  inconnue","","","","","","","","","","","",",,""","","","","","")
	FIN
 
	HLitSuivant(REQ_convention_client)
 
FIN

Merci pour votre aide