Using the Verbs Collections Returns Zero When Using a VB 6 or .NET Form

(Doc ID 473421.1)

Last updated on SEPTEMBER 06, 2011

Applies to:

Oracle Imaging and Process Management - Version: 7.6.2.0.0 to 10.1.3.6 - Release: Stellent to 10gR3
Information in this document applies to any platform.

Symptoms

When using a Form to access a collection of packages containing attachments (other than the package launching the form), there is an issue returning a verbs collection from the selected attachment. (mimetype of image\tiff)  It is presently returning a count of 0.

Steps to reproduce:
  1. Use a VB 6 or VB.NET form to run a profile search which returns a collection of packages.
  2. Use the below code on a package (other than the package which originally launched the form) to view the package attachment using the action modifier.  (This code is for a VB 6 form.)
  3. Notice the verbs collection is 0. Also notice for other select items (like Export As...) that the verbs collection is populated correctly.

Dim objAttachment As OTPROCESSLib.Attachment
Dim objActionModifiers As OTACTMODLib.ActionModifiers
Dim objActionModifier As OTACTMODLib.IActionModifier
Dim objVerbs As OTACTMODLib.Verbs
Dim objVerb As OTACTMODLib.Verb
Dim objSelectItem As OTACTMODLib.SelectItem
Dim objSelectItems As OTACTMODLib.SelectItems

'get the attachment that was selected
Set objAttachment = objPackage2.Attachments(lstAttachments.ListIndex + 1)

'check to make sure it is an IBPM-filed attachment
If objAttachment.IndexID.IndexID = "" Then
MsgBox "Not an Acorde image"
Exit Sub
End If

'get each action modifier available for the selected attachment
For Each objActionModifier In objAttachment.ActionModifiers

'pass in the selectitem data
Set objSelectItem = New OTACTMODLib.SelectItem
objSelectItem.DocumentID = objAttachment.DocumentID
objSelectItem.IndexID = objAttachment.IndexID
objSelectItem.Description = objAttachment.Title

'clear out any other select items and re-add the one we are working with
Set objSelectItems = New OTACTMODLib.SelectItems

objSelectItem.MetaData = New OTACORDELib.Dictionary
objSelectItems.Add objSelectItem

'set the verb (open)
Set objVerbs = objActionModifier.Verbs(objUserToken, objSelectItem, "", False)

For Each objVerb In objVerbs
If objVerb.Type = otOpen Then
If objVerb.Caption = "I&BPM Viewer" Then
'invoke the verb
objVerb.Invoke objUserToken, objSelectItems
End If
End If
Next
Next

Cause

Sign In with your My Oracle Support account

Don't have a My Oracle Support account? Click to get started

My Oracle Support provides customers with access to over a
Million Knowledge Articles and hundreds of Community platforms