Tabellentexte im RTF-Feld

[Alexis]

Hallo Forum,

folgende Problematik kann ich selbst nicht zu lösen:

•   Per Button lege ich in einer geöffneten Maske eine Tabelle mit Beschriftung an.
•   Danach editiere ich immmer noch im Editmode weitere Zellen der Tabelle,
•   Speichern der Tabelle mit:@If(@Command([FileSave]);@Command([FileCloseWindow]);"").
•   Nach dem abermaligen Öffnen des Dokumentes sind die editierten Texte verschwunden.

Hier der Code zum Erstellen der Tabelle und das (fehlerhafte) Handling im Frontend/Backend:

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim workspace  As New NotesUIWorkspace
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   Dim rtnav As NotesRichTextNavigator
   Dim db As NotesDatabase
   Set db = session.CurrentDatabase
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Call uidoc.close
   Dim body As New NotesRichTextItem(doc, "Content")
   Call doc.ReplaceItemValue("Form", "Angebot")
   Call doc.ReplaceItemValue("Content", "Table 4 x 3")
   rowCount% = 4
   columnCount% = 2
   Call body.AppendTable(rowCount%, columnCount%)
   Set rtnav = body.CreateNavigator
   Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL)
   Call body.BeginInsert(rtnav)
   Dim richStyle As NotesRichTextStyle
   Set richStyle = session.CreateRichTextStyle
   richStyle.NotesColor = COLOR_BLACK
   richStyle.Bold = True
   Call body.AppendStyle(richStyle)
   richStyle.Bold = False
   Call body.AppendText("Angebotsordner:")
   Call body.EndInsert
   Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL,2)
   Call body.BeginInsert(rtnav)
   Call body.AppendText("Anfrage:")
   Call body.EndInsert
   Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL,2)
   Call body.BeginInsert(rtnav)
   Call body.AppendText("Angebot:")
   Call body.EndInsert
   Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL,2)
   Call body.BeginInsert(rtnav)
   Call body.AppendText("Auftrag:")
   Call body.EndInsert
   Call doc.Save( True, False)
   doc.saveoptions="0"
   Call uidoc.Close
   Set uidoc=workspace.editdocument(True,doc,False)
End Sub

Kann mir jemand raten?

Alexis

[Axel]

Das liegt am Feld SaveOptions. Das musst du in deinem Script am Ende wieder entfernen.

Code

...
	Call doc.Save( True, False) 
	doc.saveoptions="0" 
	Call uidoc.Close
	Set uidoc=workspace.editdocument(True,doc,False)
	Set doc = uidoc.Document
	doc.RemoveItem("SaveOptions")
End Sub

Axel

[koehlerbv]

Warum sollte SaveOptions dort stören? Das Doc wurde ja gerade erst im Backend gespeichert.
Allerdings verwundert mich (auch wenn das mit dem Problem nix zu tun hat): Was soll das uidoc.Close (und damit natürlich auch das SaveOptions = "0") eigentlich unten - uidoc.Close wird doch schon weit vorher ausgeführt (gleich nach Instantiierung von doc).

Bernhard

[koehlerbv]

Schmarrn, Axel hat natürlich Recht: doc.SaveOptions wird gesetzt und dann diese Instanz wieder geöffnet! Es wird ja nicht das doc von Platte neu gelesen ...

Mea culpa, Axel!

Bernhard

[Alexis]

Hallo ihr Spezis,

Problem gelöst und wieder etwas gelernt.

Super! Herzlichen Dank.

Alexis