Pcdlookup – Kofax DM API User Manual
Page 83

DM API O
BJECTS
63
PCDLookup
Example
The following example demonstrates how you can use PCDLookup to
create and process a Lookup search. It includes most of the methods
that PCDLookup supports.
Sub Lookup( )
'Create our object
Dim objPCDLookup As New PCDLookup
'Create a property list
'Set up our propertylist so it can be used later.
objPCDPropList.
"AUTHOR_ID", "J_SMITH"
'Set up the parameters for the lookup.
'Set the DST.
objPCDLookup.
strDST
'Set the Library.
objPCDLookup.
strLib
'Set the search object. This form must contain
'the lookup (such as client or matter).
objPCDLookup.
( "DEF_QBE1" )
'Set the Lookup name.
objPCDLookup.
"PEOPLE"
'Set the target property to look up.
objPCDLookup.
"AUTHOR_ID"
'Set the search criteria.
objPCDLookup.
objPCDPropList
'Set the filter criteria.
objPCDLookup.
"AUTHOR_ID", "J*"
'Determine fields to search.
Dim strAns As String, intAns As Integer
Dim strPrompt As String, strTitle As String
strTitle = "Author or Author/Typist Search “ _
& “Selection"
strPrompt = "Current search is only in “ _
& “Author field.” & vbCr & "Do you “ _
& “also wish to search for the person" & _