Pcdputdoc, 98 c – Kofax DM API User Manual

Page 118

Advertising
background image

98

C

HAPTER

3

PCDPutDoc

Dim VersionID As Long

Dim TotalFileSize As Long

Dim TotalBytesWritten As Long

Dim Buffread As Long

'Set bdata ridiculously low for test purposes

'to increase the likelihood of corruption.

Dim bdata(16) As Byte

Dim objDoc As PCDDocObject

Set objDoc = New PCDDocObject

objDoc.SetProperty "%TARGET_LIBRARY", Library

objDoc.SetDST DST

'Set the Profile Form for this document.

objDoc.SetObjectType “DEF_PROF”

objDoc.SetProperty "DOCNAME", "Upload Test Doc"

objDoc.SetProperty "APP_ID", "MS WORD"

objDoc.SetProperty "AUTHOR_ID", "SMITH_J"

objDoc.SetProperty "TYPIST_ID", "SMITH_J"

'Set the Document Type, Letter, Memo, etc.

objDoc.SetProperty "TYPE_ID", "REPORT"

objDoc.SetProperty "ABSTRACT", _

"Imported via Custom Application"

objDoc.Create

If objDoc.ErrNumber <> 0 Then

Debug.Print objDoc.ErrNumber, _

objDoc.ErrNumber

Exit Sub

Else

Debug.Print "Created Document Profile!"

End If

DocNumber = objDoc.GetReturnProperty( _

"%OBJECT_IDENTIFIER")

VersionID = objDoc.GetReturnProperty( _

"%VERSION_ID")

Debug.Print "Doc Number: ", DocNumber, _

", Version ID: ", VersionID

Dim objPutDoc As PCDPutDoc

Set objPutDoc = CreateObject( _

"PCDClient.PCDPutDoc")

objPutDoc.SetDST DST

Advertising