Пока Выборка . Следующий () Цикл

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

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

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

КонецЦикла;

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

// перед его отображением:

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

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

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

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

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

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

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

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

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

 

 

Листинг ю_11.3.

 

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

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

"ВЫБРАТЬ

|Курсы.Период КАК Дата,

|Курсы.Курс КАК Значение

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

|ГДЕ Курсы.Период МЕЖДУ &НачПериода И &КонПериода

|УПОРЯДОЧИТЬ ПО Дата УБЫВ";

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

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

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

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

 

 

Листинг ю_11.4.

 

 

Процедура ПриОткрытии()

 

Если НачПериода = '0001-01-01' и КонПериода='0001-01-01'

 

Тогда

НачПериода = ДобавитьМесяц(РабочаяДата, -3);

 

КонПериода = РабочаяДата;

 

КонецЕсли;

 

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

 

 

 

 

Листинг ю_11.5.

 

 

 

//КнопкаСформироватьНажатие(Элемент) - формирует

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

Процедура КнопкаСформироватьНажатие ( Элемент )

СформироватьОтчет ();

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

 

 

Листинг ю_11.6.

 

// Модуль объекта "Отчет.КурсыУЕ"

Процедура СформироватьОтчет () Экспорт

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

"ВЫБРАТЬ

|Курсы.Период КАК Дата,

|Курсы.Курс КАК Значение

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

|ГДЕ Курсы.Период МЕЖДУ &НачПериода И &КонПериода

|УПОРЯДОЧИТЬ ПО Дата УБЫВ" ;

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

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

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

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

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

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

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

Поделиться: