Помогите пожалуйста с 1С

Ошибка:

Код:
&НаКлиенте
Процедура КнопкаВыгрузить(Команда)

Режим = РежимДиалогаВыбораФайла.ВыборКаталога;
ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытия.Каталог = "";
ДиалогОткрытия.МножественныйВыбор = Ложь;
ДиалогОткрытия.Заголовок = "Выберите файл с контрагентами";

Если ДиалогОткрытия.Выбрать() Тогда
ПутьККаталогу = ДиалогОткрытия.Каталог;
КонецЕсли;

Если Прав(ПутьККаталогу,1) <> "" Тогда
Объект.КаталогСохранения = ПутьККаталогу;
Иначе
Объект.КаталогСохранения = ПутьККаталогу;

КонецЕсли;


//Сформируем уникальное имя файла
ДатаИВремя = СтрЗаменить(ТекущаяДата(),":",".");
ИмяФайла = "Импорт_" + ДатаИВремя;

//Создадим табличный документ
ТабДок = Новый ТабличныйДокумент;

ФорматФайла = Объект.ТипФайла;

//Добавим выбранный каталог к именя файла
ПолноеИмяФайла = Объект.КаталогСохранения + ИмяФайла + "." + ФорматФайла;

// Определим в каком формате будет выгружен документ
Если ФорматФайла = "XLS" Тогда
ЗадатьТип = ТипФайлаТабличногоДокумента.xls;

ИначеЕсли ФорматФайла = "DOCX" Тогда
ЗадатьТип = ТипФайлаТабличногоДокумента.docx;

ИначеЕсли ФорматФайла = "PDF" Тогда
ЗадатьТип = ТипФайлаТабличногоДокумента.pdf;

ИначеЕсли ФорматФайла = "TXT" Тогда
ЗадатьТип = ТипФайлаТабличногоДокумента.txt;

Иначе
Сообщить("Необходимо выбрать формат файла");
Возврат;
КонецЕсли;

//Создадим файл и запишем в табличный документ
ТабДок.Записать(ПолноеИмяФайла, ЗадатьТип);

//Заполним ТабДок на сервере
ЗаполнитьТаблицуНаСервере(ТабДок);

//Запишем заполненную таблицу в тот же файл
ТабДок.Записать(ПолноеИмяФайла, ЗадатьТип);

Сообщить("Выгрузка данных успешно завершена!");
КонецПроцедуры
Функция ЗаполнитьТаблицуНаСервере(ТабДок) Экспорт
Макет = Обработки.ВыгрузкаВФайл.ПолучитьМакет("Макет");
ОбластьСтрока = Макет.ПолучитьОбласть("Строка");


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

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ОбластьСтрока.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
ТабДок.Вывести(ОбластьСтрока);
КонецЦикла;

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

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