Discussion :

[Zeus_Appolos]

Bonjour tout le monde,
j'ai besoin de votre aide SVP !

Je me retourne vers vous après avoir beaucoup cherché, en fait j'ai une combo sur laquelle je veux faire un filtre en saisissant, donc au moment de la saisie elle déroule et me propose les enregistrements qui correspondent à ma recherche, peut importe la méthode, programmation, requête ou fichier de données, j'ai arrivé à le faire par programmation en utilisant les résultats d'une requête mais en poursuivant la recherche, elle m'ajoute les lignes et elle ne se mit pas à jour.
voici le bout de code que j'ai utilisé:

Code :

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

1
2
3
4
5
6
7
//ListeSupprimeTout(COMBO_produit_a_commandee)
HExécuteRequête(REQ_Listee_produit_a_commandee,hRequêteDéfaut,MoiMême)
POUR TOUT REQ_Listee_produit_a_commandee
 ListeAjoute(MoiMême,REQ_Listee_produit_a_commandee.Produitlibelle)
FIN
//ListeAffiche(COMBO_produit_a_commandee)
ComboOuvre(MoiMême)

si je rajoute ListeSupprimeTout par exemple, ça supprime même ce que je saisi
en avec ListeAffiche ça m'affiche une erreur.
Vous pouvez me donner une autre solution.

Erreur à la ligne 6 du traitement A chaque modification de COMBO_produit_a_commandee.
Vous avez appelé la fonction ListeAffiche.
Commande invalide pour le champ COMBO_produit_a_commandee car c'est une Combo Mémoire
(cette commande n'est valide que sur les Listes, Tables et Combos fichier).

----- Informations techniques -----

Projet : monaidecom

Appel WL :
Traitement de 'A chaque modification de COMBO_produit_a_commandee' (FEN_Boncommande_client.COMBO_produit_a_commandee), ligne 6, thread 0
Fonction 'ListeAffiche', syntaxe 0

Que s'est-il passé ?
Commande invalide pour le champ COMBO_produit_a_commandee car c'est une Combo Mémoire
(cette commande n'est valide que sur les Listes, Tables et Combos fichier).

Code erreur : 10050
Niveau : erreur fatale (EL_FATAL)

Dump de l'erreur du module 'wd200obj.dll' (20.0.373.11).
Identifiant des informations détaillées (.err) : 10050
Informations de débogage :
Fonction (1,114)
Informations supplémentaires :
EIT_PILEWL :
A chaque modification de COMBO_produit_a_commandee (FEN_Boncommande_client.COMBO_produit_a_commandee), ligne 6
EIT_DATEHEURE : 24/09/2020 19:27:23

[Voroltinquo]

Bonjour,
Pourquoi ne pas directement faire une combo sur requête qui affiche le libellé et qui renvoie la PK ?
En ce qui concerne la recherche, il y a une case à cocher "avec recherche" (ou quelque chose comme ça) dans la rubrique IHM de la description. Ta combo n'a même pas besoin d'être en saisie.

[padbrain]

Bonjour,

...Vous pouvez me donner une autre solution...

Voici ce que tu pourrais faire :

Tu remplis ta combo comme tu le fais actuellement mais dans l'onglet "contenu", de la fenêtre 7 onglets, tu choisis un type de déroulé en "fenêtre popup".

Tu construis ta popup avec une table que tu remplis avec les mêmes éléments que ta combo plus une colonne masquée contenant l'identifiant de ton élément et qui sera renvoyé à la combo avec, par exemple, le code suivant dans l'évènement de sélection d'une ligne de la table :

Code :

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

1
2
 
MyPopupControl = MySelf[MySelf].id

Dans ta fenêtre popup, tu poses un champ de saisie avec le code suivant dans l'évènement "à chaque modification" :

Code :

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

1
2
3
4
5
6
 
IF MySelf <> "" THEN
	TableEnableFilter(Table_produit_a_commander.colonne_a_filtrer, filterContains, MySelf)
ELSE
	TableDisableFilter(Table_produit_a_commander)
END

Je pense que ça devrait correspondre à ton besoin.

Hth, Padbrain

[Zeus_Appolos]

Merci beaucoup à vous

La solution de padbrain résout en grande partie mon problème.

A la sélection d'une ligne de la table je veux affecter la valeur et fermer la fenêtre Pop. Lorsque je mets

Code :

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

Ferme(FEN_Pop_Produits)

la pop n' apparaît plus mais affiche dans le combo la première ligne de la table.

comment pourrai-je faire cela ?

[padbrain]

Sur l'évènement bouton gauche relaché de ta table :

Code :

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

1
2
MyPopupControl = MySelf[MySelf].id
Close()

[Zeus_Appolos]

ça fait le même effet que Ferme()

[padbrain]

ça fait le même effet que Ferme()

Tu dois remplir ta combo en utilisant gLien :

Code :

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

1
2
 
comboItem.Add("Libellé de l'item" + gLink(itemId))

ou utiliser l'id comme rubrique mémorisée dans les 7 onglets de ta combo si tu utilises une liste fichier.

[padbrain]

Et avant que tu ne poses d'autres questions :

Dans les déclarations globales de ta popup, tu récupères l'identifiant de l'article en sélection dans ta combo :

Code :

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

PROCÉDURE MyWindow(pItemId is int = Null)

que tu peux alors sélectionner dans ta table par défaut avec ce code que tu pourrais mettre dans l'évènement de "Fin d'initialisation" de la fenêtre :

Code :

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

1
2
3
4
5
6
7
 
FOR iIndex = 1 _TO_ Table_produit_a_commander..Occurrence
	IF Table_produit_a_commander[iIndex].id = pItemId THEN
		Table_produit_a_commander.SelectPlus(iIndex)
		BREAK
	END
END

Tu peux aussi ajouter un bouton "Annuler" avec action prédéfinie sur fermer la fenêtre, ce qui permet à l'utilisateur de fermer la combo sans modifier la sélection.

Et, enfin, ajouter un bouton "Aucune sélection" avec le code suivant :

Code :

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

1
2
MyPopupControl = 0
Close()

Qui permet de ne rien sélectionner.

hth, padbrain