Копирование аттачментв с одинаковыми именами!

[San4el]

Добрового времени суток всем!

Ай нид хелп:
Копирую в документ два разных файла (но с одинаковыми именами) из двух разных документов, после чего в итоговом документе отображаются иконки на эти файли, но при откытии любого из них открывается один и тот же(первый).
Как это исправить?
Вот код:
[codebox]
Dim rtitemA As Variant
Dim rtitemB As Variant
Dim Doc as NotesDocument
Set doc = ResultCol.GetFirstDocument
Set rtitemA = nd.GetFirstItem( "Att" )
If rtitemA Is Nothing Then
Set rtitemA = New NotesRichTextItem(nd, "Att")
End If
While Not doc Is Nothing
Set rtitemB = doc.GetFirstItem("Att") Call rtitemA.AddNewLine(1)
Call rtitemA.AppendRTItem( rtitemB )
Set doc = ResultCol.GetNextDocument(Doc)
Wend
[/codebox]

А если добавляю тоже самое вручную, то все нормально: Два разных файла с одинаковыми названиями

 

[turumbay]

Чисто ради эксперимента: попробуйте после Call rtitemA.AppendRTItem( rtitemB ) добавить Call rtitemA.update

 

[San4el]

Чисто ради эксперимента: попробуйте после Call rtitemA.AppendRTItem( rtitemB ) добавить Call rtitemA.update

Не не получается... Тоже самое ((

 

[erdi]

вот этой строчкой ты что делаешь?
Call rtitemA.AppendRTItem( rtitemB )
ты копируешь содержимое из B в А, естественно там значения одинаковые

 

[RAJ]

сорри, ошибся окном

 

[San4el]

вот этой строчкой ты что делаешь?
Call rtitemA.AppendRTItem( rtitemB )
ты копируешь содержимое из B в А, естественно там значения одинаковые

ну да значения одинаковые... всмысле имена файлов одинаковые, но сами файлы разные...Как быть?

 

[turumbay]

Гм. Клиент 7.0.3. Реально работает имеено так. Несмотря на то, что иконок, соответствующих файлам несколько - для каждого уникального имени создается единственное поле $File. Однозначно косяк.
Workaround: если детачить файлы на диск и вставлять в поле через embedObject - все работает корректно. ( но слетают значки иконок ). Проверено.
Можно еще подергаться в направлении DXL.

 

[San4el]

Спасибо, буду пробовать