Domino 9 und frühere Versionen > Entwicklung

Versionskontrolle Zugriffsrechte auf Antowortendokumente

(1/1)

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
--- Ende Code ---

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
--- Ende Code ---

Navigation

[0] Themen-Index