Announcement

**APFCClyde** · 01-06-2008, 02:16 PM

Re: Can I adapt the XBasic script?

Good morning Richard. I'll do what I can to help. I'm still new to this myself, but will try to explain how I print a report of the current displayed record.

I'll assume you have a report that works when run from Alpha dev system.

First you need a way for the user to access the report. There are many ways to accomplish this, but I used a simple button on the page with the record displayed:

<form>
<%a5
? "<input type=button value=\"Print Record\" onClick=\"window.open('print_record.A5W');\">"
%>
</form>

When the button is pressed, it displays this a5w page:

<html>
<head>
<meta name="generator" content="Alpha Five HTML Editor">
<title></title>
</head>
<body>
<p>
<%A5
dim Filter as C
dim order as C
dim pdfname as C
dim filename as C
dim acctno as C = session.vAcctno
IF eval_valid(acctno) = .f. Then
goto skipreport
end if
Filter = "Accountno = " + s_quote(acctno)
Order = ""
pdfname = session.session_folder + chr(92) + "tempreport.pdf"

filename = report.saveas("print_record@[PathAlias.ADB_Path]\webset.set", "pdf", Filter, order, pdfname, .f.)

if file.exists(filename)
response.redirect(session.session_url + "tempreport.pdf?" + time("hms3"))
end if
end

skipreport:
?"Error: You must call page with a query string that specifies the Account Number.<br>" + crlf()+\
"For example: " + request.script_name + "?Account Number=92720000<br>"
%>
</p>
</body>
</html>

Since the page contains only Xbasic code, nothing displays but a blank page while the report generates. The keys here are the Filter & table/set name. In my case, the key is Accountno, in yours it might be Reference number. Simply substitute your key field name & session variable. The second part is the table/set name. In my case it's webset.set, in yours it might be Ourref.dbf or Ourref.set depending on how what you're using.

That's pretty much it. Hope this helps.

**richardb** · 01-06-2008, 02:56 PM

Re: Can I adapt the XBasic script?

Hi Clyde

Thanks for coming back to me so fast, you don't know how good it feels to know there is help out there, this one has really been bugging me. I shall go and try a few things now, but in the meantime if you could help with an explanation of 2 other lines of the script I would really appreciate it.

dim acctno as C = session.vAcctno (where did "acctno" come from?)

and

pdfname = session.session_folder + chr(92) + "tempreport.pdf" (what is "+ chr(92)?)

Thanks again and I hope things are brighter with you than they are with me. I'm in the UK on a cold, wet winter's night!

Richard

**APFCClyde** · 01-06-2008, 03:16 PM

Re: Can I adapt the XBasic script?

Well, it's actually raining here in AZ as well just not really cold (57 degrees).

I just substituted another variable for the session variable session.vAcctno which is the record key for the record being displayed on the page. It wasn't really necessary, I could have just as easily used:

Filter = "Accountno = " + s_quote(session.vAcctno)

This sets the filter for the report to be based on the current Accountno.

chr(92) is the backslash - it's just a shortcut way instead of using "\\" to define the backslash in the path name for the temporary pdf name.

If you're interested you can see this example in the help file under:

Printing Reports

**richardb** · 01-06-2008, 03:26 PM

Re: Can I adapt the XBasic script?

Many, many thanks again for your help, Clyde. I shall go play.

Sorry to hear about the rain!

Announcement

The Alpha Software Forum Participation Guidelines

Can I adapt the XBasic script?

Can I adapt the XBasic script?

Comment

Comment

Comment

Comment