Can you export from a Grid to excel ?

[Anis]

Re: Can you export from a Grid to excel ?

Steve;

I tried your Demo, I keep getting error on page when I click the export button. I have more than one search field.
Can you please take a quick look at the zipped test example and tell me what I'm doing wrong .

Thanks

[NoeticCC]

Re: Can you export from a Grid to excel ?

Steve;

I tried your Demo, I keep getting error on page when I click the export button. I have more than one search field.
Can you please take a quick look at the zipped test example and tell me what I'm doing wrong .

Thanks

You would be better off contacting Steve Workings, who made that demo... (not the same Steve :D)

[Steve Wood]

Re: Can you export from a Grid to excel ?

How do you know we aren't the same person...

The solution is to start simple, then work your way out towards what you want. Steve's demo is a simple search on a single table. You have a complex search on a View. Start with something as simple as Steve's example using your own table. Your demo does not produce a value for the session.searchstr, I don't know why. But you should include Steve's method to show the string on the screen so you can verify. Also you can render the filter blank in the export routine to eliminate filter problems. Finally, you have 10 export values, but you named them all Field1.

[NoeticCC]

Re: Can you export from a Grid to excel ?

How do you know we aren't the same person...

*Strokes non-existent beard....* ;)

The solution is to start simple, then work your way out towards what you want. Steve's demo is a simple search on a single table. You have a complex search on a View. Start with something as simple as Steve's example using your own table. Your demo does not produce a value for the session.searchstr, I don't know why. But you should include Steve's method to show the string on the screen so you can verify. Also you can render the filter blank in the export routine to eliminate filter problems. Finally, you have 10 export values, but you named them all Field1.

Steve's demo references a session variable in the A5W page that isn't initiated until later down the page in a component, maybe that is it? Also, there seem to be bugs in the import/export functions in the latest build of A5 which may be causing problems here too... not sure if it affects this though.

[Anis]

Re: Can you export from a Grid to excel ?

I agree that simple is a good start, I thought if I search on one field only, it should be OK, where do you see the string on the page? I didn't pay attention to that.
I realize the field names are wrong, but also I should qualify them with the table name probably.

I'll take sometime to test it out and will post the results.

Thanks

[NoeticCC]

Re: Can you export from a Grid to excel ?

where do you see the string on the page? I didn't pay attention to that.

Around line 84 in the a5w page:

<%A5 ?"session.SearchStr = " + session.SearchStr %>

This throws up this error:

500 Internal Server Error
"Script Error
Error:Script: /bcdecker/Demo_FilteredGrid2Excel.a5w line:80
? ; ?"session.SearchStr = " + session.SearchStr ;?Property not found 
session.SearchStr subelement not found."

I amended it by putting this at the top of the page:

<%a5
If eval_valid("session.SearchStr") = .f. then
	dim session.SearchStr as C
	session.SearchStr = ""
end if
%>

This fixes the problem and shows up like this (if you upload the customer.dbf table from the AlphaSports sample): http://www.charlesworth.biz/bcdecker...Grid2Excel.a5w

It doesn't work however, but since there have been threads discussing problems with import and export in the latest build of A5V9 I suspect this may be due to that... It is certainly picking up the sort string correctly if you search for a name.

[Anis]

Re: Can you export from a Grid to excel ?

I got it to work to the same point on my data also, but it still doesn't export.
again we don't know if this is from the code or from the bug in A5.

I got the search string to show and the data is filtering correctly on the set.

[steinmanal]

Re: Can you export from a Grid to excel ?

Has anyone been successful with the Excel export?

Here's what I'm using on Advanced Button:

report.saveas("rpt_PersonAddressGroup@[PathAlias.ADB_Path]\set_person_address_group.set","xls","","",session.session_folder +"PersonAddressGroup.xls",.f.)
response.redirect(session.session_url + "PersonAddressGroup.xls?" + time("hms03"))

I get the message:
"Exporting Reports to Excel is not supported in your version of Alpha Five. Please contact Alpha Software to purchase an upgrade."

To what version would I need to upgrade?

Thanks.

Alex

[NoeticCC]

Re: Can you export from a Grid to excel ?

Has anyone been successful with the Excel export?

Here's what I'm using on Advanced Button:

report.saveas("rpt_PersonAddressGroup@[PathAlias.ADB_Path]\set_person_address_group.set","xls","","",session.session_folder +"PersonAddressGroup.xls",.f.)
response.redirect(session.session_url + "PersonAddressGroup.xls?" + time("hms03"))

I get the message:
"Exporting Reports to Excel is not supported in your version of Alpha Five. Please contact Alpha Software to purchase an upgrade."

To what version would I need to upgrade?

Thanks.

Alex

I don't think you can use sets on web apps, perhaps the error message just got mixed up? (I may very well be wrong there!)

What version have you got, then?

[steinmanal]

Re: Can you export from a Grid to excel ?

Thanks, Andrea.

The sets definitely work on web apps. I've used the same format with pdf format, rather than xls.

Note that I'm using version 8 - not version 9.

[NoeticCC]

Re: Can you export from a Grid to excel ?

Thanks, Andrea.

The sets definitely work on web apps. I've used the same format with pdf format, rather than xls.

Note that I'm using version 8 - not version 9.

Ah, well that is why then - you can only export to Excel (in the same way you can export to PDF etc.) from V9 onwards...

Great to know about sets though, I was under the impression *nothing* to do with sets worked on WAS, so this is a bonus :)

[steinmanal]

Re: Can you export from a Grid to excel ?

At last, I made some contribution to the forum - instead of always being a taker!

How does the export method you suggested (that only works in v9) differ from the one that Steve Workings posted in the v8 forum?

Thanks for everything.

Alex

[Anis]

Re: Can you export from a Grid to excel ?

I never tried your method, but Steve's method didn't really work.
I got to the point the script will run fine but it never created the excel file.

[NoeticCC]

Re: Can you export from a Grid to excel ?

At last, I made some contribution to the forum - instead of always being a taker!

How does the export method you suggested (that only works in v9) differ from the one that Steve Workings posted in the v8 forum?

Thanks for everything.

Alex

Steve's method exports data from a grid, the one I described above produces a formatted Excel spreadsheet based on an Alpha 5 report. The formatted export looks better, but it means you have to design a report and set up a dialog to let users select filters/parameters, rather than exporting grid data using the current grid search/filter criteria.

[Anis]

Re: Can you export from a Grid to excel ?

I created a web page (see screen shot) That allow the user to select records by Salesman, year or both, or if they wish to print the whole report.
Then created the report list to pick from, but that is all PDF report, you can change that to make it XLS.
The reports are created on the desktop just like normal report, and the dialog box that you see has this code in the afterValidate event in properties:
-----------------------------------------------------------------------
salesman=alltrim(CurrentForm.Controls.Salesman)
year = CurrentForm.Controls.year
report= alltrim(CurrentForm.Controls.ReportList)
IF CurrentForm.Controls.Type = "1" then
dim filter as c
dim order as c
Filter = ".T."
Order = ""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas("Summary_by_month@[PathAlias.ADB_Path]\feed.ddd","pdf",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
'-------------------------------------
else
IF CurrentForm.Controls.Type = "2" then
IF eval_valid("Salesman") = .f. Then
goto skipreport
end if
dim filter as c
dim order as c
Filter = "Wrr = \""+Salesman+"\""
Order = ""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas("Summary_by_month@[PathAlias.ADB_Path]\feed.ddd","pdf",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
else
IF CurrentForm.Controls.Type = "3" then
IF eval_valid("year") = .f. Then
goto skipreport
end if
dim filter as c
dim order as c
Filter = "(Wstyear_ = "+year+" )"
Order = ""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas("Summary_by_month@[PathAlias.ADB_Path]\feed.ddd","pdf",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
else
IF eval_valid("salesman") = .f. .or. eval_valid("year") = .f. Then
goto skipreport
end if
dim filter as c
dim order as c
Filter = "(Wrr = \""+salesman+"\" ) .or. (Wstyear_ = "+year+" )"
Order = ""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas("Summary_by_month@[PathAlias.ADB_Path]\feed.ddd","pdf",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if

skipreport:
end if
end if
end if
-----------------
and on the Type choices you define the 4 choices:
All|1
selectedsalesman|2
selected year|3
selected salesman & year|4
-------------------