Помогите вывести данные из табличной части в макет в качестве нестандартной расшифровки.

Проблема вот в чем мне необходимо сделать отчет через конструктор запрос с обработкой результата, все почти выводится, но только при открытии расшифровки выходит ошибка переменная не определена РСконтрагента, сразу скажу с кодом я на вы.
&НаКлиенте
Процедура Печать(Команда)
    ТабДок = ПечатьОтчета();
КонецПроцедуры
Функция ПечатьОтчета()

    Макет = Отчеты.Отчет1.ПолучитьМакет("Макет1");
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    Контрагенты.НаименованиеКонт КАК НаименованиеКонт,
        |    Контрагенты.ТипКонтрагента КАК ТипКонтрагента,
        |    Контрагенты.ОсновнойРС КАК ОсновнойРС,
        |    Контрагенты.АдресКонтрагента КАК АдресКонтрагента
        |ИЗ
        |    Справочник.Контрагенты КАК Контрагенты";

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

    ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
    ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
    ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
    ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
    ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");

    Таб=Новый ТабличныйДокумент();

    Таб.Очистить();
    Таб.Вывести(ОбластьЗаголовок);
    Таб.Вывести(ОбластьШапкаТаблицы);
    Таб.НачатьАвтогруппировкуСтрок();

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

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

        Таб.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетальныеЗаписи.Уровень());
    КонецЦикла;

    Таб.ЗакончитьАвтогруппировкуСтрок();
    Таб.Вывести(ОбластьПодвалТаблицы);
    Таб.Вывести(ОбластьПодвал);

    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    Возврат Таб;
    КонецФункции

&НаКлиенте
    Процедура ТабДокОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка, ДополнительныеПараметры)
     СтандартнаяОбработка=ложь;
НаименованиеКонт=Расшифровка;
ТабСчетов=Новый ТабличныйДокумент();
ТабСчетов=ВыполнитьРасшифровку(НаименованиеКонт);
ТабСчетов.ТолькоПросмотр=Истина;
ТабСчетов.Показать("");
    КонецПроцедуры

Функция ВыполнитьРасшифровку(НаименованиеКонт)
ТабСчетов=Новый ТабличныйДокумент();
МакетСчетов= Справочники.Контрагенты.ПолучитьМакет("Макетсчетов") ;
Область = МакетСчетов.ПолучитьОбласть("Шапка");
Область.Параметры.НаименованиеКонт=НаименованиеКонт;
ТабСчетов.Вывести(Область);

Для каждого Стр из НаименованиеКонт.РСконтрагента Цикл
Область = МакетСчетов.ПолучитьОбласть("Строка");
Область.Параметры.НаименованиеРС=Стр.НаименованиеРС;
Область.Параметры.Банк=Стр.Банк;
Область.Параметры.ВалютаРасчета=Стр.ВалютаРасчета;
Область.Параметры.АдресБанка=Стр.АдресБанка;
ТабСчетов.Вывести(Область);
КонецЦикла;
Возврат ТабСчетов;
КонецФункции