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

  • Автор темы NeoSimvolist
  • Дата начала
N

NeoSimvolist

Гость
#1
Я пробовал следующим образом

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

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

Cleric-Lviv

Well-Known Member
Lotus team
03.01.2008
600
0
#2
NeoSimvolist
1. curDoc --- определен?
2. зачем копировать? нужно убивать ид в АК. Так что лутше иначе делать например:

копировать документ но на принимающей стороне принимать только некоторие значения документаАК, поле с ид файлом + имя ну и еще пару полей. плюс удалять ид из АК
Код:
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)
 
N

NeoSimvolist

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