Versionskontrolle Zugriffsrechte auf Antowortendokumente

[BigL]

Weiss jemand, wie ich folgendes Problem lösen kann:

Ich habe eine DB entwickelt in der ich Berechtigungen erfasse. Ich habe bei der Maske die Versionskontrolle aktiviert, mit folgender Option: fühere Versionen werden Antworten.

Wie kann ich es steuern, dass die Antworten nicht mehr bearbeitet werden können?

[TMC]

In dem Du im Postopen und Querymodechange - Event jeweils abfrägst ob Dokument ein Antwortdok ist.

Matthias

[TMC]

Hier noch ein Beispiel.

Postopen

Code

Sub Postopen(Source As Notesuidocument)

Dim szStatus As String
szStatus = source.FieldGetText("Status")

'Wenn Doc im Lesemodus, dann Folgecode nicht beachten 
If Source.EditMode = False Then Exit Sub

'Prüfe Statusfeld...
If szStatus ="IchBinStatusDerNichtSeinDarf" Then
Msgbox "The 'edit mode' is not allowed.", 64, "Error"
Source.EditMode = False 'Setze Dokument in Lesemodus
Exit Sub
End If

End Sub

Querymodechange

Code

Sub Querymodechange(Source As Notesuidocument, Continue As Variant)

'Wenn Doc im Bearbeitungsmodus, dann Folgecode nicht beachten
If Source.EditMode = True Then Exit Sub


Dim szStatus As String
szStatus = source.FieldGetText("Status")

If szStatus ="IchBinStatusDerNichtSeinDarf" Then
Msgbox "The 'edit mode' is not allowed.", 64, "Error"
continue = False
Exit Sub
End If

End Sub