Simple copy of reports not working - help please

Question

Hello
I have this function that was written to copy a given report object to a given folder. The code is not working - the copyObj = col.Copy(obj,2) appears to be failing.
Can anyone shed some light on this? Thank you in advance!
- Russell
My function:
function CopyReport (objID, DestFolder, iStore)
dim col
dim obj
dim copyObj
on error resume next
'QUERY FOR OBJECT TO COPY
str = "SELECT * FROM CI_INFOOBJECTS WHERE SI_ID = " + objID
set col = iStore.Query ( str )
obj = col.Item(1)
'COPY THE OBJECT
copyObj = col.Copy(obj,2)
'SET THE PARENTID OF THE COPIED OBJECT
copyObj.Properties.Item("SI_PARENTID").Value = DestFolder
'SET THE PARENT FOLDER OF THE COPIED OBJECT
copyObj.Properties.Item("SI_PARENT_FOLDER").Value = DestFolder
'COMMIT THE COLLECTION
iStore.Commit(col)
end function

Answer 1

Hi All
I've resolved the problem with the copy and am posting the code below. I'd appreciate it if it could be placed in the appropriate forum so that it may be a resource for other developers in the future. I've left in all of my debugging/error checking code for reference as well.
- Russell
The working copy function (with loads of debugging code) is this:
function CopyReport (objID, DestFolder, iStore)
'Function CopyReport
'Parameters:
'  objID - the ID of the report to copy
'  DestFolder - the ID of the destination folder for the copy
'  iStore - the InfoStore to use
'Returns: A text string that is displayed in a web page via response.write that includes the
'  name of the report if copied or the error information as appropriate.
dim col
dim obj
dim copyObj
dim newCol
on error resume next
'QUERY FOR OBJECT TO COPY
str = "SELECT * FROM CI_INFOOBJECTS WHERE SI_ID = " + objID
set col = iStore.Query ( str )
If Err.Number <> 0 Then
  CopyReport = "iStore.Query failed<br>"
  CopyReport = CopyReport + "<br>Error: " & Err.Number & " - " & Err.Description
  CopyReport = CopyReport & "<br>" & str
  Exit Function
End If
set newCol = iStore.NewInfoObjectCollection()
If Err.Number <> 0 Then
  CopyReport = "newCol creation error"
  CopyReport = CopyReport + "<br>Error: " & Err.Number & " - " & Err.Description
  CopyReport = CopyReport & "<br>" & str
  Exit Function
End If
set obj = col.Item(1)
If Err.Number <> 0 Then
  CopyReport = "OBJ = col.item(1) error<br>"
  CopyReport = CopyReport & "<br>" & str
  CopyReport = CopyReport & "<br>Error: " & Err.Number & " - " & Err.Description
  Exit Function
End If
'COPY THE OBJECT
set copyObj = newCol.Copy(Obj, 2)
If Err.Number <> 0 Then
  CopyReport = "copyOBJ error"
  CopyReport = CopyReport & "<br>Count: " & col.Count
  CopyReport = CopyReport + "<br>Error: " & Err.Number & " - " & Err.Description
'  Exit Function
End If
'SET THE PARENTID OF THE COPIED OBJECT
copyObj.Properties.Item("SI_PARENTID").Value = DestFolder
If Err.Number <> 0 Then
  CopyReport = "Error setting SI_PARENTID to " & DestFolder
  CopyReport = CopyReport + "<br>Error: " & Err.Number & " - " & Err.Description
  Exit Function
End If
'SET THE PARENT FOLDER OF THE COPIED OBJECT
copyObj.Properties.Item("SI_PARENT_FOLDER").Value = DestFolder
If Err.Number <> 0 Then
  CopyReport = "Error setting SI_PARENT_FOLDER to " & DestFolder
  CopyReport = CopyReport + "<br>Error: " & Err.Number & " - " & Err.Description
  Exit Function
End If
'COMMIT THE COLLECTION
iStore.Commit(newCol)
If Err.Number <> 0 Then
  CopyReport = "Commit error"
  CopyReport = CopyReport + "<br>Error: " & Err.Number & " - " & Err.Description
  Exit Function
End If
'Return the object info
CopyReport = copyObj.Title
end function
Edited by: Russell L Magidson on Dec 11, 2008 5:12 PM
Edited by: Russell L Magidson on Dec 11, 2008 10:28 PM
Edited by: Russell L Magidson on Dec 11, 2008 10:29 PM