Discussion :

[tchezan]

J'ai un projet RvReport2.rav contenant un Report1 avec une seule page permettant d'imprimer le bulletin d'un étudiant en saisant son matricule.

Dans Delphi, j'utilise la req suivante dans un composant IBDataSet :

Code sql :

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

1
2
3
4
5
6
7
8
select b.numbull, b.codecl, b.matricule,codefil, nom, prenom,statut, k.redoublant, nomprof, l.codemat, l.moy,
l.rang, l.coeff, l.moycoef, b.periode, b.annee, bilan1, total, moybull, rangbull, moyan, rangan
 from  BULLETIN b, LIGNEBULL l, etudiant e, moyennes m,  classe c, professeur p, classeetudiant k
where ((b.numbull = l.numbull) and (l.codemat in ('COMPOSITION FRANCAISE','HISTOIRE-GEOGRAPHIE','ANGLAIS','PHILOSOPHIE'))
       and (l.matprof = p.matprof) and (b.matricule = e.matricule) and (b.codecl = c.codecl) 
       and (c.codecl = k.codecl) and (k.matricule = e.matricule)
       and(e.matricule = m.matricule)  and (b.matricule= :matricule) and (b.periode = :periode) and (b.annee = :annee))
order by l.codemat.

Dans le formulaire d'impression je saisie les paramètres : annee, periode et matricule :

Code :

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

1
2
3
4
5
Datamodule1.IBDataSet3.Close;
   Datamodule1.IBDataSet3.ParamByName('annee').AsString := DBLookupComboBox1.KeyValue;
   Datamodule1.IBDataSet3.ParamByName('periode').AsString := DBLookupComboBox2.KeyValue;
   Datamodule1.IBDataSet3.ParamByName('matricule').AsString := DBLookupComboBox4.KeyValue;
Datamodule1.IBDataSet3.Open;

Pour imprimer un bulletion voici le code:

Code :

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

1
2
3
RvProject2.Open;
  RvProject2.Execute;
RvProject2.Close;

Je voudrais créer dynamiquement plusieurs Pages dans le Report1 afin d'imprimer simultanément plusieurs bulletins. Je n'y arrive pas.
Je compte bcp sur vos suggestions.

[ouiouioui]

tu veux imprimer le même bulletins? Ou ta requête renvoie plusieurs bulletins que tu veux imprimer?

Si c'est la deuxième il te faut modifier le rapport en utilisant un databand tu a des exemples avec rave report

[tchezan]

J'utilise sur la Page du Report1 une Databand qui permet de visualiser les enregistrements d'un bulletin.
voici la situation actuelle. Pour imprimer un bulletin, je saisie l'année, la période puis le matricule. ces 3 paramètres sont fournis à la req ci-dessus et le bulletin de l'étudiant est imprimé.

Pour imprimer le bulletin de plusieurs étudiants, je fais une boucle sur la table Etudiant pour fournir à ma req le matricule. Mais lorsque je fais cela, j'obtient autant de fénètres de prévisualisation qu'il ya détudiants dans la table.
Je voudrais qu'il imprime les bulletins sans passer par le preview.Comment le faire ?

[SergioMaster]

Il suffit , a mon avis de remettre en question la requête, surtout s'il s'agit des bulletins sur une même période ? de même cette même requête serait certainement plus lisible en utilisant les Jointures , et je pense également qu'un état maitre/détail serait plus approprié.

Maitre : à priori table Bulletin à ordonner sur codemat
et un WHERE du genre

Code :

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

WHERE B.Annee=:ANNEE AND B.PERIODE=:PERIODE AND b.matricule IN (:LISTE)

Détail : Lignes du bulletin

[tchezan]

Ok, SergioMaster. Il s'agit de bulletins sur une même periode. Ma table maître est Bulletin et la table détail est Lignebull. Je vais reformuler ma req et utiliser un état maître/détail. Merci. A bientôt.

[tchezan]

Salut. J'ai enfin resolu le problème. J'ai utilisé mes deux tables : TBulletin(numbull, #matricule,...) et TLigneBull(#numbull, #codemat,...). Dans delphi, je ne les relie pas en maître-detail. J'utilise ensuite RvDataSetConBull (reliée à TBulletin) et RvDataSetConLigneBull(reliée à TLIgneBull).
Rave Report Je crée deux dataview et deux databand : DataViewBulletin et DataViewLigneBull, DataBandBull et DataBandLigneBull.

C'est ici que je les relie en maître-détail de la manière suivante (utiliser les propriétes des deux DataBands).

Code :

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

1
2
3
4
 
DataBandLigneBull.MasterDataView = DataBandBulletin
DataBandLigneBull.MasterKey = numbull (clé de jointure des deux tables)
DataBandLigneBull.DetailKey = numbull

Pour mieux comprendre le rapport maître-detail, il existe un excellent tutorial de John COLIBRI :
http://www.jcolibri.com/articles/bdd..._tutorial.html
NB:J'ai Utilisé un Band (le footer de DataBandBull) et mis sa propriété FinishNewPage à true pour que chaque bulletin soit imprié sur une nouvelle page du rapport.
Merci à tous pour vos contributions.