Save PDF Report Using Arguments

[kingcarol]

I am trying to use a button to save a PDF report with arguments. I am successful in saving the report without the arguments, but am too newbie to get it to work with arguments. I have been studying this Alpha help: http://support.alphasoftware.com/alp..._.SAVEAS().htm

The example in that article for using arguments is:

This script saves copy of the Invoice report with an argument. 
You can add as many arguments to the arguments collection as you want.

	DIM myargs as SQL::arguments 
	myargs.add("whatcity","London") 
         report.saveas("report1", "", "", .f., .f., myargs)

The code I'm trying to run is below. It works fine if I leave out the arguments part. Do I need to open an sql connection or something? If anyone can spot my problem, can you let me know. I'm being pretty clutsy about using arguments. Thanks!

function SavePOReportNoItems as c (e as p)
dim reportLayoutName as c
reportLayoutName = "PurchaseOrderWithoutIems@web_chs_alpha.alb"

dim reportFileName as c
reportFileName = "PO_"+e._currentRowDataNew.PO_NUM+".pdf"

dim reportSavePath as c
reportSavePath = "C:\TestSaveReports"+"\\"+reportFileName

DIM args as SQL::arguments 
args.add("whatponum",e._currentRowDataNew.PO_NUM)
args.add("whatpocode",e._currentRowDataNew.PO_CODE)

report.saveas(reportLayoutName, "PDF", "" , "" , reportSavePath,.F.,,args)

'The line below works with the args removed.
'report.saveas(reportLayoutName, "PDF", "" , "" , reportSavePath,.F.)

SavePOReportNoItems = "alert('The report has been saved.');"

end function

[kingcarol]

Re: Save PDF Report Using Arguments

Further clarification: I know how to open the report in Acrobat and just save it, but I will be using a session variable for the path that would save the report on the server for the user to access later. I have already done that successfully.

[Stan Mathews]

Re: Save PDF Report Using Arguments

The syntax shown at the top disagrees with the example you quote. I count the arguments as the 8th paramater. As I understand things you cannot omit optional parameters if you specify a later parameter.

I would try

report.saveas(reportLayoutName, "PDF", "" , "" , reportSavePath,.F.,.F.,args)

[kingcarol]

Re: Save PDF Report Using Arguments

Thanks so much, Stan, that DID get rid of the error that it couldn't compile the function. Thank you. BUT....

It is not recognizing the arguments. ie, the report has all records and not just the one for the appropriate PO_NUM and PO_CODE.

BTW, I am manually deleting the report before I save it again, so I am not looking at a previous report, which I can verify by looking at time created. Once I accomplish the args thing, I will also include a time stamp in the report name so it will always be unique.

[kingcarol]

Re: Save PDF Report Using Arguments

Should I be using the parameter for filter instead of arguments? When the report is just opened using button OnClick using the action to open a report, I have the following SQL filter in the Layout Print Definition, and the report opens for the PO_NUM and PO_CODE in the current record.

SQL Filter for opening report:
PO_NUM = '{PO_NUM}' AND PO_CODE = '{PO_CODE}'

I looked at the Xbasic being generated by the above and can see this:

ro.sqlFilter = 'PO_NUM = \''+{grid.object}._getValue('G','PO_NUM',rowNum)+'\' AND PO_CODE = \''+{grid.object}._getValue('G','PO_CODE',rowNum)+'\'';

I don't know how to translate that as the filter parameter for the report.saveas....

[christappan]

Re: Save PDF Report Using Arguments

I'm just using one argument per report, so I can't promise it recognizes multiple in your scenario, but I've used this code with adaptations in several places in our application.

:Report.SaveAs("ERContactXargs@[PathAlias.ADB_Path]\support_coordination.alb","PDF","","",filenamefolder+filename,.F.,null_value(),args)

I'm also assuming you've written the report SQL definition with those arguments as well?

[kingcarol]

Re: Save PDF Report Using Arguments

STILL trying to get arguments to be recognized in the report.saveas code. (The whatponum and whatpocode arguments ARE defined in the sql for the report itself. When just opening the report, they perform as expected. Here is screenshot of the window for opening the report: http://screencast.com/t/sfQpqkvbJD)

This code does save the report but does not recognize the arguments, so all records are on report.

DIM args as SQL::arguments 
args.add("whatponum",vPONum)
args.add("whatpocode",vPOCode)

:report.saveas(reportLayoutName, "PDF", "" , "" , reportSavePath,.F.,.F.,args)

I have tried commenting out the 2nd argument so there is only 1 argument and that doesn't work either.

When I open the report, there is a SQL filter AND the arguments, so I started wondering if I needed to include the filter in the report.saveas code. So I tried the following, and, of course, received error that the filter expression was not valid.

DIM args as SQL::arguments 
args.add("whatponum",vPONum)
args.add("whatpocode",vPOCode)

dim sqlFilter as c
sqlFilter = "PO_NUM = :whatponum AND PO_CODE = :whatpocode"

:report.saveas(reportLayoutName, "PDF", sqlFilter , "",reportSavePath,.F.,.F.,args)

BTW, I put the : in front of the report.saveas code cuz I see that in examples above. Why am I putting that there?

[Stan Mathews]

Re: Save PDF Report Using Arguments

Why am I putting that there?

If we told you that, we'd have to give you the secret handshake too.

[kingcarol]

Re: Save PDF Report Using Arguments

Oh, pretty please, Stan. What does it take to become a member of the club?

[kingcarol]

Re: Save PDF Report Using Arguments

RESOLUTION! (Resorted to Selwyn again and he did say that the help example wasn't really complete about object.saveas. I think he meant that example doesn't show right number of parameters)

I needed to use the last parameter for options in the report.saveas statement. Here is the resulting successful code for anyone who ends up at this thread cuz they are needing this kind of info:

function SavePOReportNoItems as c (e as p)

dim vDateTime as c
vDateTime = time("yyyyMMdd_hms") 'year month day _ hour min second (used Ctrl down key in function to get the help)

dim reportLayoutName as c
reportLayoutName = "PurchaseOrderWithoutIems@web_chs_alpha.alb"

dim vPONum as c
vPONum = e._currentRowDataNew.PO_NUM

dim vPOCode as c
vPOCode = e._currentRowDataNew.PO_CODE

dim reportFileName as c
reportFileName = "PO_"+vPONum+"_"+vDateTime+".pdf"

dim reportSavePath as c
reportSavePath = e.session.__protected__xxxxxx+"\\"+reportFileName

DIM args as SQL::arguments 
args.add("whatponum",vPONum)
args.add("whatpocode",vPOCode)

dim options as p
options.filter = "PO_NUM = :whatponum and PO_CODE = :whatpocode"

report.saveas(reportLayoutName, "PDF", "" , "" , reportSavePath,.F.,.F.,args,options)

SavePOReportNoItems = "alert('The report has been saved.');"

end function

[Stan Mathews]

Re: Save PDF Report Using Arguments

Oh, pretty please, Stan. What does it take to become a member of the club?

We generally wait until you join Alphaholics Anonymous or sign a statement that you have read and completely understand the current documentation.....

But since it is you asking.

Object Addresses