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

Тема в разделе "Lotus - Программирование", создана пользователем San4el, 23 июл 2009.

  1. San4el

    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]

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

    Регистрация:
    13 мар 2009
    Сообщения:
    625
    Симпатии:
    2
    Чисто ради эксперимента: попробуйте после Call rtitemA.AppendRTItem( rtitemB ) добавить Call rtitemA.update
     
  3. San4el

    San4el Гость

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

    erdi Well-Known Member

    Регистрация:
    20 авг 2008
    Сообщения:
    261
    Симпатии:
    36
    вот этой строчкой ты что делаешь?
    Call rtitemA.AppendRTItem( rtitemB )
    ты копируешь содержимое из B в А, естественно там значения одинаковые
     
  5. RAJ

    RAJ Well-Known Member

    Регистрация:
    17 янв 2007
    Сообщения:
    440
    Симпатии:
    0
    сорри, ошибся окном
     
  6. San4el

    San4el Гость

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

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

    San4el Гость

    Спасибо, буду пробовать
     
Загрузка...

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