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

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

            КонецЕсли;

        ИначеЕсли ЗначениеЗаполнено(ТекСтрокаКапВложенияДляОтражения.Счет210_Н2) Тогда

        ИначеЕсли ЗначениеЗаполнено(ТекСтрокаКапВложенияДляОтражения.Счет210_Р2) Тогда

        КонецЕсли;

    КонецЦикла;

    Если Движения.ЖурналПроводокЕПСБУ.Количество() = КоличествоВТЧ Тогда
        Попытка
            Движения.ЖурналПроводокЕПСБУ.Записать();
        Исключение
            Сообщить("Есть ошибка " + ОписаниеОшибки());
        КонецПопытки;
    КонецЕсли;