
DM API METHODS AND PROPERTIES 171
FetchTrustees
Set objDOC = CreateObject( _
"PCDClient.PCDDocObject")
'Create the property list object.
Dim objPropList As New PCDPropertyList
'Set the library.
objDOC.SetProperty "%TARGET_LIBRARY", strLib
'Set the DST.
objDOC.SetDST strDST
'Set the Form.
objDOC.SetObjectType "DEF_PROF"
'Identify the document object whose trustee
'properties are to be updated.
objDOC.SetProperty "%OBJECT_IDENTIFIER", _
txtDocNum.Text
'Create variables to store security data.
Dim LDefaultRights As Long
Dim LEffectiveRights As Long
Dim LAccessControl As Long
'Get the document.
objDOC.Fetch
'Check for any errors.
If objDOC.ErrNumber <> 0 Then
lstResultSet.AddItem "Unable to fetch doc: " _
& txtDocNum.Text
GoTo bye
End If
'Retrieve properties from the fetched document.
Set objPropList = objDOC.GetReturnProperties
'Store the results.
Kommentare zu diesen Handbüchern