Ciao a tutti!
Io ho un problema con i campi richtext : ho questo un campo richtext che si chiama "SYS1Body" che era nascosto in base a un altro campo checkbox ("checkfase").
Adesso non voglio piu\' che questo campo sia nascosto e ho lanciato un agent che setti sempre il campo a visibile andando a mettere il check sul campo di controllo.
Sembra funzionare ma nel momento in cui prendo questo campo e lo copio in un altro documento non me lo fa vedere. ma se guardo sulle proprietà del nuovo documento questo capo cè!
Il codice che utilizzo è questo ma non ce un modo per dire a un richtext di essere sempre visibile??
Dim db As NotesDatabase
Dim session As New NotesSession
Dim Maildoc As NotesDocument
Dim richStyle As NotesRichTextStyle
Dim MailTesto As String
Dim itemControllo As NotesItem
Dim itemTesto As NotesItem
Set db = session.CurrentDatabase
Set Maildoc = New NotesDocument( db )
Set richStyle = session.CreateRichTextStyle
Set GetSetup = New CGetSetup
Dim rtitem As New NotesRichTextItem(MailDoc, "com_testo")
richStyle.FontSize = 9
Call rtitem.AppendStyle(richStyle)
Maildoc.Form = "MODCOM"
Maildoc.ragsoc = uidoc.FieldGetText("ragsoc")
Maildoc.checkfase = uidoc.Document.GetItemValue("checkfase")
Maildoc.com_creazione = Date
Maildoc.com_autore = session.CommonUserName
Call Maildoc.ReplaceItemValue("UnidParent", uidoc.Document.UniversalID)
Call Maildoc.MakeResponse(uidoc.Document)
MailDoc.com_oggetto = "test"
Set itemTesto = uidoc.Document.GetFirstItem( "SYS1Body" )
richStyle.FontSize = 9
richStyle.Bold = True
Call rtitem.AppendStyle(richStyle)
szMessageTop = "Sezione: " + campo
rtitem.appendtext(szMessageTop)
Call rtitem.AddNewLine( 2 )
Call rtitem.AppendRTItem(itemTesto)
Call maildoc.Save(True,True)
Call uiwrk.EditDocument(True, MailDoc, False)
Grazie in anticipo
|