Как правильно сформировать отражение НДС к вычету на основе счет фактуры ?

[Swini]

НовДок = Документы.КорректировкаРеализации.СоздатьДокумент();
НовДок.Дата=Дт;
НовДок.СопроводительныеДокументы=   НомерД+" от " +ДопДата;
НовДок.ВидОперации=  Перечисления.ВидыОперацийИсправленияПоступленияРеализации.СогласованноеИзменение;
НовДок.ДокументРеализации =Выборка.Ссылка;
НовДок.Комментарий="55555555";
НовДок.ИсправляемыйДокументРеализации=ДокументРеализацияТовара;
НовДок.КорректироватьБУиНУ=Истина;
НовДок.Ответственный= ПользователиИнформационнойБазы.ТекущийПользователь();
НовДок.ДоговорКонтрагента=ДокументРеализацияТовара.ДоговорКонтрагента;
НовДок.КорректироватьНДС= Истина;
НовДок.ПризнаватьЗачитыватьАванс=Истина;
Документы.КорректировкаРеализации.ЗаполнитьПоДокументу(НовДок);
                        
Попытка
НовДок.Записать(РежимЗаписиДокумента.Запись);
Исключение
ЛогСообщить(ОписаниеОшибки());
КонецПопытки;


СчетФактураКорректировки=Документы.СчетФактураВыданный.СоздатьДокументНаОсновании(НовДок.Ссылка);
                 почему то не доступно к изменению поле номер

Попытка
СчетФактураКорректировки.Записать(РежимЗаписиДокумента.Запись);
Исключение
ЛогСообщить(ОписаниеОшибки());
КонецПопытки;



ОтражениеНДС=Документы.ОтражениеНДСКВычету.СоздатьДокумент();
ОтражениеНДС.РасчетныйДокумент =СчетФактураКорректировки;
ОтражениеНДС.ПрямаяЗаписьВКнигу=Истина;
ОтражениеНДС.ФормироватьПроводки=Истина;
ОтражениеНДС.ИспользоватьДокументРасчетовКакСчетФактуру=Истина;
ОтражениеНДС.Контрагент= НовДок.Контрагент;

         в отражении НДС не изменить договор - поле не активно   и не провести документ.

ОтражениеНДС.ДоговорКонтрагента =НовДок.ДоговорКонтрагента.Ссылка;
ОтражениеНДС.ВалютаДокумента = НовДок.ВалютаДокумента;
ОтражениеНДС.Ответственный=ПользователиИнформационнойБазы.ТекущийПользователь();

СчетУчета=ПланыСчетов.Хозрасчетный.НайтиПоРеквизиту("КодБыстрогоВыбора","1909");
ОтражениеНДС.СчетУчетаРасчетовСКонтрагентом=  СчетУчета;
ОтражениеНДС.Дата =Дт;
                        
ОтражениеТаблица=ОтражениеНДС.ТоварыИУслуги.Добавить();
ОтражениеТаблица.ВидЦенности=Перечисления.ВидыЦенностей.СуммыСвязанныеСРасчетамиПоОплате;
ОтражениеТаблица.Сумма= СуммаДокументаБезНДС;
ОтражениеТаблица.СтавкаНДС  =Перечисления.СтавкиНДС.НДС20;
                        ОтражениеТаблица.СчетУчетаНДС=ПланыСчетов.Хозрасчетный.НайтиПоРеквизиту("КодБыстрогоВыбора","1909");
ОтражениеТаблица.СуммаНДС= СуммаНДС;
ОтражениеТаблица.Событие=Перечисления.СобытияПоНДСПокупки.ПредъявленНДСКВычету;
                           
Попытка
ОтражениеНДС.Записать(РежимЗаписиДокумента.Запись);
Исключение
ЛогСообщить(ОписаниеОшибки() );
КонецПопытки;