Kofax DM API Instrukcja Użytkownika Pobierz pdf (Strona 40)

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

1 2 ... 35 36 37 38 39 40 41 42 43 44 45 ... 527 528

Komentarze do niniejszej Instrukcji

Brak uwag