Chargement Combo selon combo

[solowdiom]

Bjr à tous
Je suis sur un projet WINDEV de Gestion de Bar. J’ai un fichier qui contient des boissons classées par famille de boisson. Exemple : Famille sucrerie contient Fanta, coca cola …
J’ai deux combos tel que à la sélection d’une ligne de comboFamilleBoisson, le combo Boisson qui est le deuxième combo affiche tous les éléments qui composent ladite famille de boisson.
Mon problème est que le deuxième combo affiche seulement un seul élément alors qu’il existe dans mon fichier plusieurs boissons de cette famille.
Voici mon code :
SELECTION D'UNE LIGNE DE COMBOFAMILLEBOISSON
// On vide la combo
ListeSupprimeTout(COMBO_Boisson)
// On active le filtre sur le Nom affiché dans COMBO_Nom
HFiltre(Boisson,FamilleBoisson,COMBO_FamilleBoisson..ValeurAffichée,COMBO_FamilleBoisson..ValeurAffichée)
// On lit le premier enregistrement
HLitPremier(Boisson,FamilleBoisson)
// Tout le fichier
TANTQUE PAS HEnDehors(Boisson)
// On ajoute le nom trouvé à la liste
ListeAjoute(COMBO_Boisson,Boisson.NomBoisson)
// On lit l'enregistrement suivant
HLitSuivant(Boisson,Boisson.FamilleBoisson)
FIN
// On affiche le premier nom
ListeSelectPlus(COMBO_Boisson,1)
Merci à vous pour vos aides précieuses

[beginner]

bonjour
une autre ider

SELECTION D'UNE LIGNE DE COMBO

listesupprimetout(combo)

hlitpremier(boison)
tantque pas hendehors(boison)
si boisson.familleboison = combo..valeur alors
listeajoute(...)
fin
hlitsuivant(boisson)
fin

[solowdiom]

Bonjour Merci pour ta reponse mais malheureusement elle ne marche pas.
Encore merci d'avoir essayé !!!

[TheDuke]

Salut!

Peux tu nous montrer la structure de tes fichiers "FAMILLEBOISSON" et "Boisson" ?

[solowdiom]

Bonjour theDuke
Jai un fichier de données Boisson où les attributs sont :
-IDboisson
-NomBoisson
-FamilleBoisson
-Prix_de_venteBoisson
J'espère avoir repondu correctement à ta requête .
Encore merci de ton aide .

[TheDuke]

Salut!

Tu dois surement avoir un problème de parcours de ton fichier filtré!

Code :

// On lit l'enregistrement suivant
HLitSuivant(Boisson,Boisson.FamilleBoisson)

ne devrait-il pas être plutôt

Code :

// On lit l'enregistrement suivant
HLitSuivant(Boisson,FamilleBoisson)

La clé de parcours étant figée à une valeur dans ton code?

[solowdiom]

Encore merci TheDuke malgré jai corrigé mon code avec ta proposition, le résultat est le même .
Merci

[Samifred]

Bonjour,

Avec deux fichiers....

Fichier 1 "FamilleBoisson"
IDFamilleBoisson (clé unique)
NomFamille

Fichier 2 "Boisson"
IDBoisson
IDFamilleBoisson (Clé doublon, copie de Fichier 1)
NomBoisson
PrixBoisson

Pour remplir la première combo...
POUR TOUT FamilleBoisson sur IDFamilleBoisson
ListeAjoute(COMBO_Famille, FamilleBoisson + gLIen(FamilleBoisson.IDFamilleBoisson))
FIN

Pour remplir la deuxième combo selon sélection d'une ligne de première combo...
LisateSupprimeTout(COMBO_Boisson)
POUR TOUT Boisson avec filtre COMBO_Famille..ValeurMémorisée
ListeAjoute(COMBO_Boisson,Boisson.NomBoisson + Glien(Boisson.PrixBoisson))
FIN

A la sélection d'une ligne de combo_boisson...
SAI_Boisson = COMBO_Boisson..ValeurAffichée
SAI_Prix = COMBO_Boisson..ValeurMémorisée


J'ai pas testé mais normalement ça doit être correcte.
Bon dev

[solowdiom]

Waouuuuuuuuuuh merci SamiFred , il a suffi que je fasse 2 fichiers comme tu l'a suggéré pour que tout marche comme sur des roulettes.
Encore merci à tous ceux qui ont pris de leur précieux temps pour m'aider.

[solowdiom]

salut tout le monde ,
Pour moi qui pensait maîtriser les Hajoute avec Windev, j'ai un souci qui me tracasse.
J'ai une fenetre dans laquelle j'utilise une combo qui charge des données d'un fichier.
Mon bouton AJOUTER à pour code :
--------------------------------
SI Stock_Entrée_bar..NouvelEnregistrement = Vrai ALORS
HAjoute(Stock_Entrée_bar)
FIN
---------------------------------
Je choisis un element de la combo et je clique sur le bouton AJOUTER .
Je choisis un deuxième element de la combo et je clique sur le bouton AJOUTER .
Je choisis un troisième element de la combo et je clique sur le bouton AJOUTER .
Il se trouve que c'est seulement mon premier enregistrement qui est stocké dans le fichier Stock_Entrée_bar.
Merci à tous en esperant avoir été le plus explicite possible.