ImanExt - CopyCmd

Hi,

Is there any way to suppress the modal window that appears while executing the CopyCommand in ImanExt? Unlike the ImportCommand, I could not find any option to fill in the profile data programmatically...

Thanks.

Find more posts tagged with

Comments

jny

Hi,

Is there any way to suppress the modal window that appears while executing the CopyCommand in ImanExt? Unlike the ImportCommand, I could not find any option to fill in the profile data programmatically...

Thanks.

Instead of using the CopyCmd, use the ImportCmd with the additional contextitems demonstrated in the code below:

Option Explicit

' This example demonstrates how to use the ImportCmd
' to duplicate a profile to create a new document
Private Sub Form_Load()
Dim context As ContextItems
Dim cmd As ImportCmd
Dim dms As New ManDMS
Dim destSess As IManSession
Dim srcDoc As NRTDocument 'Source doc must be an NRTDocument Object
Dim newDoc As IManDocument
Dim sPath As String

On Error GoTo ERROR_HANDLER

' Login as administrator to get full access rights

Set destSess = dms.Sessions.Add("DSS_WIN2003SERV")
destSess.TrustedLogin

' Put in your own db name, doc and version numbers
Set srcDoc = destSess.PreferredDatabase.GetDocument(1512, 1)

'Arbitrary example of a filepath
sPath = "C:/Temp/" & srcDoc.Number & "_" & srcDoc.Version & "." & srcDoc.Extension
srcDoc.GetCopy sPath, nrNativeFormat

Set context = New IMANEXTLib.ContextItems

With context
' The WorkSite object you pass in should be the target server.
.Add "IManDestinationObject", destSess
'Note: DestinationObject can also be a session, database, or folder.

.Add "IManExt.OpenCmd.NoCmdUI", True

' No UI
.Add "IManExt.NewProfile.ProfileNoUI", True

'srcDoc points to a valid document object.
.Add "IManExt.Import.DuplicateProfileFromDoc", srcDoc

'srcDoc application type is copied to new doc's profile
.Add "DuplicateType", True

'Filename set here is the checkedout path of the source doc.
.Add "IManExt.Import.FileName", sPath

'Optional

' this will override the source doc's description
.Add "IManExt.Import.DocDescription", "Copy from: " & srcDoc.Database.Session.ServerName & ": " & srcDoc.Database.Name & ": " & srcDoc.Number & "_" & srcDoc.Version 'the new document Description
End With

Set cmd = New IMANEXTLib.ImportCmd
cmd.Initialize context
cmd.Update

' Use bitwise operation to check condition.
If cmd.Status = (cmd.Status And nrActiveCommand) Then
cmd.Execute
Set newDoc = context.Item("ImportedDocument")
MsgBox newDoc.Number
End If

GoTo Cleanup

ERROR_HANDLER:
MsgBox Err.Description
Err.Clear

Cleanup:
' If sPath exist, destroy it.
If sPath <> "" Then Kill (sPath)

' Free memory
Set context = Nothing
Set cmd = Nothing
Set dms = Nothing
Set destSess = Nothing
Set newDoc = Nothing
Set srcDoc = Nothing
End
End Sub

This only works in 8.x.

azad

Thanks Jny. From this I assume that there is no way to do a copy operation within Interwoven(worksite) without downloading the file and then importing it. I do know that there is an AddDocumentReference() method. But still that is just a reference and not a new copy.

jny

Thanks Jny. From this I assume that there is no way to do a copy operation within Interwoven(worksite) without downloading the file and then importing it. I do know that there is an AddDocumentReference() method. But still that is just a reference and not a new copy.

In our CopyCmd, we still have to download a copy of that file to re-import it.

The AddDocumentReference Method is used for adding a reference to a document to a folder. This has nothing to do with getting a copy of the copied document. Keep in mind documents are rooted to the database. Documents contained in a folder are merely references to the document objects stored in the database.