Discussion :

[Patrice.H]

Bonjour,
j'essaie d'adapter un morceau de formulaire 4D sous forme de page web.
Je voudrais (après avoir sélectionné l'enregistrement voulu) afficher une liste déroulante proposant "Mme, Mr, Mlle" qui affiche le genre actuellement renseigné dans ma table [CLIENTS] dans 4D.

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
26
 
<!--Affichage pour le debug (affiche "Mlle")-->
<!--#4DVAR [CLIENTS]Gène-->
 
            <select name="gène">
                <!--#4DIF([CLIENTS]Gène="Mlle")-->
                    <!--Selected si la variable est "Mlle"-->
                    <option  selected="selected" value="Mlle">Mlle</option> 
                <!--#4DELSE-->
                    <option value="Mlle">Mlle</option>
                    <!--Pas de selected si la variable est différente-->
                <!--#4DENDIF-->
 
                <!--#4DIF([CLIENTS]Gène="Mr")-->
                    <option value="Mr"  selected="selected">Mr</option>
                <!--#4DELSE -->
                    <option value="Mr">Mr</option>
                <!--#4DENDIF-->
 
                <!--#4DIF([CLIENTS]Gène="Mme")-->
                    <option value="Mme"  selected="selected">Mme</option>
                <!--#4DELSE -->
                    <option value="Mme">Mme</option>
                <!--#4DENDIF-->
 
            </select>

Ma liste déroulante m'affiche curieusement deux fois Mr, deux fois Mlle et deux fois Mme. Le programme passe donc dans les deux parties de chaque "if". Pourtant la variable en debug au départ indique bien "Mlle" comme valeur.

Merci pour vos conseils.

[stanc]

Essaies comme ça peut-être :

Code :

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

<option <!--#4DIF ([CLIENTS]Gène="Mlle")-->selected="selected"<!--#4DENDIF--> value="Mlle">Mlle</option>

[ZeFiF]

Bonjour,

le 4DIF n'est pas très pratique tu as pu t'en rendre compte.

Je te suggère une autre approche

Code :

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

1
2
3
4
 
<select name="gène">
<!--#4DSCRIPT methode_lesoptions-->
</select>

la méthode appelée fera tout les tests que tu souhaites
et renverra par exemple :

Code :

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

$0:=<option value="Mr"  selected="selected">Mr</option>

HTH
FiF

[Patrice.H]

Merci pour vos réponses. J'ai d'abord essayé la méthode de stanc car elle m'évitait d'avoir à encombrer la base d'une méthode supplémentaire mais elle ne fonctionne pas. Me voilà de moins en moins convaincu par les #4DIF...

J'ai donc utilisé ton approche ZeFIF:

Code :

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

1
2
3
4
 
<select name="gène">
<!--#4DSCRIPT/WebGETGENE--> (la méthode est séparée par un "/" et pas un espace)
</select>

Le code de ma méthode "WebGETGENE:

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
 
TRACE**`Récupérer le "gène" du client affiché et préselectionner le gène adéquat dans la liste déroulante
C_TEXTE($0;$1;$codehtml)
 
Si ([CLIENTS]Gène="M.")
    $codehtml:="<option selected=\"selected\" value=\"M.\">M.</option> <option value=\"Mme\">Mme</option>  <option value=\"Mlle\">Mlle</option> "
Sinon 
    Si ([CLIENTS]Gène="Mme")
        $codehtml:="<option selected=\"selected\" value=\"Mme\">Mme</option> <option value=\"M.\">M.</option>  <option value=\"Mlle\">Mlle</option> "
    Sinon 
        Si ([CLIENTS]Gène="Mlle")
            $codehtml:="<option selected=\"selected\" value=\"Mlle\">Mlle</option> <option value=\"M.\">M.</option>  <option value=\"Mme\">Mme</option> "
        Sinon 
            $codehtml:="Erreur"
        Fin de si 
    Fin de si 
Fin de si 
ENVOYER TEXTE HTML($codehtml)

J'ai également tenté avec le code suivant en dernière ligne sans plus de succès:

Code :

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

1
2
 
$0:=$codehtml

Cordialement,
Patrice.

[ZeFiF]

Code :

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

1
2
3
4
5
6
7
8
9
10
$selected1:="Selected"*(num([CLIENTS]Gène="M."))
$selected2:="Selected"*(num([CLIENTS]Gène="Mme"))
$selected3:="Selected"*(num([CLIENTS]Gène="Mlle"))
 
$ze_texte:=caractere(1)
$ze_texte:=$ze_texte+"<option value=\"M.\" "+$selected1+">M.</option>"+caractere(13)
$ze_texte:=$ze_texte+"<option value=\"Mme\" "+$selected2+">Mme</option>"+caractere(13)
$ze_texte:=$ze_texte+"<option value=\"Mlle\" "+$selected3+">Mle</option>"+caractere(13)
 
$0:=$ze_texte

N.B : tapé en direct sur le web et pas testé dans 4D...

[stanc]

Merci pour vos réponses. J'ai d'abord essayé la méthode de stanc car elle m'évitait d'avoir à encombrer la base d'une méthode supplémentaire mais elle ne fonctionne pas. Me voilà de moins en moins convaincu par les #4DIF...

Tu m'en vois fort étonné car je l'utilise avec succès avec les attributs checked ou disabled. La technique fonctionne, ça c'est sûr. Le problème vient d'autre part. Tes soucis avec l'autre technique #4DSCRIPT me confortent dans cette idée.
Essaies d'enlever l'accent dans le nom du champ Gène. C'est possible que ça le gêne. D'une manière générale, c'est mieux de ne pas mettre d'accent en structure pour être conforme à la norme sql si tu es amené à l'utiliser.

[Patrice.H]

Avec un peu d'acharnement les deux méthodes fonctionnent bien (ouf).

Essaies d'enlever l'accent dans le nom du champ Gène. C'est possible que ça le gêne. D'une manière générale, c'est mieux de ne pas mettre d'accent en structure pour être conforme à la norme sql si tu es amené à l'utiliser.

En effet, c'était l'accent! Je suis contre leur utilisation dans les noms de tables/fichiers/variable, mais la base que j'utilise est celle d'un logiciel déjà en production depuis un moment, cela risque de rester ainsi malheureusement...

N.B : tapé en direct sur le web et pas testé dans 4D...

Bien joué ça fonctionne du premier coup. J'avais jamais pensé à l'astuce du *booléen pour écrire des conditions rapidement, j'en prends bonne note!


Au final je pense garder la méthode de stanc pour ne pas encombrer la base, déjà surchargée de méthodes.

Merci à tous les deux!

[stanc]

J'avais jamais pensé à l'astuce du *booléen pour écrire des conditions rapidement, j'en prends bonne note!

Tu peux faire plus simple encore avec la fonction Choisir http://doc.4d.com/4D-Langage-12/Outi...155245.fr.html. Elle peut aussi prendre un entier en paramètre.