fastreport - pitanje oko kombinovanja

[ priki @ 27.07.2009. 10:59 ] @

Zdravo

imam jedno pitanje oko fastreporta, ako je neko imao taj primer

imamo ručno generisan fastreport,, uopšte nema dataset na njemu, nijedan,
sadrži jednu našu komponentu, recimo da je slika, neki tekst ispod, može biti na
jednoj ili proizvoljnom broju strana

sad bi na takvu strukturu reporta trebali dodati stranicu ili više njih koji
sadrže dataset u sebi, sa nekog drugog izveštaja
(na neki način združujemo više izveštaja u jedan)

e sad, pošto nisam uspeo sa :

Code:

<fastreport>.PreviewPages.AddFrom(<fastreport>);

moje pitanje je da li je ovo uopšte izvodljivo ?

hvala
Srđan

[ Miloš Baić @ 27.07.2009. 12:03 ] @

Davno sam radio kombinaciju više report - a u jedan, pomoću PReport - a. Verujem da se tako nešto može odraditi i sa FastReport - om.

Dakle, više report - a se integrišu u jedan pomoću TMemoryStream, pa se iz njega puni jedan prazan report, odnosno jedan report se učita u TMemoryStream pa se privremeni prazan report napuni s njim, potom u TMemoryStream se učita drugi report pa se u taj privremeni samo nadoveže na predhodni na novoj stranici i tako koliko god ima potrebe.

Nešto slično:

Code:

//promenljiva
var
  MS : TMemoryStream;
//spremljen report
if Report.PrepareReport then begin
  //Privremeno čuvanje aktivne stranice u strim
  Report.SavePreparedReport(MS);
  MS.Seek(0, soFromBeginning);
  //Dodavanje aktivne stranice na kraj finalnog izveštaja
  ReportTemp.AppendPreparedReport(MS);
  //praznimo varijablu
  MS.Clear;
  //praznimo report
  Report.ClearPreparedReport;
end;

Ako sam dobro razumeo pitanje...

[ priki @ 27.07.2009. 12:57 ] @

ideja radi i mogu ti reći da je odlična

samo kao sto sam pretpostavio, izvor podataka će biti problematičan
jer se mora kombinovati više izvora podataka na jedan izveštaj

ako nekome zatreba

Code:

          for i := 0 to FReportList.Count - 1 do begin
            msSource.Clear;
            for j := 1 to TfrxReport(FReportList.Objects[i]).PagesCount-1 do begin
              msSource.Clear;
              TfrxReport(FReportList.Objects[i]).Pages[j].SaveToStream(msSource);

              frPage := TfrxReportPage.Create(Self.FastReport);
              frPage.CreateUniqueName;
              frPage.SetDefaults;
              frPage.Orientation := poPortrait;
              msSource.Seek(0, soFromBeginning);
              frPage.LoadFromStream(msSource);
            end;

_{[Ovu poruku je menjao priki dana 27.07.2009. u 14:17 GMT+1]}