Kofax DM API - Manual (Page 41)

T HE DM A RCHITECTURE 21
Document Objects
txtStatus = doc.GetReturnProperty("STATUS")
Set doc = Nothing
If txtStatus = 0 Then
cmdCheckOut.Enabled = True
cmdCheckIn.Enabled = False
Else
cmdCheckOut.Enabled = False
cmdCheckIn.Enabled = True
End If
MsgBox "Status field in profile updated " _
& "to 0 (checked in)."
End Sub
.
.
.
Private Sub FetchButton_Click()
Dim rec As New PCDGetDoc
Dim i As Long
Dim lim As Long
Dim opOK As Boolean
Dim row As String
Dim gd As Object
Dim indata As Variant
Dim bdata() As Byte
If docnumber = "" Or versionid = "" Then
MsgBox "Must specify the document number " _
& "and the version ID."
Exit Sub
End If
FetchFlag = False
FileName = ""
rec.SetDST DST
rec.AddSearchCriteria "%TARGET_LIBRARY", _
library
rec.AddSearchCriteria "%DOCUMENT_NUMBER", _
docnumber
rec.AddSearchCriteria "%VERSION_ID", versionid
rec.Execute