Программное заполнение документа "Установка цен номенклатуры" в УПП

1С v8

13.08.12

✎

03:35

Доброго времени суток!
Установка цен номенклатуры заполняется из регистра накопления ПартииТоваровНаСкладе.
ниже код обработки:


 
Дата = '20120101'; 
 
ДокументОбъект = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
 
ДокументОбъект.Дата = ТекущаяДата();
 

 
Запрос = Новый Запрос;
 
Запрос.УстановитьПараметр("Дата", Дата);
 
Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
 
               |    ПартииТоваровНаСкладах.Период,
 
               |    ПартииТоваровНаСкладах.Регистратор,
 
               |    ПартииТоваровНаСкладах.НомерСтроки,
 
               |    ПартииТоваровНаСкладах.Активность,
 
               |    ПартииТоваровНаСкладах.ВидДвижения,
 
               |    ПартииТоваровНаСкладах.Номенклатура,
 
               |    ПартииТоваровНаСкладах.Склад,
 
               |    ПартииТоваровНаСкладах.ХарактеристикаНоменклатуры,
 
               |    ПартииТоваровНаСкладах.СерияНоменклатуры,
 
               |    ПартииТоваровНаСкладах.ДокументОприходования,
 
               |    ПартииТоваровНаСкладах.СтатусПартии,
 
               |    ПартииТоваровНаСкладах.Заказ,
 
               |    ПартииТоваровНаСкладах.Качество,
 
               |    ПартииТоваровНаСкладах.Организация,
 
               |    ПартииТоваровНаСкладах.Количество,
 
               |    ПартииТоваровНаСкладах.Стоимость,
 
               |    ПартииТоваровНаСкладах.КодОперации,
 
               |    ПартииТоваровНаСкладах.СписаниеПартий,
 
               |    ПартииТоваровНаСкладах.НомерКорСтроки,
 
               |    ПартииТоваровНаСкладах.ДокументДвижения,
 
               |    ПартииТоваровНаСкладах.ДокументДвиженияПериод,
 
               |    ПартииТоваровНаСкладах.НомерСтрокиСписанныхТоваров
 
               |ИЗ
 
               |    РегистрНакопления.ПартииТоваровНаСкладах КАК ПартииТоваровНаСкладах
 
               |ГДЕ
 
               |    ПартииТоваровНаСкладах.Период <= &Дата";
 
Выборка = Запрос.Выполнить().Выбрать();
 

 

 

 
НовТипЦен = ДокументОбъект.ТипыЦен.Добавить();
 
НовТипЦен.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("00000000002");
 
//тчТовары = ДокументОбъект["Товары"];
 
Пока Выборка.Следующий() Цикл;
 
    Если Выборка.Количество > 1 Тогда
 
Цена = Выборка.Стоимость/Выборка.Количество;    
 
Иначе
 
Цена = Выборка.Стоимость;
 
КонецЕсли;
 
    Если Цена = 1 Тогда
 
Продолжить;
 
КонецЕсли;
 
Объект = ДокументОбъект.Товары.Добавить();
 
                             Объект.Номенклатура = Выборка.Номенклатура;
 
Объект.Валюта       = Справочники.Валюты.НайтиПоКоду("643");
 
 Объект.ЕдиницаИзмерения = Выборка.Номенклатура.ЕдиницаХраненияОстатков;
 
ТипЦены = Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000002"); 
 
Объект.ТипЦен       = ТипЦены;
 
Объект["Цена"] = Цена;
 
Объект["СпособРасчетаЦены"] = Перечисления.СпособыРасчетаЦены.ПоВхождениюБазовойЦеныВДиапазон;
 
КонецЦикла;
 
ДокументОбъект.Товары.Свернуть("Номенклатура", "");
 
     ДокументОбъект.Записать(РежимЗаписиДокумента.Проведение);

При выполнении выходит сообщение:
{ВнешняяОбработка.ЗаполнениеЦенКонтрагентов.МодульОбъекта(63)}: Ошибка при вызове метода контекста (Записать)
по причине:
{ВнешняяОбработка.ЗаполнениеЦен.МодульОбъекта(63)}: Ошибка при вызове метода контекста (Записать)

по причине:

по причине:
Ошибка при выполнении обработчика - 'ОбработкаПроведения'
по причине:
{Документ.УстановкаЦенНоменклатуры.МодульОбъекта(293)}: Преобразование значения к типу Булево не может быть выполнено

{ВнешняяОбработка.ЗаполнениеЦен.МодульОбъекта(63)}: Ошибка при вызове метода контекста (Записать)
ДокументОбъект.Записать(РежимЗаписиДокумента.Проведение);
{Документ.УстановкаЦенНоменклатуры.МодульОбъекта(293)}: Преобразование значения к типу Булево не может быть выполнено
Если НЕ ЗначениеЗаполнено(СтрокаТаблицы.СпособРасчетаЦены)

Что не так?

1 France

13.08.12

✎