Автоматическое заполнение оставшегося свободного места отчёта

[keramik]

Доброе утро, 1С 8.2, "Управление торговлей", редакция 10.3 (10.3.7.9).
Вопрос, каким образом можно научить 1С заполнять свободное место в отчёте пустыми строками? В приложении скрин с примером.
Ситуация такая, есть форма отчёта в которую выводится информация из программы о заказанных работах, обычная ситуация - около шести-семи строк. Также есть область, в которую пользователь хочет вписывать информацию о проделанных работах вручную (см. изображение из приложения). Эта область должна сама растягиваться в зависимости от того, сколько свободного места осталось на листе. На ней рисуется таблица с графами "Наименование работы", "Исполнитель", "Нормочасы", "Стоимость".
Пока что я жёстко вбил количество строк во второй области в макете, но это не удобно, т.к. если в первой области мало информации, то внизу листа остаётся пустое место, и наоборот, если много - переносится часть таблицы на второй лист, что тоже не подходит пользователю.
Подскажите пожалуйста, в какую сторону копать?

[vitasw]

В цикле выводите строки для ручного заполнения. На каждом шаге цикла пользуете ПроверитьВывод()

[keramik]

Спасибо за подсказку!

[vitasw]

Данный метод хорош при небольшом документообороте и малом числе пользователей в базе. В противном случае будет ощутимо тормозить. Ну и естественно принтер, на который происходит печать должен быть основным.

[дфтын]

И не забывайте программно отступы, колонтитулы и прочие задавать

[keramik]

Данный метод хорош при небольшом документообороте и малом числе пользователей в базе. В противном случае будет ощутимо тормозить. Ну и естественно принтер, на который происходит печать должен быть основным.

Как раз то, что надо. Мало пользователей и записей не так много.

[keramik]

Пробовал сделать цикл, который выводит одну и ту же олрасть до тех пор, пока не закончится лист, вот часть процедуры:

Код Выделить Развернуть

ОбластьЗаявкаТаблица = Макет.ПолучитьОбласть("ЗаявкаТаблица");
МассивОбластей = Новый Массив();

МассивОбластей.Добавить(ОбластьЗаявкаТаблица);
Для Каждого Строка из ОбластьЗаявкаТаблица Цикл
    ТабДокумент.Вывести(ОбластьЗаявкаТаблица);
    Если НЕ ТабДокумент.ПроверитьВывод(МассивОбластей) Тогда
        ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
    КонецЕсли;
КонецЦикла;
только вот получаю сообщение:

Код Выделить Развернуть

Итератор для значения не определен
Для каждого Строка из ОбластьЗаявкаТаблица Цикл
Пока не могу врубиться, как это исправить.

Дополнение:
Посмотрел дебаггером, всё зависает в момент, когда доходит до "Строка". Каким образом передать программе, что надо перебирать строки, дабы понять, что лист закончился?

Добавлено: 30 сен 2015, 14:29

Почти обрадовался, изменив код таким вот образом:

Код Выделить Развернуть

Пока НЕ ТабДокумент.ПроверитьВывод(МассивОбластей) Цикл
ТабДокумент.Вывести(ОбластьЗаявкаТаблица);
КонецЦикла;

т.е. пока не конец листа надо выводить ОбластьЗаявкаТаблица.
На что программа мне ответила:

Код Выделить Развернуть

Ошибка при вызова метода контекста (ПроверитьВывод)
Пока НЕ ТабДокумент.ПроверитьВывод(МассивОбластей) Цикл

[cska-fanat-kz]

ПроверитьВывод() может косячить когда основной принтер не установлен...

[keramik]

Но вариант с циклом "Пока..." должен работать. Так?

[Kironten]

Ну сделай так например:

Код Выделить Развернуть


Вывод = Истина;
Пока Вывод Цикл
    Если ТабДок.ПроверитьВывод(Массив) Тогда
Табдок.Вывести(Обл);
Иначе
Вывод = Ложь;
КонецЕсли;
КонецЦикла;