В этом примере формируется диаграмма с типом Гистограмма объемная
Данные получаем запросом:
ДатаЗапроса = НачалоДня(ТекущаяДата()); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ВЫБОР | КОГДА СостояниеДоставки.НетМашины | ТОГДА ""Нет машины"" | ИНАЧЕ ВЫБОР | КОГДА СостояниеДоставки.СостояниеРазгрузки = ЗНАЧЕНИЕ(Перечисление.СостояниеРазгрузки.ПустаяССылка) | ТОГДА СостояниеДоставки.СостояниеЗагрузки | ИНАЧЕ СостояниеДоставки.СостояниеРазгрузки | КОНЕЦ | КОНЕЦ КАК Статус, | СУММА(1) КАК КолВо |ИЗ | РегистрСведений.СостояниеДоставки КАК СостояниеДоставки |ГДЕ | СостояниеДоставки.Период = &Период | |СГРУППИРОВАТЬ ПО | ВЫБОР | КОГДА СостояниеДоставки.НетМашины | ТОГДА ""Нет машины"" | ИНАЧЕ ВЫБОР | КОГДА СостояниеДоставки.СостояниеРазгрузки = ЗНАЧЕНИЕ(Перечисление.СостояниеРазгрузки.ПустаяССылка) | ТОГДА СостояниеДоставки.СостояниеЗагрузки | ИНАЧЕ СостояниеДоставки.СостояниеРазгрузки | КОНЕЦ | КОНЕЦ"; Запрос.УстановитьПараметр("Период", ДатаЗапроса); ДиаграммаВП = ЭлементыФормы.ДиаграммаТекСтатус; ДиаграммаВП.КоличествоТочек=0; Точка=ДиаграммаВП.Точки.Добавить(Формат(ДатаЗапроса,"ДФ=dd.MM")); Результат = Запрос.Выполнить(); Выборка = Результат.Выгрузить(); Для каждого СтрокаТЗ Из Выборка Цикл Если СокрЛП(СтрокаТЗ.статус) = "Нет машины" Тогда ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[5],СтрокаТЗ.КолВо); ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "В пути" Тогда ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[2],СтрокаТЗ.КолВо); ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "Загрузка" Тогда ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[3],СтрокаТЗ.КолВо); ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "На объекте" Тогда ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[1],СтрокаТЗ.КолВо); ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "Завершено" Тогда ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[0],СтрокаТЗ.КолВо); ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "Нет разрешения" Тогда ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[4],СтрокаТЗ.КолВо); КонецЕсли; КонецЦикла;
