Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
XFRX Question
Message
De
04/02/2010 11:02:52
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Produits tierce partie
Titre:
XFRX Question
Divers
Thread ID:
01447504
Message ID:
01447504
Vues:
227
The code below works fine standing alone.

When I run it in a much larger program, I get an XFRX message saying:
"c:\scoresheetest\reports\testerpl.frx not found!"
Obviously larger program is setting something that XFRX doesn't like.

I tried setting EXACT ON and OFF, no help.

Both are using VFP 9 SP1

Any clues?
   CLOSE ALL
   CLEAR ALL
   SET EXACT OFF
      
    SET PROCEDURE TO utilityReportListener.prg ADDITIVE
    SELECT 0
    USE testfrx ALIAS rptfile
    GO TOP
    

    SELECT rptfile
    GO TOP
    lc_frmfile =  "c:\scoresheetest\reports\testerpl"
*     REPORT FORM (lc_frmfile) PREVIEW
   * lc_frmfile =  ALLTRIM(FULLPATH(CURDIR())) + "reports\" +  JUSTSTEM(lc_rptname)
  
    lc_pdf = "test.pdf"
    local loSession, lnRetval 
    loxfrx = XFRX("XFRX#LISTENER") 
    loxfrx.setEmbeddingType(2)
    _xfrx_WordWrapAlgorithm = 1
    lnRetval = loxfrx.SetParams(lc_pdf,,,,,,"PDF") 
    SELECT rptfile
    GO TOP
   IF lnRetval = 0 
      REPORT FORM (lc_frmfile) OBJECT loxfrx NOPAGEEJECT 
      Loxfrx.finalize() 
   ELSE 
    ? lnRetval 
   ENDIF
Anyone who does not go overboard- deserves to.
Malcolm Forbes, Sr.
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform