• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

копирование rich text

k85

Lotus Team
11.10.2011
260
1
BIT
0
а есть возможность данные из rich text скопировать в другую форму, но без потери форматирования и всех данных? пробую так, но копирование какое-то кривое получается

Код:
Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim session As New NotesSession
    Dim db As NotesDatabase   
    Dim uidoc As NotesUIDocument       
    Set db = session.CurrentDatabase
    Set uidoc = ws.CurrentDocument
    Set doc = uidoc.Document
    Dim docn As NotesDocument       

    Set docn = db.CreateDocument
    Call docn.ReplaceItemvalue("Form", "NEWForm")
    Call docn.ReplaceItemValue("polenew", Doc.GetItemValue("polenew")(0))
    Call docn.ReplaceItemValue("Body", Doc.GetItemValue("Body")(0))
    Call docn.ComputeWithForm(False, True)
    Call ws.EditDocument(True, docn)
    
    
End Sub
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 953
610
BIT
278
а есть возможность данные из rich text скопировать в другую форму, но без потери форматирования и всех данных? пробую так, но копирование какое-то кривое получается

Код:
Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim session As New NotesSession
    Dim db As NotesDatabase  
    Dim uidoc As NotesUIDocument      
    Set db = session.CurrentDatabase
    Set uidoc = ws.CurrentDocument
    Set doc = uidoc.Document
    Dim docn As NotesDocument      

    Set docn = db.CreateDocument
    Call docn.ReplaceItemvalue("Form", "NEWForm")
    Call docn.ReplaceItemValue("polenew", Doc.GetItemValue("polenew")(0))
    Call docn.ReplaceItemValue("Body", Doc.GetItemValue("Body")(0))
    Call docn.ComputeWithForm(False, True)
    Call ws.EditDocument(True, docn)
   
   
End Sub
у NotesRichTextItem есть метод
 

k85

Lotus Team
11.10.2011
260
1
BIT
0
Код:
Set rtitemB = doc.GetFirstItem("FIELD")
 Set rtitemA = New NotesRichTextItem(newdoc, "Body")
 Call rtitemA.AppendRTItem(rtitemB)
вот в таком виде добавляется ок.
спасибо
 

k85

Lotus Team
11.10.2011
260
1
BIT
0
в таком виде не подтягивается в новое поле вычисляемая часть, в richtext (1) есть вычисляемые поля и они не копируются в richtext (2)
 

Domino-Designer

Людям надо поморгать!
Lotus Team
06.12.2011
616
223
BIT
11
Set notesItem = notesItem .CopyItemToDocument( document , newName$ )

в таком виде не подтягивается в новое поле вычисляемая часть, в richtext (1) есть вычисляемые поля и они не копируются в richtext (2)

Что что у вас там? Вычисляемый текст?

Что же на самом деле мы хотим?

Попробую угадать.
Есть документ1 с RT полем, в котором форматирование и вычисляемый текст\хотспот\и т.д. по неким полям этого документа
Хотим это поле в другом документе2, но что бы оно было пересчитано уже по его полям.

Так?
 

Мыш

Lotus Team
12.02.2008
1 222
29
BIT
86
Если в UI, то можно попробовать метод ImportItem класса NotesUIDocument.
 

k85

Lotus Team
11.10.2011
260
1
BIT
0
Set notesItem = notesItem .CopyItemToDocument( document , newName$ )



Что что у вас там? Вычисляемый текст?

Что же на самом деле мы хотим?

Попробую угадать.
Есть документ1 с RT полем, в котором форматирование и вычисляемый текст\хотспот\и т.д. по неким полям этого документа
Хотим это поле в другом документе2, но что бы оно было пересчитано уже по его полям.

Так?
в первой форме оно сформировано, но надо скопировать полностью в другую форму со всеми вычислениями и в форме 2 не надо его никак изменять
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 953
610
BIT
278
в первой форме оно сформировано, но надо скопировать полностью в другую форму со всеми вычислениями и в форме 2 не надо его никак изменять
в последних нотусах есть конвертация в ПДФ, возможно так
ещё есть
с инмемори не будет работать
 
  • Нравится
Реакции: k85
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!