После обновления до УТ 11.5.7.402 перестала работать обработка
После обновления перестала работать обработка. Нет доступа к текущим данным документа.
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначения, ПараметрыКоманды) Экспорт
Если ИдентификаторКоманды = "Заполнить" Тогда
Перезаполнить(ПараметрыКоманды.ЭтаФорма);
КонецЕсли;
КонецПроцедуры
Процедура Перезаполнить(Форма)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СтавкиТоваровОрганизациям.Номенклатура КАК Номенклатура,
| СтавкиТоваровОрганизациям.Ставки КАК Ставки
|ИЗ
| РегистрСведений.СтавкиТоваровОрганизациям КАК СтавкиТоваровОрганизациям";
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Для каждого ТекущаяСтрока из Форма.Объект.Товары Цикл
Если ТекущаяСтрока.Номенклатура = Выборка.Номенклатура Тогда
ТекущаяСтрока.Ставки = Выборка.Ставки;
КонецЕсли;
КонецЦикла ;
КонецЦикла;
Форма.Модифицированность = Истина;
КонецПроцедуры
ПоказатьОтветы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот