бух 3.0 ПКО. Не создаются проводки

Не могу понять по какой причине не формируются проводки при проведении? Вродебы как и ошибок не выдает и проводок не создает. Забыл скорее всего какой-то реквизит заполнить.
Если создаю документ руками проводки есть. Визуально формы создающиеся автоматически и вручную не отличаются.
Вот создание документа:

    Сообщить("Создаем документ ПКО");

    НовыйДок = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
    НовыйДок.ВалютаДокумента = Справочники.Валюты.НайтиПоНаименованию("руб.");
    НовыйДок.Организация =Справочники.Организации.ОрганизацияПоУмолчанию(Пользователи.ТекущийПользователь());
    НовыйДок.Дата =Дата(ЭксельДата);
    НовыйДок.ВидОперации = Перечисления.ВидыОперацийПКО.РозничнаяВыручка;
    НовыйДок.СчетКасса = ПланыСчетов.Хозрасчетный.НайтиПоКоду("50.01");
    НовыйДок.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
    НовыйДок.СубконтоКт1 = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Основная номенклатурная группа");
    НовыйДок.СубконтоКт2 = Перечисления.СтавкиНДС.БезНДС;
    НовыйДок.СубконтоКт3 = "";
    НовыйДок.ПодразделениеКт = Справочники.ПодразделенияОрганизаций.НайтиПоНаименованию("Основное подразделение");


    НовыйДок.СуммаДокумента = Число(ЭксельСумма);


    СкладЗапрос = новый Запрос;
    СкладЗапрос.Текст=
                          "ВЫБРАТЬ
                          |    Склады.Ссылка КАК Ссылка,
                          |    Склады.Наименование КАК Наименование
                          |ИЗ
                          |    Справочник.Склады КАК Склады
                          |ГДЕ
                          |    Склады.Комментарий ПОДОБНО &Комментарий";


     СкладЗапрос.УстановитьПараметр("Комментарий",ЭксельФН);
    Выборка = СкладЗапрос.Выполнить().Выбрать();
    Выборка.Следующий();
    НовыйДок.Контрагент =  Выборка.Ссылка;

    НовыйДок.ПринятоОт = строка(Выборка.Наименование);


    НовыйДок.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоНаименованию(Выборка.Наименование);

    НовыйТовар = НовыйДок.РасшифровкаПлатежа.Добавить();
    НовыйТовар.СуммаПлатежа = Число(ЭксельСумма);
    НовыйТовар.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
    НовыйТовар.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоНаименованию(Выборка.Наименование);



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