Discussion :

[cdlr27]

Un combo en Liste lié à une table (EntréeStock) qui puisse ses données dans une autre table (Produit).

Dans mon Combo, je saisi la référence de mon produit, si inconnue, j'ouvre la Fiche (Produit) pour le créé et au retour, je met à jour mon Combo, Je recherche la nouvelle donnée et je veux me positionner dessus.

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
Sortie de Combo_Référence (SC_Fiche)
nResultat est un entier
HLitRecherchePremier(Produit,RefMag,COMBO_Référence..ValeurAffichée)
SI HTrouve(Produit) = Vrai ALORS
	SAI_Libellé = Produit.LibProd
	SAI_PrixAchat = Produit.PrixHT
	COMBO_NumFournisseur = Produit.NumFournisseur
	SAI_SaisieLe = SAI_DateAppro
SINON
	// Création d'un nouvel enregistrement
	HRAZ(Produit)
	gbNouvelProduit = Vrai
	gsReference = COMBO_Référence..ValeurAffichée
	
	// Ouverture de la fiche du fichier Produit en mode création
	SI Ouvre(Fen_Fiche_Produit,gbNouvelProduit,Faux,gsReference) ALORS
		
		// Rafraichissement du Combo
		ListeAffiche(MoiMême,taDébut)
		nResultat = ListeCherche(MoiMême,gsReference,Vrai,1)  // ne trouve la nouvelle référence
		ListeSelectPlus(MoiMême,nResultat)
		SetFocus(MoiMême)
	FIN
FIN

Au début, cela a fonctionné quelques fois, mais plus maintenant. Je ne vois pas l'erreur.

Quelques pistes m'aideraient beaucoup

Ci dessous une vue du réglage de mon combo.

[Lo²]

Salut à toi,

Question bête : es-tu certain qu'après le ListeAffiche(..), la variable gsReference se trouve bien dans la combo ?

Tu devrais, à mon avis, faire un Trace(..) du contenu de ta combo avant le ListeCherche(..).

[cdlr27]

A la suite de la suggestion, j'ai apporté ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
// trace
		i = 1
		TraceDébut(trDessusTout)
		BOUCLE
 
			ListeSelectPlus(COMBO_Référence,i)
			Trace(i+TAB+COMBO_Référence)
			i++				
		A FAIRE TANTQUE i< 100
		//COMBO_Référence <> -1 ou HEnDehors(Produit) = Vrai ou 1 > 200
Info("termine")

a) a chaque fois, la nouvelle référence est dans la trace, bien ordonnée par l'option de tri
et de plus, avec le temps de retard provoqué par la trace, je n'ai plus de souci avec l'affichage dans le Combo.
Ce qui expliquerait pourquoi cela fonctionne de temps en temps.
[IMG][/IMG]
L'image est aprés la validation de la bulle d'info.

b) je n'ai pas su comment tester la fin du Combo pour ma boucle.

Merci pour l'aide