Document Profile is Invalid

Bob1

Hi,

From within the ICommand Execute method I have some code that allows me to check out a file and copy it using the GetCopy method. This part is ok.

I then want to check this in as a new document.
So basically declared a new NRTDocument built it up from the settings from the existing one and tried to check it in. Where [sourceDocument] is the copy of the document I did a GetCopy on.

I get an error "Document Profile is Invalid".
Also I'm unable to iterate throught the errors object, supposed to be a type safe array of NRTProfileError objects which i was unable to cast.

This is the code snippet below:

NRTDocument newDocument = sourceDocument.Database.CreateDocument();
newDocument.SetAttributeValueByID(AttributeID.nrAuthor, sourceDocument.Author);
newDocument.SetAttributeValueByID(AttributeID.nrOperator, sourceDocument.Operator);
newDocument.SetAttributeValueByID(AttributeID.nrType, sourceDocument.Type);
newDocument.SetAttributeValueByID(AttributeID.nrClass, sourceDocument.Class);

Object errors = null;

newDocument.CheckIn(@C:\test.doc, CheckinDisposition.nrNewDocument, CheckinOptions.nrDontKeepCheckedOut, ref errors);

jny

A better approach would be to call GetCopy to download the physical file of the source document, then call ImportCmd to import a new document with a duplicate of the source doc's profile, like so:

[VB]

Dim context As ContextItems
Dim cmd As ImportCmd
Dim dms As New ManDMS
Dim destSess As IManSession
Dim srcDoc As NRTDocument
'Source doc is the document to duplicate; it must be an NRTDocument Object
Dim newDoc As IManDocument
Dim sPath As String


'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: IManDestinationObject can also be a session, database, or folder.

'To be able to use "IManExt.Import.DuplicateProfileFromDoc, _
IManExt.OpenCmd.NoCmdUI needs to be set to true.
.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

' 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

NOTE: Since you are in ICommand_Execute(), you should be able to just use the mContext to add your context items instead of creating your own instance of the ContextItems Collection Object.