FastReport - mehrere DS in einer PDF-Datei-

[HPB]

Guten Tag Delphianer,
ich möchte mit Fastreport folgendes lösen, weiß aber nicht wie.

Pro Datensatz wird eine Seite gedruckt.
Bei 32 Datensätzen eben 32 einzelne Seiten.
So weit so gut.
Jetzt sollen aber die 32 Seiten in einem
einzigen Rutsch in einer PDF-Datei erzeugt werden.

Wie kann man das im FastReport realisieren??
Hat dazu vielleicht jemand ein Workaround?

Ich habe den FastReport 4 und zwar die kommerzielle Version.

MfG
HPB

[haentschman]

Moin...:P

Zitat:

Bei 32 Datensätzen eben 32 einzelne Seiten.

...es bleibt aber doch ein Report mit Seitenvorschub oder sind das dann 32 Reports?

Zitat:

Jetzt sollen aber die 32 Seiten in einem einzigen Rutsch in einer PDF-Datei erzeugt werden.

...bei ersterem ist es einfach, bei zweiterem ist das Konzept zu überdenken. :zwinker:

[HPB]

Vielen Dank für Deine Antwort haentschman,
es kann kein Seitenvorschub erfolgen, da es eben auch 32 Datensätze gibt.
Oder übersehe ich da etwas?? Wenn ja was??
Vielleicht sollte ich erwähnen, das es um eine Mitgliederverwaltung geht.
Für jedes Mitglied gibt es ja einen Datensatz.
Die Daten für eine Seite im Report benötigt auch eine Seite.
Wie sollen nun z. B. die 32 Datensätze mit einem Seitenvorschub
gedruckt werden?? Der Einzeldruck ist auf jeden Fall erfolgreich
und wenn ohne Vorschau gedruckt wird, werden die einzelnen Seiten
ja auch zügig gedruckt.
Das Problem ist doch folgendes:
Die 32 Seiten sollen in einer Datei als PDF ausgegeben werden.
Das ist was ich wissen möchte.
Mit Gruß
HPB

[haentschman]

:P
Mir ging es bei der Frage um die Tatsache ob die 32 Datensätze in EINEM Report gedruckt werden oder der Report 32x NEU mit einem Datensatz generiert wird. Ich vermute das der Report jedesmal neu generiert wird. :wink:
Wenn die 32 Datensätze, incl. Detaildaten, EINEM Report übergeben würden, könntest du im Report beim Wechsel des Masterdatensatzes ein "Neue Seite" einfügen. Damit würde immer eine neue Seite angefangen... auch wenn die Daten mal über eine Seite lang sein sollten. :thumb:
Zu deiner Frage:
Wenn du 32x generierst mußt du deinen Report ändern da es so nie direkt in ein PDF gedruckt wird.

[Lemmy]

Zitat:

Zitat von haentschman (Beitrag 1327955)

Wenn du 32x generierst mußt du deinen Report ändern da es so nie direkt in ein PDF gedruckt wird.

nicht ganz richtig: einfach nach dem generieren einer Seite diese in eine andere FrxReport-Komponente übernehmen, dann die nächste Seite erzeugen (prepare) und der "Speicher" FrxKomponente anfügen... am Ende dann die Speicher-frxReport in ein PDF ausgeben.

Wenn Code benötigt wird, der sollte hier im Forum schon existieren, wenn nicht, dann kann ich den geren nochmal zusammen suchen.

Einfacher geht es auf jeden Fall mit einem MasterBand

[HPB]

Guten Tag Lemmy,
Dein Vorschlag scheint der richtige Weg zu sein.
Ich möchte Dich bitten den Code zusammen zu suchen, damit ich nachvollziehen kann, wie es gemacht werden muss.

Ich kann nicht beurteilen ob das mit dem Masterband erschlagen werden kann.
Der Seitenaufbau ist folgender:
a) GroupHeader (Daten aus der Haupt-Tabelle, füllt fast die ganze Seite aus)
b) MasterData1 (Daten aus einer zweiten Tabelle)
c) MasterData2 (Daten aus einer dritten Tabelle)

Ich habe mal den Report als Anlage beigefügt.

Eigentlich sollen die erzeugten Drucke in einer einzigen PDF-Datei zusammengefügt werden.

Mit Gruß
HPB

[haentschman]

Moin...:P

Zitat:

Guten Tag Lemmy,
Dein Vorschlag scheint der richtige Weg zu sein.

...ohne Lemmy und dir zu nahe zu treten, halte ich dieses Vorgehen für ein Gefrickel um die Sympthome. :roll: Du implementierst, um den kompletten Report zu erreichen, damit Logik in deine Anwendung anstatt das dem Report zu überlassen und ihm nur die kompletten Daten zu übergeben.

[Lemmy]

Zitat:

Zitat von haentschman (Beitrag 1328016)

Moin...:P

Zitat:

Guten Tag Lemmy,
Dein Vorschlag scheint der richtige Weg zu sein.

...ohne Lemmy und dir zu nahe zu treten, halte ich dieses Vorgehen für ein Gefrickel um die Sympthome.

keine Angst... aber ließ doch bitte meinen Beitrag nochmal: Du hast etwas behauptet was einfach nicht stimmt. Und auch wenn Du es nicht glauben magst, auch dafür gibt es Anwendungsfälle, z.B. wenn Du unterschiedliche Reporttemplates in einer Datei zusammen fassen musst.

Der Code dafür ist einfach (Stammt noch aus der Zeit von FR3):

Delphi-Quellcode:

  frPart.LoadFromFile(<>);
  frPart.PrepareReport(true);
  frMain.Pages.AddPrepared(frPart.Page)

So weit klar? und frMain dann eben in ein PDF ausgeben....


Weiterhin bin ich deiner Meinung (habe es ja oben geschrieben): Es geht hier um ein Template, das n mal mit Master-Detail Daten gefüllt werden muss, da FR 6 Detailstufen direkt und noch weitere Ebenen über Subreports unterstützt, kann ich aktuell nicht nachvollziehen, warum dieses Design damit nicht möglich sein soll...

[haentschman]

:P

Zitat:

Du hast etwas behauptet was einfach nicht stimmt

...ok, einen Meter zurück. 8-) Sicher wird dein Konstrukt funktionieren. Diese Variante hatte ich nicht auf dem Schirm. In seinem Anwendungsfalle ist es aber nicht notwendig. :zwinker:

Zitat:

Und auch wenn Du es nicht glauben magst, auch dafür gibt es Anwendungsfälle, z.B. wenn Du unterschiedliche Reporttemplates in einer Datei zusammen fassen musst.

...gut. Bisher ist mir kein Anwendungsfall untergekommen den ich nicht in einem Report lösen konnte. :zwinker: Beispiel: Ein Report mit rund 15 Datenmengen welche teilweise in Master Detail Beziehungen stehen, normal bzw. in Subreports angezeigt werden. Dazwischen gibt es noch statisch angelegte Seiten...kein Problem.

Zitat:

wenn Du unterschiedliche Reporttemplates in einer Datei zusammen fassen musst.

...gut. Wenn verschiedene Reports als eine Datei verschickt werden sollen...in Ordnung.

Viele Wege führen nach Rom. Friede sei mit uns... :thumb:

[Lemmy]

Zitat:

Zitat von haentschman (Beitrag 1328037)

Viele Wege führen nach Rom. Friede sei mit uns... :thumb:

siehste - 2 unterschiedliche Meinungen und doch denken wir das selbe ;-)

[HPB]

Zitat:

Zitat von Lemmy (Beitrag 1328040)

Zitat:

Zitat von haentschman (Beitrag 1328037)

Viele Wege führen nach Rom. Friede sei mit uns... :thumb:

siehste - 2 unterschiedliche Meinungen und doch denken wir das selbe ;-)

Vielen Dank für Eure Anregungen.
Noch eine Frage an Lemmy.
So wie ich diesen Teil verstehe:

Delphi-Quellcode:

  frPart.LoadFromFile(<>);
  frPart.PrepareReport(true);
  frMain.Pages.AddPrepared(frPart.Page)

Werden zuerst alle zu erzeugenden Reports in eine Datei gespeichert und dann wieder eingelesen
und zu dem Report addiert? Werde ich nachher mal testen.

Mit Gruß
HPB

[Lemmy]

Zitat:

Zitat von HPB (Beitrag 1328063)

Werden zuerst alle zu erzeugenden Reports in eine Datei gespeichert und dann wieder eingelesen
und zu dem Report addiert? Werde ich nachher mal testen.

Nein.. du machst einen Schleife um deine Datensätze (Hauptdatensätze). Für jeden Datensatz erzeugst Du nun die eine Seite und speicherst diese dann in einer anderen frxReport Komponente "zwischen":

Delphi-Quellcode:

   
  while NOT qry.EOF do
  begin
    frPart.LoadFromFile('meinReport.fr3');
    frPart.PrepareReport(true);
    frMain.Pages.AddPrepared(frPart.Page);
    qry.Next;
  end;
  ExportToPDF(frMain);

[HPB]

Zitat:

Zitat von Lemmy (Beitrag 1328064)

Zitat:

Zitat von HPB (Beitrag 1328063)

Werden zuerst alle zu erzeugenden Reports in eine Datei gespeichert und dann wieder eingelesen
und zu dem Report addiert? Werde ich nachher mal testen.

Nein.. du machst einen Schleife um deine Datensätze (Hauptdatensätze). Für jeden Datensatz erzeugst Du nun die eine Seite und speicherst diese dann in einer anderen frxReport Komponente "zwischen":

Delphi-Quellcode:

   
  while NOT qry.EOF do
  begin
    frPart.LoadFromFile('meinReport.fr3');
    frPart.PrepareReport(true);
    frMain.Pages.AddPrepared(frPart.Page);
    qry.Next;
  end;
  ExportToPDF(frMain);

Meine Version von Fastreport kennt diesen Teil nicht:

Delphi-Quellcode:

    frMain.Pages.AddPrepared(frPart.Page);

Dafür aber diese:

Delphi-Quellcode:

      frxrprtPart.LoadFromFile(PfadReport + '\' + 'bruder-daten.fr3');
      frxrprtPart.PrepareReport(True);
      frxReport1.Page.AssignAll(frxrprtPart.Page);

Ob dies das Richtige ist, werde ich nachher test.
Gruß und eine nette Woche
HPB

[HPB]

Zitat:

Zitat von HPB (Beitrag 1328066)

Zitat:

Zitat von Lemmy (Beitrag 1328064)

Zitat:

Zitat von HPB (Beitrag 1328063)

Werden zuerst alle zu erzeugenden Reports in eine Datei gespeichert und dann wieder eingelesen
und zu dem Report addiert? Werde ich nachher mal testen.

Nein.. du machst einen Schleife um deine Datensätze (Hauptdatensätze). Für jeden Datensatz erzeugst Du nun die eine Seite und speicherst diese dann in einer anderen frxReport Komponente "zwischen":

Delphi-Quellcode:

   
  while NOT qry.EOF do
  begin
    frPart.LoadFromFile('meinReport.fr3');
    frPart.PrepareReport(true);
    frMain.Pages.AddPrepared(frPart.Page);
    qry.Next;
  end;
  ExportToPDF(frMain);

Meine Version von Fastreport kennt diesen Teil nicht:

Delphi-Quellcode:

    frMain.Pages.AddPrepared(frPart.Page);

Dafür aber diese:

Delphi-Quellcode:

      frxrprtPart.LoadFromFile(PfadReport + '\' + 'bruder-daten.fr3');
      frxrprtPart.PrepareReport(True);
      frxReport1.Page.AssignAll(frxrprtPart.Page);

Ob dies das Richtige ist, werde ich nachher test.
Gruß und eine nette Woche
HPB

Ich habe nun getestet.
Ich finde einfach keinen Weg.

Delphi-Quellcode:

 frxReport1.Page.AssignAll(frxrprtPart.Page)

und dies

Delphi-Quellcode:

frMain.Pages.AddPrepared(frPart.Page);

geht mit meinem FastReport 4.0 nicht. FastReport bietet auch keine andere Optionen
wie z. B. "Page.Add" an.
Wie kann man das bloß lösen?
So langsam verzweifle ich.
Mit gruß HPB

[EarlyBird]

Kannst Du nicht einfach einen Master-Detail Report daraus machen?
Du übergibst dem Report die 32 Masterdaten und die entsprechenden Detaildaten.
Dann kann der Report automatisch pro Datensatz eine Seite erstellen.
Der PDF Export ist dann ganz einfach.
(oder habe ich da was wichtiges überlesen)

[HPB]

Zitat:

Zitat von EarlyBird (Beitrag 1328098)

Kannst Du nicht einfach einen Master-Detail Report daraus machen?
Du übergibst dem Report die 32 Masterdaten und die entsprechenden Detaildaten.
Dann kann der Report automatisch pro Datensatz eine Seite erstellen.
Der PDF Export ist dann ganz einfach.
(oder habe ich da was wichtiges überlesen)

Guten EarlyBird,
es sollen alle n-Datensätze in einer PDF-Datei zusammengefast werden.
Also nicht n-Einzelseiten sondern eine eizige Seite.
Mit Gruß
HPB

[Sir Rufo]

Zitat:

Zitat von HPB (Beitrag 1328115)

es sollen alle n-Datensätze in einer PDF-Datei zusammengefast werden.
Also nicht n-Einzelseiten sondern eine eizige Seite.

Du willst die Quadratur des Kreises, oder diese Anforderung passt nicht mehr zur Ausgangsfrage:

Zitat:

Zitat von HPB (Beitrag 1327942)

Pro Datensatz wird eine Seite gedruckt.
Bei 32 Datensätzen eben 32 einzelne Seiten.
So weit so gut.
Jetzt sollen aber die 32 Seiten in einem
einzigen Rutsch in einer PDF-Datei erzeugt werden.

[EarlyBird]

Für jeden Datensatz im frxBruderDaten DataSet möchtest Du eine Seite erzeugen?
Alle Seiten sollen zusammenhängend in einem PDF Dokument exportiert werden?

Oder sind Daten der frxBruderDaten Tabelle nicht eindeutig!? Dann gruppiere die Daten in einer SQL abfrage.

Dann kann man es mit dem Master-Detail Report machen.
frxBruderDaten als Dataset in einem Masterband einfügen.
Eigenschaft "StartNewPage" des Maserbandes auf true.

Was in die Detaildaten kommt kann ich Deinem Report nicht entnehmen.

[HPB]

Zitat:

Zitat von EarlyBird (Beitrag 1328125)

Für jeden Datensatz im frxBruderDaten DataSet möchtest Du eine Seite erzeugen?
Alle Seiten sollen zusammenhängend in einem PDF Dokument exportiert werden?

Oder sind Daten der frxBruderDaten Tabelle nicht eindeutig!? Dann gruppiere die Daten in einer SQL abfrage.

Dann kann man es mit dem Master-Detail Report machen.
frxBruderDaten als Dataset in einem Masterband einfügen.
Eigenschaft "StartNewPage" des Maserbandes auf true.

Was in die Detaildaten kommt kann ich Deinem Report nicht entnehmen.

Es ist schon richtig. Jeder Datensatz benötigt eine oder zwei A4 Seite/n.
Alle erzeugten Datensätze sollen zusammenhängend in ein PDF-Dokument ausgegeben werden.

Die Daten werden jetzt so selektiert:

Delphi-Quellcode:

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

      ibqryBruderDaten.close;
      ibqryBruderDaten.SQL.Clear;
      ibqryBruderDaten.SQL.Add('select * from ADRESSEN, logenaemter ');
      ibqryBruderDaten.SQL.Add('where adressen.ADRESSID = :pAdressID ');
      ibqryBruderDaten.SQL.Add('and logenaemter.FKADRESSID = ' +
        'adressen.Adressid ');

      ibqryBruderDaten.Prepare;
      ibqryBruderDaten.ParamByName('pAdressID').Value := pAdressID;

      ibqryRepEhrungen.Close;
      ibqryRepEhrungen.Prepare;
      ibqryRepEhrungen.ParamByName('pAdressid').Value := pAdressID;
//      frxrprtPart.LoadFromFile(PfadReport + '\' + 'bruder-daten.fr3');
//      frxrprtPart.SaveToFile('D:\report' + '-'+ IntToStr(i) + '.fr3');
      frxrprtPart.PrepareReport(True);
//      frxReport1.Page.AssignAll(frxrprtPart.Page, True);
      frxReport1.LoadFromFile(PfadReport + '\' + 'bruder-daten.fr3');

      if pSofortDrucken then
      begin
        frxReport1.PrintOptions.ShowDialog := False;
        frxReport1.PrintOptions.Printer := Drucker;
        if frxReport1.PrepareReport then
          frxReport1.Print;
      end
      else
      begin
        if frxReport1.PrepareReport then
          frxReport1.ShowReport;
      end;
      VstAdressen.CheckState[pNode] := csUncheckedNormal;
    end;
    pNode := VstAdressen.GetNextVisible(pNode);
  end;

-----------------------

Zu SirRufo,
vielleicht habe ich mich nicht konkret genug geäußert.

Mit Gruß
HPB

HPB

[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 (

Delphi-Quellcode:

TfrxUserDataSet

) gleichermassen umgehen.

[HPB]

Zitat:

Zitat von Sir Rufo (Beitrag 1328138)

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 (

Delphi-Quellcode:

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

[Lemmy]

Zitat:

Zitat von HPB (Beitrag 1328094)

Ich habe nun getestet.
Ich finde einfach keinen Weg.

sorry, ich habe den COde aus einem alten Post von mir geklaut, ich war der Meinung dass der passt. Ich habe jetzt ne Stunde lang mein altes Repository durchsucht bis ich bemerkt habe, dass ich den Stand in dem ich das implementiert hatte, gar nicht mehr habe (nicht haben darf). Ich habe jetzt ein Ticket bei Fast-Report gemacht, weil es mich selbst interessieren würde wie das ging....

[madas]

Zitat:

Zitat von Lemmy (Beitrag 1328179)

Ich habe jetzt ein Ticket bei Fast-Report gemacht, weil es mich selbst interessieren würde wie das ging....

Warum denn nun dies? Alles was Du zur Lösung des Problems brauchst, wurde Dir hier doch mehr als einmal dargelegt.
Verstehe nun wirklich nicht was daran so schwer sein soll. Mal als Schnellschuss:

- frxReport-Komponente auf die Form gelegt
- frxPDF-Export-Komponente auf die Form gelegt und mit dem Report verknüpfen
- UIB Dataset für Masterdaten und UIB Dataset für Detaildaten auf die Form gelegt und mit den entsprechenden Query versehen; beim Masterdataset als Parameter die Liste mit den AdressIDs vorsehen und beim Detaildataset nur einen Parameter für die jeweils aktuelle AdressID vom MasterDataset
- für jedes UIB Dataset noch ein frxDataSet auf die Form gelegt und mit den UIB-Dataset verknüpfen
- beim UIB-Masterdataset noch den AfterScroll-Event abgreifen und dort das UIB-DetailDataset schließen, vom MasterDataset die aktuelle AdressID auslesen und dem vorher in der Detail-Query erstelltem Parameter zuweisen. DetailDataset wieder öffnen
- Im Report selber dann ein MasterDataBand auf den Report legen und das frxMasterDataset zuweisen; ein DetailBand darunter legen und ihm das frxDetailDataset
- beim MasterDataband die Eigenschaft für "StartNewPage" auf true setzen

Это все.

[Lemmy]

Guten Morgen,

Mea Culpa....

das Hinzufügen ging über die PreviewPages:

Delphi-Quellcode:

frxReport2.PreviewPages.LoadFromFile('2.fp3');
frxReport2.PrepareReport(true);
frxReport1.PreviewPages.AddFrom(frxReport2);

Beispiel anbei (Delphi 7 + FR5)