---

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