Добрый день!
Прошу помочь написать код для обработки.
Так получилось, что в части документов в строках выбрана не та единица измерения, которая подчинена номенклатуре этой строки, а единица другой номенклатуры. И если щелкнуть по этой единице, то для выбора открывается нужная правильна единица. Но так как таких документов много, то нужно написать обработку, которая просто по строкам изменяет единицу измерения на ту, которая является подчиненной данной номенклатуре.
Или же в графе Произвольный алгоритм обработки "Универсальный подбор и обработка объектов" нужно написать код.
Помогите, пожалуйста! Я знаю как это написать в 7.7, но не знаю, как написать в 8. По идее должно быть не очень сложно.
Прошу помочь написать код для обработки.
Так получилось, что в части документов в строках выбрана не та единица измерения, которая подчинена номенклатуре этой строки, а единица другой номенклатуры. И если щелкнуть по этой единице, то для выбора открывается нужная правильна единица. Но так как таких документов много, то нужно написать обработку, которая просто по строкам изменяет единицу измерения на ту, которая является подчиненной данной номенклатуре.
Или же в графе Произвольный алгоритм обработки "Универсальный подбор и обработка объектов" нужно написать код.
Помогите, пожалуйста! Я знаю как это написать в 7.7, но не знаю, как написать в 8. По идее должно быть не очень сложно.
Найденные решения
(3) через универсальный подбор и обработку - произвольный алгоритм
Для Каждого СтрокаТЧ Из Объект.Товары Цикл
СтрокаТЧ.ЕдиницаИзмерения = СтрокаТЧ.Номенклатура.ЕдиницаХраненияОстатков
КонецЦикла;
Попытка
Объект.Записать(РежимЗаписиДокумента.Проведение);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;Прикрепленные файлы:
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(3) через универсальный подбор и обработку - произвольный алгоритм
Для Каждого СтрокаТЧ Из Объект.Товары Цикл
СтрокаТЧ.ЕдиницаИзмерения = СтрокаТЧ.Номенклатура.ЕдиницаХраненияОстатков
КонецЦикла;
Попытка
Объект.Записать(РежимЗаписиДокумента.Проведение);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;Прикрепленные файлы:
(5)
Коэффициент единицы проверьте.
Для Каждого СтрокаТЧ Из Объект.Товары Цикл
СтрокаТЧ.ЕдиницаИзмерения = СтрокаТЧ.Номенклатура.ЕдиницаХраненияОстатков;
СтрокаТЧ.Коэффициент= СтрокаТЧ.ЕдиницаИзмерения.Коэффициент;
КонецЦикла;
Попытка
Объект.Записать(РежимЗаписиДокумента.Проведение);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
СтрокаТЧ.ЕдиницаИзмерения = СтрокаТЧ.Номенклатура.ЕдиницаХраненияОстатков;
СтрокаТЧ.Коэффициент= СтрокаТЧ.ЕдиницаИзмерения.Коэффициент;
КонецЦикла;
Попытка
Объект.Записать(РежимЗаписиДокумента.Проведение);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Коэффициент единицы проверьте.
Для Каждого Док Из Выборка Цикл
ДокОбъект = Док.ПолучитьОбъект();
Для Каждого Строка Из ДокОбъект.Товары Цикл
Если строка.Единица.Владелец <> Строка.Номенклатура Тогда
Строка.Единица = НайтиЕдиницу();
КонецЕсли;
КонецЦикла;
ДокОбъект.Записать();
КонецЦикла;
Показатьзаодно можно и узнать что-то о синаксисе 8, т.к. с 7.7 трудновато уже заработать что-то осмысленное.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот