Search ConditionFormulas for hardcoded values.

Question

Currently we have about 600 crystal reports in our system.  Over time there has been some poor coding that has hardcoded values in the suppression logic of sections or fields in some of the reports.  I am trying to programmatically look at each report and determine which reports need to be modified.
I query the infostore and have no problem looking into the DataDefinition.FormulaFields and ReportDefinition.Sections collections, but they do not show the suppression formula.  That is apparently in the ConditionFormulas collection.
I have seen some examples, but most of them have this comment,
' crRepDef is type CrystalDecisions.ReportAppServer.ReportDefModel.ISCRReportDefinition,
when I try to cast this object it fails.
Here is an example of what I have already, all reports are being accessed properly.  I just don't know how to get to the proper object (ConditionFormulas):
        Dim boEnterpriseSession As EnterpriseSession
        Dim boReportObjects As InfoObjects
        Dim boSessionMgr As New CrystalDecisions.Enterprise.SessionMgr()
        Dim crReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        ' Log into BusinessObjects Enterprise
        boEnterpriseSession = boSessionMgr.Logon(txtCEUser.Text, txtCEPassword.Text, dropServer.SelectedValue, "secEnterprise")
        Dim query As String = "SELECT * FROM CI_INFOOBJECTS where si_name = 'my report' and si_instance = 0 And si_recurring = 0 and SI_PROGID='CrystalEnterprise.Report' ORDER BY SI_NAME"
        Dim boEnterpriseService As EnterpriseService
        Dim boInfoStore As InfoStore
        litResults.Text = Nothing
        'Create the Infostore Object
        boEnterpriseService = boEnterpriseSession.GetService("", "InfoStore")
        boInfoStore = New InfoStore(boEnterpriseService)
        boReportObjects = boInfoStore.Query(query)
        test(boReportObjects)
        For Each boReportObject In boReportObjects
            Dim rpt As ReportDocument = New ReportDocument
            rpt.Load(boReportObject, boEnterpriseSession)
            ' search each formula for hardcoded values
            For Each FormulaField As FormulaFieldDefinition In rpt.DataDefinition.FormulaFields
            Next FormulaField
            ' search each section for hardcoded values
            For Each sec As Section In rpt.ReportDefinition.Sections
            Next sec
        Next boReportObject

Answer 1

What is the error you get when the cast fails? I don't see any code trying to access the ConditionFormulas object.
I don't generally code in VB, but here's some C# code that accesses that property. You need to go through the ReportClientDocument object to get to it.
Notes:
- This is hardcoded. Logic is needed to generalize it for your own needs.
- You need CrystalDecisions.ReportAppServer.ReportDefModel to access the ConditionFormulas collection.
- The CD.CR.Engine assembly is aliased because both it and the ReportDefModel assembly contain a definition for the ReportDocument class. You can use the 'As' keyword for aliasing in VB, or fully qualify the assembly name for the variable declaration. (Personally I'd rather type less!)
using CrystalDecisions.ReportAppServer.ReportDefModel;
using CRENG = CrystalDecisions.CrystalReports.Engine;
//(other BOE references here to access InfoStore etc)
//(code here to log on to Enterprise, query for desired InfoObject, etc)
CRENG.ReportDocument crReport = new CRENG.ReportDocument();
crReport.Load(boeInfoObject, boeSession);
Response.Write("<br>Formula text: " +
    crReport.ReportClientDocument.ReportDefinition.DetailArea.Sections[0].Format.ConditionFormulas[CrSectionAreaFormatConditionFormulaTypeEnum.crSectionAreaConditionFormulaTypeEnableSuppress].Text.ToString());