Discussion :

[NABIL74]

Bonsoir,

J'ai besoin de générer un rapport recto-verso. Dans DetailData , dans le recto, je dois limiter le nombre d'enregistrements à 15, et dans le verso, je dois limiter le nombre d'enregistrements à 08.

- Dans le recto :15 enregistrements.

- Dans le verso : 08 enregistrements.

Comment le faire s'il vous plaît?

Merci pour votre aide.

[SergioMaster]

Bonjour,

le problème exposé est assez simple à résoudre avec une variable de script et l'évènement OnAfterPrint de la bande.
en voici une illustration* :

* Les données proviennent d'un clientdataset (C:\Users\Public\Documents\Embarcadero\Studio\21.0\Samples\Data\biolife.xml)

Le script :

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
 
var np : integer = 0;   // variable de script
 
procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
var rec : integer;
begin
  np:=np+1;
  if (np=7) then engine.newpage;
  if (np=11) then begin
    np:=0;
    engine.newpage;
  end;
end;
 
begin
 
end.

Nota : ici, mon ensemble de données étant petit et mes lignes de hauteur "importante" j'ai fait en sorte que le recto soit de 07 lignes et le verso de 04 lignes d'où mes tests sur 7 et (7+4) 11.

Résultat :


Bien sûr je ne réponds pas à la question exacte puisque la demande était sur une bande détail, le principe reste cependant le même.

d'autres solutions sont possibles : utilisation de <line>, bande.dataset.recno, et de <page> recto:=<page> mod 2 =1;mais j'ai voulu faire au plus simple (sachant pertin"ment que le rapport est beaucoup plus complexe) et introduire les variables de script