v7: Таблица для ввода данных, с программным добавлением строк. Как сделать?

вот пример:

Процедура Сформировать()

//* Заполняем шапку
Таб=Таблица;
Обл=Таб.Область("D1");
Обл.Значение=ПериодСтр(НачПериод,КонПериод);
Обл=Таб.Область(4,1,259,259);
Обл.Значение="";
Обл.РамкаСлева(0);
Обл.РамкаСправа(0);
Обл.РамкаСверху(0);
Обл.РамкаСнизу(0);
Обл.ЦветФона(-1);
Обл.Контроль(5);
Обл=Таб.Область(1,4,3,259);
Обл.Значение="";
Обл.РамкаСлева(0);
Обл.РамкаСправа(0);
Обл.РамкаСверху(0);
Обл.РамкаСнизу(0);
Обл.ЦветФона(-1);
Обл.Контроль(5);
Таб.Область(1,1,1,1).ШиринаСтолбца(12);
Таб.Область(1,2,1,2).ШиринаСтолбца(20);
Таб.Область(1,3,1,3).ШиринаСтолбца(4);
НомерСтроки=3;
НомерКолонки=3;

. . .

//* список материалов перезаполним на основании запроса
СписокМатериалов.УдалитьВсе();
Пока Запрос.Группировка(1)=1 Цикл

СписокМатериалов.ДобавитьЗначение(Запрос.Материал);

НомерКолонки = НомерКолонки + 1;

//* Выводим в шапке колонку по материалу
Материал=Запрос.Материал;
Обл=Таб.Область(1,НомерКолонки,1,НомерКолонки);
Обл.Значение = СокрЛП(Материал.Наименование);
Обл.ВертикальноеПоложение(3);
Обл.ГоризонтальноеПоложение(3);
Обл.ОриентацияТекста(90);
Обл.РамкаОбвести(3,3,3,3);

//* Выводим остаток материала
Обл=Таб.Область(2,НомерКолонки,2,НомерКолонки);
Обл.Значение = Запрос.Остаток;
Обл.РамкаОбвести(3,3,3,3);
Обл.ЦветФона(255,255,196);

//* выводим движения материала (кроме самой сшивки)
Обл=Таб.Область(3,НомерКолонки,3,НомерКолонки);
Обл.Значение = Запрос.ПрихКол-Запрос.РасхКол;
Обл.РамкаОбвести(3,3,3,3);
Обл.ЦветФона(255,255,223);

КонецЦикла;

. . .

Пока Запрос.Группировка(1)=1 Цикл
Пока Запрос.Группировка(2)=1 Цикл

//* нужно отсеить пустую строку (она возникает, если есть ведомость с пустой табличной частью)
Если (ПустоеЗначение(Запрос.Ордин)=1)
И (ПустоеЗначение(Запрос.Матрац)=1)
И (ПустоеЗначение(Запрос.Количество)=1)
Тогда
Продолжить;
КонецЕсли;

НомерСтроки = НомерСтроки + 1;

//* выводим строку по матрасу
Обл=Таб.Область(НомерСтроки,1,НомерСтроки,1);
Обл.Значение=СокрЛП(Запрос.Ордин.Наименование);
Обл.РамкаОбвести(3,3,3,3);
Обл=Таб.Область(НомерСтроки,2,НомерСтроки,2);
Обл.Значение=СтрЗаменить(СокрЛП(Запрос.Матрац.Наименование)," тк.",РазделительСтрок+"тк.");
Обл.РамкаОбвести(3,3,3,3);
Обл=Таб.Область(НомерСтроки,3,НомерСтроки,3);
Обл.Значение=СокрЛП(Формат(Запрос.Количество,"Ч010.0"));
Обл.РамкаОбвести(3,3,3,3);

//* Заполняем таблицу заказов
ТаблицаЗаказов.НоваяСтрока();
ТаблицаЗаказов.Ордин = Запрос.Ордин;
ТаблицаЗаказов.Матрас = Запрос.Матрац;
ТаблицаЗаказов.Количество = Запрос.Количество;
ТаблицаЗаказов.Индекс = Запрос.Ордин.ПолныйКод()+"#"+Запрос.Матрац.ПолныйКод();

КонецЦикла;
КонецЦикла;

//* обводим ячейки и устанавливаем форматы
Если (НомерСтроки>3)И(НомерКолонки>3) Тогда
Обл=Таб.Область(4,4,НомерСтроки,НомерКолонки);
Обл.НазначитьТип("Число",17,3);
Обл.Формат("Ч017.3.,");
Обл.Доступность(1);
Обл.РамкаСлева(3);
Обл.РамкаСправа(3);
Обл.РамкаСверху(3);
Обл.РамкаСнизу(3);
КонецЕсли;

. . .

//* выводим итоги внизу таблицы
Обл=Таб.Область(НомерСтроки+1,3,НомерСтроки+1,3);
Обл.Значение="Списано матрериалов:";
Обл.ГоризонтальноеПоложение(2);
Обл=Таб.Область(НомерСтроки+2,3,НомерСтроки+2,3);
Обл.Значение="Остаток на конец периода:";
Обл.ГоризонтальноеПоложение(2);
Для х=1 по СписокМатериалов.РазмерСписка() Цикл

//* подсчитываем
НомерКолонкиИтога=х+3;
НачОст=Число(Таб.Область(2,НомерКолонкиИтога,2,НомерКолонкиИтога).Значение);
Оборот=Число(Таб.Область(3,НомерКолонкиИтога,3,НомерКолонкиИтога).Значение);
Списано=0;
Для у=4 по НомерСтроки Цикл
Списано = Списано + Число(Таб.Область(у,НомерКолонкиИтога,у,НомерКолонкиИтога).Значение);
КонецЦикла;

//* Выводим сколько всего списано
Обл=Таб.Область(НомерСтроки+1,НомерКолонкиИтога,НомерСтроки+1,НомерКолонкиИтога);
Обл.Значение = Списано;
Обл.РамкаОбвести(3,3,3,3);
Обл.ЦветФона(255,255,223);
Обл.Контроль(5);

//* выводим конечный остаток
Обл=Таб.Область(НомерСтроки+2,НомерКолонкиИтога,НомерСтроки+2,НомерКолонкиИтога);
Обл.Значение = НачОст+Оборот-Списано;
Обл.РамкаОбвести(3,3,3,3);
Обл.ЦветФона(255,255,196);
Обл.Контроль(5);

КонецЦикла;

//* последние настройки таблицы
Таб.ОбластьПечати(1,1,НомерСтроки+2,НомерКолонки);
Таб.ПовторятьПриПечатиСтроки(1,1);
Таб.ПовторятьПриПечатиСтолбцы(1,3);
Таб.Опции(0,0,3,3);

//* сбрасываем флаг модифицированности
УстановитьМодифицированность(0);

КонецПроцедуры // Сформировать