I am trying to filter a report based on the value returned from a drop-down box in a a5w component.
I have been following the video at http://www.alphasoftware.com/tutoria...ebApplication/ by Jerry Brightbill.
This is my first attempt at a web app, so bare with me.
I think my question is: How or what is the code for dim a variable that is based on the value in a form or a drop down box.
This code does not work and returns an error stating "cannot find variable GridId. Which seems to make sense because I don't see where it is declared.
Quote = alltrim(CurrentForm.Controls.QuoteList)
report = alltrim(CurrentForm.Controls.ReportList)
dim filter as c
dim order as c
Filter = "(Agent_Data->Group_id = "+convert_type(GrpID,"C")+" )"
Order = ""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas(report,filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
This works (i.e., the report opens) but obviously no variable/
Quote = alltrim(CurrentForm.Controls.QuoteList)
report = alltrim(CurrentForm.Controls.ReportList)
dim filter as c
dim order as c
Filter = "groupid = 998""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas(report,filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
Any Help would or direction would be appreciated.
Thanks...John
I have been following the video at http://www.alphasoftware.com/tutoria...ebApplication/ by Jerry Brightbill.
This is my first attempt at a web app, so bare with me.
I think my question is: How or what is the code for dim a variable that is based on the value in a form or a drop down box.
This code does not work and returns an error stating "cannot find variable GridId. Which seems to make sense because I don't see where it is declared.
Quote = alltrim(CurrentForm.Controls.QuoteList)
report = alltrim(CurrentForm.Controls.ReportList)
dim filter as c
dim order as c
Filter = "(Agent_Data->Group_id = "+convert_type(GrpID,"C")+" )"
Order = ""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas(report,filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
This works (i.e., the report opens) but obviously no variable/
Quote = alltrim(CurrentForm.Controls.QuoteList)
report = alltrim(CurrentForm.Controls.ReportList)
dim filter as c
dim order as c
Filter = "groupid = 998""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas(report,filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
Any Help would or direction would be appreciated.
Thanks...John