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

  • Автор темы 11BOSS11
  • Дата начала
1

11BOSS11

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

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

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

Код:
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
 
1

11BOSS11

#2
:)
АУУУУУУУУУ!!
люди неужели никто не знает!!??
 
K

Klido

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

11BOSS11

#4
1ККК примеров что тут на форуме, что в инете, а Пт всех наплющила - уже сил нет искать по N-му кругу....
так вот я вроде и написал код,. но ктобі посмотрел и сказал в чем ошибка?..
чтото я не так делаю.......... :happy:
 

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#5
Код:
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