Ich hab jetzt nochmal geguckt, finde aber nirgends den Fehler.
Hier mein Code, der das Dokument in den Bearbeitungsmodus setzen soll:
...
doc.EditFlag = "1"
Call doc.Save(True, True)
Call ws.Editdocument (True, doc,,,, False)
...
Masken-Events:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
If Not Isnewdoc Then
If Source.Document.EditFlag(0) = "0" And Mode Then
Messagebox "Ein nachträgliches Verändern des Dokuments ist nicht möglich!!!", 48, "FEHLER"
Continue = False
End If
End If
End Sub
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
If Source.Document.EditFlag(0) = "0" Then
Messagebox "Ein nachträgliches Verändern des Dokuments ist nicht möglich!" , 48, "FEHLER"
Continue = False
End If
End Sub
Sub Postmodechange(Source As Notesuidocument)
Call Source.Fieldsettext("SaveFlag","0")
End Sub
Sub Querysave(Source As Notesuidocument, Continue As Variant)
If source.fieldgettext("SaveFlag") = "0" Then
Continue = False
Msgbox "Bitte Dokument über Button speichern. Danke!", 64, "Hinweis zum Speichern"
End If
End Sub
Weiß jemand einen Rat?
Bille
Richtig, Reload funktioniert hier leider nicht.
Also, das ganze hat folgenden Hintergrund:
Es werden Dokumente erstellt, die nach dem Speichern nicht mehr geändert werden dürfen. (Es wird nicht mit Autorenfeldern gearbeitet.)
Die Überprüfung erfolgt hier anhand des Feldes "EditFlag", das standardmäßig auf "0" gesetzt ist.
In einem weiteren Schritt soll es nun möglich sein, bestehende Dokumente in eine Historie zu verschieben und eine zuvor erstellte Kopie davon wieder zu bearbeiten.
...
Set historydoc = doc.CopyToDatabase( db)
historydoc.History = "1"
historydoc.Stat = "erledigt"
Call historydoc.Save(True,True)
doc.EditFlag = "1"
Call doc.Save(True, True)
Call ws.Editdocument (True, doc,,,, False)
Ja Klaus, die Änderung findet im Backend statt. Aber lt. dem og. Thread sollte das Problem doch mit dem Parameter von ws.EditDocument der unter R6 neu ist, doch funktionieren. Oder hab ich das falsch gelesen?
Bille