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

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

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

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" );

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

 // Траб - Таблица значений с данными

// Диаграмма - ЭлементыФормы.Диаграмма

Процедура ПостроитьДиаграмму(Траб,Диаграмма)



Для Каждого Колонка из Траб.Колонки Цикл

 Если Траб.Колонки.Индекс(Колонка) <> 0 Тогда

  Диаграмма.Серии.Добавить(Колонка.Имя);

 КонецЕсли;

КонецЦикла;



Для Каждого СтрТраб из Траб Цикл

 Точка=Диаграмма.Точки.Добавить(СтрТраб.Получить(0));

 Индекс=0;

 Для Каждого Серия из Диаграмма.Серии Цикл

  Индекс=Индекс+1;

  Диаграмма.УстановитьЗначение(Точка,Серия,СтрТраб.Получить(Индекс));

 КонецЦикла;

КонецЦикла;

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

 // Настроить свойства диаграммы. 

Диаграмма = ЭлементыФормы.ДиаграммаПродажи; 

Диаграмма.ТипДиаграммы = ТипДиаграммы.Измерительная; 

Диаграмма.АвтоМаксимальноеЗначение = Ложь; 

Диаграмма.МаксимальноеЗначение = 20000; 

Диаграмма.АвтоМинимальноеЗначение = Ложь; 

Диаграмма.МинимальноеЗначение = 0; 



// Создать три полосы. 

Полосы = Диаграмма.ПолосыИзмерительнойДиаграммы; 

НоваяПолоса = Полосы.Добавить(); 

НоваяПолоса.Начало = 0; 

НоваяПолоса.Конец = 1000; 

НоваяПолоса.ЦветФона = WebЦвета.Красный; 



НоваяПолоса = Полосы.Добавить(); 

НоваяПолоса.Начало = 1000; 

НоваяПолоса.Конец = 5000; 

НоваяПолоса.ЦветФона = WebЦвета.Желтый; 



НоваяПолоса = Полосы.Добавить(); 

НоваяПолоса.Начало = 5000; 

НоваяПолоса.Конец = 20000; 

НоваяПолоса.ЦветФона = WebЦвета.Зеленый; 



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

|ВЫБРАТЬ 

|	ПродажиОбороты.Период, 

|	ПродажиОбороты.СтоимостьОборот 

|ИЗ 

|	РегистрНакопления.Продажи.Обороты(&ДатаНачала, &ДатаОкончания, День, ) КАК ПродажиОбороты"); 



Запрос.УстановитьПараметр("ДатаНачала", '2004.08.10 00:00:00'); 

Запрос.УстановитьПараметр("ДатаОкончания", '2004.08.30 23:59:59'); 



ЭлементыФормы.ДиаграммаПродажи.ИсточникДанных = Запрос.Выполнить().Выгрузить();