Set Submit Button to New Window

[eboughey1]

I have a lot of reports and all of them are opening to the current page. I really need them all to open in a new window.

Where would I set this up in a grid or dialog?

Would I use the following code?

window.open('url to open','window name','attribute1,attribute2')

[Steve Wood]

Re: Set Submit Button to New Window

In a grid or dialog link field type you can set the target to open in a new page. So what I have done is open (in a new window) an A5W page that is pure code, and that page opens the PDF report.

Or, on the same page that has the dialog that runs the report, I have placed code like this to cause a hyperlink to appear below the dialog after the Submit is pressed. The link then opens the report in a new window. You can make this more fancy by individually naming the reports, and listing them as they are created. Since this model has the reports going to the session folder, they all disappear when the user's session times out.

if file.exists(session.session_folder + "tempreport.pdf")
	pdfurl = session.session_url + "tempreport.pdf"
	?"<a href=\"" + pdfurl + "\"target=\"_blank\">--> Click here to open lastest report in new window</a>"
	else
	?"After you press Submit, a link to your report will appear here."
end if

[eboughey1]

Re: Set Submit Button to New Window

I've tried this several ways but it just won't work like you have above. Where can I put the information in to make this print to another page?

Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas("production-wo@[PathAlias.ADB_Path]\workorder set.set","pdf",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if

[Steve Wood]

Re: Set Submit Button to New Window

Hi Elena,

You don't do it in the code, you need to "target" the page that has your code, to open in a new window.

A long time ago, Alpha answered that there is no way to open a new window with a redirect. So the two options I know how to use are:

1) Like my example below, it creates a hyperlink to the report on the same page as the dialog, tells the user to click to open the report. Not very flashy and the user may wonder why they have to click twice to get their report.

2) Take your code almost as is and move it to a new A5W page. Change the currentform.redirecttarget and change it to response.redirect() function. Then on your dialog, add a LINK field that opens your new page with the code. On the Link field, you can set it to open a new window, or even use Javascript to open a new window of specific size.

I know there must be one more way - the Submit button on the dialog is after all a Button. So it must be possible to add Javascript to the onclick function of that button to cause the result (the report) to open in a new window. I just don't know how to do it.

----

For anyone reading, the primary reason to do this is that users tend to click the X to close a report after they are done viewing. If the report opens in the SAME window and they close the window, they have just closed the entire application and have to find their way back to the program, back to the page they were on just before they ran the report.

[eboughey1]

Re: Set Submit Button to New Window

You are absolutely right. The reports are opening up inside the application which is a pain for the client because they have to use the 'back' button to get back to the main page for the website.

I guess I'm going to hunt through the javascript website to see if there's a solution there. I need to update at least 10 pages. Those 2 suggestions may work for a few of my pages but the majority will need something more seamless.

What I'd really like to do is open them in another tab but that's undoable according to the javascript boards I've read so far.

[eboughey1]

Re: Set Submit Button to New Window

Now I've messed it up somehow. It will print the reports inside the component but it won't print on the a5w page. dang! Can anyone see anything that would cause it not to work on the web page?

I've taken one of the web forms and manipulated it so that I can choose either the client job number or the internal job number instead of different reports. I've got nearly the same setup on another page and it's working fine. The change was that contactlist is a text box instead of drop down.



jobno = alltrim(CurrentForm.Controls.ContactList) (text box)
mtjobno = alltrim(CurrentForm.Controls.ContactList) (text box)
report = alltrim(CurrentForm.Controls.ReportList) (drop down)

if CurrentForm.Controls.ContactType = "1" then
dim filter as c
dim order as c
Filter = "Clientjobn = \""+jobno+"\""
Order = ""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas(report,"pdf",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
else
IF eval_valid("mtjobno") = .f. Then
goto skipreport
end if
dim filter as c
dim order as c
Filter = "(Newjobno = "+mtjobno+" )"
Order = ""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas(report,"pdf",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
skipreport:
end if

[Steve Wood]

Re: Set Submit Button to New Window

Confused - is this code below what you placed on an A5W page? Won't work there you know.

[eboughey1]

Re: Set Submit Button to New Window

No. This code is on a dialog. I just inserted the component on an a5w page.


http://www.mailtimenet.com

user: alphauser
pass: temp123

go to reports / print single or multiple work orders

Update: I've tried different set ups as well. It works fine when I do a live preview inside of the component. It's after I put it on the web that it doesn't work. It doesn't work with localhost either.

[Pat Bremkamp]

Re: Set Submit Button to New Window

Maybe this will help. It is an example of one approach Steve has suggested:

Screen1 shows a grid with a link to the reports dialog.

Screen2 shows the setup. Notice the "New Window" property

Screen3 shows the print dialog

The AfterValidate for the dialog (in part ) is:

 
Dim vFilter as C
Dim vOrder as C
Dim vEv_Id as C
Dim filename as C
vEvId = alltrim(CurrentForm.Controls.vEvent.value)
vR_Type = alltrim(CurrentForm.Controls.vReport.value)
If vR_Type ="PR" '==== Pre-registration report
 vFilter="su2pe->Ev_Id = "+s_quote(vEvId)
 vOrder="su2pe->AT_LNAME+su2pe->AT_FNAME"
 filename = session.session_folder + chr(92) + "prreport.pdf"
 filename = report.saveas("[EMAIL="Signups@[PathAlias.ADB_Path]\Su_Set.set%22,%22pdf%22,vFilter,vOrder,filename,.f"]Signups@[PathAlias.ADB_Path]\Su_Set.set","pdf",vFilter,vOrder,filename,.f[/EMAIL].)
 if file.exists(filename)
  currentform.RedirectTarget = session.session_url + "prreport.pdf?" + time("hms3")
 end if 
end if
If vR_Type ="CI" '==== Check-In report
 vFilter="Su2Pe->Ev_Id = "+s_quote(vEvId)
 vOrder="su2pe->AT_LNAME+su2pe->AT_FNAME"
 filename = session.session_folder + chr(92) + "cireport.pdf"
 filename = report.saveas("[EMAIL="Check_In@[PathAlias.ADB_Path]\Su_Set.set%22,%22pdf%22,vFilter,vOrder,filename,.f"]Check_In@[PathAlias.ADB_Path]\Su_Set.set","pdf",vFilter,vOrder,filename,.f[/EMAIL].)
 if file.exists(filename)
  currentform.RedirectTarget = session.session_url + "cireport.pdf?" + time("hms3")
 end if 
end if
If vR_Type ="RR" '==== RU Receipts
.
.
.

In this case, when they close the report, it goes back to the grid.

Pat

[joannristau]

Re: Set Submit Button to New Window

Hi,
I'm desparately trying to do nearly the same thing. I've given up on trying to print a report to a frame on my existing page from the dialog button. I was hoping Steve's solution might work, but no.

The code appears to be creating the PDF (it's in the session folder) but it is never displayed, nor is the the link that is supposed to be created.

Below is the code I've tried:

dim filter as c
dim order as c
Filter = ".T."
Order = ""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas("RNE_Report@[PathAlias.ADB_Path]\req_competitors.set","pdf",filter,order,filename,.f.)
'if file.exists(filename)
if file.exists(session.session_folder + "tempreport.pdf")
pdfurl = session.session_url + "tempreport.pdf"
?"<a href=\"" + pdfurl + "\"target=\"_blank\">Click here to open the report in new window</a>"
else
?"After you press the button, a link to your report will appear here."
end if

I would love to hear if anyone has been able to get this to work.

Please help me before I go crazy . . . . .

[richardurban]

Re: Set Submit Button to New Window

Is there a way to open a new window/specify a target for the results of a dialogue that specifies a filter expression to pass on to a page? The dialogue creates a filter expression that is passed to the new page in the after validate event:

Currentform.RedirectTarget = "Grid_list_4.a5w?Grid_list_4_filter=" + filter

.
I have the dialogue in a frame and want to open the resulting grid in another frame, not the same frame.