Создание внешней печатной формы в WORD (УФ)

Здравствуйте. Печатную форму и заполнение ее вроде создал и все вроде как работает как надо, но вот только как ее добавить на форму в конфу. Почитал, что то наваял, на всякий случай дам полный код и ошибку:

Функция СведенияОВнешнейОбработке()

    ПараметрыРегистрации = Новый Структура;
    МассивНазначений = Новый Массив;
    МассивНазначений.Добавить("Документ.ПриемНаРаботу"); //Указываем документ к которому делаем внешнюю печ. форму
    ПараметрыРегистрации.Вставить("Вид", "ПечатнаяФорма"); //может быть - ПечатнаяФорма, ЗаполнениеОбъекта, ДополнительныйОтчет, СозданиеСвязанныхОбъектов...
    ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);
    ПараметрыРегистрации.Вставить("Наименование", "Трудовой договор"); //имя под которым обработка будет зарегестрирована в справочнике внешних обработок
    ПараметрыРегистрации.Вставить("БезопасныйРежим", ЛОЖЬ);
    ПараметрыРегистрации.Вставить("Версия", "1.0");
    ПараметрыРегистрации.Вставить("Информация", "Форма трудового договора");
    ТаблицаКоманд = Получить Таблицу Команд();
    ДобавитьКоманду(ТаблицаКоманд, "ПечатнаяФорма", "ПечатьТД", "ВызовСерверногоМетода", Истина, "ПечатьMXL");
    ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);

    Возврат ПараметрыРегистрации;

КонецФункции // СведенияОВнешнейОбработке()

Функция Получить Таблицу Команд()

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

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

Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")

    НоваяКоманда = ТаблицаКоманд.Добавить();
    НоваяКоманда.Представление = Представление;
    НоваяКоманда.Идентификатор = Идентификатор;
    НоваяКоманда.Использование = Использование;
    НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
    НоваяКоманда.Модификатор = Модификатор;

КонецПроцедуры

Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт

    УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "ПечатьТД", "Трудовой договор", ВывестиПечать());

КонецПроцедуры // Печать()

Функция ВывестиПечать() Экспорт

    ФизЛицо = СсылкаНаОбъект.ФизическоеЛицо;
    Для каждого Строка из ФизЛицо.КонтактнаяИнформация Цикл

        Если Строка.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес И Строка.Вид = Справочники.ВидыКонтактнойИнформации.АдресПоПропискеФизическиеЛица Тогда
            АдресПрописки = Строка.Представление;
        ИначеЕсли Строка.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес И Строка.Вид = Справочники.ВидыКонтактнойИнформации.АдресМестаПроживанияФизическиеЛица Тогда
            АдресПроживания = Строка.Представление;
        КонецЕсли;

    КонецЦикла;
    Документ = РегистрыСведений.ДокументыФизическихЛиц.СоздатьНаборЗаписей();
    Документ.Отбор.ФизЛицо.Значение = Справочники.ФизическиеЛица.НайтиПоНаименованию(ФизЛицо);
    Документ.Отбор.ФизЛицо.Использование = Истина;
    Документ.Прочитать();
    Если НЕ Документ.Количество() = 0 Тогда
    ВидДокумента = Документ[0].ВидДокумента.Наименование;
    СерияДокумента = Документ[0].Серия;
    НомерДокумента = Документ[0].Номер;

    КемДатаВыдачи = Документ[0].КемВыдан + " от " + Формат(Документ[0].ДатаВыдачи,"ДФ='дд ММММ гггг'");
    КонецЕсли;
    ДокументНачисление = СсылкаНаОбъект.Начисления[0].Начисление;
            ВидРасчета = ДокументНачисление.КраткоеНаименование;
            ПериодРасчета = ДокументНачисление.ПериодРасчетаБазовыхНачислений;


    Если СсылкаНаОбъект.ГрафикРаботы = Справочники.ГрафикиРаботыСотрудников.НайтиПоНаименованию("Пятидневка 40") Тогда
        РежимРаботы = "продолжительностью 8 часов в день с понедельника по пятницу (с 9-00 до 18-00) с перерывом один час на обед (с 13-00 до 14-00), при пятидневной рабочей неделе с двумя выходными днями (суббота, воскресенье)";
    ИначеЕсли СсылкаНаОбъект.ГрафикРаботы = Справочники.ГрафикиРаботыСотрудников.НайтиПоНаименованию("Шестидневка") Тогда
        РежимРаботы = "продолжительностью 7 часов в день с понедельника по пятницу (с 9-00 до 17-00) и 5 часов в день в субботу (с 9-00 до 15-00) с перерывом один час на обед (с 13-00 до 14-00), при шестидневной рабочей неделе с одним выходным днем (воскресенье)";
    ИначеЕсли Найти(СсылкаНаОбъект.ГрафикиРаботыСотрудников.Наименование, "вахта") <> 0    Тогда
    Иначе РежимРаботы = "__________________НЕОБХОДИМО ЗАПОЛНИТЬ________________________";
    КонецЕсли;

    Гражданство = РегистрыСведений.ГражданствоФизическихЛиц.СоздатьНаборЗаписей();
    Гражданство.Отбор.ФизическоеЛицо.Значение = Справочники.ФизическиеЛица.НайтиПоНаименованию(ФизЛицо);
    Гражданство.Отбор.ФизическоеЛицо.Использование = Истина;
    Гражданство.Прочитать();
    Если НЕ Гражданство.Количество() = 0 Тогда
    ГражданствоФизЛица = Гражданство[0].Страна.Наименование;
    КонецЕсли;
    Табельный = СсылкаНаОбъект.Сотрудник.Код;
    НомерДоговора = СсылкаНаОбъект.ТрудовойДоговорНомер;
    ДатаДоговора = СсылкаНаОбъект.ТрудовойДоговорДата;
    ДатаНачалаТД = СсылкаНаОбъект.ДатаПриема;
    ИспытательныйСрок = СсылкаНаОбъект.ДлительностьИспытательногоСрока;
    ДатаОкончанияТД = СсылкаНаОбъект.ДатаЗавершенияТрудовогоДоговора;
    Должность = СсылкаНаОбъект.Должность;
    ПодразделениеОтдел = СсылкаНаОбъект.Подразделение;

    Макет = "ТД";
    Договор=ПолучитьМакет(Макет);


             //Получить объект из макета.
    MSWord = Договор.Получить();
    Попытка
            Документ = MSWord.Application.Documents(1);
            // Получить объект, который будем использовать для поиска и замены.
            Замена = Документ.Content.Find;
            Замена.Execute("<НомерТД>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь, НомерДокументаБезНулей(СсылкаНаОбъект.ТрудовойДоговорНомер), 2);
    //        Замена = Документ.Content.Find;
    //        Замена.Execute("<ФИО>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь, СсылкаНаОбъект.ФизическоеЛицо.ФИО, 2);
    //        Замена = Документ.Content.Find;
    //        Замена.Execute("<ДатаНачалаКаз>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,  Формат(ДатаНачала,"Л=kk_KZ; ДЛФ=DD"), 2);
    //        Замена = Документ.Content.Find;
            Замена.Execute("<ДатаНачалаТД>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,  Формат(ДатаДоговора,"Л=ru_RU; ДЛФ=DD"), 2);
            Замена = Документ.Content.Find;
    //        Замена.Execute("<ДатаОкончанияКаз>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,  Формат(ДатаОкончания,"Л=kk_KZ; ДЛФ=DD"), 2);
    //        Замена = Документ.Content.Find;
    //        Замена.Execute("<ДатаОкончания>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,  Формат(ДатаОкончания,"Л=ru_RU; ДЛФ=DD"), 2);
    //        Замена = Документ.Content.Find;
    //        Замена.Execute("<Должность>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,  СсылкаНаОбъект.Должность.Наименование, 2);
    //        Замена = Документ.Content.Find;
    //        Замена.Execute("<График>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,  РежимРаботы, 2);
    //        Замена = Документ.Content.Find;
    //        Замена.Execute("<Оклад>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,  СсылкаНаОбъект.ОсновныеНачисления[0].Показатель1, 2);
    //        Замена = Документ.Content.Find;
    //        Замена.Execute("<ОкладПрописью>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,  ЧислоПрописью(СсылкаНаОбъект.ОсновныеНачисления[0].Показатель1, "Л=ru_Ru;ДП=Истина", "тенге, тенге, тенге, м, тиын, тыин, тыин, м, 2"), 2);
    //        Замена = Документ.Content.Find;
    //        Замена.Execute("<ОкладПрописьюКаз>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,  ЧислоПрописью(СсылкаНаОбъект.ОсновныеНачисления[0].Показатель1, "Л=kk_KZ;ДП=Истина", "тенге, тенге, тенге, м, тиын, тыин, тыин, м, 2"), 2);
    //        Замена = Документ.Content.Find;
    //        Замена.Execute("<ИНН>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,  Число(СсылкаНаОбъект.ФизЛицо.ИдентификационныйКодЛичности), 2);
    //        //Замена = Документ.Content.Find;
    //        //Замена.Execute("<Удостоверение>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,  НомерУдостоверения, 2);
    //        //Замена = Документ.Content.Find;
    //        //Замена.Execute("<Выдан>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,  ДатаВыдачи, 2);
    //        //Замена = Документ.Content.Find;
    //        //Замена.Execute("<Адрес>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь,  АдресФактический, 2);


            MSWord.Application.Visible = Истина;
            MSWord.Activate();

        Исключение
            // Если произойдет ошибка, выводятся данные об ошибке, и объект закрывается.
            Сообщение = Новый СообщениеПользователю();
            Сообщение.Текст = ОписаниеОшибки();
            Сообщение.Сообщить();
            MSWord.Application.Quit();
        КонецПопытки;



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

Функция НомерДокументаБезНулей(НомерДокумента)

Ошибка:

{ОбщийМодуль.СтандартныеПодсистемыКлиент.Модуль(117)}: Ошибка при вызове метода контекста (ОткрытьФорму)
    ОткрытьФорму("ОбщаяФорма.Вопрос", Параметры,,,,,ОписаниеОповещенияОЗавершении);
по причине:
Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'val':
    форма: Элемент
    имя: {http://v8.1c.ru/8.2/mngsrv/ws}val
по причине:
Ошибка отображения типов:
Отсутствует отображение для типа 'КодВозвратаДиалога'

Помогите пожалуйста с регистрацией формы, а то мозг скоро потечет, зачем они так усложнили все, раньше ведь просто было. Заранее спасибо тем, кто поможет!