Document objects, Dm a – Kofax DM API User Manual

Page 41

Advertising
background image

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

Advertising