НаборЗаписейЦены = Движения.ЦеныНоменклатуры;
НаборЗаписейЦены.Записывать=Истина;
Для Каждого СтрокаНоменклатуры из Товары Цикл
ЗаписьЦены=НаборЗаписейЦены.Добавить();
ЗаписьЦены.ТипЦен=Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000001");//Розничные
ЗаписьЦены.Номенклатура=СтрокаНоменклатуры.Номенклатура;
ЗаписьЦены.Валюта=Константы.ВалютаРегламентированногоУчета.Получить();
ЗаписьЦены.Цена=СтрокаНоменклатуры.ЦенаВРознице;
ЗаписьЦены.ЕдиницаИзмерения=СтрокаНоменклатуры.ЕдиницаИзмерения;
ЗаписьЦены.Период=Дата;
КонецЦикла;
Если они в один день та же номенклатура поступала, даёт ошибку. Как сделать, чтобы новое движение просто заменяло старое без выдачи ошибки?
Сделал в итоге проверку. Топорно, медленно, но пойдёт:
ВыборкаЦенПоНоменклатуре=РегистрыСведений.ЦеныНоменклатуры.Выбрать(НачалоДня(Дата),КонецДня(Дата),Новый Структура("Номенклатура",СтрокаТовары.Номенклатура));
Если НЕ ВыборкаЦенПоНоменклатуре.Следующий() Тогда
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс