Как копировать Richtext поле ?

Тема в разделе "Lotus - Программирование", создана пользователем 11BOSS11, 16 июл 2010.

  1. 11BOSS11

    11BOSS11 Гость

    Помогите, кто чем может, ?!!
    Нужен агент который возьмет нужное RichText поле нужного документа , создаст новый документ в теневом режиме, и скопирует туда RichText поле .
    :what?:

    Добавлено:

    Вот написал такой код, а он как то криво работает!! :)
    получается , если просматривать в свойствах созданого документа поля,- то там всетаки записывается RichText,
    а заходиш в сам документ,- глюк какойто! - поле пустое, и малотого, нету второй закрывающей скобки самого поля.....

    Код (LotusScript):
    Sub Initialize

    Dim sess As New notessession
    Dim wksp As New notesuiworkspace
    Dim db As notesdatabase
    Dim view As notesview
    Dim newdoc As notesdocument
    Dim TableName As String
    Set db=sess.CurrentDatabase

    Dim docA As NotesDocument
    Dim docB As NotesDocument
    Dim rtitem As NotesRichTextItem
    Dim rtitemA As NotesRichTextItem
    Dim rtitemB As NotesRichTextItem
    '...set values of docA and docB...
    Set dc = db.UnprocessedDocuments
    Set docA = dc.GetFirstDocument

    Set docB = New notesdocument( db )
    docB.form = "Pechat"
    Call docB.save(True, True) 

    Set rtitemA= docA.GetFirstItem("prn_table")
    Set rtitemB = New NotesRichTextItem ( docB, "pole1" )
    'Call rtitem.AppendRtitem(rtitem)
    Call rtitemA.CopyItemToDocument( docB, "pole1" )
    Call docA.Save( False, True )
    Call docB.Save( False, True )
    End Sub
     
  2. 11BOSS11

    11BOSS11 Гость

    :)
    АУУУУУУУУУ!!
    люди неужели никто не знает!!??
     
  3. Klido

    Klido Гость

    1ККК примеров что тут на форуме, что в инете, а Пт всех наплющила - уже сил нет искать по N-му кругу....
     
  4. 11BOSS11

    11BOSS11 Гость

    так вот я вроде и написал код,. но ктобі посмотрел и сказал в чем ошибка?..
    чтото я не так делаю.......... :happy:
     
  5. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    Код (LotusScript):
    Sub Initialize

    Dim sess As New notessession
    Dim db As notesdatabase
    dim dc as notesdocumentcollection
    Dim docA As NotesDocument
    Dim docB As NotesDocument

    Set db=sess.CurrentDatabase
    '...set values of docA and docB...
    Set dc = db.UnprocessedDocuments
    Set docA = dc.GetFirstDocument

    Set docB = New notesdocument( db )
    docB.form = "Pechat"

    if docA.HasItem("prn_table") Then
    docB.CopyItem(docA.GetFirstItem("prn_table"), "pole1")
    End if

    Call docB.Save( true, True )
    End Sub
     
Загрузка...

Поделиться этой страницей