helpf.pro
Регистрация

v8.2 УП: УТ 11, делаю обработку как для обычного приложения УстановкаЦенНоменклатуры

asdfr1
22.02.2013 14:13Прочитано: 1812
в УТ11 включили Характеристики.Теперь в документе УстановкаЦенНоменклатуры не удаётся оставить цену Номенклатуры, она уходит в характеристики
Код 1C v 8.2 УП
 
ТЗ = Запрос.Выполнить().Выгрузить();
ОткрытьЗначение(ТЗ);
Для каждого Строка Из ТЗ Цикл
Объект = Строка.Ссылка.ПолучитьОбъект();
Записать = Истина;
Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения);
КонецЦикла;

Для Каждого ТекущаяСтрока Из Объект.Товары Цикл

СтрокаТаблициТоваров = Объект.Товары.Получить(ТекущаяСтрока.НомерСтроки-1); //+ получили строку

Товарчик=СтрокаТаблициТоваров.Номенклатура; //+ Значение строки
//НоваяЦена=СтрокаТаблициТоваров.Цена; //+ Значение строки

СтрокаНаименования = "1. Автозапчасти"; //+ нашли характеристику в справочнике характеристик
Характеристика=Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(СтрокаНаименования);
//СтрокаТаблициТоваров.Цена=НоваяЦена;

СтрокаТаблициТоваров.Характеристика=Характеристика; //+ установили значение
//СтрокаТаблициТоваров.Цена=НоваяЦена; //+ установили значение

Сообщить(Товарчик);

Записать = Истина;
Объект.Записать(РежимЗаписиДокумента.Запись);

КонецЦикла;
Yandex
Возможно, вас также заинтересует
Реклама на портале
asdfr1
22.02.2013 14:18Ответ № 1
*09 или это в корне не правльно и нужно переписать процедуру ДобавитьХарактеристику(Команда)
Подсказка: Для быстрого перемещения к последнему ответу или к вопросу используйте или .
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.