|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
//проуедура всем контрагентам мозжает подчиненный докогвор "Дополнительный" Спр=СоздатьОбъект("Справочник.Контрагенты"); Попытка дог=СоздатьОбъект("Справочник.Договоры"); исключение Предупреждение("В конфигурации нет справочника ДОГОВОРЫ"); возврат; конецПопытки; Спр.ВыбратьЭлементы();//перебираем справочник-владелец Пока спр.ПолучитьЭлемент()=1 Цикл Если спр.ЭтоГруппа()=1 Тогда продолжить;//группы не могут имет подчиненных элементов КонецЕсли; дог.ИспользоватьВладельца(спр.ТекущийЭлемент()); дог.Новый(); Дог.наименование="Дополнительный"; дог.записать();//это часто забывают написать конецЦикла; |
About the Author
