merge two reports together

Comments

• Unknown

  March 2013 edited 9:10AM

  Hi Hsm, looks like this issue needs to be duplicated. Have you tried creating a support ticket on this yet?
• technisoft

  March 2013 edited March 2013

  hsm wrote: »

  How can I translate the code in the programmers manual to the situation when I am not calling LoadFromFile() ?

  
  Using memorystreams.
  
  save invoice to memorystream
  save letter to memorystream
  
  using a 3rd frxReport.component use
  
  frxReport1.LoadFromStream( invoiceStream );
  frxReport1.PrepareReport;
  frxReport1.LoadFromStream( letterStream );
  frxReport1.PrepareReport(False);
  frxReport1.Print;
• hsm

  March 2013 edited March 2013

  technisoft wrote: »

  show previous quotes

  technisoft wrote: »

  How can I translate the code in the programmers manual to the situation when I am not calling LoadFromFile() ?

  
  Using memorystreams.
  
  save invoice to memorystream
  save letter to memorystream
  
  using a 3rd frxReport.component use
  
  frxReport1.LoadFromStream( invoiceStream );
  frxReport1.PrepareReport;
  frxReport1.LoadFromStream( letterStream );
  frxReport1.PrepareReport(False);
  frxReport1.Print;

  
  I did try that but I didn't use a third report. In algorithmic form I did the following

  Prepared letter report
  Stream to memory stream (s)
  Prepare invoice report
  Stream to the same memory stream (s)
  Set position of stream S back to 0
  Load Letter report from stream(s)
  Print letter report

  
  Unfortunately though, although I had streamed both reports to the same stream, and loaded the whole stream back in, only the first report (letter) report was printed
  
  I'll have another go using a third, empty report as you sugest.
• hsm

  March 2013 edited 9:10AM

  technisoft wrote: »

  Using memorystreams.

  
  Thank you technisoft, I eventually got it working that way. I am using quite a few script variables in the letter report and found that I had to repeat setting up the script variables again in the combined report. So the solution was not quite as slick as I thought it would be compared with simply printing one report after another.
  However in case anyone else is following this below is the code I finally used.
  (The procedure names should be self explanatory )

  try
      GenerateDataSetForLetter(TheInvoiceID); //run sql and return the data
  
      LetterStream:= TmemoryStream.Create;
      InvoiceStream:= TmemoryStream.Create;
  
      SetLetterReportVariables; //set script variables from the data generated
      frxReportInvoiceReminderLetter.PrepareReport(true) ; //make letter report
      frxReportInvoiceReminderLetter.SaveToStream(LetterStream);
  
     //repeat above two lines on a different form to make and save invoice report to a different stream
      FrmInvoice.PrepareAndSaveInvoiceToStream(TheInvoiceID,InvoiceStream);  
  
      LetterStream.Position := 0;   //reset streams to the beginning
      InvoiceStream.Position :=0;
  
      SetCombinedReportVariables;   //set the script variables again in the combined report
  
      frxReportLetterAndInvoiceCombined.LoadFromStream(LetterStream); //load and prepare letter
      frxReportLetterAndInvoiceCombined.PrepareReport(true);
  
      frxReportLetterAndInvoiceCombined.LoadFromStream(InvoiceStream);//append the invoice
      frxReportLetterAndInvoiceCombined.PrepareReport(false);
  
      frxReportLetterAndInvoiceCombined.print; //print both pages together
  
   finally
     LetterStream.free;
     InvoiceStream.Free;
    end;
  
• technisoft

  March 2013 edited March 2013

  Sorry, wanted to say something but first have to find the right words.