Имя: Пароль:
1C
1С v8
При Назначении Цены Товара в 1с83 Розница 2.2 программно не видит Цену Товара
0 VBMADD
 
15.06.18
22:50
Привет братьям по разуму.

Создаю программно Документ Установка Цен Номенклатуры
Документ создается и проводится, т.е. Цену вроде бы назначил,
Но затем при Заполнении Чека в РМК Выдает сообщение что Цена не назначена.
Куда копать подскажите плиз.

Спасибо огромное всем кто откликнулся.

Вот такой у меня Код

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

    ВидЦеныПрод = Справочники.ВидыЦен.НайтиПоНаименованию("Розничная");
    ТабЧастьВидЦены = ДокЦена.ВидыЦен.Добавить();
    ТабЧастьВидЦены.ВидЦены=ВидЦеныПрод;
        
    НоваяСтрока.ВидЦены=ВидЦеныПрод;
    НоваяСтрока.Цена=200;

//ДокЦена.Записать(РежимЗаписиДокумента.Запись);    
ДокЦена.Записать(РежимЗаписиДокумента.Проведение);
1 VBMADD
 
15.06.18
23:21
В настройках указал
Закупочная - Способ задания цены - Задавать вручную
Розничная -  Способ задания цены - Задавать вручную

Может ли это повлиять на то что Выдается сообщение, что Цена на товар не назначена
2 tabarigen
 
16.06.18
10:49
&НаСервере
Функция СоздатьУстановкуЦенНоменклатуры(ИдентификаторКоманды, ОбъектДок, ВидЦены, Результат)
    
    ДокСсылка = ОбъектДок.Ссылка;
    
    Если ОбъектДок.Товары.Количество() > 0 Тогда
        
        Установка = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
        Установка.Дата = ОбъектДок.Дата;
        Установка.Ответственный = Пользователи.ТекущийПользователь();
        Установка.Комментарий = "Документ создан автоматически на основании ввода остатков";
        Установка.Согласован = Истина;
        //Установка.Статус = ПредопределенноеЗначение("Перечисление.СтатусыУстановокЦенНоменклатуры.Согласован");
                                            
        НоваяСтрокаВидЦены = Установка.ВидыЦен.Добавить();
        НоваяСтрокаВидЦены.ВидЦены = ВидЦены;
        
        ТаблицаТоваров = ОбъектДок.Товары.Выгрузить();
        Для Каждого СтрокаТЧ из ТаблицаТоваров Цикл
            НоваяСтрокаУстановка = Установка.Товары.Добавить();
            НоваяСтрокаУстановка.Номенклатура = СтрокаТЧ.Номенклатура;
            НоваяСтрокаУстановка.ВидЦены = ВидЦены;
            НоваяСтрокаУстановка.Цена = СтрокаТЧ.Цена;
            НоваяСтрокаУстановка.Характеристика = СтрокаТЧ.Характеристика;
        КонецЦикла;    
            //ТаблицаТоваров.Колонки.Добавить("ВидЦены");
            //ТаблицаТоваров.Колонки.Добавить("УТР_Серия");
            //ТаблицаТоваров.ЗаполнитьЗначения(ВидЦены, "ВидЦены");
            //Установка.Товары.Загрузить(ТаблицаТоваров);        
        
        Попытка
            Установка.Записать(РежимЗаписиДокумента.Проведение);
        Исключение
            Сообщение = Новый СообщениеПользователю;
            Сообщение.Текст = ОписаниеОшибки();
            Сообщение.Сообщить();
            Установка.Записать();
        КонецПопытки;
        Результат = ПолучитьНавигационнуюСсылку(Установка);
        
    КонецЕсли;
            
    Возврат Результат;
    
КонецФункции
3 tabarigen
 
16.06.18
10:49
у меня код выше прекрасно работает. недавно писал для Розницы Аптеки 2
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс