Kofax DM API Manuel d'utilisateur Page 44

  • Télécharger
  • Ajouter à mon manuel
  • Imprimer
  • Page
    / 528
  • Table des matières
  • MARQUE LIVRES
  • Noté. / 5. Basé sur avis des utilisateurs
Vue de la page 43
24 CHAPTER 1
Document Objects
Set pclient = _
CreateObject("PCDClient.PCDSearch")
pclient.SetDST DST
pclient.AddSearchLib library
'This example uses the "def_qbe" form.
pclient.SetSearchObject "def_qbe"
'Set the properties to be returned. These
'are the properties to be displayed in the
'search results page.
pclient.AddReturnProperty("DOCNAME")
pclient.AddReturnProperty("DOCNUM")
pclient.AddReturnProperty("AUTHOR_ID")
pclient.AddReturnProperty("STATUS")
pclient.AddReturnProperty("VERSION")
pclient.AddReturnProperty("SECURITY")
pclient.AddReturnProperty("VERSION_ID")
pclient.AddOrderByProperty "VERSION_ID", True
pclient.AddSearchCriteria "DOCNUM", docnumber
pclient.Execute
'Check for error.
Dim lngENum As Long
lngENum = pclient.ErrNumber
If lngENum <> 0 Then
Dim strEDesc As String, strENum As String
strEDesc = pclient.ErrDescription
strENum = CStr( lngENum )
MsgBox "Error " & strENum & ": " & strEDesc
'Handle the error...
End If
docsfound = pclient.GetRowsFound
txtDocsFound = Str(docsfound)
If docsfound = 0 Then
Set pclient = Nothing
Exit Function
End If
pclient.NextRow
DefaultRights = _
pclient.GetPropertyValue("SECURITY")
DocName = pclient.GetPropertyValue("DOCNAME")
Vue de la page 43
1 2 ... 39 40 41 42 43 44 45 46 47 48 49 ... 527 528

Commentaires sur ces manuels

Pas de commentaire