Лекция: Процедура Печать()

СпрГрупп=СоздатьОбъект («Справочник.Контрагенты»);

// Создание переменной СпрГрупп для хранения элементов группы

СпрЭлемен=СоздатьОбъект («Справочник.Контрагенты»);

// Создание переменной СпрЭлем для хранения элементов справочника

Таб=СоздатьОбъект («Таблица»);

//создаем объект Таблица

Таб.ИсходнаяТаблица («ТаблицаКонтр»);

// выбираем таблицу шаблона с именем ТаблицаКонтр

Таб.ВывестиСекцию («Шапка»);

Если СпрГрупп.ВыбратьЭлементы()=1 Тогда

// если есть группа, то организуем цикл для просмотра элементов группы

Пока СпрГрупп.ПолучитьЭлемент()=1 Цикл

Если СпрГрупп.ЭтоГруппа()=1 Тогда

Групп=СпрГрупп.ТекущийЭлемент();

//переменной Групп присваиваем значение текущего элемента Группы

Таб.ВывестиСекцию («Группа»);

СпрЭлемен.ИспользоватьРодителя(Групп);

//организуем выборку по группе

Если СпрЭлемен.ВыбратьЭлементы()=1 Тогда

Пока СпрЭлемен.ПолучитьЭлемент()=1 Цикл

Наименов=СпрЭлемен.ТекущийЭлемент();

//Функция Наименов позволяет получить конкретный элемент справочника

Адрес=Наименов.Адрес;

Банк=Наименов.Банк;

РасчСчет=Наименов.РасчетныйСчет;

//получаем значения атрибутов справочника

Таб.ВывестиСекцию(«Строка»);

КонецЦикла;

КонецЕсли;

КонецЕсли;

КонецЦикла;

КонецЕсли;

Таб.ТолькоПросмотр(1);

// 1 – только просмотр, редактировать таблицу в окне просмотра нельзя

Таб.Показать («Контрагенты»,"");

// в заголовке таблицы будет выведен текст «Контрагенты»

еще рефераты
Еще работы по информатике