How to CheckOut the Document?

Hi,

I need to CheckOut the document in the Interwoven using COM.
I tried using the code

Dim doc As IManDocument = userSession.Databases.ItemByName _("IWOV").GetDocument(2156, 1)
doc.CheckOutEx("e:\temp\sample.xml", _ imCheckOutOptions.imReplaceExistingFile, Nothing, "hai", _ imHistEvent.imHistoryCheckout, "", "")

I was able to Checkout the document.

But I need to Checkout the document with "Integrated Checkout" option.
Which will open the document when it is CheckOut and it will automatically Checkin when it closed.

Can any one help me to achieve Integrated Checkout option using COM or Webservice

Thanks,

Find more posts tagged with

Comments

jny

Hi,

I need to CheckOut the document in the Interwoven using COM.
I tried using the code

Dim doc As IManDocument = userSession.Databases.ItemByName _("IWOV").GetDocument(2156, 1)
doc.CheckOutEx("e:\temp\sample.xml", _ imCheckOutOptions.imReplaceExistingFile, Nothing, "hai", _ imHistEvent.imHistoryCheckout, "", "")

I was able to Checkout the document.

But I need to Checkout the document with "Integrated Checkout" option.
Which will open the document when it is CheckOut and it will automatically Checkin when it closed.

Can any one help me to achieve Integrated Checkout option using COM or Webservice

Thanks,

Use the CheckoutCmd. Like so:

Dim cmd As IMANEXTLib.CheckoutCmd
Dim context As IMANEXTLib.ContextItems
Dim dox(0) As IManage.NRTDocument

Set dox(0) = doc 'Assuming doc is a valid document object

Set cmd = New IMANEXTLib.CheckoutCmd
Set context = New IMANEXTLib.ContextItems

' Add required contextitems
context.Add "ParentWindow", Me.hWnd
context.Add "SelectedNRTDocuments", dox

' Optional contextitems
context.Add "IManExt.CheckoutCmd.NoVersionPrompts", False
' Checkout the current version.
context.Add "IManExt.CheckoutCmd.NoCmdUI", True
' Silent checkout.
'context.Add "IManExt.CheckoutCmd.NoCheckingBeforeCheckout", True
' Overwrite previous checkout.??
context.Add "IManExt.CheckoutCmd.Comments", "This is checked out from within my app."
' Add comment to the document history.

cmd.Initialize context
cmd.Update
If cmd.Status = (cmd.Status And nrActiveCommand) Then
cmd.Execute
Dim blRefresh As Boolean
blRefresh = context.Item("IManExt.Refresh")
If blRefresh = True Then
MsgBox "CheckoutCmd executed successfully."
context.Remove "IManExt.Refresh"
End If

saravanakumar38

Hi,

I need to achieve the Intgrated CheckOut functionality as in Interwoven.
i.e When i select document and click Integrated checkout. document must open and user must can Edit the document. When user close the document. It must automatically CheckedIn.

Can you help me to achieve this function.

jny

Hi,

I need to achieve the Intgrated CheckOut functionality as in Interwoven.
i.e When i select document and click Integrated checkout. document must open and user must can Edit the document. When user close the document. It must automatically CheckedIn.

Can you help me to achieve this function.

The OpenCmd is used to checkout the document to the portable directory then open it in its native editor.

This command is not responsible for checking in the document when it's closed from the document's app. If the application is integrated with WorkSite, , namely the Office Integrated Apps, then the integration module will then detect the file-close and check in the document. If the document is opened in a non-integrated app, it will not get checked in.

Basically, the OpenCmd is the command executed when you click on "Open" from the context menu, i.e., docgrid's popup, from within DeskSite/FileSite.

[VB]

Dim pOpenCmd As IMANEXTLib.OpenCmd
Dim pContextItems As IMANEXTLib.ContextItems

Set pContextItems = New IMANEXTLib.ContextItems
Set pOpenCmd = New IMANEXTLib.OpenCmd

ReDim pArrDox(0)
Set pArrDox(0) = pNRTDoc 'a valid pointer to a NRTDocument Object

' Required values
pContextItems.Add "ParentWindow", hWnd
pContextItems.Add "SelectedNRTDocuments", pArrDox

' Optional
'pContextItems.Add "IManExt.OpenCmd.NoCmdUI", True
'pContextItems.Add "IManExt.OpenCmd.Integration", False
'pContextItems.Add "IManExt.OpenCmd.ReadOnly", False

pOpenCmd.Initialize pContextItems
pOpenCmd.Update
If pOpenCmd.Status = (pOpenCmd.Status And nrActiveCommand) Then

pOpenCmd.Execute

Dim vRefresh
vRefresh = pContextItems.Item("iManExt.Refresh")
' True indicates execution was successful.
End If