ASP.net Crystal Report Subreport in PDF not using Selection Formula

I am exporting a Report to PDF the selection criteria works in the sub report with crystal report viewer included with .net. However when I export to PDF the selection criteria only seems to apply to the main report and not any subreports. How do I set the selection criteria for the subreport before exporting to the pdf?

here is the code

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim crReportDocument As ReportDocument
        Dim crExportOptions As ExportOptions
        Dim crDiskFileDestinationOptions As New DiskFileDestinationOptions
        Dim Fname As String

        crReportDocument = New RFMSQuote
        crReportDocument.DataDefinition.RecordSelectionFormula = "{QuoteKitchen.QuoteID}=" & Int(Request.QueryString("ID"))


        Fname = Server.MapPath("Exports\" & Session.SessionID.ToString & ".pdf")
        crDiskFileDestinationOptions = New DiskFileDestinationOptions
        crDiskFileDestinationOptions.DiskFileName = Fname
        crExportOptions = crReportDocument.ExportOptions
        With crExportOptions
            .DestinationOptions = crDiskFileDestinationOptions
            .ExportDestinationType = ExportDestinationType.DiskFile
            .ExportFormatType = ExportFormatType.PortableDocFormat
        End With
        crReportDocument.Export()
        Response.ClearContent()
        Response.ClearHeaders()
        Response.ContentType = "application/pdf"
        Response.WriteFile(Fname)
        Response.Flush()
        Response.Close()
        System.IO.File.Delete(Fname)


    End Sub
LVL 4
o0JoeCool0oAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
Advertise Here
 
ebolekConnect With a Mentor Commented:
use it like this

private void GetSubReport(CrystalDecisions.CrystalReports.Engine.ReportDocument MyReport)
{              
CrystalDecisions.CrystalReports.Engine.ReportDocument MySubReport;
CrystalDecisions.CrystalReports.Engine.SubreportObject MySubReportObject;
foreach (CrystalDecisions.CrystalReports.Engine.ReportObject MyReportObject in MyReport.ReportDefinition.ReportObjects)
{
if (MyReportObject.Kind == CrystalDecisions.Shared.ReportObjectKind.SubreportObject)
{
MySubReportObject = (CrystalDecisions.CrystalReports.Engine.SubreportObject)MyReportObject;
MySubReport = MyReport.OpenSubreport(MySubReportObject.SubreportName);                          
MySubReport.DataDefinition.RecordSelectionFormula = "{QuoteKitchen.QuoteID}=" & Int(Request.QueryString("ID"))
}
else
MySubReport = null;
}
}
The this with the subreports are you loop through the main report document and then find it and get a reference to the subreport you found with Opensubreport method

In this code Mysubreport is the subreport report document You can set the selection criteria klike this after that. Hope it helps. If you have more questions let me know

Regards
Emre
0
 
ebolekCommented:
why dont you create a parameter in the sub report and then link the main report to sub report
using that variable. Then open the sub report and use the linked field to create your sleection criteria. From your code, set the sub report parameter value like this

Reportdocument.setparametervalue(value,"subreportname")
Also you should set the main report parameter values as well

Regards
Emre
0
 
ebolekCommented:
Also you can use the recordselectioncriteria formula in code to set the record selection criteria of your subreport

check this link out too. Do whatever is best for you
http://support.businessobjects.com/library/kbase/articles/c2002292.asp

Regards
Emre
0
Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

Go Premium
 
o0JoeCool0oAuthor Commented:
"Also you can use the recordselectioncriteria formula in code to set the record selection criteria of your subreport"

this is what im trying to do but as u can see in my above code, this does not work because i cant declare the subreport for all I know.
I was hoping theres some thing like crReportDocument.Subreport("MySubReport").SelectionFormula = ""
0
 
ebolekCommented:
ohh I m srry/ Yu can get a reference to your subreport then treat it like the report document . I didnt see the record selection code. but still I can help,

This is how You get a reference to your subreport from the main report by code
check the code below but key is this line
MySubReport = MyReport.OpenSubreport(MySubReportObject.SubreportName);

Regards
Emre
private void GetSubReport(CrystalDecisions.CrystalReports.Engine.ReportDocument MyReport)
{                  
CrystalDecisions.CrystalReports.Engine.ReportDocument MySubReport;
CrystalDecisions.CrystalReports.Engine.SubreportObject MySubReportObject;
foreach (CrystalDecisions.CrystalReports.Engine.ReportObject MyReportObject in MyReport.ReportDefinition.ReportObjects)
{
if (MyReportObject.Kind == CrystalDecisions.Shared.ReportObjectKind.SubreportObject)
{
MySubReportObject = (CrystalDecisions.CrystalReports.Engine.SubreportObject)MyReportObject;
if (MySubReportObject.SubreportName != _subreportname)
{
MySubReport = MyReport.OpenSubreport(MySubReportObject.SubreportName);                               
0
 
o0JoeCool0oAuthor Commented:
that doesnt appear to be working, I tried using the opensubreport as well as tried Just declaringthe subreport as a report in the project
IE
Dim MySubReport as New Rooms

Rooms being the name of the subreport

directly after I called Mysubreport.datadefinition.selectionformula
after that I called the crReportDocument = New RFMSQuote to create an instance of the main report
then I set the selection formula for that report

I think im just not understanding...

maybe if u could post ur answer in vb.net?

0
 
o0JoeCool0oAuthor Commented:
Its like the main report selection criteria works fine, but the subreport is listing all entries in teh table isntaead of Just the one row of data
0
 
frodomanCommented:
JoeCool -

Just to be clear - the report works fine in the viewer and it's only when exported that the additional data appears, correct?  What happens if you export to another format other than PDF - does it work correctly then?

In the subreport are you suppressing the unwanted data or is it filtered out with the selection criteria?  Also, to eliminate possible known bugs, does your subreport contain any BLOBS and/or hidden (not suppressed) sections?

frodoman
0
 
o0JoeCool0oAuthor Commented:
use it like this

private void GetSubReport(CrystalDecisions.CrystalReports.Engine.ReportDocument MyReport)
{              
CrystalDecisions.CrystalReports.Engine.ReportDocument MySubReport;
CrystalDecisions.CrystalReports.Engine.SubreportObject MySubReportObject;
foreach (CrystalDecisions.CrystalReports.Engine.ReportObject MyReportObject in MyReport.ReportDefinition.ReportObjects)
{
if (MyReportObject.Kind == CrystalDecisions.Shared.ReportObjectKind.SubreportObject)
{
MySubReportObject = (CrystalDecisions.CrystalReports.Engine.SubreportObject)MyReportObject;
MySubReport = MyReport.OpenSubreport(MySubReportObject.SubreportName);                          
MySubReport.DataDefinition.RecordSelectionFormula = "{QuoteKitchen.QuoteID}=" & Int(Request.QueryString("ID"))
}
else
MySubReport = null;
}
}


which class are you typing this code for? the webform main page?
or in the codebehindfor the report?
0
 
ebolekCommented:
I have a class on my own but for right now you can out it as a method on the form and then test it.

Did it work for you. It should. Your problem was, not being able t oget a reference to subreport. Now you are getting it and setting record selection criteria from the sub report documeny

Regards
Emre
0
 
o0JoeCool0oAuthor Commented:
Im getting specified Cast is not valid, im sure its just an error in my translation from C to VB,
crashign on this line
For Each MySubReportObject In MyReport.ReportDefinition.ReportObjects

heres the revisedcode

Private Sub GetSubReport(ByVal MyReport As CrystalDecisions.CrystalReports.Engine.ReportDocument)

        Dim MySubReport As CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim MySubReportObject As CrystalDecisions.CrystalReports.Engine.SubreportObject
        For Each MySubReportObject In MyReport.ReportDefinition.ReportObjects

            If MySubReportObject.Kind = CrystalDecisions.Shared.ReportObjectKind.SubreportObject Then


                MySubReport = MyReport.OpenSubreport(MySubReportObject.SubreportName)
                MySubReport.DataDefinition.RecordSelectionFormula = "{QuoteKitchen.QuoteID}=" & Int(Request.QueryString("ID"))

            Else
                MySubReport = Nothing
            End If
        Next
    End Sub
0
 
ebolekCommented:
you get the error because you didnt cast the report to subreport
MySubReportObject = (CrystalDecisions.CrystalReports.Engine.SubreportObject)MyReportObject;


add this before you open the subreport. The report document has to be casted as subreport document. It is the implicit conversion of .net

Regards
Emre
0
 
o0JoeCool0oAuthor Commented:
Sorry for the silly questions but MySubReportObject is not defined anywhere, I am wondering if your meaning MyReport decalared in the ByVal paramter of the sub
0
 
o0JoeCool0oAuthor Commented:
sorry MyReportObject not mysubreportobject
0
 
o0JoeCool0oAuthor Commented:
nevermind, Pre Coffee moment
0
 
o0JoeCool0oAuthor Commented:
IT WORKS!!! You are Awesome Emre Full points to u
0
 
ebolekCommented:
Glad to help man

Regards
Emre
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.