Роман, прошу прощения за беспокойство.
Понимаю, что для Вас эта тема уже не актуальна.
Однако мы наравне с 8-й платформой ещё активно пользуемся 7.7 версией.
Очень подошла ваша обработка "Журнал регистрации на основе класса 1С++ "ПоставщикДанныхЖурналаРегистрации""
Спасибо.
Но есть одна проблема. Нет возможности распечатать.
Не подскажите, как сделать вывод на печать?
Пока я сделаю так.
Процедура Распечатать()
Перем Таб;
Таб = СоздатьОбъект("Таблица");
Для НомКолонки = 1 По тпЖурнал.Колонки.Количество() Цикл
текКолонка = тпЖурнал.Колонки.Получить(НомКолонки-1);
Таб.Область(1, НомКолонки, 1, НомКолонки).Текст = СокрЛП(текКолонка.Заголовок);
Таб.Область(1, НомКолонки, 1, НомКолонки).РамкаОбвести(5, 5, 5, 5);
Таб.Область(1, НомКолонки, 1, НомКолонки).ВертикальноеПоложение(3);
Таб.Область(1, НомКолонки, 1, НомКолонки).ГоризонтальноеПоложение(3);
Таб.Область(1, НомКолонки, 1, НомКолонки).РазмерШрифта(9);
Таб.Область(1, НомКолонки, 1, НомКолонки).Полужирный(1);
Ширина = Таб.Область(1, НомКолонки, 1, НомКолонки).ШиринаСтолбца();
Ширина = Макс(Ширина, СтрДлина(СокрЛП(текКолонка.Заголовок)));
Таб.Область(1, НомКолонки, 1, НомКолонки).ШиринаСтолбца(текКолонка.Ширина);
Таб.Область(1, НомКолонки, 1, НомКолонки).ВысотаСтроки(25);
КонецЦикла;
Если пдРегЖурнал.ВыбратьСтроки() = 1 Тогда
Пока пдРегЖурнал.ПолучитьСтроку() = 1 Цикл
//здесь должен быть вывод значений
КонецЦикла;
КонецЕсли;
Таб.ТолькоПросмотр(1);
Таб.Показать("Таблица значений");
КонецПроцедуры // Распечатать Показать
Т.е. заголовки колонок я получаю без проблем.
Но вот пдРегЖурнал.ВыбратьСтроки() упорно возвращает 0 (ноль).
Соответственно ПолучитьСтроку() не работает.
Не подскажите, как пройтись по строкам табличного поля?
