HelpF.pro

Создать всем подчиненный элемент справочника

Код 1C v 7.x
  //проуедура всем контрагентам мозжает подчиненный докогвор "Дополнительный"
Спр=СоздатьОбъект("Справочник.Контрагенты");
Попытка
дог=СоздатьОбъект("Справочник.Договоры");
исключение
Предупреждение("В конфигурации нет справочника ДОГОВОРЫ");
возврат;
конецПопытки;
Спр.ВыбратьЭлементы();//перебираем справочник-владелец
Пока спр.ПолучитьЭлемент()=1 Цикл
Если спр.ЭтоГруппа()=1 Тогда
продолжить;//группы не могут имет подчиненных элементов
КонецЕсли;
дог.ИспользоватьВладельца(спр.ТекущийЭлемент());
дог.Новый();
Дог.наименование="Дополнительный";
дог.записать();//это часто забывают написать
конецЦикла;

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/312.html