1С 8.x : Заполнить данными измерительную диаграмму

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

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

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

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

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

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

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



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

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

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

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

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

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



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

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

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

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



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

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

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

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



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

|ВЫБРАТЬ 

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

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

|ИЗ 

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



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

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



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