1С-Предприятие 8.0. Практическое пособие разработчика



              

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


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

       |ИЗ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   КонецЦикла;

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

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

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

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




Содержание  Назад  Вперед