может пригодится кому
"Универсальный подбор и обработка объектов" вставить произвольный алгоритм
Код |
---|
Если НЕ Объект.ЭтоГруппа Тогда
ВидИспользованияАвтоработы = Перечисления.ВидыИспользованияАвторабот.ПланированиеИПроизводство;
СвойствоВидИспользования = ПланыВидовХарактеристик.СвойстваОбъектов.ВидИспользованияАвтоработы;
ВидИспользованияЗначениеСвойства = обПолучитьЗначениеСвойства(Объект.Ссылка,СвойствоВидИспользования,Перечисления.ВидыИспользованияРабочихМест.НеУчаствуетВПланировании);
Если ВидИспользованияАвтоработы <> ВидИспользованияЗначениеСвойства Тогда
X НаборЗаписейЗначенияСвойствОбъектов = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();
X НаборЗаписейЗначенияСвойствОбъектов.Отбор.Объект.Значение = Объект.Ссылка;
X НаборЗаписейЗначенияСвойствОбъектов.Отбор.Объект.Использование = Истина;
X НаборЗаписейЗначенияСвойствОбъектов.Отбор.Свойство.Значение = СвойствоВидИспользования;
X НаборЗаписейЗначенияСвойствОбъектов.Отбор.Свойство.Использование = Истина;
X НаборЗаписейЗначенияСвойствОбъектов.Прочитать();
X НаборЗаписейЗначенияСвойствОбъектов.Очистить();
X Если НЕ ВидИспользованияАвтоработы.Пустая()
X И ВидИспользованияАвтоработы <> Перечисления.ВидыИспользованияАвторабот.Производство Тогда
X НоваяЗапись = НаборЗаписейЗначенияСвойствОбъектов.Добавить();
X НоваяЗапись.Объект = Объект.Ссылка;
X НоваяЗапись.Свойство = СвойствоВидИспользования;
X НоваяЗапись.Значение = ВидИспользованияАвтоработы;
X КонецЕсли;
X Попытка
X НаборЗаписейЗначенияСвойствОбъектов.Записать();
X Исключение
X Сообщить("Не удалось записать значение свойства " + Строка(СвойствоВидИспользования) + " для " + Строка(Объект), СтатусСообщения.Важное);
X КонецПопытки;
КонецЕсли;
КонецЕсли;
|
тогда в планировании времени сервиса можно будет добавлять автоработы