Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: BigL am 01.02.04 - 11:29:13

Titel: Versionskontrolle Zugriffsrechte auf Antowortendokumente
Beitrag von: BigL am 01.02.04 - 11:29:13

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?

Titel: Re:Versionskontrolle Zugriffsrechte auf Antowortendokumente
Beitrag von: TMC am 01.02.04 - 12:37:04

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

Matthias

Titel: Re:Versionskontrolle Zugriffsrechte auf Antowortendokumente
Beitrag von: TMC am 01.02.04 - 12:43:35

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