Архитектура Аудит Военная наука Иностранные языки Медицина Металлургия Метрология Образование Политология Производство Психология Стандартизация Технологии |
Пока Выборка . Следующий () Цикл
Область . Параметры . Дата = Выборка . Период ; Область . Параметры . Значение = Выборка . Курс ; ТабДок . Вывести ( Область ); КонецЦикла; // Установка свойств табличного документа в целом // перед его отображением: ТабДок . ИмяПараметровПечати = "ПараметрыОтчетаКурсыУЕ" ; ТабДок . ИмяСохраненияПоложенияОкна = "ОкноОтчетаКурсыУЕ" ; ТабДок . ОтображатьЗаголовки = Ложь; ТабДок . ОтображатьСетку = Ложь; ТабДок . СохранятьСвойстваОтображения = Истина; ТабДок . ТолькоПросмотр = Истина; ТабДок . ФиксацияСверху = 3 ; ТабДок . Показать ( "История курса УЕ" ); КонецПроцедуры
Листинг ю_11.3.
//Формируем текст запроса Запрос.Текст = "ВЫБРАТЬ |Курсы.Период КАК Дата, |Курсы.Курс КАК Значение |ИЗ РегистрСведений.Курсы КАК Курсы |ГДЕ Курсы.Период МЕЖДУ &НачПериода И &КонПериода |УПОРЯДОЧИТЬ ПО Дата УБЫВ"; Запрос.УстановитьПараметр("НачПериода", НачПериода); Запрос.УстановитьПараметр("КонПериода", КонПериода); //И выполняем запрос Результат = Запрос.Выполнить();
Листинг ю_11.4.
Процедура ПриОткрытии()
Если НачПериода = '0001-01-01' и КонПериода='0001-01-01'
Тогда НачПериода = ДобавитьМесяц(РабочаяДата, -3);
КонПериода = РабочаяДата;
КонецЕсли;
КонецПроцедуры
Листинг ю_11.5.
//КнопкаСформироватьНажатие(Элемент) - формирует //отчет с использованием запроса Процедура КнопкаСформироватьНажатие ( Элемент ) СформироватьОтчет (); КонецПроцедуры
Листинг ю_11.6.
// Модуль объекта "Отчет.КурсыУЕ" Процедура СформироватьОтчет () Экспорт ТабДок = Новый ТабличныйДокумент (); //Получение макета Макет = ПолучитьОбщийМакет ( "КурсУЕ" ); //Получение части документа из макета Область = Макет . ПолучитьОбласть ( "Заголовок" ); // действия по заполнению параметров части документа Область . Параметры . НаименованиеОрганизации = Константы . НаименованиеОрганизации . Получить (); ТабДок . Вывести ( Область ); Область = Макет . ПолучитьОбласть ( "Шапка" ); ТабДок . Вывести ( Область ); Область = Макет . ПолучитьОбласть ( "Строка" ); //Создаем объект запрос Запрос = Новый Запрос (); //Формируем текст запроса Запрос . Текст = "ВЫБРАТЬ |Курсы.Период КАК Дата, |Курсы.Курс КАК Значение |ИЗ РегистрСведений.Курсы КАК Курсы |ГДЕ Курсы.Период МЕЖДУ &НачПериода И &КонПериода |УПОРЯДОЧИТЬ ПО Дата УБЫВ" ; Запрос . УстановитьПараметр ( "НачПериода" , НачПериода ); Запрос . УстановитьПараметр ( "КонПериода" , КонПериода ); //И выполняем запрос Результат = Запрос . Выполнить (); // Обработка результата Выборка = Результат . Выбрать (); |
Последнее изменение этой страницы: 2019-04-21; Просмотров: 304; Нарушение авторского права страницы