Discussion :

[tatane.tatane]

Bonjour
Je créée un rapport de plusieurs pages (environ 15). Chacune de ces pages à son propre .fr3 et sont lancés seulement si l'option est cochée dans l'application.
Est il possible de créer un page supplémentaire faisant un sommaire de ce qui a été imprimé. Du stype " Titre 1 : Page 2", "Titre 2 : Page 10" etc...
Sachant, je me répète, que chaque "titre" a son propre .fr3
Pour l'instant j'ai essayé de créer un index.fr3 avec un bandeau ReportSummary et j'y intègre des champs tFrxSysMemoview mais ca ne fonctionne pas.

Merci pour votre aide.


Delphi 10.3
FastReport 6.2.1

[SergioMaster]

Bonjour,

Pour l'instant j'ai essayé de créer un index.fr3 avec un bandeau ReportSummary et j'y intègre des champs tFrxSysMemoview mais ca ne fonctionne pas.

c'est la première réaction que j'aurais eu, mais cela ne peut fonctionner dans un multireport.


AMHA, à l'ancienne, il faut passer par un fichier mémoire je présume (je n'aime pas trop) que l'état se crée ainsi

Code :

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

1
2
3
4
5
6
7
8
 
frxReport1.LoadFromFile('1.fr3');
frxReport1.PrepareReport;
frxReport1.LoadFromFile('2.fr3');
frxReport1.PrepareReport(False);
rxReport1.LoadFromFile('3.fr3');
frxReport1.PrepareReport(False);
frxReport1.ShowPreparedReport;

Avant chaque preparereport je ferais en sorte d'obtenir le titre du report et la page en cours (+1) pour les sauvegarder dans une table mémoire ainsi pas de souci pour le index.fr3 de fin

Maintenant, il y a la possibilité (que je n'ai jamais utilisé) d'ajouter des HyperLinks je me demande s'il n'est pas possible de les récupérer

[tatane.tatane]

mon idée première était de faire un sommaire, donc en début de rapport.
Je me suis résigné à le mettre en fin de rapport.
J'ai créé une variable stringlist publique nommée sl, avec à chaque ligne Valeur = le nom d'une valeur dans un tuserDataset, dataset connecté à la page de sommaire,
et le code a été le 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
 
   sl.clear;
   sl.AddPair('Lexique','NA');
   sl.AddPair('Methodologie','NA');
   sl.AddPair('Serment','NA');
   sl.AddPair('Requisition','NA');
   sl.AddPair('Constatations','NA');
   sl.AddPair('Analyses','NA');
   sl.AddPair('Conclusion','NA');
   sl.AddPair('Cloture','NA');
   Result := sl;
   //charge la première partie du rapport
   frxRpt.clear;
   frxRpt.LoadFromFile('RptTete.fr3',True);
   //prépare la page entete
   frxRpt.PrepareReport(True);
 
      frxRpt.LoadFromFile('RptLexique.fr3',False);
      sl.Values['Lexique']:= intToStr(frxRpt.PreviewPages.CurPage + 2);
      frxRpt.PrepareReport(false);
 
      frxRpt.LoadFromFile('RptPrestation.fr3',False);
      sl.Values['Serment']:= intToStr(frxRpt.PreviewPages.CurPage + 2);
      frxRpt.PrepareReport(false);
 
etc...
 
      frxRpt.LoadFromFile('RptIndex.fr3',False); //contient le sommaire
      frxRpt.PrepareReport(false);
      frxRpt.showPreparedReport;