Рич-текст поле + атачменти

Cleric-Lviv

Well-Known Member
Lotus team
03.01.2008
600
0
#1
Всем привет.
ступор напал, незнаю как побороть:)

вобщем вопрос таков:
есть на кверисейв кодик, которий помогает делать, версийность документа, должен старий документ бросать в архив. делать ето он умеет но вот незадача что если в поле есть более 1 атачмента, то в архиве есть 2 и больше документов.....как ето побороть...???
Код:
Set itemcd = CopyDoc.GetFirstItem("DocContainer")		
If Not itemcd Is Nothing Then
If ( itemcd.Type = RICHTEXT ) Then
If Not(Isempty(itemcd.EmbeddedObjects)) Then
Forall ob In itemcd.EmbeddedObjects							
If ob.Type = EMBED_ATTACHMENT Then
Set docdst = CopyDoc.CopyToDatabase( dbdst )
docdst.form = "moveddoc"
Call docdst.save(True, True)
Call CopyDoc.ReplaceItemValue("Archive", 1)
Call CopyDoc.ReplaceItemValue("form", "archdoc")
Set dccopdoc = CopyDoc.Responses
'	Msgbox dccopdoc.Count
Call ob.Remove
Call itemcd.AppendDocLink(docdst, "")
End If
End Forall
End If
End If
End If
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 483
360
#2
Set docdst = CopyDoc.CopyToDatabase( dbdst )
не делать это в цикле
да и ваще смысл цикла мне не ясен (в данном контексте)