Help with displaying a report??

[Hansolo]

Folks,

I am still stuck on the seemingly simple task displaying a pdf report based on records selected in a grid.

My setup is this.

I have a data table named �items� which contains items in inventory. The table contains a unique auto number field called �Item_Id�

I have created a Report called �itemsrpt� which is formatted to display the items that are picked in a grid control.

I have a web grid component that is used display the Item_Id in a freeform layout with a checkbox as {Item_Id} "input type="checkbox" name="Item_Id[]" value="{Item_Id}"
Which passes the Item_Id value if the box is checked.

The A5W page containing the grid component is �SelectItem.a5w� and contains two command buttons within the same table as the grid control that are pressed by the user to Print Order or Clear Selections. The source for this page is the following along with the javaS:



"head"
"script language="JavaScript""
function printLabels()
{
var toolbar = 'no';
var menubar = 'no';
var location = 'no';
var statusbar = 'no';
var resizable = 'yes';
var width = 750;
var height = 500;
window.open('PrintLabel.a5w?'+determineItemIdsFromCheckboxes(),'LabelsWindow','location='+location+',menubar='+menubar+',toolbar='+toolbar+',status='+statusbar+',resizable='+resizable+',width='+width+',height='+height)
}

function determineSelectedRadioButton()
{
var retVal = '';
for (i = 0; i " document.SelectItem.Item_Id.length; i++)
{
if (document.SelectItem.Item_Id[i].checked)
{
retVal = document.SelectItem.Item_Id[i].value;
break;
}
}
return retVal;
}
"/script language="JavaScript""
"%a5
Delete tmpl_ItemSelection
DIM tmpl_ItemSelection as P
tmpl_ItemSelection = a5w_load_component("ItemSelection")
'Following code allows you to override settings in the saved component, and specify the component alias (componentName property).
'Tip: Keep the componentName property short because this name is used in page URLs, and it will help keep the URLs short.
'Each component on a page must have a unique alias (componentName property).
with tmpl_ItemSelection
componentName = "ItemSelection"
end with
'=======================================compute the HTML for the Component=======================================
delete x_ItemSelection
dim x_ItemSelection as p
tmpl_ItemSelection.request = request
tmpl_ItemSelection.session = session
tmpl_ItemSelection.response = response
tmpl_ItemSelection.serversetting = serversetting
tmpl_ItemSelection.PageVariables = local_variables()
x_ItemSelection = a5w_run_Component(tmpl_ItemSelection)
'=============================================================================================================
if x_ItemSelection.RedirectURL "" "" then
response.redirect(x_ItemSelection.redirectURL)
end
end if
?x_ItemSelection.Output.Head.JavaScript
?x_ItemSelection.Output.Head.CSS_Link
%"
"!--Alpha Five Temporary Code Start - Will be automatically removed when page is published --"
"!--CSS for tmpl_ItemSelection --"
"link rel="stylesheet" type="text/css" href="file:///C:\Program Files\A5V6/css/Corporate/style.css""
"!--Alpha Five Temporary Code End --"

"meta name="generator" content="Alpha Five HTML Editor""
"title""/title"
"/head"
"body class="CorporatePageBODY" "

"p""br"
"table"

"tr"
"td""%a5 ?x_ItemSelection.Output.Body.Grid_Echo %""/td""/tr"
"tr"
"td""%a5 ?x_ItemSelection.Output.Body.UpdateErrors %""/td""/tr"
"tr"
"td""%a5 ?x_ItemSelection.Output.Body.Search_HTML %""/td""/tr"
"tr"
"form name=SelectItem method=post action="printlabel.a5w""
"td""%a5 ?x_ItemSelection.Output.Body.Grid_HTML %"

"input class="CorporateButton" type=submit value="Print Order"" 
"input class="CorporateButton" type=reset value="Clear Selections""
"/form""/td"
"/tr"
"tr"
"td""%a5 ?x_ItemSelection.Output.Body.DetailView_HTML %""/td""/tr""/table""/p""/form"
"/body"


***********************************************************

The �PrintLabel.a5w� page referenced in the javaS above contains source only.

"%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()," .&. ")
order = ""

dim filename as c

filename = session.session_folder + chr(92) + "templabels.pdf"
filename = Report.saveas("Itemsrpt@[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"

**********************************************************

The error I get when trying to display a report after selecting any items (in this case items 68 and 69) is:

500 Internal Server Error
Script Error
Error:Invalid report filter expression: 'Item_id = "68" .&. Item_id = "69"'.
________________________________________
Alpha Five/6.0 Build/1600-2057 at DNMH211 Port 81


Most of this comes from the examples in the Alpha Help files but I am not working with it correctly obviously. Can anyone see the problem with my filter expression because I can�t.

Thanks for you time..

Chuck

[Hansolo]

RE: Help with displaying a report??

Could this be because the grid in the web page is sending a character representing item_Id "68" or "69" that cannot be resolved to the table because the table item_Id field is numeric?

If so, how can I resolve this without changing that field in the table? I need this to be numeric so I can use the auto number feature as records are added. This is the only sure way to keep a unique field for each record.


CHuck

[Stan Mathews]

RE: Help with displaying a report??

"I need this to be numeric so I can use the auto number feature as records are added." - If you mean auto-increment then it need not be number. Auto-increment fields can be character fields containing characters and digits.

Excuse me if I misunderstand your question. Here's the pertinent documentation of auto-increment...


Auto-Increment Fields

When you define a character, numeric, or date field with an auto-Increment rule, an incremented value is automatically filled in when you create a new record, which you can accept or overwrite. If you overwrite the default value, successive records are incremented from the value you enter.

Auto-Increment fields are useful for assigning unique identification numbers for invoices, parts, products, and customers. By default, character fields are incremented using number characters (like "0001", "0002"). If you do not enter a value for the first record, Alpha Five automatically starts a character field at "1".

When a field is incremented, it follows the previous record's field conventions. For example, the value "A1" will be "A2" in the following field, then "A3" and so on. Additionally, you can increment both letter and number field values. The auto-increment field rule takes into account deleted records.

[Stan Mathews]

RE: Help with displaying a report??

Then again I don't see how the filter could work as

'Item_id = "68" .&. Item_id = "69"'

Item_id cannot be both "68" and "69" .

Need an .or. somewhere.

[Hansolo]

RE: Help with displaying a report??

Thanks for the info Stan. That is very helpful to me in the future. I did not mean to impose the limitation on Alpha 5. It is more a limitation of my own with respect to the volume of data already in the table.

Unfortunately it still does not help me with the original report problem.

Cheers,

Chuck

[Hansolo]

RE: Help with displaying a report??

Same Error with And or Or used in the filter. The posted code is the result of my tampering and forgetting to put back in original form.

[Hansolo]

RE: Help with displaying a report??

But doe the filter string not make more since with And because I want the report to display this item And that Item And Item(n) not this one Or that one.

These semantics are killing me!

Chuck

[Stan Mathews]

RE: Help with displaying a report??

The filter is evaluated for all of the records in the table to decide if it should be included or not, one at a time. So Alpha looks at the first record and asks, for this record is the item_id equal to "68" and is it also equal to "69". Answers no and checks the next record, etc.

I'm a complete WAS rookie but try



filter = strtran(alltrim(filter), crlf()," .or. ")

and if that doesn't work, which I don't think it will change these two lines as indicated.

filter = *for_each(x,"Item_id = " + x,filter)
filter = strtran(alltrim(filter), crlf()," .or. ")

[Hansolo]

RE: Help with displaying a report??

I understand what you are saying but .or. does not fix the primary filter problem though it prevents one should i get past this. Also removing Quote() did not result in any difference the error was exactly the same.

500 Internal Server Error
Script Error
Error:Invalid report filter expression: 'Item_id = "68" .or. Item_id = "69"'.

Thanks for your time on this. The code is taken from the Supplies Web_Applications_Demo. It works there but not in my little implementation.

hummmm!

[Hansolo]

RE: Help with displaying a report??

I just used the filter genie in the report to get an idea of what it is expecting from the filter. It looks like my filter express in needs to be in the format Item_id = {19} as opposed to Item_id = "19".

Any idea how I get the expression to use that format??

[Pat Bremkamp]

RE: Help with displaying a report??

Chuck,
I think your problem comes from the value in the table being a number, but the value in the grid is character (as I understand it, everything shown is a character), so you may need to convert back to numeric values in order to apply the filter. Do a search on convert type for more info.
Pat

[Hansolo]

RE: Help with displaying a report??

To test this I did the opposite of what you suggest but should have had the same effect if it is a type problem. I changed the table field Item_Id to character instead of Numeric. Still got the same Error though.

[Hansolo]

RE: Help with displaying a report??

Ok Ok I will be damned. Changing the filter from this:

filter = *for_each(x,"Item_id = " + quote(x),filter)

to this:

filter = *for_each(x,"Item_id = " + val(x),filter)

Works

Problem solved!

So it would seem that this was a type problem after all. What I do not understand is how the first filter expression works in the demo. When I changed my Item_id field to type Character in the table the same error occured. Well at least it works for my table the way I intended.

Thanks for all the help guys. It is so much better to get to bounce this stuff off others.

Cheers,

CHuck

[Stan Mathews]

RE: Help with displaying a report??

filter = *for_each(x,"Item_id = {" + x + "}",filter)

filter = strtran(alltrim(filter), crlf()," .or. ")
? filter
= "Item_id = {68} .or. Item_id = {69}"

[Hansolo]

RE: Help with displaying a report??

This worked too.

filter = *for_each(x,"Item_id = " + val(x),filter)

Thanks Stan..

See my last post in this thred...