...
Code Block |
---|
m.loSession=EVALUATE([xfrx("XFRX#INIT")]) *m.loSession.setLogFile(m.lcPath+"XFRX.log") m.lnRetVal = loSession.SetParams(,,,,.T.,,"XFF") IF m.lnRetVal=0 m.loSession.ProcessReport(m.lcPath+"Customer_orders") m.loXFF=m.loSession.finalize() SET CLASSLIB TO xfrxlib\xfrxlib ADDITIVE m.loPreview = CREATEOBJECT("frmMPPreviewer") m.loPreview.iEmail = 1 && show the email icon m.loPreview.lVFP8 =.T. && use XFRX#INIT *m.loPreview.setLogFile(m.lcPath+"XFRXPreview.log") m.loPreview.windowtype = 1 m.loPreview.windowState = 0 m.loPreview.PreviewXFF(m.loXFF) m.loPreview.show() ENDIF |
Result