Hallo liebe Notesgemeinde,
ich habe folgendes Problem:
Beim öffnen eines Dokumentes, welches eine Queryopen und ein Postopenfunktion hat, werden bei einer Feldzuweisung im Postopen alle Inhalte im Dokument gelöscht.
Also
1. Doppelklick auf das gewünschte Dokument
2. Queryopen kontrolliert ob der Benutzer rechte hat das Dok zu öffnen (hat er)
3. QueryOpen wir gestartetet
3.1. DAs Dokument wird auf uidoc.editmode = true gesetzt
3.2. Es wird geprüft ob die Variable/Feld auf "True" gesetzt ist.
3.3. Das Feld wird auf "True" gesetzt --> Inhalt des Dokuments wird gelöscht
3.4. - XXX andere Sachen
Anbei die Stelle die Probleme verursacht
Sub Postopen(Source As Notesuidocument)
REM Umgebung
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
REM Standard
Dim doc As NotesDocument
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Set doc = source.Document
Call Anonymisieren
Call SetBewertung
End Sub
Sub Initialize
Set workspace = New NotesUIWorkspace
Set session = New NotesSession
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
End Sub
Sub Anonymisieren '(Aufgerufen durch QueryOpen)
Set uidoc = workspace.CurrentDocument
uidoc.EditMode = True
End Sub
Sub SetBewertung '(Aufgerufen durch QueryOpen)
If Not (doc.Anonym(0) = "True") Then
doc.Anonym = "True" '<-- Hier werden die INhalte gelöscht
If uidoc.EditMode= False Then
uidoc.EditMode = True
End If
If doc.Bewertungskey(0) <> "" Then
Call uidoc.Save
End If
End If
.....
End Sub
P.S. Der Code des queryopens und postopens liegen in einer Scriptlibary....
Ich hoffe ihr könnt mir helfen und ich konnte mich verständlich ausdrücken
MFG
Christian