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) |
| |
| |
| Dim workspace As New NotesUIWorkspace |
| Dim session As New NotesSession |
| |
| |
| 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 |
| Set uidoc = workspace.CurrentDocument |
| uidoc.EditMode = True |
| End Sub |
| |
| Sub SetBewertung |
| If Not (doc.Anonym(0) = "True") Then |
| doc.Anonym = "True" |
| 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