---

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