Quickreport: der gleiche Report mehrmals im Composite-Report

[Martoeng]

Hi mal wieder.

Habe mal wieder ein Problem:

Ich möchte, dass ein Report mehrmals zur CompositeReport-Komponente hinzugefügt wird. (natürlich mit verschiedenen Inhalten)

Klappt soweit auch ganz gut:

In der OnAddReports-Methode des CompositeReports steht also folgendes (stark zusammengefasst):

Delphi-Quellcode:

for z := 0 to m_liste.Lines.Count-1 do
begin

  frm_tba_rechn.q_needdata.SQL.Text := 'SELECT * FROM ' + unit3.einst_t_tba_rechn + ' WHERE vorgang = ' + quotedstr(t_vorgang);
  frm_tba_rechn.q_needdata.Open;
  cr_tba_rechn.Reports.Add(frm_tba_rechn.quickrep2);
end;

zur Erklärung:
- t_vorgang enthält in jedem Durchlauf den String aus einer Zeile des memos "m_liste"
- q_needdata bildet die Grundlage des Reports, der aber in der OnNeedData "bestückt" wird (also keine DB-Felder im Report enthalten)
- cr_tba_rechn ist der CompositeReport


So weit, so gut.
Der Report wird auch tatsächlich [z]-mal zum CompRep hinzugefügt, allerdings immer nur mit den Werten der letzten Abfrage gefüllt. (falls jemand versteht, was ich meine ;) )

Warum???

Vielleicht kann ja jemand helfen...


MfG
Martoeng

[Martoeng]

So, habs nu mit sehr viel Rumprobieren geschafft:

Das Problem ist ganz einfach, dass diese OnAddReports-Funktion nur ein einziges mal aufgerufen wird, die einzelnen Reporte aber erst _nach_ dem Durchlauf dieser Funktion wirklich hinzugefügt werden. Da ist es kein Wunder, wenn die Datasource immer die "letzte" ist... :?

Also habe ich das alles ein bisschen verlagert... Falls irgendjemand inder grossen Welt auch mal das Problem haben sollte, hier meine Lösung:

In der OnAddReports-Funktion wird der Report jetzt nur noch [z]-mal hinzugefügt, ohne Einfluss auf die Datasource zu nehmen.

Delphi-Quellcode:

  for z := 0 to m_liste.Lines.Count-1 do
  begin
     cr_tba_rechn.Reports.Add(frm_tba_rechn.quickrep2);
  end;

Die Variable aus dem Memo wird im OnFinished-Ereignis des CompositeReports "vergeben":

Delphi-Quellcode:

procedure Tfrm_tba_rechn_setzen.cr_tba_rechnFinished(Sender: TObject);
begin
  if z_global <= m_liste.Lines.Count-1 then
  begin
    unit21.t_vorgang := m_liste.Lines.Strings[z_global];
    //showmessage(inttostr(z_global) + ' - ' + m_liste.Lines.Strings[z_global]);
    z_global := z_global + 1;
  end;
end;

Die Datasource wird nun im BeforePrint-Ereignis des Quickrep2 mittels der "t_vorgang" zusammengesetzt.

So jetzt werd ich zur Feier des Tages erstmal :drunken:'en gehn ;)
Nee, nich wirklich....


MfG

martoeng