Tester si une liste est initialisée ou pas

**droliprane** · 10/12/2013, 12h19

Bonjour,

dans mon interface d'interrogation, j'ai 2 listes alimentées l'une par le fichier article, l'autre par le fichier emplacement de stocks. Avec des sélections sur ces 2 listes combinées, je veux pouvoir filtrer une table de résultats.

J'ai donc ce code sur sélection de ma première liste :

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
SI LISTE_Articles..Valeur <> 0 ALORS 
 
	SI LISTE_Emplacements..Valeur <> 0 ALORS
		HFiltre(REQ_Stocks, "art_id = " + LISTE_Articles..Valeur + " ET empl_id = " + LISTE_Emplacements..Valeur)     	
	SINON
		HFiltre(REQ_Stocks, "art_id = " + LISTE_Articles..Valeur + " ET empl_nom ~] '" + SAI_filtre1 + "'")     
	FIN
 
SINON
 
	// on est sur *
	// on doit filtrer la req à l'aide de ce qui est dans le champs filtre
	// et en fonction de l'emplacement (choisi ou non)
 
	SI LISTE_Emplacements..Valeur <> 0 ALORS
		HFiltre(REQ_Stocks, "art_reference ~] '" + SAI_filtre + "' ET empl_id = " + LISTE_Emplacements..Valeur)     	
	SINON
		HFiltre(REQ_Stocks, "art_reference ~] '" + SAI_filtre + "' ET empl_nom ~] '" + SAI_filtre1 + "'")     
	FIN
 
FIN
 
HLitPremier(REQ_Stocks)
TableAffiche(TABLE_Stocks)
HDésactiveFiltre(REQ_Stocks)

Mais quand j'exécute mon appli, j'ai tout de suite une erreur sur la ligne (ligne 16 ici):

Code :

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

HFiltre(REQ_Stocks, "art_reference ~] '" + SAI_filtre + "' ET empl_id = " + LISTE_Emplacements..Valeur)

Je suppose que la liste Articles déclenche l'événement de sélection, le code est exécuté alors que ma liste Emplacements n'est pas encore créée (quand je survole avec la souris la variable LISTE_Emplacements..Valeur ça m'affiche rien, alors qu'elle devrait au minimum avoir la valeur par défaut 0)... Du coup j'aimerais intégrer dans ce code un test pour savoir si la liste est initialisée ou pas...

Je ne vais quand même pas mettre une tempo à l'initialisation de ma fenêtre !!

Merci à vous

**hpascal** · 10/12/2013, 14h03

Bonjour

J'ai juste survolé ton message mais je pense que cette fonction peut te servir : FenInitialisée

ça permet d'exécuter du code uniquement si tous les traitements d'initialisation (dont les champs) sont terminés

**droliprane** · 10/12/2013, 14h12

Bonjour,

j'ai testé, mais non ce n'est pas ça qui va m'aider. Ca ne fonctionne pas.

Dire que j'avais trouvé une solution dans mon premier projet l'année dernière, mais j'ai tout paumé, alors je recommence tout et je re-rencontre les mêmes problèmes

**droliprane** · 10/12/2013, 14h17

Etrange, parce que si je fais un

Info(LISTE_Emplacements..Valeur)

en tout début de mon traitement "sélection d'un ligne de LISTE_Articles", il m'affiche vide

Alors qu'on voit bien qu'il y a la valeur par défaut *

C'est juste qu'elle ne semble pas "active", pas sélectionnée quoi....

**hpascal** · 10/12/2013, 15h26

et Info(LISTE_Emplacements..ValeurAffichée) donne quoi ?

**droliprane** · 10/12/2013, 15h31

Envoyé par hpascal

et Info(LISTE_Emplacements..ValeurAffichée) donne quoi ?

vide aussi

Je comprends vraiment pas pourquoi il voit cette liste vide

**droliprane** · 10/12/2013, 16h54

et info(LISTE_Emplacements..Occurence) me donne 1 !!!

De l'aide svp, je suis à l'arrêt !

**Nicolas_Jeanneau** · 10/12/2013, 17h32

Bonjour,

ça ne pourrait pas venir de ta première partie de filtre ?

Essayes en mettant en commentaire le AND et la suite pour savoir.

Si c'est cela, il faut tester la valeur de sai_filtre car si c'est vide il ne faut prendre en compte cette zone.

bon courage,

Nicolas

**droliprane** · 10/12/2013, 17h38

Finalement voilà le code qui marche (je le mets là à des fins d'archivage, on sait jamais si je reperds mon projet, je serai bien content de retrouver la soluce ici) :

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
criteres est une chaîne = ""
 
SI LISTE_Articles <> 0 ET LISTE_Articles <> "" ALORS 
 
	SI LISTE_Emplacements <> 0 ET LISTE_Emplacements <> "" ALORS
		criteres = "art_id = " + LISTE_Articles + " ET empl_id = " + LISTE_Emplacements
	SINON
		criteres = "art_id = " + LISTE_Articles + " ET empl_nom ~] '" + SAI_filtre1 + "'"
	FIN
 
SINON
 
	// on est sur *
	// on doit filtrer la req à l'aide de ce qui est dans le champs filtre
	// et en fonction de l'emplacement (choisi ou non)
 
	SI LISTE_Emplacements <> 0 ET LISTE_Emplacements <> "" ALORS
		criteres = "art_reference ~] '" + SAI_filtre + "' ET empl_id = " + LISTE_Emplacements	
	SINON
		criteres = "art_reference ~] '" + SAI_filtre + "' ET empl_nom ~] '" + SAI_filtre1 + "'"     
	FIN
 
FIN
 
HFiltre(REQ_Stocks, art_reference,hValMin, hValMax, criteres)
HLitPremier(REQ_Stocks)
TableAffiche(TABLE_Stocks)
HDésactiveFiltre(REQ_Stocks)

A noter que dans le cas présent, le hfiltre ne fonctionnait pas si je ne précisais pas la clé de parcours et les bornes, alors que d'habitude je ne les mets pas, ni la clé ni les bornes ...

Mais au final ça fonctionne