Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
XFRX Preview
Message
From
09/06/2004 15:01:07
 
General information
Forum:
Visual FoxPro
Category:
Third party products
Title:
Miscellaneous
Thread ID:
00911277
Message ID:
00911892
Views:
62
the following is the source code in class frmpreviewer.cmdOpen.Click() in classlib prevdemo\previever that I have. Do you have a different VCX?

LOCAL lcName
lcName = GETFILE("XFF File:XFF;XML File:XML","Report:","Open",0, "Select a report to open") &&"outf.xff"
IF EMPTY(lcName)
RETURN
ENDIF

LOCAL loSession
loSession=EVALUATE([xfrx("XFRX#INIT")])
thisform.oReport = IIF(AT("XML",UPPER(lcName))>0,EVALUATE([xfrx("XFRX#XML")]),EVALUATE([xfrx("XFRX#DRAW")]))
IF thisform.oReport.openDocument(lcName)
thisform.cntXFRX.reset()
lnRetVal = loSession.SetParams(,,,,,,"CNT")
loSession.setOtherParams(thisform.cntXFRX)
loSession.TransformReport(thisform.oReport)
ENDIF
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform