Advertisement
Yaguar

Untitled

May 24th, 2018
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.05 KB | None | 0 0
  1. Для каждого Строка Из МсПолученныхДок Цикл
  2. Инфострокой = Неопределено;
  3. Попытка
  4. Инфострокой = ЗначениеИзСтрокиВнутр(Строка.Info);
  5. Док1С = Инфострокой.Документ1С;
  6. Исключение
  7. КонецПопытки;
  8. Если ЗначениеЗаполнено(Док1С) Тогда
  9. ТекстXML_родители = "<Document><ParentGUID>"+Строка.docid+"</ParentGUID>";
  10. //ТекстXML_родители = ТекстXML_родители +"<RelationGUID>"+МсПолученныхДок[0].docid+"</RelationGUID>";
  11. ТекстXML_родители = ТекстXML_родители+"</Document>";
  12.  
  13. ExCon.DeleteDocumentFromTabDocRelations(врДок.DocId, Null);
  14. РезОК = ExCon.AddDocumentToDocRelations(врДок.DocId,"RECADV",ТекстXML_родители);
  15. Прервать;
  16. КонецЕсли;
  17. КонецЦикла;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement