проблема с макетом

Уважаемые! Есть код
Процедура КнопкаСформироватьНажатие(Кнопка)
    //Табдок = новый ТабличныйДокумент;
        Макет=ПолучитьМакет("Макет");
    //Название=Макет.ПолучитьОбласть("Название");
    //ЭлементыФормы.ПолеТабличногоДокумента1.Вывести(Название);
    //Залы=Макет.ПолучитьОбласть("Зал");

    Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
|    бит_ЗанятостьПомещенийОстатки.Помещение.Владелец.Родитель КАК ПомещениеВладелецРодитель,
|    бит_ЗанятостьПомещенийОстатки.Помещение КАК Помещение,
|    бит_ЗанятостьПомещенийОстатки.Договор.Договор КАК Договор,
|    бит_ЗанятостьПомещенийОстатки.Договор.Владелец КАК Контрагент
|ИЗ
|    РегистрНакопления.бит_ЗанятостьПомещений.Остатки КАК бит_ЗанятостьПомещенийОстатки
|ГДЕ
|    бит_ЗанятостьПомещенийОстатки.Помещение.Владелец.Родитель = &Родитель
|
|УПОРЯДОЧИТЬ ПО
|    Помещение,
|    ПомещениеВладелецРодитель";
Запрос.УстановитьПараметр("Родитель",    Справочники.бит_ОбъектыНедвижимости.НайтиПоНаименованию("Зал Б", Истина));     //Объект Аренды

РезультатЗапроса = Запрос.Выполнить().Выбрать();
пока РезультатЗапроса.Следующий() цикл
НомерМеста = получитьЧисло(РезультатЗапроса.Помещение.Наименование);
ОблПомещение = Макет.Области.Найти("Помещение_" + Формат(НомерМеста, "ЧЦ=3; ЧВН="));
//далее заполняете область
Если ОблПомещение <> Неопределено Тогда
ТекОбласть = Макет.Область(ОблПомещение.Лево, ОблПомещение.Верх, ОблПомещение.Лево, ОблПомещение.Верх);
ТекОбласть.Текст = Строка(РезультатЗапроса.Контрагент.Наименование);
ТекОбласть.Расшифровка = РезультатЗапроса.Контрагент;
// и далее, все ячейки для текущего помещения
КонецЕсли;
КонецЦикла;
//ЭлементыФормы.ПолеТабличногоДокумента.Очистить();

////РезультатЗапроса = Запрос.Выполнить().Выбрать();
////пока РезультатЗапроса.Следующий() цикл
////    получитьЧисло(РезультатЗапроса.Помещение.Наименование);
//////обход по параметрам
////Для НомерСтроки = 1 По 25 Цикл
////    Для НомерКолонки = 1 По 25 Цикл
////        Область = Макет.Область(НомерСтроки, НомерКолонки, НомерСтроки, НомерКолонки);
////        Если Область.Заполнение = ТипЗаполненияОбластиТабличногоДокумента.Параметр Тогда
////            Парам=Область.Параметр;
////            помещен = СтрЗаменить(РезультатЗапроса.Помещение.Наименование," ","");
////            если Парам=помещен тогда
////
////            Залы.Параметры[Парам]=РезультатЗапроса.Помещение.Наименование+" "+РезультатЗапроса.Контрагент.Наименование;
////            Залы.Параметры[Парам+"1"]=РезультатЗапроса.Договор
////
////            КонецЕсли;
////                       Сообщить(Область.Параметр);
////            КонецЕсли;
////    КонецЦикла;
////КонецЦикла;


//Залы.Параметры.Заполнить(РезультатЗапроса);
//КонецЦикла;
ЭлементыФормы.ПолеТабличногоДокумента1.Вывести(Макет);

ЭлементыФормы.ПолеТабличногоДокумента1.ТолькоПросмотр=Истина;

ЭлементыФормы.ПолеТабличногоДокумента1.Показать();

    // Вставить содержимое обработчика.
КонецПроцедуры

функция получитьЧисло(Помещение)
RegExp = Новый COMОбъект("VBScript.RegExp");


     RegExp.IgnoreCase = Истина; //Игнорировать регистр


     RegExp.Global = Истина; //Поиск всех вхождений шаблона


     RegExp.MultiLine = Истина; //Многострочный режим





     RegExp.Pattern = "[^0-9]"; // отбор только чисел





     стр=RegExp.Replace(Помещение, "");


     Сообщить(стр);
     возврат стр;
КонецФункции

но при исполнении вываливается "Поле недоступно для записи (текст)" в чем ошибка может быть?