// При записи основного регистра написать и в вторичный регистр
//
Процедура ПриЗаписиОсновногоРегистраПриЗаписи(Источник, Отказ, РежимЗаписи) Экспорт
	РежимЗаписи = Истина;
	Для Каждого Запись Из Источник Цикл
		// регистр Вторичный 
        ВторичныйНабор = РегистрыБухгалтерии.Вторичный.СоздатьНаборЗаписей();
    	ВторичныйНабор.Отбор.Регистратор.Установить(Запись.Регистратор);
	    ВторичныйНабор.Прочитать();
		
		Движение = ВторичныйНабор.Добавить();
		Движение.СчетДт = Запись.СчетДт;
		Движение.СчетКт = Запись.СчетКт;
		Движение.СубконтоДт[ 0 ] = Запись.СубконтоДт[ 0 ];
		Движение.СубконтоКт[ 0 ] = Запись.СубконтоКт[ 0 ];
		Движение.Период = Запись.Период;
		Движение.Сумма = Запись.Сумма;
		Движение.ВалютаДт = Запись.ВалютаДт;
		Движение.ВалютаКт = Запись.ВалютаКт;
		Движение.ВалютнаяCуммаДт = Запись.ВалютнаяСуммаДт;
		Движение.ВалютнаяCуммаКт = Запись.ВалютнаяСуммаКт;
		Движение.КоличествоДт = Запись.КоличествоДт;
		Движение.КоличествоКт = Запись.КоличествоКт;
		Движение.Активность = Истина;
		
    	ВторичныйНабор.Записать(Ложь);
	КонецЦикла;