Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
XFRX Preview
Message
De
09/06/2004 15:01:07
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Produits tierce partie
Titre:
Divers
Thread ID:
00911277
Message ID:
00911892
Vues:
60
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform