Can anyone help get me on the right track?
I am getting this Error when the user tries to print a report (button in the grid area) based on record selections in a grid.
500 Internal Server Error
Script Error
Error:Label not found: 'Items_rpt@C:\Alpha_db\Commonsupplies\Items.ddd'.
________________________________________
Alpha Five/6.0 Build/1600-2057 at DNMH211 Port 81
Of course like everyone else I tried to take this from the A5V6 example code with limited success. I think the relevant code is as follows in my PrintLabel.a5w page but I cannot figure out the problem.
"%a5
if eval_valid("Item_id")
if Item_id[1] = ""
goto ItemidNotSpecified
end if
dim filter as c
dim order as c
filter = Item_id.dump()
filter = *for_each(x,"Item_id = " + quote(x),filter)
filter = strtran(alltrim(filter), crlf()," .or. ")
order = ""
dim filename as c
filename = session.session_folder + chr(92) + "templabels.pdf"
filename = Report.saveas("Items_rpt@[PathAlias.ADB_Path]\Items.dbf","PDF",filter,order,filename,.f.)
if file.exists(filename)
response.redirect(session.session_url + "templabels.pdf?" + time("hms3"))
end
end if
else
ItemidNotSpecified:
end if
%"
"head"
"meta name="generator" content="Alpha Five HTML Editor""
"title""/title"
"/head"
"body"
"p"Error: You must call page with a query string that specifies the Item ID(s)."br"
For example: "%a5 ? request.script_name %"?item_id[]=000001&item_id[]=000013"/p"
"p" "/p"
"/body"
Thanks for your time!!
I am getting this Error when the user tries to print a report (button in the grid area) based on record selections in a grid.
500 Internal Server Error
Script Error
Error:Label not found: 'Items_rpt@C:\Alpha_db\Commonsupplies\Items.ddd'.
________________________________________
Alpha Five/6.0 Build/1600-2057 at DNMH211 Port 81
Of course like everyone else I tried to take this from the A5V6 example code with limited success. I think the relevant code is as follows in my PrintLabel.a5w page but I cannot figure out the problem.
"%a5
if eval_valid("Item_id")
if Item_id[1] = ""
goto ItemidNotSpecified
end if
dim filter as c
dim order as c
filter = Item_id.dump()
filter = *for_each(x,"Item_id = " + quote(x),filter)
filter = strtran(alltrim(filter), crlf()," .or. ")
order = ""
dim filename as c
filename = session.session_folder + chr(92) + "templabels.pdf"
filename = Report.saveas("Items_rpt@[PathAlias.ADB_Path]\Items.dbf","PDF",filter,order,filename,.f.)
if file.exists(filename)
response.redirect(session.session_url + "templabels.pdf?" + time("hms3"))
end
end if
else
ItemidNotSpecified:
end if
%"
"head"
"meta name="generator" content="Alpha Five HTML Editor""
"title""/title"
"/head"
"body"
"p"Error: You must call page with a query string that specifies the Item ID(s)."br"
For example: "%a5 ? request.script_name %"?item_id[]=000001&item_id[]=000013"/p"
"p" "/p"
"/body"
Thanks for your time!!
Comment