checkin ... Help Required

shahbm

'I am having trouble checking in the Word document...
'here is my code----

'00000000000000000000000000000000000000000000000000000000


Private Sub ICommand_Execute()

On Error GoTo ExecuteError

'--------------My Code which creates a copy of word document from desksite, stores into my local drive, opens it and then close the copy of the document -------------------

Dim rpSelectedNRTDocuments() As IManage.NRTDocument
Dim pDocument As Variant
Dim sDisplay As String
Dim strdoc As String

Dim ocWord As Word.Application
Set ocWord = New Word.Application

rpSelectedNRTDocuments = mContext("SelectedNRTDocuments")

On Error GoTo ExecuteError

For Each pDocument In rpSelectedNRTDocuments


If pType = "WORD" Then

pDocument.GetCopy "c:\Temp\" & pDes & ".doc", imGetCopyOptions.imNativeFormat
ocWord.Application.Documents.Open ("c:\Temp\" & pDes & ".doc")
ocWord.ActiveDocument.Close

End If
'-----------------------Now I am trying to checkin the copy of the document I have created on my local drive----------------------------------------------

Dim dms As New ManDMS
Dim mySession As IManSession

Dim db As IManDatabase

Dim myWS As IManWorkspace
Dim myWorkarea As IManWorkArea

Set mySession = dms.Sessions.Add("servername")
mySession.TrustedLogin

Set myWorkarea = mySession.WorkArea
Set myWS = mySession.WorkArea.RecentWorkspaces.ItemByIndex(1)

Dim myDoc As IManDocument
Dim errs

Set myDoc = myWS.Database.CreateDocument()

'---------------CODE WORKS TILL HERE AND THEN THROWS AN ERROR (Manage32: Type mismatch)----------------------------------------here is an error-----------------

myDoc.SetAttributeByID imProfileAttributeID.imProfileAuthor, "temp"
myDoc.SetAttributeByID imProfileAttributeID.imProfileOperator, "temp"
myDoc.SetAttributeByID imProfileAttributeID.imProfileClass, "DOC"
myDoc.SetAttributeByID imProfileAttributeID.imProfileType, "Word"
' myDoc.Description = "Temp Test"

Set myDoc = myDoc.CheckIn("c:\Temp\" & pDes & ".doc", imReplaceOriginal, imDontKeepCheckedOut, errs)

If Not errs <> "" Then
MsgBox ("Errors while checkin...")
End If

'-----------------------------------------------------------------------------executing OpenCmd now from iManage--------------------------------------


' Dim objOpencmd As IMANEXTLib.OpenCmd
' Set objOpencmd = New IMANEXTLib.OpenCmd
'
' mContext.Add "ParentWindows", 0
' objOpencmd.Initialize mContext
' objOpencmd.Update
'
' If objOpencmd.Status = nrActiveCommand Then 'objOpencmd.Status And
'
' objOpencmd.Execute
' mContext.Remove "NRTExt.Refresh"
'
' End If

Next pDocument


GoTo ExecuteError

ExecuteError:
If Err.Description <> "" Then
MsgBox Err.Description + Err.Number, , "Error in execute !!"
End If
' Set objOpencmd = Nothing
' Set pDocument = Nothing
Err.Clear
Exit Sub

End Sub


'Can someone tell me why its throwing an error and how do i fix it...

Thax

jny

As it looks, this is what you're actually doing in your code:

You are creating a new document profile object and uploading the newly created Word file to WorkSite, yet you're setting the upload option to 'replace original'...which will fail because the document object has never been checked out -- so there isn't any document object with which to replace.

Keep in mind that the only WorkSite document that is or has been opened is the one referenced by the pDocument variable; myDoc is a brand new document object that has never been opened or checked out.

I'm not too clear on exactly what you're trying to accomplish but your code logic does not seem 'logical'.

If you could explain what you're attempting to do, perhaps I can help with how you can do it.