Kofax DM API Instrukcja Użytkownika Strona 46

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
  • Strona
    / 528
  • Spis treści
  • BOOKMARKI
  • Oceniono. / 5. Na podstawie oceny klientów
Przeglądanie stron 45
26 CHAPTER 1
Document Objects
GetTrusteesforProfile = True
Exit Function
End If
ErrorHandler:
MsgBox "Unhandled Error: " & _
Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description
End Function
.
.
.
Private Sub cmdAddTrustee_Click()
'Two ways to do this:
'1) Set trustee on profile object and
' update trustees.
Set PDoc = _
CreateObject("PCDClient.PCDDocObject")
PDoc.SetDST DST
PDoc.SetProperty "%TARGET_LIBRARY", library
PDoc.SetObjectType("DEF_PROF")
PDoc.SetProperty "%OBJECT_IDENTIFIER", docnumber
PDoc.FetchTrustees
'Set flags to 1 for group and 2 for user, but
'0 may work.
PDoc.SetTrustee cboTrustees.Text, 2, _
Val(txtRights)
'Check for error.
Dim lngENum As Long
lngENum = PDoc.ErrNumber
If lngENum <> 0 Then
Dim strEDesc As String, strENum As String
strEDesc = PDoc.ErrDescription
strENum = CStr( lngENum )
MsgBox "Error " & strENum & ": " & strEDesc
'Handle the error...
End If
PDoc.UpdateTrustees
'Check for error.
Dim lngENum As Long
Przeglądanie stron 45
1 2 ... 41 42 43 44 45 46 47 48 49 50 51 ... 527 528

Komentarze do niniejszej Instrukcji

Brak uwag