Как скопировать Id из адресной книги?

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

  1. NeoSimvolist

    NeoSimvolist Гость

    Я пробовал следующим образом

    query$ ="SELECT Form = ""Person"" & FirstName=""" + FirstName$ +"""" + " & LastName=""" + LastName$ + """" + " & MiddleInitial=""" + MiddleName$ + """"
    Set Coll = AddressBook.Search(query$, DateTime, 0)
    Set PersonDoc = coll.GetFirstDocument
    If Not (PersonDoc Is Nothing) Then
    Set item = PersonDoc.GetFirstItem( "$File" )
    Call item.CopyItemToDocument(curDoc, "user_idfile" )
    Call curDoc.Save(False, False)
    end if

    Система пишет, что нельзя так делать)
     
  2. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    NeoSimvolist
    1. curDoc --- определен?
    2. зачем копировать? нужно убивать ид в АК. Так что лутше иначе делать например:

    копировать документ но на принимающей стороне принимать только некоторие значения документаАК, поле с ид файлом + имя ну и еще пару полей. плюс удалять ид из АК
    Код (LotusScript):
    Set item = CurrentDoc.GetFirstItem("DocContainer") ' ТИП ПОЛЯ РИЧ-ТЕКСТ
    If Not item Is Nothing Then
    Set docdst = CurrentDoc.CopyToDatabase( dbdst )
    docdst.form = "moveddoc"
    Call docdst.save(True, True)
    If Not(Isempty(item.EmbeddedObjects)) Then
    Forall ob In item.EmbeddedObjects
    If ob.Type = EMBED_ATTACHMENT Then
    Call ob.Remove
    End If
    End Forall
    End If             
    End If
    call CurrentDoc.Save(true, true)
     
  3. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    Копировать надо RT-итем, который вложение держит, а не файл.
    А вообще, то какова суть задачи? Воруешь ай-дишки?!!
     
  4. NeoSimvolist

    NeoSimvolist Гость

    Мне нужно просто перенести ID в поле типа RichText в другом документе. Как это сделать?
     
Загрузка...

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