Hallo,
kann ich folgendes realisieren?
Wenn ein User eine bestimmte NotesDB auf Web öffnet (User ist in ACL als Autor eingetragen) dann sollte ein bestimmtes Dok geöffnet werden. Existiert das Doc nicht, so sollte ein Compose gemacht werden, wo der User dann eben bestimmte Daten eingeben und speichern kann.
So würde das in Script aussehen:
-----------------------------------------------
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim dc As notesdocumentcollection
Set db = s.CurrentDatabase
Set view = db.getview("lookupUser")
Set dc = view.GetAllDocumentsByKey ("misterX",True)
If dc.Count = 0 Then
'set doc = db.createdoc...
Call ws.EditDocument (True,doc)
Elseif dc.Count = 1 Then
Set doc = dc.GetFirstDocument
Call ws.EditDocument (True,doc)
Else
Msgbox "Fataler Fehler..."
'...
End If
-----------------------------------------------
ist das möglich?
schönen Tag