Kofax DM API - Manual (Page 34)

14 C HAPTER 1
DM Search Transactions
rec.AddReturnProperty "LASTEDITDATE"
rec.AddReturnProperty "DOCNAME"
rec.AddReturnProperty "TYPIST_ID"
rec.AddReturnProperty "STATUS"
rec.AddOrderByProperty "LAST_EDIT_DATE", 0
rec.Execute
If (rec.ErrNumber <> 0) Then
MsgBox "RecentEdit Failure on Execute: " & _
rec.ErrNumber & " " & _
rec.ErrDescription, , "Recent Edit"
Else
lim = rec.GetRowsFound
If lim > 50 Then lim = 50
row = "DOCNAME" & Chr(9) & _
"DOCNUM" & Chr(9) & "SYSTEM_ID" _
& Chr(9) & "APP_ID" & Chr(9) _
& "LAST_EDIT_DATE" & Chr(9) _
& "TYPIST_ID" & Chr(9) & "STATUS"
reGrid.Cols = 8
reGrid.AddItem row
i = 1
While i <= lim
rec.NextRow
If (rec.ErrNumber <> 0) Then
MsgBox "RecentEdit Failure on " _
& "NextRow: " & rec.ErrNumber _
& " " & rec.ErrDescription, , _
"Recent Edit"
Else
row = rec.GetPropertyValue("DOCNAME") _
& Chr(9)
row = row & _ rec.GetPropertyValue( _
"DOCNUM") & Chr(9)
row = row & _
rec.GetPropertyValue("SYSTEM_ID") _
& Chr(9)
row = row & _
rec.GetPropertyValue("APP_ID") _
& Chr(9)
row = row & _
rec.GetPropertyValue("LASTEDITDATE") _
& Chr(9)