Domino 9 und frühere Versionen > Administration & Userprobleme

Schon wieder RichText...

(1/3) > >>

Thomator:
Moin erst mal,
ich habe immer noch das Problem mit dem RT-Feld.
Wenn das Feld bearbeitbar ist, lässt es sich mit der Variablen gar nicht referenzieren. Wenn ich das Feld selbst auf Berechnet setze, kann ich es zwar referenzieren und auch Text anhängen usw., aber beim Speichern vergisst das Feld alles wieder. (Die angehängten Texte verschwinden einfach aus der Variablen) Ausserdem wirds dann nicht mehr angezeigt.
Hilfe!!!
Thomas

Axel:
Hi,

kannst du mal den Code posten?


Axel

Thomator:
Hallo Axel,
also ich rufe mit der Aktion Neuer Eintrag folgendes auf:
   Dim failureUpdate As Integer
   Dim failureWrite As Integer
   Dim s As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim db As NotesDatabase
   Set db = s.currentDatabase

   Call ws.DialogBox("Erfassung", True, True, False,
True,False)
   failureUpdate = UpdateRichText()
   If failureUpdate = 0    Then failureWrite = WriteRichText()
   Call uidoc.save

UpdateRichText schreibt die Ergebnisse aus dem Dialog in Variablen
und dann will ich das Ganze formatiert in das RichText-Feld Verlauf schreiben. Dazu soll WriteRichText() herhalten, das folgendermaßen ausschaut:

   
'***********Styles******************
   Dim DateNameStyle As NotesRichTextStyle
   Dim HeaderStyle As NotesRichTextStyle
   Dim BetreffStyle As NotesRichTextStyle
   Dim TextStyle As NotesRichTextStyle
   
   Set DateNameStyle = session.createRichTextStyle()
   DateNameStyle.Bold = True
   DateNameStyle.NotesColor = COLOR_BLACK
   DateNameStyle.Effects = EFFECTS_NONE
   DateNameStyle.NotesFont = FONT_ROMAN
   DateNameStyle.FontSize = 16
   
   Set HeaderStyle = session.createRichTextStyle()
   HeaderStyle.Bold = True
   HeaderStyle.NotesColor = COLOR_BLACK
   HeaderStyle.Effects = EFFECTS_SHADOW
   HeaderStyle.NotesFont = FONT_ROMAN
   HeaderStyle.FontSize = 18
   HeaderStyle.Underline = True
   
   Set BetreffStyle = session.CreateRichTextStyle()
   BetreffStyle.Bold = False
   BetreffStyle.NotesColor = COLOR_BLACK
   BetreffStyle.Effects = EFFECTS_NONE
   BetreffStyle.NotesFont = FONT_ROMAN
   BetreffStyle.FontSize = 16
   BetreffStyle.Underline = True
   
   Set TextStyle = session.CreateRichTextStyle()
   TextStyle.Bold = False
   TextStyle.NotesColor = COLOR_BLACK
   TextStyle.Effects = EFFECTS_NONE
   TextStyle.NotesFont = FONT_COURIER
   TextStyle.FontSize = 12
'**************************************************
   
   Dim Body As NotesRichTextItem
   Dim TempBody As NotesRichTextItem

   UpdateRichText()
   Set doc = uidoc.Document
   Set Body = doc.GetFirstItem("Verlauf")
   
   Set TempBody =  doc.CreateRichTextItem("tmp")
   Call TempBody.AppendStyle(HeaderStyle)
   Call TempBody.AppendText("Datum:")
   Call TempBody.AddTab(1)
   Call TempBody.AppendStyle(DateNameStyle)
   Call TempBody.AppendText(Datum)
   Call TempBody.AddTab(2)
   Call TempBody.AppendStyle(HeaderStyle)
   Call TempBody.AppendText("Erfasst von:")
   Call TempBody.AddTab(1)
   Call TempBody.AppendStyle(DateNameStyle)
   Call TempBody.AppendText(ErfName) 'usw.
   
   Call Body.AppendRTItem(TempBody)
   Body.isSummary = 1
   Call doc.RemoveItem("Tmp")
   Call doc.save(True, False, True)
   Call uidoc.reload

Der ganze Spaß wird auch, wenn ich dem RichTextFeld die Eigenschaft 'Berechnet' mitgebe, in das RichTextFeld geschrieben, ist aber in der Ansicht des Dokuments nicht sichtbar. Wenn ich das Feld auf Bearbeitbar setze, sagt mir Notes, dass die Objektvariable für das Feld nicht gesetz wäre.

Axel:
Hi,

sind WriteRichText und UpdateRichText eigene Funktionen? Stehen dort auch die Variablen uidoc, doc usw zur Verfügung?

Welche Objectvariable meckert den Notes an?


Axel

Thomator:
Moin,
also die Funktionen sind eigene, meckern tut er bei
Set Body = doc.GetFirstItem("Verlauf"), aber eben nur, wenn das RichTextFeld "Verlauf" auf bearbeitbar steht. Wenns 'berechnet' ist, funktioniert das ganze ja so weit super, aber es wird dann nicht mehr angezeigt, wenn ich das Doc zur Ansicht oder zum Bearbeiten öffne!
Grüsse...

Navigation

[0] Themen-Index

[#] Nächste Seite