Контрагент(Партнер) создается неправильно.

Наименование контрагента созданного программно не идет в печатные формы. Отладчиком отображается пустая строка.
База УТ для Казахстана (УТ11)
&НаСервере
Функция СоздатьЗаказы(Наименование, ТелНомер, Адрес, Товар, Цена, Итого, Колво, СкладЛП, Ид) Экспорт

    Если СкладЛП = "LPP2" Тогда

        Склад = Справочники.Склады.НайтиПоНаименованию("Астана");

    Иначе

        Склад = Справочники.Склады.НайтиПоНаименованию("Офис");

    КонецЕсли;


    //НовыйПартнер = Справочники.Партнеры.СоздатьЭлемент();
    //НовыйПартнер.Наименование = "Розница";
    //НовыйПартнер.Записать();

    НовКонтрагент = Справочники.Партнеры.НайтиПоКоду(ТелНомер);

    Если Не НовКонтрагент.Пустая() Тогда

    НовКонтрагент = НовКонтрагент;

    Иначе

    НовКонтрагент = Справочники.Партнеры.СоздатьЭлемент();
    НовКонтрагент.Наименование = Наименование;
    НовКонтрагент.Клиент = Истина;
    //НовКонтрагент.Орг
    //НовКонтрагент.КонтактнаяИнформация. = ТелНомер;
    НовКонтрагент.ЮрФизЛицо = Перечисления.КомпанияЧастноеЛицо.ЧастноеЛицо;
    //НовКонтрагент.КонтактнаяИнформация.Город = Город;
    НовКонтрагент.ДатаРегистрации = ТекущаяДата();
    НовКонтрагент.НаименованиеПолное = Наименование;
    //НовКонтрагент.НомерТелефонаAPI = ТелНомер;
    //НовКонтрагент.АдресAPI = Адрес;
    НовКонтрагент.Код = ТелНомер;

    НовКонтрагент.Комментарий = "Номер телефона: +7 " + ТелНомер + Символы.ПС + Символы.ПС + "Адрес: " + Адрес;
    //НовКонтрагент.
    //НовКонтрагент.ИмяПартнера



    Попытка
        НовКонтрагент.Записать();
        Сообщить("Контрагент создан: " + НовКонтрагент.Ссылка);
    Исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;

    КонецЕсли;

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


    НовОпл = НовЗаказ.ЭтапыГрафикаОплаты.Добавить();
    НовОпл.ВариантОплаты = Перечисления.ВариантыОплатыКлиентом.КредитПослеОтгрузки;
    НовОпл.ДатаПлатежа = ТекущаяДата();
    НовОпл.ПроцентПлатежа = 100;
    НовОпл.СуммаПлатежа = Итого;




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


    Чек = Ложь;



    Попытка
        Попытка
        НовЗаказ.Записать(РежимЗаписиДокумента.Проведение);
        //НовЗаказ.    РежимЗаписиДокумента.Проведение
        Исключение
        //Сообщить(НовЗаказ.Ссылка + ": недостаточно товара на складе. Товар " + Товар + " выставлен к обеспечению.");
        Чек = Истина;

        НовТов.ВариантОбеспечения = Перечисления.ВариантыОбеспечения.Требуется;

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

        //Сообщить("Попытка не пытка!");
        КонецПопытки;

    Исключение
        Чек = Истина;
        //Сообщить(ОписаниеОшибки());
    КонецПопытки;


    Если Чек Тогда

    Возврат НовЗаказ.Ссылка;

    Иначе

    Возврат 0;

    КонецЕсли;


    //Для Каждого  Из  Цикл
    //
    //КонецЦикла;



КонецФункции