Lotus Notes - texto enriquecido

 
Vista:

texto enriquecido

Publicado por bego (1 intervención) el 09/02/2001 12:25:31
hola, quisiera saber cómo convertir texto a texto enriquecido, preferiblemente mediante fórmula

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:texto enriquecido

Publicado por Aristegui (17 intervenciones) el 13/02/2001 14:35:01
Siento decirte que no se puede, ni siquiera con script. El siguiente agente consigue que en las properties del campo "Campo" aparezca como richtext, pero si se entra al doc en realidad sigue siendo text ( después del código te planteo una solución):
Sub Initialize

Dim ses As New NotesSession
Dim db As NotesDatabase
Dim doc As notesdocument
Dim Vista As NotesView
Set db = ses.CurrentDatabase
Set Vista = db.GetView( "General" )
Set doc= Vista.GetFirstDocument

While Not ( doc Is Nothing)

Dim itemText As NotesItem
Dim itemRich As Notesrichtextitem
' Borramos el campo
Set itemText = doc.GetFirstItem( "Campo" )
Call itemText.Remove
' Creamos uno nuevo con el mismo nombre, pero RichText
Set itemRich = New NotesRichTextItem ( doc, "Campo" )
Call doc.Save( True, True )
Set doc=Vista.GetNextDocument (doc)
Wend
End Sub
Pero te propongo algo, cambia en el diseño las propiedades del campo a richtext y luego refresca con un agente todos los documentos, así podras insertar attachments, nunca se puede variar el diseño con agentes...:
@Command([ToolsRefreshSelectedDocs]) ;@All
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:texto enriquecido

Publicado por bego (13 intervenciones) el 14/02/2001 09:33:26
hola,
gracias por la información. Al final se ha hecho de la siguiente manera:

Se crea un campo de tipo texto siempre oculto(_resumen). Cuando se elige el número de encargo(con el botón), el campo que se rellena con el resumen de la BD de encargos es el campo de texto oculto que se ha creado. Despues en el evento postreclac del formulario, se pone:
Sub Postrecalc(Source As Notesuidocument)
Dim workspace As New notesuiworkspace
Dim uidoc As notesuidocument
Set uidoc= workspace.Currentdocument
texto=uidoc.FieldGetText("_resumen")
Call uidoc.FieldSetText("_resumenreferencia",texto)
Call uidoc.Save
End Sub
Siendo el _resumenreferencia el campo de texto enriquecido y _resumen el de tipo texto(siempre oculto).
El postreclac se ejecuta cada vez que se de a F9.

Bueno, hasta otra y gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:texto enriquecido

Publicado por Aristegui (17 intervenciones) el 14/02/2001 10:06:46
Gracias, voy a probarlo, nunca había metido código en el evento Postrecalc. Muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar