Помогите найти или написать обработку для перемещения номенклатуры с одной группы в другую
Внимание! Тема закрыта. Добавлять сообщения в закрытую тему запрещено.
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1) nurligaianov, на диске ИТС в папке \1CIts\EXE\EXTREPS\UNIPROCS\ есть утилита UChoice.ert - групповая обработка справочников и документов. Надо переписать оттуда к себе все файлы, начинающиеся на UC
Запускаешь UChoice.ert, выбираешь справочник Номенклатура, на вкладке Отбор выбираешь старую группу(родитель) и нажимаешь "Найти элементы", покажет переносимый список, можно снять с некоторых элементов галки, если их не надо переносить.
Выполняемое действие "Установка реквизитов", и ОК. Потом выбираем новую группу и Выполнить.
Потренируйся сначала на копии.
Запускаешь UChoice.ert, выбираешь справочник Номенклатура, на вкладке Отбор выбираешь старую группу(родитель) и нажимаешь "Найти элементы", покажет переносимый список, можно снять с некоторых элементов галки, если их не надо переносить.
Выполняемое действие "Установка реквизитов", и ОК. Потом выбираем новую группу и Выполнить.
Потренируйся сначала на копии.
Как то так
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрГрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрГрСотр.НайтиПоНаименованию("НаименованиеГр");
НайденныйГрСотр = СпрГрСотр.ТекущийЭлемент();
Если СпрСотр.НайтиПоНаименованию("Наименование")=1 Тогда
НайденныйСотр = СпрСотр.ТекущийЭлемент();
НайденныйСотр.Родитель = НайдРодитель;
НайденныйСотр.Записать();
КонецЕсли;
СпрГрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрГрСотр.НайтиПоНаименованию("НаименованиеГр");
НайденныйГрСотр = СпрГрСотр.ТекущийЭлемент();
Если СпрСотр.НайтиПоНаименованию("Наименование")=1 Тогда
НайденныйСотр = СпрСотр.ТекущийЭлемент();
НайденныйСотр.Родитель = НайдРодитель;
НайденныйСотр.Записать();
КонецЕсли;
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот