Почему самописный документ не записывает данные в регистр бухгалтерии?

Движения.ЖурналПроводокЕПСБУ.Записывать = Истина;
	Для Каждого ТекСтрокаКапВложенияДляОтражения Из КапВложенияДляОтражения Цикл
		Если ТекСтрокаКапВложенияДляОтражения.ВключитьВСтоимостьМЗ Тогда
			РезультатСРН = ПолучимДанныеИзРегистраНОтложенныйНДС(ТекСтрокаКапВложенияДляОтражения.КапВложение);
			Если РезультатСРН.Количество() > 0 Тогда 
				Проводка  			  = Движения.ЖурналПроводокЕПСБУ.Добавить();
				Проводка.Регистратор  = ЭтотОбъект.Ссылка;
				Проводка.Период       = Дата;
				Проводка.ЖурналОпераций = Справочники.Журналы.НайтиПоКоду("4");
				Проводка.Организация  = ЭтотОбъект.Организация;
				Проводка.ИФО 		  = Справочники.ИсточникиФинансовогоОбеспечения.НайтиПоНаименованию("Внебюджет");
				Проводка.КФО		  = РезультатСРН.КФО;
				Проводка.СчетКт	 	  = ПланыСчетов.ЕПСБУ.НайтиПоКоду("210.Р2");
				Проводка.КПСКт  	  = РезультатСРН.КПСРасчетов;
				Проводка.СубконтоКт.Контрагенты = РезультатСРН.Контрагент;
				Проводка.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.СФПолученные] = РезультатСРН.Регистратор;
				Проводка.КЭККт 		  =  Справочники.КОСГУ.НайтиПоКоду("561");
				Проводка.СчетДт 	  =  ПланыСчетов.ЕПСБУ.НайтиПоКоду("106.3П");
				Проводка.КПСДт 		  = РезультатСРН.КПСРасчетов;
				Проводка.СубконтоДт.Номенклатура = ТекСтрокаКапВложенияДляОтражения.КапВложение;
				Проводка.СубконтоДт.ЦМО = РезультатСРН.ЦМО;
				Проводка.СубконтоДт.ВидыЗатрат = Справочники.ВидыЗатрат.НайтиПоНаименованию("Кап.вложения");
				Проводка.КЭКДт 		  =  РезультатСРН.КЭК;
				Проводка.КоличествоДт = ТекСтрокаКапВложенияДляОтражения.Количество;
                Проводка.Сумма        = РезультатСРН.СуммаНДСОстаток;
			Иначе
				Сообщить("По кап вложению " + ТекСтрокаКапВложенияДляОтражения.КапВложение.Наименование + " нет данных в регистре накопления ""Отложенный НДС""! Операция прервана!");
				Отказ = Истина;
				
			КонецЕсли;
		
		ИначеЕсли ЗначениеЗаполнено(ТекСтрокаКапВложенияДляОтражения.Счет210_Н2) Тогда
			
		ИначеЕсли ЗначениеЗаполнено(ТекСтрокаКапВложенияДляОтражения.Счет210_Р2) Тогда
			
		КонецЕсли;
		
	КонецЦикла;
	
	Если Движения.ЖурналПроводокЕПСБУ.Количество() = КоличествоВТЧ Тогда
		Попытка
			Движения.ЖурналПроводокЕПСБУ.Записать();
		Исключение
			Сообщить("Есть ошибка " + ОписаниеОшибки());
		КонецПопытки;
	КонецЕсли;