FORUM WINDEV

Bonjour Samifred
Désolé j'ai un autre problème sur le code que tu ma envoyé, voilà, je l'ait modifier pour pouvoir ajouter d'autre combo (au total il y en a 9) le problème c'est qu'ils ne répond plus à la condition et si je laisse les 3 premières sa fonctionne

Voici le code modifier:


PROCEDURE VérifieLégendeDouble()
jourenlettre est une chaîne=EntierVersJourEnLettre(DateVersEntier(Date))

i est un entier
t est un entier
x est une chaîne

SELON jourenlettre
CAS "Lundi"
//Ici procédure de traitement

CAS "Mardi"

CAS "Mercredi"

CAS "Jeudi"

CAS "Vendredi" // Vérification des Doubles pour mcd le vendredi
x[[1]]=COMBO_LégendeMCD1..ValeurAffichée="Double"
x[[2]]=COMBO_LégendeMCD2..ValeurAffichée="Double"
x[[3]]=COMBO_LégendeMCD3..ValeurAffichée="Double"
x[[4]]=COMBO_LégendeMCD4..ValeurAffichée="Double"
x[[5]]=COMBO_LégendeMCD5..ValeurAffichée="Double"
x[[6]]=COMBO_LégendeMCD6..ValeurAffichée="Double"
x[[7]]=COMBO_LégendeMCD7..ValeurAffichée="Double"
x[[8]]=COMBO_Légende_Controleur..ValeurAffichée="Double"
x[[9]]=COMBO_Légende_Coffrier..ValeurAffichée="Double"
POUR i=1 A 9
SI x[[i]]=x[[1]] ALORS t+=1
SI x[[i]]=x[[2]] ALORS t+=1
SI x[[i]]=x[[3]] ALORS t+=1
SI x[[i]]=x[[4]] ALORS t+=1
SI x[[i]]=x[[5]] ALORS t+=1
SI x[[i]]=x[[6]] ALORS t+=1
SI x[[i]]=x[[7]] ALORS t+=1
SI x[[i]]=x[[8]] ALORS t+=1
SI x[[i]]=x[[9]] ALORS t+=1
// Controle pour le VENDREDI
SI t<> 5 ALORS
LIB_Info="Pas de Double pour celle journée???"
SINON
LIB_Info="Double Programmé, Pas d'érreur"
FIN
FIN

CAS "Samedi"

CAS "Dimanche"

AUTRES CAS
//Exceptions jours fériés par expl.
FIN


Peut-tu m'aider svp
merci pour ta réponse
Alain

Ton code est juste...
Petit calcul... si 3 + 2 = 5 combien font 9 + 2 ? la solution est là.

La réponse et 11 (Je crois???)

Mais vraiment je ne pige pas, si mon code et bon cela provient de ou

Remplacer le 5 par le 11

SI t<> 5 ALORS
LIB_Info="Pas de Double pour celle journée???"
SINON
LIB_Info="Double Programmé, Pas d'érreur"
FIN

Bonjour Samifred

J'avais bien remplacer de 5 par le 11 et toujour pas de résultat. J'ai bien vérifier que la procédure se trouve bien dans chaque combo sur sélection d'une ligne et toujour rien.


PROCEDURE VérifieLégendeDouble()
jourenlettre est une chaîne=EntierVersJourEnLettre(DateVersEntier(Date))

i est un entier
t est un entier
x est une chaîne

SELON jourenlettre
CAS "Lundi"
x[[1]]=COMBO_LégendeMCD1..ValeurAffichée="Contrôle"
x[[2]]=COMBO_LégendeMCD2..ValeurAffichée="Contrôle"
x[[3]]=COMBO_LégendeMCD3..ValeurAffichée="Contrôle"
POUR i=1 A 3
SI x[[i]]=x[[1]] ALORS t+=1
SI x[[i]]=x[[2]] ALORS t+=1
SI x[[i]]=x[[3]] ALORS t+=1
SI t<> 5 ALORS
LIB_Info..Couleur=iRougeClair
LIB_Info..PoliceGras=Vrai
LIB_Info="Pas de Contrôle pour celle journée???"
SINON
LIB_Info..Couleur=iNoir
LIB_Info="Contrôle Programmé, Pas d'érreur"
FIN
FIN JUSQUE LA SA FONCTIONE
CAS "Mardi"

CAS "Mercredi"

CAS "Jeudi"

CAS "Vendredi" // Vérification des Doubles pour mcd le vendredi
x[[1]]=COMBO_LégendeMCD1..ValeurAffichée="Double"
x[[2]]=COMBO_LégendeMCD2..ValeurAffichée="Double"
x[[3]]=COMBO_LégendeMCD3..ValeurAffichée="Double"
x[[4]]=COMBO_LégendeMCD4..ValeurAffichée="Double"
x[[5]]=COMBO_LégendeMCD5..ValeurAffichée="Double"
x[[6]]=COMBO_LégendeMCD6..ValeurAffichée="Double"
x[[7]]=COMBO_LégendeMCD7..ValeurAffichée="Double"
x[[8]]=COMBO_Légende_Controleur..ValeurAffichée="Double"
x[[9]]=COMBO_Légende_Coffrier..ValeurAffichée="Double"
POUR i=1 A 9
SI x[[i]]=x[[1]] ALORS t+=1
SI x[[i]]=x[[2]] ALORS t+=1
SI x[[i]]=x[[3]] ALORS t+=1
SI x[[i]]=x[[4]] ALORS t+=1
SI x[[i]]=x[[5]] ALORS t+=1
SI x[[i]]=x[[6]] ALORS t+=1
SI x[[i]]=x[[7]] ALORS t+=1
SI x[[i]]=x[[8]] ALORS t+=1
SI x[[i]]=x[[9]] ALORS t+=1
FIN
// Controle pour le VENDREDI
SI t<>11 ALORS
LIB_Info..Couleur=iRougeClair
LIB_Info="Pas de Double pour celle journée???"
SINON
LIB_Info..Couleur=iNoir
LIB_Info="Double Programmé, Pas d'érreur"
FIN
CAS "Samedi"

CAS "Dimanche"

AUTRES CAS
//Exceptions jours fériés par expl.
FIN


qu'elle solution?

je ne voie vraiment pas

Alain

Tu peux télécharger une autre solution ici:
http://dl.free.fr/eAGYDXlaT/selecteur.zip

C'est une fenêtre avec 9 combos et un bouton. Tu sauras certainement compléter et adapter le code.