Cleric-Lviv
Well-known member
Всем привет.
ступор напал, незнаю как побороть
вобщем вопрос таков:
есть на кверисейв кодик, которий помогает делать, версийность документа, должен старий документ бросать в архив. делать ето он умеет но вот незадача что если в поле есть более 1 атачмента, то в архиве есть 2 и больше документов.....как ето побороть...???
ступор напал, незнаю как побороть
вобщем вопрос таков:
есть на кверисейв кодик, которий помогает делать, версийность документа, должен старий документ бросать в архив. делать ето он умеет но вот незадача что если в поле есть более 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