Retrieve Historical Instances

Question

I am using the .NET Enterprise SDK.  When I use the code below - I am able to retrieve only Crystal Reports Historical instances.  If I try to retrieve Word or Excel or PDF, I get the following error message on the 325th line (If ReportInterface.ReportParameters.Count > 0 Then):
Public member 'ReportParameters' on type 'InfoObject' not found.
Any thoughts as to how to fix this to get the parameters on all datatypes?  In addition, how can I add a hyperlink to the datatable to open the instance (my page to pull instances is called viewer.aspx)?
Thanks,
Jeff
    Public Shared Function RetrieveReportInstances(ByVal myInfoStore As InfoStore, ByVal parentID As String) As Data.DataTable
        Dim dt As New Data.DataTable()
        'Declare an array to hold the various statuses that an instance can have.
        Dim status(14) As String
        status(0) = "Active"
        status(1) = "Complete"
        status(3) = "Failed"
        status(4) = "Loaded"
        status(5) = "Loading"
        status(6) = "Not Responding"
        status(7) = "On Hold"
        status(8) = "Paused"
        status(9) = "Scheduled"
        status(10) = "Error"
        status(11) = "Queued"
        status(12) = "Recurring"
        status(13) = "Terminated"
        status(14) = "Terminating"
        'Query for a report.
        'Dim result As String = "Select * From CI_INFOOBJECTS Where SI_PROGID = 'CrystalEnterprise.Report' And SI_PARENTID=" & parentID
        Dim result As String = "Select * From CI_INFOOBJECTS Where SI_PARENTID=" & parentID
        Dim myInfoObjects As InfoObjects = myInfoStore.Query(result)
        'Retrieve the first report returned.
        Dim myInfoObject As InfoObject
        If myInfoObjects.Count > 0 Then
            myInfoObject = myInfoObjects.Item(1)
            'Retrieve the report interface.
            Dim ReportInterface = myInfoObject.PluginInterface.Interface
            dt.Columns.Add(New Data.DataColumn("View"))
            dt.Columns.Add(New Data.DataColumn("Owner"))
            dt.Columns.Add(New Data.DataColumn("Run Date"))
            dt.Columns.Add(New Data.DataColumn("Status"))
            dt.Columns.Add(New Data.DataColumn("Duration"))
            If ReportInterface.ReportParameters.Count > 0 Then
                'Retrieve the database logon information for each database that
                'the report must logon to.
                Dim j As Integer
                Dim ParamName As String
                For j = 1 To ReportInterface.ReportParameters.Count
                    ParamName = ReportInterface.ReportParameters.Item(j).ParameterName
                    dt.Columns.Add(New Data.DataColumn(ParamName))
                Next
            Else
            End If
            ' Add some data to the DataTable.
            Dim myDataRow As Data.DataRow
            If myInfoObjects.Count > 0 Then
                Dim Duration = 0
                Dim i As Integer = 1
                For Each myInfoObject In myInfoObjects
                    If myInfoObjects.Item(i).Properties("SI_UISTATUS").Value = 1 Then
                        Duration = FormatTimeSpan((myInfoObjects.Item(i).Properties("SI_ENDTIME").Value - myInfoObjects.Item(i).Properties("SI_NEXTRUNTIME").Value))
                        'Duration = ""
                    Else
                        Duration = ""
                    End If
                    myDataRow = dt.NewRow()
                    myDataRow(0) = myInfoObjects.Item(i).Properties("SI_KIND").Value
                    myDataRow(1) = myInfoObjects.Item(i).Properties("SI_OWNER").Value
                    myDataRow(2) = myInfoObjects.Item(i).Properties("SI_UPDATE_TS").Value
                    myDataRow(3) = status(myInfoObjects.Item(i).Properties("SI_UISTATUS").Value)
                    myDataRow(4) = Duration
                    Dim k As Integer
                    Dim L As Integer
                    For k = 1 To ReportInterface.ReportParameters.Count
                        L = 4 + k
                        myDataRow(L) = ReportInterface.ReportParameters.Item(k).ValueDisplayString
                    Next
                    dt.Rows.Add(myDataRow)
                    i = i + 1
                Next
                i = 1
            End If
        Else
            dt.Columns.Add(New Data.DataColumn("Report"))
            Dim myDataRow As Data.DataRow
            myDataRow = dt.NewRow()
            myDataRow(0) = "There are currently no instances of this report."
            dt.Rows.Add(myDataRow)
        End If
        Return dt
    End Function
    Public Shared Function FormatTimeSpan(ByVal time_span As _
        TimeSpan, Optional ByVal whole_seconds As Boolean = _
        True) As String
        Dim txt As String = ""
        If time_span.Days > 0 Then
            txt &= ", " & time_span.Days.ToString() & " days"
            time_span = time_span.Subtract(New _
                TimeSpan(time_span.Days, 0, 0, 0))
        End If
        If time_span.Hours > 0 Then
            txt &= ", " & time_span.Hours.ToString() & " hours"
            time_span = time_span.Subtract(New TimeSpan(0, _
                time_span.Hours, 0, 0))
        End If
        If time_span.Minutes > 0 Then
            txt &= ", " & time_span.Minutes.ToString() & " " & _
                "minutes"
            time_span = time_span.Subtract(New TimeSpan(0, 0, _
                time_span.Minutes, 0))
        End If
        If whole_seconds Then
            ' Display only whole seconds.
            If time_span.Seconds > 0 Then
                txt &= ", " & time_span.Seconds.ToString() & " " & _
                    "seconds"
            End If
        Else
            ' Display fractional seconds.
            txt &= ", " & time_span.TotalSeconds.ToString() & " " & _
                "seconds"
        End If
        ' Remove the leading ", ".
        If txt.Length > 0 Then txt = txt.Substring(2)
        ' Return the result.
        Return txt
    End Function

Answer 1

Two things:
1. Scheduled report instances to a different format has a PROGID specific to that format - for example, scheduling to PDF will result in ta instance of PROGID 'CrystalEnterprise.Pdf'.  You'll have to modify your InfoStore query accordingly.
2. The returned InfoObject will be format specific, and not of type Report.  You'll have to recast the Plugin Interface:
report = New Report(infoObjects.Item(1).GetPluginInterface("Report"))
If Version 10 or older, you may try:
report = New Report(infoObject.Item(1).PluginInterface)
Sincerely,
Ted Ueda