How can I replace an existing report?

Question

The way our Enterprise server is setup, we have a folder that we publish all reports to. This folder is proteced from view from anyone but admins.
In order for our users to "see" a report we create a shortcut of the report in their User folder.
This works well, with one exception. When we need to put a new revision of a report out there, we have to recreate all of the existing user shortcuts. There is no way to "replace" an existing report (and inherit its underlying "ID" in the sql database) and have all of the shortcuts use the new report. This is especially painfull when the reports are scheduled to run. All the the scheduling/parameters/etc ahas to be recreated after the new report is publised to the server.
I assuem there is some way to accomplish this with the SDK. I was wondering if someone can point me in the right direction. I am rather new to DOT Net development (about a year), but I have been writing "C" and "C++" code for 20 years, hopefully I can figure this out..
Thanks in advance for any input!
Shayne

Answer 1

Don't have a C# version, but here's a VB.NET version:
Private Sub Page_Load(ByVal sender as System.Object, ByVal e As System.EventArgs)
    Dim boUsername As String = "Administrator"
    Dim boPassword As String = ""
    Dim boCmsName  As String = "TUEDA-BEXIR2S2"
    Dim boAuthType As String = "secEnterprise"
    Dim rptPath As String = "C:\ASP_NET\update_doc\302810928JDBC.rpt"
    Dim query As String = "Select Top 1 * From CI_INFOOBJECTS " _
                          & " Where SI_KIND='CrystalReport' " _
                          & " And SI_INSTANCE = 0 " _
                          & " And SI_NAME='302810928ODBC'"
    Dim boSession As EnterpriseSession
    Dim infoStore As InfoStore
    Dim reports   As InfoObjects
    Dim report    As Report
    Try
        boSession = (New SessionMgr()).Logon(boUsername, boPassword, boCmsName, boAuthType)
        infoStore = New InfoStore(boSession.GetService("", "InfoStore"))
        reports = infoStore.Query(query)
        report = reports.Item(1)
        report.Files.Item(1).Overwrite(rptPath)
        report.RefreshProperties()
        infoStore.Commit(reports)
    Finally
        If Not IsNothing(boSession) Then
            boSession.Logoff()
        End If
    End Try         
End Sub
Sincerely,
Ted Ueda