I have a report that I am trying to present to the user in a .pdf format.
Every time I try to view the report, I get the following error message.
Error:Report not found: 'test_letter@\\Dmfsvr\A5Webroot\set_new_client.set'.
I have (at least I think I have) verified that the report is part of the database by attempting to copy the report to the set located in the webroot. When I try this, it tells me that the layout already exists.
I have basically copied, then modified the code from the Print_Invoice.a5w page included in the Web Applications Demo.
Here is the code that I am using.
"head"
"meta name="generator" content="Alpha Five HTML Editor""
"title""/title"
"/head"
"body"
"p""%A5
'IF eval_valid("invoiceNumber") = .f. Then
'goto skipreport
'end if
dim filter as c
dim order as c
'Filter = "invoice_number = " + quote(invoiceNumber)
Filter = ""
Order = ""
Dim filename as c
filename = session.session_folder + chr(92) + "tempreport.pdf"
filename = report.saveas("test_letter@[PathAlias.ADB_Path]\set_new_client.set","pdf",filter,order,filename,.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 InvoiceNumber."br"" + crlf()+\
"For example: " + request.script_name + "?invoiceNumber=000001"br""
%""/p"
"/body"
Thanks for any help that can be offered!
Louis
Every time I try to view the report, I get the following error message.
Error:Report not found: 'test_letter@\\Dmfsvr\A5Webroot\set_new_client.set'.
I have (at least I think I have) verified that the report is part of the database by attempting to copy the report to the set located in the webroot. When I try this, it tells me that the layout already exists.
I have basically copied, then modified the code from the Print_Invoice.a5w page included in the Web Applications Demo.
Here is the code that I am using.
"head"
"meta name="generator" content="Alpha Five HTML Editor""
"title""/title"
"/head"
"body"
"p""%A5
'IF eval_valid("invoiceNumber") = .f. Then
'goto skipreport
'end if
dim filter as c
dim order as c
'Filter = "invoice_number = " + quote(invoiceNumber)
Filter = ""
Order = ""
Dim filename as c
filename = session.session_folder + chr(92) + "tempreport.pdf"
filename = report.saveas("test_letter@[PathAlias.ADB_Path]\set_new_client.set","pdf",filter,order,filename,.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 InvoiceNumber."br"" + crlf()+\
"For example: " + request.script_name + "?invoiceNumber=000001"br""
%""/p"
"/body"
Thanks for any help that can be offered!
Louis
Comment