Crystal Licencing

Question

Hi all
I have a similar problem to the one mentioned in the topic
Crystal Reports 9 and Clearquest
I currently support a system that uses crystal 10. To get an idea of what is involved in the reports, I have written a programme (ok, a script) that extracts all of the fields, formulas, parameters, subreports etc and writes them to a report file.
However, as soon as I try to retrieve the information about running totals, the message
You are attempting to use functionality that falls under the Crystal Decisions report Creation API .......
Can this be correct ? I am reading values, not creating a dynamic report. What do I have to do to retrieve this information ?
Thanks in advance
Graham

Answer 1

Jonathan
Here is the relevant part of the script, stripped down to the minimum; it is when it hits the retrieve for EvaluateCondition that the error is thrown.
Would appreciate any advice
Thanks
Graham
Dim TotalObj, objFile, ReportObj
Dim TempCond, Field, Result
Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim oFTS: Set oFTS = oFSO.CreateTextFile("results.txt")
Set objFile = CreateObject("CrystalRunTime.Application")
Set ReportObj = objFile.OpenReport("test.rpt")
oFTS.WriteLine "Running totals"
For Each TotalObj In ReportObj.RunningTotalFields
    With TotalObj
        oFTS.WriteLine .Name
        oFTS.WriteLine .RunningTotalFieldName
        oFTS.WriteLine "Evaluate"
        TempCond = .EvaluateCondition
        If TempCond = 0 Then Result = "Each Record"
        If TempCond = 1 Then
            Set Field = .EvaluateConditionField
            Result = "Change of field : " & Field.Name
        End If
        If TempCond = 2 Then Result = "Change of group : " & CStr(.EvaluateGroupNumber)
        If TempCond = 3 Then Result = "Formula :" & .EvaluateConditionFormula
        oFTS.WriteLine Result
        oFTS.WriteLine "Reset"
        TempCond = .ResetCondition
        If TempCond = 0 Then Result = "Never"
        If TempCond = 1 Then
            Set Field = .ResetConditionField
            Result = "Change of field : " & Field.Name
        End If
        If TempCond = 2 Then Result = "Change of group : " & CStr(.ResetGroupNumber)
        If TempCond = 3 Then Result = "Formula :" & .ResetConditionFormula
        oFTS.WriteLine Result
    End With
    oFTS.WriteLine
Next
oFTS.Close
Set oFTS = Nothing
Set ReportObj = Nothing
Set objFile = Nothing
Set oFSO = Nothing