Создание отчета ДиаграммаНачислений - часть 2

| НачисленияФактическийПериодДействия.Регистратор.Представление [367]

|ИЗ

| РегистрРасчета.Начисления.ФактическийПериодДействия КАК НачисленияФактическийПериодДействия";

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

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

// Запретить обновление диаграммы

Диаграмма.Обновление = Ложь;

Диаграмма.Очистить();

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

//заполнить диаграмму

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

//получить серию, точку н значение для них

ТекущаяСерия=Диаграмма.УстановитьСерию(ВыборкаРезультата.ВидРасчета,ВыборкаРезультата.ВидРасчета);

ТекущаяТочка = Диаграмма.УстановитьТочку(ВыборкаРезультата.Сотрудник, ВыборкаРезультата.Сотрудник);

ТекущееЗначение = Диаграмма.ПолучитьЗначение(ТекущаяТочка,ТекущаяСерия);

//создать нужные нам интервалы в значении

ТекущийИнтервал = ТекущееЗначение.Добавить();

ТекущийИнтервал.Начало = ВыборкаРезультата.ПериодДействияНачало;

ТекущийИнтервал.Конец = ВыборкаРезультата.ПериодДействияКонец;

ТекущийИнтервал.Текст = ВыборкаРезультата.РегистраторПредставление;

ТекущийИнтервал.Расшифровка = ВыборкаРезультата.Регистратор;

КонецЦикла;

//раскрасить серии своими цветами

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

Если Серия.Значение = ПланыВидовРасчета.ОсновныеНачисления.Оклад Тогда

Серия.Цвет = WEBЦвета.Желтый;