Процедура Нарисовать (Кнопка)

// Подготовить текст запроса для выборки данных из

// регистра сведений Курсы валют

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

SQL.Текст = "ВЫБРАТЬ

|КурсыВалют.Валюта,

|КурсыВалют.Курс,

|ДЕНЬГОДА(КурсыВалют.Период) КАК Точки

|ИЗ

|РегистрСведений.КурсыВалют КАК КурсыВалют

|ГДЕ

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

|И КурсыВалют.Валюта.Наименование <> &исключитьРуб

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

|КурсыВалют.Период";



// Установить период выборки данных

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

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

// Исключить курсы валюты рубли



SQL.УстановитьПараметр("исключитьРуб","Руб.");   

 // Получить доступ к диаграмме, как элементу экранной формы

курсы = ЭлементыФормы.ГрафикКурсов;



// Подготовить элемент к формированию графика

// Сброить данные серий и точек

// Очистить старые значения графика

курсы.Очистить();

курсы.КоличествоСерий = 0;

курсы.КоличествоТочек = 0;

// Отключить обновление диаграммы на время вывода данных.

курсы.Обновление = Ложь;

// Задать заголовок диаграммы

курсы.ОбластьЗаголовка.Текст = "Анализатор курсов валют";



// Сформировать соответствие номеров серий и наименований валют

// Ключ - название валюты,

// Значение - номер серии

серии = Новый Структура;

серии.Вставить("БВЛ",0);

серии.Вставить("USD",1);

серии.Вставить("EUR",2);

серии.Вставить("GBP",3);



// Добавить в диаграмму серии графиков

Для каждого график из серии Цикл

серия = курсы.Серии.Добавить(Строка(график.Ключ));

серия.Маркер = ТипМаркераДиаграммы.Нет;

КонецЦикла;    

 

// Выполнить запрос и начать выборку

Query = SQL.Выполнить().Выбрать();



сменаТочки = 0;

Пока Query.Следующий() Цикл

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

Если сменаТочки <> Query.Точки Тогда

курсы.Точки.Добавить(Query.Точки);

сменаТочки = Query.Точки;

КонецЕсли;



Попытка

// Установка значения графика в точке и серии

курсы.УстановитьЗначение(

Курсы.Точки.Количество()-1,

серии[Строка(Query.Валюта)], Query.Курс);

Исключение

КонецПопытки;

КонецЦикла;   

 // Заполнение расчетных значений для точек и серий

график = 0;

Пока график < Курсы.Точки.Количество() Цикл

// Создание графика бивалютной корзины

Корзина = (курсы.ПолучитьЗначение(график,серии["USD"]).Значение*0.55 +

курсы.ПолучитьЗначение(график,серии["EUR"]).Значение*0.45);

курсы.УстановитьЗначение(график,серии["БВЛ"], Корзина);

график = график + 1;

КонецЦикла;



// Обновить диаграмму в экранной форме.

курсы.Обновление = Истина;

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

 Процедура PNG(Кнопка)

// Получить картинку диаграммы

График = ЭлементыФормы.ГрафикКурсов.ПолучитьКартинку( 500, 300, ФорматКартинки.PNG );

// Записать картинку из 1С в PNG

График.Записать( "C:\TEMP\Диаграмма.png" );

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

 Таблица = Новый ТаблицаЗначений;

//Опишем тип создаваемой колонки

Массив = Новый Массив;

КЧ = Новый КвалификаторыЧисла(10, 2);

Массив.Добавить(Тип("Число"));

ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, , ,КЧ);

Таблица.Колонки.Добавить("КодУслуги",ОписаниеТиповЧ);



//... выборки из справочника и заполнение ТЗ

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

       НоваяСтрока = Таблица.Добавить();   

       НоваяСтрока.КодУслуги = ВыборкаСпр.Код;   

КонецЦикла;

  

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

МенеджерВТ = Новый МенеджерВременныхТаблиц;

Запрос.МенеджерВременныхТаблиц = МенеджерВТ;

// Текст запроса для построения временной таблицы

Запрос.Текст = "ВЫБРАТЬ

                  |    Таб.КодУслуги КАК Код

                  |ПОМЕСТИТЬ ВТДанные

                  |ИЗ

                  |    &Данные КАК Таб";

Запрос.УстановитьПараметр("Данные",Таблица);

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

 

   ТЗН1 = Новый ТаблицаЗначений;//Колонки Кол1,кол2,кол3,ИД

   ТЗН2 = Новый ТаблицаЗначений;//Колонки Кол4,кол5,кол6,ИД

 

    Запрос.УстановитьПараметр("ТЗН1",Отправления);

    Запрос.УстановитьПараметр("ТЗН2",ЛотыКСписанию);

    МВТ = Новый МенеджерВременныхТаблиц;

    Запрос.МенеджерВременныхТаблиц = МВТ;

    //Запрос 1 Помещаем ТЗН1 в МенеджерВременныхТаблиц в таблицу ТЗН1

 

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

    "ВЫБРАТЬ

    |    ТЗН1.Кол1 КАК Кол1,

    |    ТЗН1.Кол2 КАК Кол2,

    |    ТЗН1.Кол3 КАК Кол3,

    |    ТЗН1.ИД   КАК ИД

    |ПОМЕСТИТЬ

    |    ТЗН1

    |ИЗ

    |    &ТЗН1 КАК ТЗН1";

    Запрос.Выполнить();

    //Запрос 2 Помещаем ТЗН2 в МенеджерВременныхТаблиц в таблицу ТЗН2

 

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

    "ВЫБРАТЬ

    |    ТЗН2.Кол1 КАК Кол4,

    |    ТЗН2.Кол2 КАК Кол5,

    |    ТЗН2.Кол3 КАК Кол6,

    |    ТЗН2.ИД   КАК ИД

    |ПОМЕСТИТЬ

    |    ТЗН2

    |ИЗ

    |    &ТЗН2 КАК ТЗН2";

    //Получаем результирующую таблицу

 

    Запрос.Выполнить();

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

        "ВЫБРАТЬ

    |    ТЗН1.Кол1 КАК Кол1,

    |    ТЗН1.Кол2 КАК Кол2,

    |    ТЗН1.Кол3 КАК Кол3,

    |    ТЗН1.ИД   КАК ИД,

    |    ТЗН2.Кол1 КАК Кол4,

    |    ТЗН2.Кол2 КАК Кол5,

    |    ТЗН2.Кол3 КАК Кол6,

    |ИЗ

    |    ТЗН1 КАК ТЗН1

    |   ВНУТРЕННЕЕ СОЕДИНЕНИЕ ТЗН2 КАК ТЗН2

    |   ПО ТЗН1.ИД = ТЗН2.ИД";

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

 ПостроительЗапроса = Новый ПостроительЗапроса;

    ПостроительЗапроса.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТЗ);

    

    СтрокаОтбора = ПостроительЗапроса.Отбор.Добавить("Реквизит");

    СтрокаОтбора.Значение = Истина;

    СтрокаОтбора.ВидСравнения = ВидСравнения.Равно;

    СтрокаОтбора.Использование = Истина;

        

    ПостроительЗапроса.Выполнить();

    ВыбрСтроки = ПостроительЗапроса.Результат.Выгрузить();