Помочь с кодом.

Задание: Создать внешнюю обработку для получения данных в макете.
Я создал, написал код, но у меня вылазит ошибка. Я что-то уже свехнулся и не понимаю, что я должен еще дописать.
Ошибка https://ibb.co/H7GF4Bk

Код:
https://ibb.co/pfLhFpY
https://ibb.co/gwRLq1c

Процедура КнопкаВыполнитьНажатие(Кнопка)
ТабДок = ПолучитьСогласиеНаОбработкуПерсональныхДанных();
ТабДок.Показать();
КонецПроцедуры

Функция ПолучитьСогласиеНаОбработкуПерсональныхДанных()

    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ПаспортныеДанныеФизЛиц.ДокументСерия,
    |    ПаспортныеДанныеФизЛиц.ДокументНомер,
    |    ПаспортныеДанныеФизЛиц.ДокументДатаВыдачи,
    |    ПаспортныеДанныеФизЛиц.ДокументКемВыдан,
    |    ПаспортныеДанныеФизЛиц.ДатаРегистрацииПоМестуЖительства,
    |    КонтактнаяИнформация.Представление
    |ИЗ
    |    РегистрСведений.ПаспортныеДанныеФизЛиц КАК ПаспортныеДанныеФизЛиц,
    |    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
    |ГДЕ
    |    ПаспортныеДанныеФизЛиц.ФизЛицо = &ФизЛицоСотрудника
    |    И КонтактнаяИнформация.Объект = &Организации ";

    Запрос.УстановитьПараметр("ФизЛицоСотрудника", Сотрудник.Физлицо);
    Запрос.УстановитьПараметр("Организации", Сотрудник.Организация);
    РезультатЗапроса = Запрос.Выполнить().Выбрать();
    РезультатЗапроса.Следующий();


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

    ТабДок.Вывести(Область);

    ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Портрет;
    ТабДок.АвтоМасштаб=Истина;
    ТабДок.ТолькоПросмотр=Истина;
    ТабДок.ОтображатьСетку=Ложь;

    Возврат ТабДок;

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

Функция  ПолучитьАдресОрганизации(мОрганизация);

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

    Запрос.УстановитьПараметр("Вид",Справочники.ВидыКонтактнойИнформации.ЮрАдресОрганизации);
    Запрос.УстановитьПараметр("Объект",Справочники.Организации.НаименованиеПолное);

    РезультатЗапроса = Запрос.Выполнить().Выгрузить();
    Если РезультатЗапроса.Количество() <> 0 Тогда
        Для каждого элемент из РезультатЗапроса Цикл
            мОрганизацияАдрес = элемент.ОрганизацияАдрес;
        КонецЦикла;
    Иначе
        мОрганизацияАдрес = "";
    КонецЕсли;

    Возврат мОрганизацияАдрес;

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

я только новичок, не ругайтесь.