>USE demoreps\invoices ORDER customer >LOCAL m.loSession, m.lnRetval >m.loSession= xfrx("XFRX#INIT") >m.lnRetVal = m.loSession.SetParams("output.pdf",,,,,,"PDF") >IF m.lnRetVal = 0 > m.loSession.ProcessReport("report1") > m.loSession.ProcessReport("report1") > m.loSession.ProcessReport("report2") > m.loSession.finalize() >ELSE > ? m.lnRetVal >ENDIF >>
>USE demoreps\invoices ORDER customer >LOCAL m.loSession, m.lnRetval >m.loSession = XFRX("XFRX#LISTENER") >m.lnRetval = loSession.SetParams("output.pdf",,,,,,"PDF") >IF m.lnRetval = 0 > REPORT FORM report1 OBJECT m.loSession NOPAGEEJECT > REPORT FORM report1 OBJECT m.loSession NOPAGEEJECT > REPORT FORM report2 OBJECT m.loSession >ELSE > ? m.lnRetval >ENDIF >>
IF m.lnRetval = 0 *-- Code here that creates a cursor for Report1 REPORT FORM report1 OBJECT m.loSession NOPAGEEJECT *-- Code here that creates a cursor for Rpoert2 REPORT FORM report1 OBJECT m.loSession NOPAGEEJECT *-- Code here that creates a cursor for Report3 REPORT FORM report2 OBJECT m.loSession ELSE ? m.lnRetval ENDIFSee the line *-- Code here above