Процедура ПечатьКурсаУЕ ( Кнопка )

ТабДок = Новый ТабличныйДокумент ();

//Получение макета

Макет = ПолучитьОбщийМакет ( "КурсУЕ" );

//Получение части документа из макета

Область = Макет . ПолучитьОбласть ( "Заголовок" );

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

Область . Параметры . НаименованиеОрганизации =

Константы . НаименованиеОрганизации . Получить ();

ТабДок . Вывести ( Область );

Область = Макет . ПолучитьОбласть ( "Шапка" );

ТабДок . Вывести ( Область );

Область = Макет . ПолучитьОбласть ( "Строка" );

РегСведКурсы = РегистрыСведений . Курсы ;

НабКурсы = РегСведКурсы . СоздатьНаборЗаписей ();

НабКурсы . Прочитать ();

к = НабКурсы . Количество ();

Для н = 1 по НабКурсы . Количество () Цикл

ТекСтрока = НабКурсы[к - н] ;

//Сообщить(""+ТекСтрока.Период+Символы.Таб+ТекСтрока.Курс);

Область . Параметры . Дата = ТекСтрока . Период ;

Область . Параметры . Значение = ТекСтрока . Курс ;

ТабДок . Вывести ( Область );

КонецЦикла;

// Установка свойств табличного документа в целом перед его

// отображением: назначение этих параметров рассмотрим позднее

ТабДок . ИмяПараметровПечати = "ПараметрыКурсаУЕ" ;

ТабДок . ИмяСохраненияПоложенияОкна = "ОкноКурсаУЕ" ;

ТабДок . ОтображатьЗаголовки = Ложь ;

ТабДок . ОтображатьСетку = Ложь ;

ТабДок . СохранятьСвойстваОтображения = Истина ;

ТабДок . ТолькоПросмотр = Истина ;

ТабДок . ФиксацияСверху = 3 ;

//

ТабДок . Показать ( "История курса УЕ" );

КонецПроцедуры

 

Листинг ю_6.2

 

Процедура ПечатьЧерезЗапрос ( Кнопка )

 

ТабДок = Новый ТабличныйДокумент ();

//Получение макета

Макет = ПолучитьОбщийМакет ( "КурсУЕ" );

//Получение части документа из макета

Область = Макет . ПолучитьОбласть ( "Заголовок" );

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

Область . Параметры . НаименованиеОрганизации =

Константы . НаименованиеОрганизации . Получить ();

ТабДок . Вывести ( Область );

Область = Макет . ПолучитьОбласть ( "Шапка" );

ТабДок . Вывести ( Область );

Область = Макет . ПолучитьОбласть ( "Строка" );

//Создаем объект запрос

Запрос = Новый Запрос ();

//Формируем текст запроса

Запрос . Текст =

"ВЫБРАТЬ Курсы.Период, Курсы.Курс

|ИЗ РегистрСведений.Курсы КАК Курсы

|ГДЕ Курсы.Период >= &Период

|УПОРЯДОЧИТЬ ПО Период УБЫВ" ;

//Устанавливаем значение параметра

Запрос . УстановитьПараметр ( "Период" ,

Константы . ДатаРегистрации . Получить ());

//И выполняем запрос

Результат = Запрос . Выполнить ();

// Обработка результата

Выборка = Результат . Выбрать ();

⇐ Предыдущая12345678910Следующая ⇒

Поделиться: