Hi there,

Just wondering if anyone has been using XFRX, I recently downloaded the

latest version, it seems a good program. I downloaded the demo, it

worked as expected.

Now when I attempt to copy the source code to create a PDF from the demo

into a blank PRG file to run the exact same code, I never seem to

progress far.

I have a report which has the tables in a private data session within

the report, these tables are all related via relationships.

Below is the quote I am attempting to run in this stand alone prg file.

When I run the program I only get a wait window "Progress" and it seems

that the program has hung, but as I said when I run it through the demo

it works fine.

Any suggestions? Would be greatly appreciated.

close all

loSession=xfrx("XFRX#Init")

SET PATH TO c:\a_m

SELECT 0

USE quote.DBF order quote_no IN 0

SELECT quote

GO TOP

loProgress = createobject("progress")

lnRetVal = loSession.SetParams("QUOTE",,,,,,"HTML")

If lnRetVal = 0

loSession.setProgressObj(loProgress,2)

loSession.ProcessReport("RPTQUOTE.FRX","quote_no = '48450 '",,)

loSession.finalize()

EndIf

define class progress as custom

procedure updateProgress

lpara tnReport,tnPage,tnPercentage

wait window nowait "Page #: "+allt(str(tnPage))+" Report #:

"+allt(str(tnReport))+" ("+allt(str(tnPercentage))+"%)"

enddef