Computed rich text field

HCL Domino Domino Forum
1

I have two fields in my form. Field 1 is a RTF. Field 2 is a computed RTF. I like to make Field 1 = Field 2 (both have to be presented in RFT). How can I do that?

2

Subject: computed rich text field

Hi Jeremy

The only way is to copy the rich text in the back end with LotusScript.

Check out these LS methods:

Set ritmv1 = doc.GetFirstItem(“RTF1”)

Call ritmv0.AddNewLine( 1 )

Call ritmv0.AppendRTItem(ritmv1)

Call ritmv0.CopyItemToDocument(doc, “RTF2”)

Good Luck

Don Russell

3

Subject: RE: computed rich text field

what is wrong with the code below

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)

Dim wksp As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim doc As NotesDocument

Dim rti As NotesRichTextItem

Dim rti2 As NotesRichTextItem

Dim thisdatabase As NotesDatabase



Set uidoc = wksp.CurrentDocument

Set thisdatabase=Session.currentdatabase

Set doc = uidoc.Document  



Set rti = doc.GetFirstItem("COutline")

’ Make your rich text changes here, for instance:

Call rti2.AddNewLine(1, True)

Call rti2.AppendRTItem(rti)

Call rti2.CopyItemToDocument(doc,"CCOutline")   'computed outline

Call doc.ComputeWithForm(False,False)

Call doc.Save(False,False)

Call uidoc.Close(True)

End Sub