Kofax DM API Bedienungsanleitung Seite 192

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 528
  • Inhaltsverzeichnis
  • LESEZEICHEN
  • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 191
172 CHAPTER 4
FetchTrustees
'Does the document have security?
' 0 = no; 1 = yes
LDefaultRights = _
objPropList.GetPropertyValue("SECURITY")
'Determine the effective rights of the user
'who is currently logged on.
LEffectiveRights = _
objPropList.GetPropertyValue( _
"%EFFECTIVE_RIGHTS")
'Determine whether the user who is currently
'logged on has rights to edit the security
'settings of this document: 0 = no; 1 = yes
LAccessControl = objDOC.HasRight( _
"%PR_ACCESS_CONTROL", LEffectiveRights)
If (LAccessControl) Then
'Show user the list of trustees.
objDOC.FetchTrustees
'Update the trustees.
Dim sTrustee As String
sTrustee = InputBox("Enter user or group " _
& "to add as a trustee to document " _
& txtDocNum.Text, "Add Trustee", strUser)
objDOC.SetTrustee sTrustee, 0, 128
objDOC.UpdateTrustees
If (objDOC.ErrNumber <> 0) Then
lstResultSet.AddItem _
"Unable to update trustees."
GoTo bye
End If
objDOC.Update
Else
lstResultSet.AddItem "You do not have " _
Seitenansicht 191
1 2 ... 187 188 189 190 191 192 193 194 195 196 197 ... 527 528

Kommentare zu diesen Handbüchern

Keine Kommentare