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

[Cleric84]

Всем привет.
ступор напал, незнаю как побороть

вобщем вопрос таков:
есть на кверисейв кодик, которий помогает делать, версийность документа, должен старий документ бросать в архив. делать ето он умеет но вот незадача что если в поле есть более 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]

Set docdst = CopyDoc.CopyToDatabase( dbdst )
не делать это в цикле
да и ваще смысл цикла мне не ясен (в данном контексте)

 

[Cleric84]

lmike


кажется понял........щас попробую.....