My Oracle Support Banner

Using the Verbs Collections Returns Zero When Using a VB 6 or .NET Form (Doc ID 473421.1)

Last updated on FEBRUARY 22, 2019

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

Changes

 

Cause

To view full details, sign in with your My Oracle Support account.

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


In this Document
Symptoms
Changes
Cause
Solution
References

My Oracle Support provides customers with access to over a million knowledge articles and a vibrant support community of peers and Oracle experts.