FastReport - mehrere DS in einer PDF-Datei-

[Sir Rufo]

Ah, jetzt kommt doch etwas Licht ins Dunkle

Du gehst durch eine Liste und für jeden selektierten Eintrag lässt du einen Bericht erzeugen. Dadurch bekommst du natürlich auch n einzelne Berichte und somit erst einmal auch n einzelne PDF-Dokumente.

Es wäre besser, wenn du die selektierten Einträge sammeln und dann in einem Rutsch an den Bericht übergeben würdest, dann hättest du ein Problem weniger.

Wohin du sammelst ist egal, denn der FR kann mit einem DataSet oder auch einer schnöde Liste (TfrxUserDataSet ) gleichermassen umgehen.

[HPB]

Zitat von Sir Rufo:

Ah, jetzt kommt doch etwas Licht ins Dunkle

Du gehst durch eine Liste und für jeden selektierten Eintrag lässt du einen Bericht erzeugen. Dadurch bekommst du natürlich auch n einzelne Berichte und somit erst einmal auch n einzelne PDF-Dokumente.

Es wäre besser, wenn du die selektierten Einträge sammeln und dann in einem Rutsch an den Bericht übergeben würdest, dann hättest du ein Problem weniger.

Wohin du sammelst ist egal, denn der FR kann mit einem DataSet oder auch einer schnöde Liste (TfrxUserDataSet ) gleichermassen umgehen.

Aber das Wie ist mir unklar.
Hast Du nicht mal ein WorkAround??
Mit Gruß
HPB

[p80286]

wie wäre es z.B. so:

Delphi-Quellcode:

ibqryBruderDaten.SQL.Text=
'select *  '+
'from ADRESSEN join logenaemter on (logenaemter.FKADRESSID = adressen.Adressid) '+ 
'where adressen.ADRESSID in ('+ ADRIDliste + ')';

Und die adridliste bastelst Du Dir hier zusammen:

Delphi-Quellcode:

  if VstAdressen.CheckState[pNode] = csCheckedNormal then
     begin
       Inc(i);
       pDaten := TOAdressVSTDaten(VstAdressen.GetNodeData(pNode)^);
       pAdressID := pDaten.FAdressID;

       adridliste:=adridlist+','''+pAdressID+''''

Gut schön (und gut) ist anders, aber nur mal so als Idee.

Gruß
K-H

[EarlyBird]

erstelle Dir zwei Datasets (Master und Detail) mit allen Daten die gedruckt werden sollen:
z.B

Code:

Master:
select * from ADRESSEN
  where (adressen.ADRESSID in (1, 2, 4, 5, 9, 17)) 
  order by adressen.Adressid)

Detail:
select * from Ehrungen
  where (Ehrungen.ADRESSID in (1, 2, 4, 5, 9, 17)) 
  order by Ehrungen.Adressid)

Stelle eine Master-Detail Beziehung zwischen den beiden Datasets her

Dann in deinem Report
ein MasterBand mit dem Masterdataset verbinden
und ein DetailBand mit dem Detaildataset verbinden.
Eigenschaft "StartNewPage" des Maserbandes auf true.

So sollte es funktionieren