Hi All
I am having a problem with a report, that I am using on the web...
I have 3 tables, Parent Table is Customer, Child1 is Points Earned (its called norad) and Child2 is Points Used.
My Report is going to be a Statement.....
I have the report running OK in Desktop but it won;t pull any data for Child2 (subreport) onto the web...
I have a filter for the Child1 table in a dialog comonent, and assumed that the Table link would take care of the data for Child2...
Does anyone know if I need a filter to pull the data from the child2 table, and if so how to add this code into the below?
Many Thanks
Miles
Here is the Code from the dialog :--
fromdate = CurrentForm.Controls.From
todate = CurrentForm.Controls.to
cu = session.current_user
IF eval_valid("fromdate") = .f. .or. eval_valid("todate") = .f. .or. eval_valid("cu") = .f. Then
goto skipreport
end if
dim filter as c
dim order as c
Filter = "(between(norad->Depart_date,ctod(\""+fromdate+"\"),ctod(\""+todate+"\")) ) .and. (norad->Client_name = \""+cu+"\" )"
Order = "norad->Depart_date"
Dim filename as c
filename = session.session_folder + "tempreport.html"
filename = report.saveas("points_link@[PathAlias.ADB_Path]\norad_link.set","html",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.html?" + time("hms3")
end if
skipreport:
I am having a problem with a report, that I am using on the web...
I have 3 tables, Parent Table is Customer, Child1 is Points Earned (its called norad) and Child2 is Points Used.
My Report is going to be a Statement.....
I have the report running OK in Desktop but it won;t pull any data for Child2 (subreport) onto the web...
I have a filter for the Child1 table in a dialog comonent, and assumed that the Table link would take care of the data for Child2...
Does anyone know if I need a filter to pull the data from the child2 table, and if so how to add this code into the below?
Many Thanks
Miles
Here is the Code from the dialog :--
fromdate = CurrentForm.Controls.From
todate = CurrentForm.Controls.to
cu = session.current_user
IF eval_valid("fromdate") = .f. .or. eval_valid("todate") = .f. .or. eval_valid("cu") = .f. Then
goto skipreport
end if
dim filter as c
dim order as c
Filter = "(between(norad->Depart_date,ctod(\""+fromdate+"\"),ctod(\""+todate+"\")) ) .and. (norad->Client_name = \""+cu+"\" )"
Order = "norad->Depart_date"
Dim filename as c
filename = session.session_folder + "tempreport.html"
filename = report.saveas("points_link@[PathAlias.ADB_Path]\norad_link.set","html",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.html?" + time("hms3")
end if
skipreport: