FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WEBDEV (précédentes versions)
→
Problème avec la propriété Couleur d'un champ cloné avec ChampClone
Problème avec la propriété Couleur d'un champ cloné avec ChampClone
Débuté par Stéphane M., 05 jan. 2018 16:04 - Aucune réponse
Connectez-vous…
Stéphane M.
#1
Posté le 05 janvier 2018 - 16:04
Bonjour,
Je me suis inspiré de l'exemple WW_SondagesDynamiques pour réaliser un site WebDev dynamique sous WebDev 22 :
- un modèle de champs
- une page dynamique avec clonage (ChampClone) du modèle de champs pour chaque question
- une procédure d'initialisation pour affecter le libellé de la question et les différentes propositions de réponse.
La nouveauté par rapport à l'exemple est au niveau des propositions de réponse, l'exemple utilise plusieurs modèles de champs en fonction du nombre de propositions, j'ai préféré cloné des interrupteurs pour gérer plus facilement un nombre variable de propositions.
Extrait de code du clonage des questions :
Procedure
ShowQuestionnaire
(
LOCAL
pn_ID
est un entier
)
...
POUR
TOUT
st
_QUESTION
,
n
_Compteur
de
gtab
_st_QUESTION
SELON
st
_QUESTION.QUESTION_TYPE
CAS
QUERY_ONE_CHOICE
,
QUERY_MULTI_CHOICES
s
_NomChampQuestion
=
"cQuestion_"
+
n
_Compteur
c
_Champ
<
-
ChampClone
(
CMOD_
CQ_QUESTION_CHOICE
,
s
_NomChampQuestion
)
c
_Champ.Init
(
st
_QUESTION
,
n
_Compteur
)
...
AUTRE
CAS
:
STOP
FIN
c
_Champ
..
Visible
=
Vrai
FIN
Extrait de code du modèle de champs :
Procedure
Init
(
LOCAL
pst
_QUESTION
est un
st
C3_CQ_QUESTION
,
pn_NumQuestion
est un entier
)
ZTR_
Query
=
pn_NumQuestion
+
". "
+
pst
_QUESTION.QUESTION_TEXT
POUR i
=
1
_A_
pst
_QUESTION.NB_CHOICES
st
_CHOICE
=
pst
_QUESTION.tab_Choices
[i]
c
_Champ
<
- {
"INT_CHOICE_"
+
i
,
indChamp
}
c
_Champ
..
Visible
=
Vrai
c
_Champ
[
1
]
..
Libellé
=
st
_CHOICE.CHOICE_TEXT
FIN
POUR i
= (
pst
_QUESTION.NB_CHOICES
+
1
)
A NB_MAX_CHOICES
{
"INT_CHOICE_"
+
i
,
indChamp
}
..
Visible
=
Faux
FIN
cQuestion_ + i : modèle de champs cloné avec libellé de la question numéro i et ses propositions de réponse.
INT_CHOICE_ + i : proposition de réponse numéro i
Tout fonctionne jusqu'à une dernière demande, colorer certaines propositions de réponses en fonction de critères spécifiques.
Suite de la procédure Init() :
// Question déjà répondue ?
SI
pst
_QUESTION.TEXT_ANSWER
<
>
""
ALORS
POUR TOUTE
chaîne
s
_Answer
de
pst
_QUESTION.TEXT_ANSWER
SEPAREE PAR
";"
n
_Answer
=
Val
(
s
_Answer
)
SI
0
<
n
_Answer
<
=
pst
_QUESTION.NB_CHOICES
ALORS
c
_Champ
<
- {
"INT_CHOICE_"
+
n
_Answer
,
indChamp
}
c
_Champ
[
1
] =
Vrai
// Flag ?
st
_CHOICE
=
pst
_QUESTION.tab_Choices
[
n
_Answer
]
SI
st
_CHOICE.HIGH_RISK_FLAG
=
"Y"
ALORS
c
_Champ
..
Couleur
=
RougeFoncé
FIN
FIN
FIN
FIN
L'instruction colore les interrupteurs de numéro n_Answer de chaque question et pas seulement celui du modèle de champs courant (si l'utilisateur a répondu à la question 1 la proposition 2 et si cette proposition est flaggée, tous les interrupteurs numéro 2 des différentes questions sont colorés en rouge)
Je teste en dur certaines propositions avec ce code :
{
"cQuestion_1.INT_CHOICE_2"
,
indChamp
}
..
Couleur
=
RougeFoncé
{
"cQuestion_2.INT_CHOICE_3"
,
indChamp
}
..
Couleur
=
BleuFoncé
Idem ! Tous les interrupteurs numéro 2 sont rouges et pas seulement celui de la question 1, tous les interrupteurs numéro 3 sont bleus et pas seulement celui de la question 2.
Avez-vous déjà rencontré ce problème ou uné suggestion ?
Signaler
0
0
→ Revenir à WEBDEV (précédentes versions)
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (précédentes versions)
WEBDEV (précédentes versions)
WINDEV Mobile (précédentes versions)
Etats & Requêtes
Hors-sujet
Outils
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte