Discussion :

[Isatisbarou]

Bonjour à tous, je suis occupé à faire un petit développement en pascalscript, le but est dans une checklistbox pointer des numéros de commande
et de sortir un rapport par numéro de commande

voici le bout de code qui fonctionne mais malheureusement à la sortie il ne m'affiche que le dernier rapport
je ne comprends pas mon erreur sachant que je suis novice en Pascal

d'avance merci pour votre aide

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
 
     for i := 0 to checklistbox1.items.count-1 do
     if checklistbox1.checked[i] = true  then
     //Répeter l'opération tant que c'est coché  
     repeat                   
 
   replaceSQL('Cde_CE', sql + where + Order);  
   replaceparam('Cde_CE:numCde','ftstring', (checklistbox1.items[i]));          
   ExecSQL('Cde_CE') ;  
 
 
     firstrecord('Cde_CE');
    while not queryEOF ('Cde_CE') do
 
 
 
    nextrecord('Cde_CE')    
 
        //Termine la répétition si NON coché;                                                                                  
   until not checklistbox1.checked[i] = false ;