Программное создание документа "Поступление товаров услуг"

Тему v8: Программное создание документа "Поступление товаров услуг" прочел. Та же самая беда. "НДСВключенВСтоимость = ложь;" не помогло( В общем в создаю обработкой документ ПоступлениеТоваровУслуг, заполняю, записываю с проведением, получаю движения по регистру бухгалтерии, и по НДС раасчеты с поставщиками. Ввожу документ вручную - получаю движения еще по 2-м регистрам - НДС предъявленный и НДС по партиям запасов. При открытии созданного программно документа в тч Товары отсутствует колонка Счет учета НДС.

Док = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
ТекстДата = Строка.h;
Год = Прав(ТекстДата,2);
Месяц = Сред(ТекстДата, 4,2);
День = Лев(ТекстДата,2);
Год = "20" + Год;
Док.ВалютаДокумента = Справочники.Валюты.НайтиПоНаименованию("руб.");
Док.Дата = Дата(Год,месяц,день);
Док.Организация = Организация;
Док.ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.ПокупкаКомиссия;
Док.СчетУчетаРасчетовСКонтрагентом = Планысчетов.Хозрасчетный.НайтиПоКоду("60.01");
Док.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.02");
Док.НДСВключенВСтоимость = Ложь;
Док.СуммаДокумента = Строка.m;
Док.Контрагент = КонтрагентСсылка;
Док.ДоговорКонтрагента = ДоговорСсылка;
Док.Склад = Справочники.Склады.НайтиПоНаименованию("Основной склад");
Док.ОтражатьВНалоговомУчете = Истина;
Док.ЭтотОбъект.СуммаВключаетНДС = Ложь;
ДокОбъект = Док.ЭтотОбъект;

НоваяСтрока = ДокОбъект.Товары.Добавить();
НоваяСтрока.Номенклатура = НоменклатураСсылка;
НоваяСтрока.Количество = 1;

ТекстДата = Строка.g;
Год = Прав(ТекстДата,2);
Месяц = Сред(ТекстДата, 4,2);
День = Лев(ТекстДата,2);
Год = "20" + Год;
Дата2 = Дата(Год,месяц,день);
Док.ДатаОплаты = Дата2;

НоваяСТрока.Цена = Строка.m;
НоваяСтрока.Сумма = Строка.m;
НоваяСтрока.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
СчетУчетаБУ = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;
СчетУчетаНУ = ПланыСчетов.Налоговый.ТоварыНаСкладах;
НоваяСтрока.СчетУчетаБУ = СчетУчетаБУ;
НоваяСтрока.СчетУчетаНУ = СчетУчетаНУ;
НоваяСтрока.СчетУчетаНДС = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03");
Док.Комментарий = "Автоматически добавлен обработкой. 2323, 1аб";

Док.Записать(режимзаписидокумента.Проведение);

как есть http://imglink.ru/show-image.php?id=40850e5ff70338e71dfc45854ffa6113

как надо http://imglink.ru/show-image.php?id=ea78a58c77a7bf80fcbee9066ee19ccd

Ну может сталкивался кто. подскажите плиз.
Конфа БП 1.6