Как сформировать диаграмму с типом Гистограмма объемная

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