Page Comparison

LOCAL m.loSession, m.lnRetVal, m.lcFile

USE Customers

m.loSession=EVALUATE([xfrx("XFRX#INIT")])

* Enable global cache
_Screen.oXFRX.SetGlobalCache(.T.)

* Enable report metadata cache
_Screen.oXFRX.SetUseReportCache(.T., .T.)

* Enable font data cache
_Screen.oXFRX.SetFDCache(.T.)

* Enable images data cache
_Screen.oXFRX.SetImagesCache(.T.)

SELECT Customers
SCAN ALL
     m.lcFile="Customer_"+LTRIM(STR(CustNo, 11))+".pdf"
     m.lnRetVal = m.loSession.SetParams(m.lcFile, , , , , , "PDF")
     IF m.lnRetVal = 0
        m.loSession.ProcessReport("report1", , , "NEXT 1")
        m.loSession.ProcessReport("report2", , , "NEXT 1") 
        m.loSession.finalize()
     ELSE
       ? m.lnRetVal, m.loSession.ErrorMessage(m.lnRetVal)
     ENDIF
ENDSCAN

RELEASE m.loSession