в конфигураторе - поступление товаров- диалог поступление товаров в табличной части добавили дополнительную кнопку "Установка цен". в модуле прописали следующее
Процедура УстановкаЗакупа()
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
СпрЦены = СоздатьОбъект("Справочник.Цены");
СпрЦены.ИспользоватьВладельца(Товар);
Если СпрЦены.НайтиПоРеквизиту("ТипЦен",ТипЦен,0) = 1 Тогда
Если СпрЦены.Цена.Получить(ДатаДок)<>Цена Тогда
СпрЦены.Цена.Установить(ДатаДок,Цена);
КонецЕсли;
Иначе
СпрЦены.Новый();
СпрЦены.ТипЦен = ТипЦен;
СпрЦены.Валюта = ТипЦен.Валюта;
СпрЦены.Владелец = Товар;
СпрЦены.Записать();
КонецЕсли;
КонецЦикла;
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Если РозничнаяЦена = 0 Тогда
Продолжить;
КонецЕсли;
СпрЦены = СоздатьОбъект("Справочник.Цены");
СпрЦены.ИспользоватьВладельца(Товар);
Если СпрЦены.НайтиПоРеквизиту("ТипЦен",Константа.РозничныйТипЦен,0) = 1 Тогда
Если СпрЦены.Цена.Получить(ДатаДок)<>РозничнаяЦена Тогда
СпрЦены.Цена.Установить(ДатаДок,РозничнаяЦена);
КонецЕсли;
Иначе
СпрЦены.Новый();
СпрЦены.ТипЦен = Константа.РозничныйТипЦен;
СпрЦены.Валюта = ТипЦен.Валюта;
СпрЦены.Владелец = Товар;
СпрЦены.Записать();
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Показать
Но когда мы в поступлении товаров забиваем товар ставим розничную цену после нажимаем на кнопку "Установит цену" пишет Если СпрЦены.НайтиПоРеквизиту("ТипЦен",Константа.РозничныйТипЦен,0) = 1 Тогда
{Документ.ПоступлениеТоваров.Форма.Модуль(167)}: Поле агрегатного объекта не обнаружено (РозничныйТипЦен)
Подскажите что сделано не правильно.? Спасибо заранее
