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