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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
<html>
<head></head>
<body>
<script language="Javascript">
//Les fonctions et le tralala
</script>
<script language="SpeedScript">//Langage Progress
//Tout le code Progress
//Les {&out} permettent d'intégrer le code HTML dans la balise SeedScript
/* Créer une checkbox en mettant un div avec "containerCombo" */
{&out} "<div class=containerCombo>".
/* On place un input text où se trouvera le résultat avec une classe "resultat" */
{&out} "<TD><input type=text value='" + wgroupe1 + "' class=resultat>".
/* Un bouton qui ouvre/ferme les élements */
{&out} "<input type=button value=Afficher>".
/* Place un div qui contiendra toutes les elements combo il a un classe "containerElCombo" */
{&out} "<ul id=groupe1 class=containerElCombo>".
{&out} "<li class=elementCombo><input id=99 name=groupe1 type=checkbox value='99' checked ><label for=groupe1>99</label></li>".
FOR EACH GTEGR1 where GTEGR1.entdos = gteuse.entdos and
(IF lm = yes then GTEGR1.GR1COD = paysal.GR1COD else true) and
(IF lm = no then (ls = 'ZZZ' or lookup(GTEGR1.GR1COD,ls) <> 0) else true) and
gtegr1.gr1l01 = no
no-lock :
/* Chaque élément contient une checkbox il a la classe "elementCombo"
Le code va récupéré ce contenu là pour le mettre dans l'input */
{&out} "<li class=elementCombo><input name=groupe1 type=checkbox value='" + gtegr1.gr1cod + "' " + (IF lookup(gtegr1.gr1cod, wgroupe1) <> 0 THEN "checked" ELSE "") + " ><label for=checkbox>" + substring(gtegr1.gr1cod + " " + replace(gtegr1.gr1lib,"'",""),1,30) + "</label></li>".
END.
{&out} "</ul>".
{&out} "</div>".
{&out} "</TD>" .
</script>
</body>
</html> |
