Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Для каждого Строка Из МсПолученныхДок Цикл
- Инфострокой = Неопределено;
- Попытка
- Инфострокой = ЗначениеИзСтрокиВнутр(Строка.Info);
- Док1С = Инфострокой.Документ1С;
- Исключение
- КонецПопытки;
- Если ЗначениеЗаполнено(Док1С) Тогда
- ТекстXML_родители = "<Document><ParentGUID>"+Строка.docid+"</ParentGUID>";
- //ТекстXML_родители = ТекстXML_родители +"<RelationGUID>"+МсПолученныхДок[0].docid+"</RelationGUID>";
- ТекстXML_родители = ТекстXML_родители+"</Document>";
- ExCon.DeleteDocumentFromTabDocRelations(врДок.DocId, Null);
- РезОК = ExCon.AddDocumentToDocRelations(врДок.DocId,"RECADV",ТекстXML_родители);
- Прервать;
- КонецЕсли;
- КонецЦикла;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement