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 ;

[M.Dlb]

Hello,

Sans connaitre les fonctions SQL que tu utilises dans ton code, je pense qu'il y a un probl�me de syntaxe dans tes boucles, due en particulier la non-utilisation de blocs begin/end.

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
for i := 0 to checklistbox1.items.count-1 do
begin
    if checklistbox1.checked[i] = true  then
    begin
        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');
    end;
end;

Quelque chose comme �a serait plus correct je pense, � tester...

[Isatisbarou]

Tout d'abord merci de prendre le temps de me r�pondre

je viens de faire les petites modifications celle-ci n'ont rien chang�, le reporting sort mais uniquement avec le dernier items coch�s
il me semble que la boucle se fait mais �crase le pr�c�dent et donc n'imprime que le dernier.

la requete Sql permet juste d'aller chercher le num�ro de commande dans une BDD pour l'impression du rapport dans Fastreport

encore merci pour l'aide

[M.Dlb]

Comment fais-tu le traitement de chaque record ? Ce devrait �tre dans la boucle, en non � la fin de celle-ci.
Peut-�tre peux-tu nous montrer un peu plus code ?

[Isatisbarou]

Donc pour r�sumer, je fais mon rapport avec Fastreport en 2 �tapes

1) premi�re Etape je fais une requ�te SQL avec les tris n�cessaires qui affiche les num�ros de commande dont j'aurais potentiellement besoins dans la checklistbox

avec le code suivant

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
var
Sql_Charg, Where_Charg, Order_Charg : String ;  
 
procedure BitBtn_ChargerOnClick(Sender: TfrxComponent);
 
begin
   if <DBFOXPRO> then
begin
 
      CheckListBox1.items.clear; 
 
     d11 := formatdatetime('mm/dd/yyyy',date1.date);
     d12 := formatdatetime('mm/dd/yyyy',date2.date);  
 
Sql_Charg := ' Select ... '
           + ' FROM   .... ';                                                                                                     
Order_Charg:=' order by .... ';  
 
  begin
    if Multi_jours_Chck1.checked = true then
     Where_Charg :=  ' Where ... '     
    else
     Where_Charg :=  ' Where ... ';  
 
  end;
 
 
end;
 
    replacesql('liste_commande', Sql_Charg + Where_Charg + Order_Charg);
       execsql('liste_commande');  
 
  firstrecord('liste_commande');    
  while not queryEOF ('liste_commande') do
    begin
 
            CheckListBox1.items.add(<liste_commande."numero">) ;                                                                                                                                                           
 
      nextrecord('liste_commande')
    end;
 
 
end;

2) deuxi�me �tape via un bouton impression qui envoi les items sectionn�s vers l'impression (c'est ici que le probl�me se trouve la boucle s'effectue mais n'imprime que le dernier item selectionn�)
la boucle devrait rep�ter la requ�te et remplacer "numCde" par les items s�lectionn�s dans la checklistbox

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
var
sql,Where, Order : string;
i : integer;
 
procedure BitBtn1OnClick(Sender: TfrxComponent); //Bouton impression
begin
 
 //Requète SQL
sql := 'SELECT ... '
+ ' FROM ...  '  
+ ' INNER JOIN ...  '  
+ ' INNER JOIN .... '  
+ ' inner join .... ' ;    
 where := ' WHERE c.numero = (:numCde) ' ;                                  
Order :=  ' GROUP BY .... '
+ ' .... ' ;
 
/////////////////////////////////////////////////////////////////////////////////////////                                                                                                                                                                                  
      //Boucle ou répétion tant que les items sont cochés
 
     for i := 0 to checklistbox1.items.count-1 do
     begin                 
       if checklistbox1.checked[i] = true  then
        //Répeter l'opération tant que c'est coché  
       repeat                   
        begin
 
         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')    
        end;        
                  //Termine la répétition si NON coché;                                                                                  
          until not checklistbox1.checked[i] = false ;
 
     end;                 
////////////////////////////////////////////////////////////////////////////////////////////                                                                                                                                                                                            
end;

Ps: Existe-t-il un moyen ou une fonction pour r�p�ter l'impression des Rapports?

[Jip�t�]

Bonjour,

Au lieu d'imbriquer des bouts de requ�tes dans ta boucle, ce qui te complique les choses et tu ne sais pas o� �a coince si �a coince, commence par v�rifier ta boucle avec un truc tout simple genre :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
for i := 0 to checklistbox1.items.count-1 do
  if checklistbox1.checked[i] = true then 
  begin
    ShowMessage(checklistbox1.items[i]);
    // tes autres choses à faire avec checklistbox1.items[i]
  end;

[Isatisbarou]

Je viens de tester le code et j'ai bien les x messages qui s'affiche selon le nombre d'items coch�s dans la checklistbox
donc pour moi la boucle est correct
le probl�me vient de la sortie du rapport (Fastreport) qui �crase le rapport pr�c�dent puisqu'il boucle � chaque Item coch�
pour s'arr�ter sur le dernier