здравствуйте !

Внимание! Данный форум является модерируемым.
Для получения к нему доступа необходимо зарегистрироваться или авторизоваться на сайте.

Страницы: 1
RSS
здравствуйте !
 
Подскажите как в справочнике автоработы поменять у всех сразу применение автоработы ?
Это не реквизит и не данные объекта, не могу добраться до этого перечисления.
 
Добрый день.
Данное значение хранится в регистре сведений ЗначенияСвойствОбъектов.
 
что то не могу понять (

делаю запрос ( скрин )

потом пытаюсь выгрузить

Процедура КнопкаВыполнитьНажатие(Кнопка)

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Автоработы.Наименование,
| ВидыИспользованияАвторабот.Ссылка
|ИЗ
| Справочник.Автоработы КАК Автоработы,
| Перечисление.ВидыИспользованияАвторабот КАК ВидыИспользованияАвторабот";

//Результат = Запрос.Выполнить();
ТР = Запрос.Выгрузить();


КонецПроцедуры

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


тогда в планировании времени сервиса можно будет добавлять автоработы :)
Страницы: 1
Читают тему
Поддержка отраслевых решений «1С-Рарус»
Услуги 1С