Сдам Сам

ПОЛЕЗНОЕ


КАТЕГОРИИ







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





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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

"ВЫБРАТЬ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

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

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

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


 

 

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

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

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

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

 

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

 

//СформироватьОтчетКурсыУЕ() - пример формирования отчета

// программным путем

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

// Создать объект

ОтчетКурсыУЕ = Отчеты.КурсыУЕ.Создать();

// Настроить параметры отчета

ОтчетКурсыУЕ.КонПериода = РабочаяДата;

// Сформировать сам отчет

ОтчетКурсыУЕ.СформироватьОтчет();

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


 

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

 

 

Процедура СписокФирм(ТабДок) Экспорт

//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ(СписокФирм)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную

изменения будут утеряны!!!

Макет = ПолучитьМакет("СписокФирм");

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

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

"ВЫБРАТЬ

| Фирмы.Код КАК Код,

| Фирмы.Наименование

|ИЗ

| Справочник.Фирмы КАК Фирмы

|

| УПОРЯДОЧИТЬ ПО

| Код";

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

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

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

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

ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");

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

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

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

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

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

ОбластьДетали.Параметры.Заполнить(ВыборкаДетали);

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

КонецЦикла;

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

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

//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ

 

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


 

 

Листинг П_А.1

 

 

//Модуль приложения

//ПриНачалеРаботыСистемы() - проверяет время входа в систему

Процедура ПриНачалеРаботыСистемы()

ВремяЧас=Час(ТекущаяДата());

Если (ВремяЧас>=13) и (ВремяЧас<14) Тогда

Ответ=Вопрос("Сейчас не рабочее время! Будете

работать?",РежимДиалогаВопрос.ДаНет);

Если Ответ=КодВозвратаДиалога.Нет Тогда

ПрекратитьРаботуСистемы();

КонецЕсли;

КонецЕсли;

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


 

 

Листинг П_А.2

 

 

// Модуль приложения

//---------------------------------------------------------

// Раздел переменных:

Перем НачалоРаботы;

//---------------------------------------------------------

//Раздел процедур и функций:

//ПриНачалеРаботыСистемы() - проверяет время входа в систему







Что делает отдел по эксплуатации и сопровождению ИС? Отвечает за сохранность данных (расписания копирования, копирование и пр.)...

Что делать, если нет взаимности? А теперь спустимся с небес на землю. Приземлились? Продолжаем разговор...

Конфликты в семейной жизни. Как это изменить? Редкий брак и взаимоотношения существуют без конфликтов и напряженности. Через это проходят все...

Живите по правилу: МАЛО ЛИ ЧТО НА СВЕТЕ СУЩЕСТВУЕТ? Я неслучайно подчеркиваю, что место в голове ограничено, а информации вокруг много, и что ваше право...





Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:


©2015- 2024 zdamsam.ru Размещенные материалы защищены законодательством РФ.