A
azat20
Дорый день!
Нужно копировать с одного документа в другой аттачи. Из ричтекста в ричтекст. Тут маленький кусок кода,а именно копирование.Itemkuda - RT в документе-приемнике.
Внимание!Проблема
После прохождения процедуры, вижу, что в доке-приемнике создано столько полей limcard_lastedit, сколько приаттачилось файлов. А мне нужно чтобы все в одно поле копировалось!
И еще вопрос.Почему аттачи добавляются не подряд в одну строку,как мне надо,а на следующую строку. Перевод на другую строку я делаю AddLine. Хотя иногда для разных доков работает корректно
[codebox]
Set itemkuda = doc.GetFirstItem("limcard_lastedit")
o1.ExtractFile(Environ("Temp") & "\" & o1.Name)
Call itemkuda.EmbedObject(EMBED_ATTACHMENT, "", Environ("Temp") & "\" & o1.Name)
Kill Environ("Temp") & "\" & o1.Name
Call itemkuda.Update
pardoc.contr_buh=Now() & " " & sess.CommonUserName
Call pardoc.Save(True,False)
[/codebox]
Нужно копировать с одного документа в другой аттачи. Из ричтекста в ричтекст. Тут маленький кусок кода,а именно копирование.Itemkuda - RT в документе-приемнике.
Внимание!Проблема
После прохождения процедуры, вижу, что в доке-приемнике создано столько полей limcard_lastedit, сколько приаттачилось файлов. А мне нужно чтобы все в одно поле копировалось!
И еще вопрос.Почему аттачи добавляются не подряд в одну строку,как мне надо,а на следующую строку. Перевод на другую строку я делаю AddLine. Хотя иногда для разных доков работает корректно
[codebox]
Set itemkuda = doc.GetFirstItem("limcard_lastedit")
o1.ExtractFile(Environ("Temp") & "\" & o1.Name)
Call itemkuda.EmbedObject(EMBED_ATTACHMENT, "", Environ("Temp") & "\" & o1.Name)
Kill Environ("Temp") & "\" & o1.Name
Call itemkuda.Update
pardoc.contr_buh=Now() & " " & sess.CommonUserName
Call pardoc.Save(True,False)
[/codebox]