Unable to cast object of type infostore to type report

Question

Hi all,
Does anyone know what causes the message:-
system.invalidcastexception: unable to cast object of type 'crystaldecisions.enterprise.infoobject' to type 'crystaldecisions.desktop.report'
Everything works perfectly in my development environment but as soon as I try to put the code live I get the error.
it is happening in the following lines of code:-
        Dim CEinfoObjects As InfoObjects
        Dim CEReport As Report
        Dim CEParameters As ReportParameters
        Dim CEParameter As ReportParameter
            CE_SQL = "SELECT SI_PROCESSINFO.SI_PROMPTS "
            CE_SQL += "FROM CI_INFOOBJECTS "
            CE_SQL += "WHERE SI_ID = " & ReportID
            CEReports = ceInfoStore.Query(CE_SQL)
            CEReport = CEinfoObjects(1)
            CEParameters = CEReport.ReportParameters
I tried changing the ceReport type to an InfoObject type and the system then fails trying to get the parameters. (ReportParameters is not a member of InfoObject)
The only differences I can see is that my dev machine has Crystal XI SP4, Crystal 2008 SP0 and Crystal Server XI SP4 installed while the live environment only has Crystal XI SP4.
I tried installing the 2008 runtime to see if that would make a difference but it has not.
I tried reinstalling the XI runtime but it has not worked either.
Is there something that needs to be changed on the enterprise server?  This is also running on XI SP4 and the files match the dates and times on my dev machine.
Any help or pointers would be appreciated.

Answer 1

' Add the Scheduling Information
                ' 0-0 Once, Now
                ' 0-1 Once, At a specific time
                ' 1-0 Daily, Once each day
                ' 1-1 Daily, Every X hours and N minutes
                ' 1-2 Daily, Every X days
                ' 2-0 Weekly, Every week on
                ' 3-0 Monthly, On the Nth day of the month
                ' 3-1 Monthly, On the Nth X of the month
                ' 3-2 Monthly, Every N months
                Select Case ScheduleRow("RecurrenceType").ToString
                    Case 0
                        Select Case ScheduleRow("RecurrencePattern").ToString
                            Case 0
                                ceScheduleInfo.Type = CeScheduleType.ceScheduleTypeOnce
                                ceScheduleInfo.RightNow = True
                            Case 1
                                ceScheduleInfo.Type = CeScheduleType.ceScheduleTypeOnce
                                ceScheduleInfo.RightNow = False
                                ceScheduleInfo.BeginDate = ScheduleRow("StartDate").ToString
                        End Select
                    Case 1
                        Select Case ScheduleRow("RecurrencePattern").ToString
                            Case 0
                                ceScheduleInfo.Type = CeScheduleType.ceScheduleTypeDaily
                                ceScheduleInfo.RightNow = False
                                ceScheduleInfo.BeginDate = ScheduleRow("StartDate").ToString
                                ceScheduleInfo.EndDate = ScheduleRow("EndDate").ToString
                            Case 1
                                ceScheduleInfo.Type = CeScheduleType.ceScheduleTypeHourly
                                ceScheduleInfo.RightNow = False
                                ceScheduleInfo.BeginDate = ScheduleRow("StartDate").ToString
                                ceScheduleInfo.EndDate = ScheduleRow("EndDate").ToString
                                ceScheduleInfo.IntervalHours = ScheduleRow("X_Hours").ToString
                                ceScheduleInfo.IntervalMinutes = ScheduleRow("N_Minutes").ToString
                            Case 2
                                ceScheduleInfo.Type = CeScheduleType.ceScheduleTypeDaily
                                ceScheduleInfo.RightNow = False
                                ceScheduleInfo.BeginDate = ScheduleRow("StartDate").ToString
                                ceScheduleInfo.EndDate = ScheduleRow("EndDate").ToString
                                ceScheduleInfo.IntervalDays = ScheduleRow("X_Days").ToString
                        End Select
                    Case 2
                        ceScheduleInfo.Type = CeScheduleType.ceScheduleTypeCalendar
                        ceScheduleInfo.RightNow = False
                        ceScheduleInfo.BeginDate = ScheduleRow("StartDate").ToString
                        ceScheduleInfo.EndDate = ScheduleRow("EndDate").ToString
                        If ScheduleRow("Monday").ToString = True Then
                            ceScheduleInfo.CalendarRunDays.Add(CDate(ScheduleRow("StartDate").ToString).Day, _
                                                               CDate(ScheduleRow("StartDate").ToString).Month, _
                                                               CDate(ScheduleRow("StartDate").ToString).Year, _
                                                               CDate(ScheduleRow("EndDate").ToString).Day, _
                                                               CDate(ScheduleRow("EndDate").ToString).Month, _
                                                               CDate(ScheduleRow("EndDate").ToString).Year, _
                                                               CeDayOfWeek.ceDayMonday, 0)
                        End If
                        If ScheduleRow("Tuesday").ToString = True Then
                            ceScheduleInfo.CalendarRunDays.Add(CDate(ScheduleRow("StartDate").ToString).Day, _
                                                               CDate(ScheduleRow("StartDate").ToString).Month, _
                                                               CDate(ScheduleRow("StartDate").ToString).Year, _
                                                               CDate(ScheduleRow("EndDate").ToString).Day, _
                                                               CDate(ScheduleRow("EndDate").ToString).Month, _
                                                               CDate(ScheduleRow("EndDate").ToString).Year, _
                                                               CeDayOfWeek.ceDayTuesday, 0)
                        End If
                        If ScheduleRow("Wednesday").ToString = True Then
                            ceScheduleInfo.CalendarRunDays.Add(CDate(ScheduleRow("StartDate").ToString).Day, _
                                                               CDate(ScheduleRow("StartDate").ToString).Month, _
                                                               CDate(ScheduleRow("StartDate").ToString).Year, _
                                                               CDate(ScheduleRow("EndDate").ToString).Day, _
                                                               CDate(ScheduleRow("EndDate").ToString).Month, _
                                                               CDate(ScheduleRow("EndDate").ToString).Year, _
                                                               CeDayOfWeek.ceDayWednesday, 0)
                        End If
                        If ScheduleRow("Thursday").ToString = True Then
                            ceScheduleInfo.CalendarRunDays.Add(CDate(ScheduleRow("StartDate").ToString).Day, _
                                                               CDate(ScheduleRow("StartDate").ToString).Month, _
                                                               CDate(ScheduleRow("StartDate").ToString).Year, _
                                                               CDate(ScheduleRow("EndDate").ToString).Day, _
                                                               CDate(ScheduleRow("EndDate").ToString).Month, _
                                                               CDate(ScheduleRow("EndDate").ToString).Year, _
                                                               CeDayOfWeek.ceDayThursday, 0)
                        End If
                        If ScheduleRow("Friday").ToString = True Then
                            ceScheduleInfo.CalendarRunDays.Add(CDate(ScheduleRow("StartDate").ToString).Day, _
                                                               CDate(ScheduleRow("StartDate").ToString).Month, _
                                                               CDate(ScheduleRow("StartDate").ToString).Year, _
                                                               CDate(ScheduleRow("EndDate").ToString).Day, _
                                                               CDate(ScheduleRow("EndDate").ToString).Month, _
                                                               CDate(ScheduleRow("EndDate").ToString).Year, _
                                                               CeDayOfWeek.ceDayFriday, 0)
                        End If
                        If ScheduleRow("Saturday").ToString = True Then
                            ceScheduleInfo.CalendarRunDays.Add(CDate(ScheduleRow("StartDate").ToString).Day, _
                                                               CDate(ScheduleRow("StartDate").ToString).Month, _
                                                               CDate(ScheduleRow("StartDate").ToString).Year, _
                                                               CDate(ScheduleRow("EndDate").ToString).Day, _
                                                               CDate(ScheduleRow("EndDate").ToString).Month, _
                                                               CDate(ScheduleRow("EndDate").ToString).Year, _
                                                               CeDayOfWeek.ceDaySaturday, 0)
                        End If
                        If ScheduleRow("Sunday").ToString = True Then
                            ceScheduleInfo.CalendarRunDays.Add(CDate(ScheduleRow("StartDate").ToString).Day, _
                                                               CDate(ScheduleRow("StartDate").ToString).Month, _
                                                               CDate(ScheduleRow("StartDate").ToString).Year, _
                                                               CDate(ScheduleRow("EndDate").ToString).Day, _
                                                               CDate(ScheduleRow("EndDate").ToString).Month, _
                                                               CDate(ScheduleRow("EndDate").ToString).Year, _
                                                               CeDayOfWeek.ceDaySunday, 0)
                        End If