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 ENDIFMartinaJ