Kofax DM API Manuel d'utilisateur Page 40

  • 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 39
20 CHAPTER 1
Document Objects
Dim doc As New PCDDocObject
If docnumber = "" Or versionid = "" Then
MsgBox "Check In requires that you set " _
& "the document number and " _
& "the version ID."
Exit Sub
End If
doc.SetDST DST
doc.SetObjectType "cyd_defprof"
doc.SetProperty "%TARGET_LIBRARY", library
doc.SetProperty "%OBJECT_IDENTIFIER", docnumber
doc.SetProperty "%VERSION_ID", versionid
doc.SetProperty "%STATUS", "%UNLOCK"
doc.Update
'Check for error.
Dim lngENum As Long
lngENum = doc.ErrNumber
If lngENum <> 0 Then
Dim strEDesc As String, strENum As String
strEDesc = doc.ErrDescription
strENum = CStr( lngENum )
MsgBox "Error " & strENum & ": " & strEDesc
'Handle the error...
End If
Set doc = Nothing
Set doc = New PCDDocObject
doc.SetDST DST
doc.SetObjectType "cyd_defprof"
doc.SetProperty "%TARGET_LIBRARY", library
doc.SetProperty "%OBJECT_IDENTIFIER", docnumber
doc.Fetch
'Check for error.
Dim lngENum As Long
lngENum = doc.ErrNumber
If lngENum <> 0 Then
Dim strEDesc As String, strENum As String
strEDesc = doc.ErrDescription
strENum = CStr( lngENum )
MsgBox "Error " & strENum & ": " & strEDesc
'Handle the error...
End If
Vue de la page 39
1 2 ... 35 36 37 38 39 40 41 42 43 44 45 ... 527 528

Commentaires sur ces manuels

Pas de commentaire