Hi Axel,
ja in den Antwortdokumenten sind definitiv "Mehrfachwerte" zugelassen! (Wenn ich das Feld händisch ändere, werden die Mehrfachwerte ja korrekt dargestellt)
Die Werte werden per Script an die Antwortdokumente übergeben.
Mein Code im QuerySave des Hauptdokuments:
Sub SetRightsOnResponses(doc As NotesDocument)
On Error Resume Next
Dim Session As New NotesSession
Dim Workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim collection As NotesDocumentCollection
Dim responsedoc As NotesDocument
Dim tmp As NotesDocument
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set collection = doc.Responses
Set responsedoc = collection.GetFirstDocument
While Not (responsedoc Is Nothing)
Set tmp = collection.GetNextDocument(responsedoc)
' Vererbungsstatus der jeweiligen Antwort ermitteln
fldVererbung = responsedoc.Schutz_1(0)
' Leser und Bearbeiter aus dem Projekt auslesen
fldLeser = uidoc.FieldGetText("P_Leser")
fldAutor = uidoc.FieldGetText("P_Autor")
' Wenn in der gefundenen Antwort das Vererben aktiviert ist, werden die neuen Personen gesetzt
If fldVererbung = "1" Then
' Hier wird jetzt das Ersetzen der Leser und Autoren durchgeführt
Call responsedoc.ReplaceItemValue( "A_Verteiler", fldLeser)
Call responsedoc.ReplaceItemValue( "A_Beteiligte", fldAutor)
Call responsedoc.ReplaceItemValue( "Vererbung_Am", "Letzte Vererbung am: " & Date & " um " & Time & " Uhr.")
'Call responsedoc.ComputeWithForm( False, False )
'Call responsedoc.Save( True, True, False )
Else
'Wenn eine Antwort gefunden wurde, die Vererbung in der Antwort aber deaktiviert ist wird nicht vererbt
End If
Call SetRightsOnResponses(responsedoc)
Set responsedoc = tmp
Wend
End Sub