Discussion :

[jesusnavas]

Bonjour, je sillonne internet et le forum sans trouver de réponse, alors je me permet de venir quémander votre aide.

J'ai une impression qui me va très bien (un rapport mensuel), mais j'aimerais pouvoir l'enchainer pour imprimer en une seule fois par exemple mes rapports pour toute l'année. Il faudrait donc que mon programme soit capable de générer le rapport plusieurs fois et de me faire un aperçu du tout. Est-ce que Rave ou Delphi arrive à faire ça ?

Je sais pas si j'ai été assez clair, en tout cas si qq'un connais la solution, ça serait extra. Bonne semaine et merci d'avance.

P.S : J'utilise Delphi 2010 et Rave Report 7.7

[SergioMaster]

Enchainer des rapports ? Oui c'est possible il doit même y avoir un Tip sur ce sujet chez nevrona
Maintenant reste a savoir exactement ce que tu entends par "enchainer"

tip Nevrona

[jesusnavas]

Génial mec !!! Ca à l'air d'être exactement ce que je cherche. J'avais pas trouvé ça.
Je vais essayer tout de suite. Milles mercis et bonne fin de semaine !!!

[jesusnavas]

En fait c'est presque ça, mais cette astuce marche avec des reports différents. Moi j'aimerais enchainer le même report plusieurs fois.
C'est pas facile, mais merci, ça m'a donné une piste.

[SergioMaster]

marche avec des reports différents. Moi j'aimerais enchainer le même report plusieurs fois.

C'est la même chose le seul 'truc' c'est de changer le set de données ou le(s) paramètre(s)

exemple :

Code SQL de la source de données :

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

SELECT * FROM FACTURES WHERE MOIS=:MOIS

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
 
 with Sender as TBaseReport do begin
    Maquery.Active:=False;
    Maquery.ParamByName('MOIS').asInteger:=1
    MaQuery.Active:=True;
    RaveProject.ExecuteReport('Report1');
    NewPage;
    Maquery.Active:=False;
    Maquery.ParamByName('MOIS').asInteger:=2
    MaQuery.Active:=True;
    RaveProject.ExecuteReport('Report1');
    NewPage;
    Maquery.Active:=False;
    Maquery.ParamByName('MOIS').asInteger:=3
    MaQuery.Active:=True;
    RaveProject.ExecuteReport('Report1');
  end; { with }

[Edit] en me relisant après envoi je me suis aperçu que l'on pouvait même faire une boucle du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 with Sender as TBaseReport do begin
  for i:=1 to 3 do begin
    Maquery.Active:=False;
    Maquery.ParamByName('MOIS').asInteger:=i
    MaQuery.Active:=True;
    RaveProject.ExecuteReport('Report1');
    if i<3 then NewPage;  // fait un newpage sauf pour la dernière le seul truc "moche" de la boucle
 end; {for}
  end; { with }

[jesusnavas]

Ecoute je te remercie beaucoup de ton aide, mais je m'excuse, j'y arrive pas, mon aperçu reste toujours blanc.
Je dois rater un truc quelque part, j'ai essayé de sortir le code du onPrint et sur un simple bouton je fait ça :

Code :

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

1
2
3
4
5
6
 
MonRave.Open;
MaQuery.SQL.Text := 'Ma requête';
MaQuery.Open;
MonRave.ExecuteReport('1');
RavSystem.Execute;

Ce simple code me donne une page blanche.
Par contre exactement le même code avec juste le execute sur le Rave au lieu du System c'est à dire ça :

Code :

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

1
2
3
4
5
 
MonRave.Open;
MaQuery.SQL.Text := 'Ma requête';
MaQuery.Open;
MonRave.Execute;

M'imprime bien mon rapport. Je pense donc que le problème viens d'une propriété à la con que je dois avoir ou autre chose, mais je trouve pas. J'ai bien la propriété Engine de MonRave qui indique le RavSystem, bref, je galère un peu.

En tout cas merci de ta patience, je vais y passer encore pas mal de temps demain j'espère trouver.
Bonne semaine.

[SergioMaster]

RvSystem est là pour utiliser l'événement OnPrint de celui-ci .

Code :

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

procedure TForm1.RvSystem1Print(Sender: TObject);

Mais il ne faut pas oublier de relier le raveproject au rvSytem via la propriété engine du rave project

relis bien les 2 portions de code fournies , pas de rvSystem.Execute , même pas un Rave.Execute mais bien un

Code :

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

    RaveProject.ExecuteReport('Report1');

ne pas confondre le 1 du paramètre de la query avec le 1 du 'report1'
Report1 étant le nom de l'état dans Rave

pour obtenir l'ensemble d'état :

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  RvSystem1.Execute;
end;

[SergioMaster]

une astuce dans la même veine .

Pour des raisons pratiques je voulais éditer un même état sans passer par le nombre de copies . Dans mon cas il s'agit d'éditer un ensemble de factures et de duplicatas (un duplicata étant le même report avec des informations supplémentaires) . L'ensemble du job d'impression devant être lié pour ne pas retrouver d'autres jobs au milieu .

J'ai donc appliqué ma propre solution (post #5) mais cela ne fonctionnait pas correctement ! je n'avais aucune copies mais juste un exemplaire de chaque facture .

Mon astuce a été d'introduire une variable dans mon report (Foo) et de la changer pour chaque copie

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
procedure TForm15.RvSystem1Print(Sender: TObject);
var f,d : word;
begin
WITH Sender AS TBaseReport do begin
    While not FacturesaEditer.Eof do
      begin
          rvproject1.SetParam('Foo','0');    // initialisation variable
           for f := 1 to nbCopiesd1facture do
             begin
               rvproject1.SetParam('Foo',inttostr(f));   // modification variable
               RvProject1.ExecuteReport('Facture');
               if f<nbFact.Value then NewPage;
             end;
 
            for d := 1 to nbDuplicata1Facture.Value do
            begin
               Newpage;
               rvproject1.SetParam('Foo',inttostr(d+f));  // modification variable
 
               RvProject1.ExecuteReport('Facture');
          end;
         FacturesaEditer.Next;
        IF not FacturesaEditer.EOF then NewPage;
    end; {FOR}
  end; { WITH }
end;