Имя: Пароль:
1C
1С v8
Программная установка цен номенклатуры
,
0 Noobik1C
 
07.07.15
21:31
Добрый вечер, форумчане. Подскажите пож. как для номенклатуры добавить характеристики, а то пытаюсь провести документ он ругается: Для номенклатуры "Панама синий CLACCA E17 20470/5" в строке "1" списка "Таблица цен" включено использование характеристик,
Но ни одной характеристики не указано. Добавьте характеристики и укажите их цены или удалите данную номенклатуру из списка.
Вот вопрос как добавить программно эти самые характеристики, а то нет движений в регистре?
Вот код:

    ДокУстановкаЦен = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
    ДокУстановкаЦен.Дата = ТекущаяДата();
    ДокУстановкаЦен.Ответственный = ПараметрыСеанса.ТекущийПользователь;
    ДокУстановкаЦен.Статус        = Перечисления.СтатусыУстановокЦенНоменклатуры.Согласован;
    
    ДокУстановкаЦен.ВидыЦен.Очистить();
    НоваяСтрока             = ДокУстановкаЦен.ВидыЦен.Добавить();
    НоваяСтрока.ВидЦены     = Справочники.ВидыЦен.НайтиПоНаименованию("Роздрібні");
    Для Каждого Строка из ТаблицаЦенНоменклатуры Цикл
        НоваяСтрока = ДокУстановкаЦен.Товары.Добавить();
        НоваяСтрока.Номенклатура    = Строка.Номенклатура;
        НоваяСтрока.ВидЦены        = Справочники.ВидыЦен.НайтиПоНаименованию("Роздрібні");
        НоваяСтрока.Цена        = Строка.Цена;
    КонецЦикла;
    ДокУстановкаЦен.Товары.Свернуть("Номенклатура, ВидЦены, Цена");    
    ДокУстановкаЦен.УстановитьНовыйНомер();
    
    Попытка
        ДокУстановкаЦен.Записать(РежимЗаписиДокумента.Проведение);
    Исключение
        ДокУстановкаЦен.Записать();
    КонецПопытки;

1 Волшебник
 
модератор
07.07.15
21:33
НоваяСтрока.ХарактеристикаНоменклатуры = Характеристика;