OK
hier mal mein querymodechangecode:
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim ein As String
ein = session.GetEnvironmentString("ProblemEintritt")
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.document
Dim acl As notesacl
Set db = session.CurrentDatabase
Dim entry As notesaclentry
Set acl = db.ACL
Set entry = acl.GetEntry(Session.UserName)
If doc.dok_status(0) = "6. Abgeschlossen" And Not entry.IsRoleEnabled( "[Admin]" ) Then
Messagebox "Dokument ist bereits abgeschlossen!", OK, "Fehler"
continue = False
Else
If doc.dok_status(0) = "hugo" Then
continue = True
Else
If Not (ein = "Ja") Then
Messagebox "Eine Bearbeitung des Dokuments ist nur über die Schaltfläche ''Bearbeiten'' möglich", OK, "Fehler"
continue = False
End If
End If
End If
End Sub
und das mit den autorenfeldern bringt mir nix....
ich brauch ja nich den autor, sondern den der die Signatur abgibt (muss nich zwingend der autor sein)
d.h. wenn einer das erstellt, heisst das nich gleich, dass er auch in status 5 rein darf
marc
