Kofax DM API Manual do Utilizador descarregar pdf (Página 118)

98 CHAPTER 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

1 2 ... 113 114 115 116 117 118 119 120 121 122 123 ... 527 528

Comentários a estes Manuais

Sem comentários