Kofax DM API - Manual (Page 37)

T HE DM A RCHITECTURE 17
DM Search Transactions
rec.AddReturnProperty "SYSTEM_ID"
rec.AddReturnProperty "TYPE_ID"
rec.AddReturnProperty "LASTEDITDATE"
rec.AddReturnProperty "DOCNAME"
rec.AddReturnProperty "AUTHOR_ID"
rec.AddReturnProperty "STATUS"
'NOTE: This search should return data sorted
'by last edit then by document number.
rec.AddOrderByProperty "LAST_EDIT_DATE", 0
rec.AddOrderByProperty "DOCNUM", 1
rec.Execute
If (rec.ErrNumber <> 0) Then
MsgBox "Search Failure on Execute: " & _
rec.ErrNumber & " " & rec.ErrDescription, _
, "Search"
Else
count = rec.GetRowsFound
txtCount = Str(count)
If count > 50 Then count = 50
row = "DOCNAME" & Chr(9) & "DOCNUM" _
& Chr(9) & "SYSTEM_ID" & Chr(9) & _
"APP_ID" & Chr(9) & "TYPE_ID" & Chr(9) _
& _ "LAST_EDIT_DATE" & Chr(9) _
& "AUTHOR_ID" & Chr(9) & "STATUS"
reGrid.Clear
reGrid.Cols = 8
reGrid.rows = 0
reGrid.AddItem row
i = 1
While i <= count
rec.NextRow
If (rec.ErrNumber <> 0) Then
MsgBox "Search Failure on NextRow: " _
& rec.ErrNumber & " " & _
rec.ErrDescription, , "Search"
Else
row = rec.GetPropertyValue("DOCNAME") _
& Chr(9)
row = row & _
rec.GetPropertyValue("DOCNUM") _
& Chr(9)
row = row & _